is$ h1 w3 {, y" s
i:real;
4 D3 T' Y; e) n# o4 e) ?* F a,b:integer;( S1 {6 L4 j/ o& C& [7 B
do$ T8 b" \5 y) M" S( Z* R
i:=z_uniform(2,0,1);, H7 Q4 {' m; h$ I
if i<0.67 then& S5 b+ F9 b1 h% x& U% c
from a:=1;
: S* s* y7 M; c7 F, c1 X) Q* Q until a>6 loop
' p' n( v5 ^ K. C d .models.pan.create(.Models.Frame2.SingleProc);% q: x4 o3 W+ @7 m+ Y) [ n
a:=a+1;
2 Z. c0 C* }: @* [$ O8 G3 u3 W end;* g- X0 p; `1 C
else6 M2 Q* W( r7 x
from b:=1
) T$ p: T3 ~! o& O until b>8 loop
5 z9 Z/ t' B- ]8 v .models.ban.create(.Models.Frame2.SingleProc);' z9 m2 f, B9 \9 V0 W" b- V
b:=b+1;! k) j0 T4 z0 [) u' G8 N
end;
" r% j0 W/ [5 ?1 L end;' M/ a( L# x4 A6 b8 ?" q# ^
end;
& J: J7 I5 a3 \! E, y" N5 T |