is
. s8 ^6 \3 \9 ~- F' f f i:real;6 W3 z1 A1 ^3 y* B1 X/ c
a,b:integer;8 U( p$ \7 d$ U Z
do
8 v, G" [/ J4 _8 x" H- q i:=z_uniform(2,0,1);9 i. m1 {$ z7 X3 u: r
if i<0.67 then
& L4 o9 `$ {7 E6 o, k from a:=1;
2 V" A9 n& [0 O M0 o$ m; ?% Z0 L until a>6 loop
" ?" I# M+ h: l7 j2 O/ Y) | .models.pan.create(.Models.Frame2.SingleProc);. B" @9 q( {: ^$ l# ]6 S0 i- q( k9 R
a:=a+1;9 L0 o( f0 Y+ h+ `" w4 L
end;8 p/ u- c5 _5 P4 b( A8 l' J S
else
\9 k# q# C) } from b:=1
) `7 N" h* K8 _# A' ~ q until b>8 loop
' h, v" ?# c3 i2 o .models.ban.create(.Models.Frame2.SingleProc);) M% w/ w) n' X3 ~$ I+ p `, N/ Y
b:=b+1;+ H1 I) k+ ]' P, c5 f% x
end;2 C: I G) e, R. f% P# S
end;
# N! }$ i4 ?1 p" l9 [! n% N2 q1 Oend;% I4 ~$ X3 i" W. }' B$ u, Y6 O3 J
|