is
2 ]9 t: Z ^* ~& ^ i:real;
0 e. i* t7 z. W9 O$ n6 m a,b:integer;# Y& b, u; Z& K) I# l h+ P5 Y
do
4 }. }+ f5 w! x i:=z_uniform(2,0,1);5 {: u3 Y* Q$ W0 M
if i<0.67 then! f2 f! W4 R4 j; {- z/ ?" U
from a:=1;9 @/ \3 U9 h! l8 G& P4 n2 j7 ?
until a>6 loop3 y) i8 |0 I$ [: {) M9 V% a
.models.pan.create(.Models.Frame2.SingleProc);! j+ h. w' F4 g" O
a:=a+1;- r' H9 w- Z+ B+ F* G. O2 _2 Z
end;0 p4 X7 C! M0 G& s! I1 v6 z. C
else7 [2 k$ y3 c8 G/ N
from b:=1
, ]8 ~" a/ r8 S8 j, o until b>8 loop
2 l* L% _" s9 [: e% Z O) ^9 ^ .models.ban.create(.Models.Frame2.SingleProc);
: H R! ^( }, W) Q9 F$ C b:=b+1;
. d$ ~ l& v% J' i3 O8 u5 i7 t% w end;8 _( |' F2 o$ q, M% B6 f
end;+ x) ~$ p9 t# W6 t. j
end;% D4 ]6 `+ A9 |, q- ~
|