is- P5 ?1 a' I" B1 i
i:real;
5 h# ~, |* {, {6 p! o) B a,b:integer;, k( ~3 a" V6 X4 T. r
do
' l! s% I. M4 j& n6 o, ^ i:=z_uniform(2,0,1);
& u1 u& u* t# S0 ]2 V if i<0.67 then
+ X3 S( ~2 r4 R* }" u: V from a:=1;
' x- H: i! S* ]- N& N: o until a>6 loop, ~4 ~4 N; t5 {3 \: ^" E1 K
.models.pan.create(.Models.Frame2.SingleProc);8 ?; o1 k C" [# F( v! r
a:=a+1;
6 o( K- [; H& G! m# K end;7 ]6 Q9 i& y6 o) F
else
. K0 G9 B$ W2 z- @; j from b:=1
5 l! c5 x/ {( X7 f$ l, O+ P until b>8 loop+ i) s& w- z* ^. l$ `9 l% Z) } i
.models.ban.create(.Models.Frame2.SingleProc);# Z8 s- ~9 h. Y& l1 b% ~. }( B! D
b:=b+1;
9 N8 R& p9 Q# G end;) L1 S0 n$ A0 h% P
end;
& r2 p$ v! @4 `' Fend;: Z" W$ x& y; X/ S2 B
|