is
: z) p$ o/ N. `5 q$ Y: }! ?8 a i:real;
. Z: W( r! F R/ B0 ^: } a,b:integer;+ Q; I9 O0 e6 G7 y% V5 t/ B
do
% u) m: q$ `% q$ @ i:=z_uniform(2,0,1);" q7 H% j- b4 A- f$ _; A3 d) _
if i<0.67 then' E" |; d+ `: L0 J: k, l' s1 K
from a:=1;! s m/ c% O5 i% g2 w& B/ g# Y
until a>6 loop3 d' _9 z) U5 I j9 V2 Q7 _
.models.pan.create(.Models.Frame2.SingleProc);
3 ]0 } {. d8 A7 G5 X/ s a:=a+1;& a7 Z- f* X$ M5 \- l
end;
5 h; N6 _) O! |0 r' ~9 @+ I( D0 w else! \7 _1 d6 J) y& |% h& _
from b:=1+ U- D1 L; a, J" j4 |" O% P& A+ h
until b>8 loop& r {$ n! a( k1 q" o
.models.ban.create(.Models.Frame2.SingleProc);2 F% _8 ?- @6 g$ O/ Q
b:=b+1;
. v/ R" t ~2 s7 h end;/ T8 u/ m0 T6 q3 W
end;- j; M7 r7 G) ~& ~% [
end;) _- {. b! c( o2 M( y: x8 u- e
|