is1 Z9 Q1 o8 u$ ]& J# q1 y
i:real;" D. S' n$ L {" F% e
a,b:integer;
& i4 u1 N- S8 ]. z7 K9 V1 t. } @do
2 b4 s: i8 N' y i:=z_uniform(2,0,1);$ R y: E* C- l8 ^
if i<0.67 then
+ {! }% l* D' ^ from a:=1;
) }# v* c/ }0 t0 a/ N until a>6 loop4 k" z7 E9 D* S, R- j8 W
.models.pan.create(.Models.Frame2.SingleProc);
, z& G1 v: t3 r) y" }0 z a:=a+1;- I2 g: @6 b/ N- {$ V) x1 B
end;
C7 Y6 _( `/ q% B! V else
0 `# ~. [) b+ t" T: _; [ from b:=1
$ U1 Q; j7 f D0 P until b>8 loop
) ]5 X# G4 J1 U7 q3 d+ @ .models.ban.create(.Models.Frame2.SingleProc);
$ m( n2 Y+ b8 s2 [& U b:=b+1;
3 c& h7 F d) S7 d8 w end;$ A3 W& g. V1 I* y0 M+ b
end;
. {9 S% A6 H% ^ _end;
y, C/ w, ?6 b |