is8 T% g+ f5 a7 U ?- ~" U
i:real;
1 R+ |. B* G8 A& I; D5 ?6 j8 ` a,b:integer;
6 o) x6 N& Y1 a; b2 Bdo$ G; @( y, a0 B1 S( E1 ~; c' C
i:=z_uniform(2,0,1);$ k' b- G3 H( z( t6 y
if i<0.67 then, _7 n0 H& k9 |7 G7 q+ @0 ?
from a:=1;
; e% o5 G- V2 A q8 a- h; B until a>6 loop) \: d4 L1 j' N# W# t
.models.pan.create(.Models.Frame2.SingleProc);
/ U" E& J! a9 ^+ g" [( f- B2 c3 { a:=a+1;. ^) j, p# n( P0 [' B, S! S, [
end;
2 x6 D+ d; m6 E1 r p else
2 j7 f$ A. j! k1 q! o9 L* Q from b:=1
, e/ s; q3 y+ ^2 V! V- I. [* ? until b>8 loop% ?2 I# i2 }2 @% K( ?# ?
.models.ban.create(.Models.Frame2.SingleProc);
A6 d' w a J. z" J b:=b+1;
6 d/ a% i {1 s m( p% k! r end;( b& e7 U9 _$ I
end;9 P% C$ g. X2 z& e( H5 j0 D; u
end;- Q- K% b+ ]" G' x
|