is4 q2 P; L' R2 q1 q$ S4 B
i:real;8 s- J3 Z2 R+ O/ ?- l, [& k
a,b:integer;( c7 Q( G- r* @1 _
do5 |7 [/ J* d& x
i:=z_uniform(2,0,1);
' Q/ O g) n2 ]9 g3 {4 Z3 m if i<0.67 then
2 M ?; o2 b3 y$ p3 I; ^0 k" L from a:=1;- q: F6 Q9 Z: R0 ~3 h8 @
until a>6 loop( |7 }' F2 n$ H4 \
.models.pan.create(.Models.Frame2.SingleProc);& a+ m- j7 ^0 Y$ l" F
a:=a+1;
0 c! |9 x: Z( {' c* Z/ Q8 r. f$ C end;& a1 P* v6 S, j/ V0 B7 k$ A
else
. ]+ J! h1 T& r8 M from b:=1" [$ q; I* R8 F5 F5 y2 M0 K3 q
until b>8 loop
# }" w0 m* T! A6 K, L5 U .models.ban.create(.Models.Frame2.SingleProc);' {( D4 i7 s: i. ]% Y+ f) u
b:=b+1;0 ]" Z& N& ?/ @
end;
- \6 h# T& [" h/ M$ U8 n end;
! b" ]7 [) [" J+ ?3 Nend;
+ a- ]/ V( T, D) V* Y |