is
2 A+ P) h0 P9 n# x i:real;
8 a) S# L8 ?8 q* ?9 Q; r a,b:integer;5 U8 |$ \9 K7 f6 |6 K C
do
- ~0 L8 b7 D0 Q4 x( ^/ z8 G i:=z_uniform(2,0,1);1 t- x$ s. L/ |3 _9 Y) W I" C d
if i<0.67 then
7 |% U9 ?& B4 |1 L, O% F( b2 n from a:=1;# L7 Q/ H; Q6 H8 ?
until a>6 loop
6 x% {7 a/ P8 @ .models.pan.create(.Models.Frame2.SingleProc);) s" M8 r. p) b6 l
a:=a+1;* ?7 W' F/ }9 i6 I* }: y0 Q, I, c L! t
end;
: e0 u/ N9 a1 c5 R# y else9 X% l7 M, p0 N7 h5 ^) S D
from b:=1
& [" V" q8 ^8 ]3 k/ J, S until b>8 loop
: V$ z, J! G& Q .models.ban.create(.Models.Frame2.SingleProc);/ _9 F9 }3 I# ^8 D- U
b:=b+1;4 `4 \* A- r7 u' w% Q
end;8 u) N% u1 \" U; t; H. {. s
end;- i& `# G; Q& a( l
end;% K1 f7 g) o V' l0 x0 [0 b
|