is" i$ e- Y. n* V: T- n1 N6 E, w
i:real;" u# P4 K7 O7 {6 {" _. I1 Z
a,b:integer; _/ d7 _# p4 E) b
do
( Z. K, m( ~) E+ Q. `" O5 @- z i:=z_uniform(2,0,1);7 M2 J0 t1 W2 H+ l$ m$ L
if i<0.67 then/ F1 Q( t7 n+ [! \
from a:=1;
( e6 n$ ^7 p! x+ a until a>6 loop1 w& R5 m3 c7 M5 ~
.models.pan.create(.Models.Frame2.SingleProc);* h( v! a9 F2 `1 v0 c1 f# z
a:=a+1;
$ L+ n. X! X6 q. C; Z& Z end;/ ~% D4 c7 w { {4 U
else
% i% K a c* z' a9 R from b:=1( }$ P% O8 ?& y( l7 H6 _
until b>8 loop% O! A9 k- q8 I9 ?; I
.models.ban.create(.Models.Frame2.SingleProc);. Y' ]7 U' Y+ V/ [1 X' E
b:=b+1;" m$ V3 [! ~( B, [: J: y0 R# c
end;# v* H3 a3 A' t1 v+ x i9 i$ @( T
end;( [& E4 V) F G4 @6 ?, t# J l
end;$ B' Y2 H% I2 l7 [5 Z
|