is4 w. f0 B) M6 b c0 F7 x
i:real;4 O; U! J# I7 H% n) R- Z$ s
a,b:integer;
6 C! D5 s! l; x, hdo+ W- G d* M/ T2 k) [
i:=z_uniform(2,0,1);
4 X5 G1 x; L6 \5 O if i<0.67 then& _( T! }: J- w8 j
from a:=1;6 O C: [% H: p( B; E
until a>6 loop
2 C3 }0 R M+ G- K .models.pan.create(.Models.Frame2.SingleProc);4 \/ s6 M2 @9 ^# K1 ?
a:=a+1;8 F7 L1 z1 G" |# Q/ T" E! L
end;3 h% G3 I: y" Y7 t/ f
else% {4 A! R7 A+ u4 L
from b:=19 N( }: M- a" A$ y) p2 C/ Z6 a: a/ k
until b>8 loop
% c3 c9 u0 K4 C- K1 L b .models.ban.create(.Models.Frame2.SingleProc);4 A3 X1 y$ Z( r1 t
b:=b+1;
9 ^0 I0 X% P+ M# B+ r1 q end;
3 c: U. U0 l8 @3 J2 M end;7 E, p& l! P/ v, G, c/ ~( Q
end;* Z4 W, H3 a& n: C& n( y p
|