is
( R3 i" X9 O1 R: H& E) C; ] i:real;1 b( X' z; x) q& L7 j
a,b:integer;5 P. s& h1 U7 x& p. o
do( v) n, V: r" m7 G5 ~- j
i:=z_uniform(2,0,1);
7 P% Y% T2 j" g if i<0.67 then
5 M4 P) q: B% d* Y, M O from a:=1;9 K8 P4 ^, x1 K. ^4 t
until a>6 loop3 a% s# I/ F* f; [0 i; R
.models.pan.create(.Models.Frame2.SingleProc);) R. E$ H7 ~, l" ]8 v# Y e6 L
a:=a+1;2 O+ A7 V9 z" C4 ]4 Y, v! \
end;+ o* w9 U2 F' q+ q
else/ K5 P- d8 p7 l4 g1 D- O
from b:=10 Z% I+ x4 r0 t: F4 W3 c0 K
until b>8 loop
! M! t: c7 L9 B. A1 ~' r .models.ban.create(.Models.Frame2.SingleProc);; C8 H- i* R- M( r( s4 M
b:=b+1;$ [1 _+ a' ]. n n" O; o
end;
8 K7 B, c+ S0 y, g0 }9 z9 S9 Y& Q end;
1 A1 T+ T' H5 e G9 X% F% wend;
- t2 y+ b, ^& J7 |4 U |