is
5 v8 P0 F8 e6 w P' B. T9 a* _ i:real;
% ^4 x3 m7 L# _6 B# m% d2 g a,b:integer;- V1 j" |$ i& q" @& n$ a9 ?1 s
do
$ [: X& r; K" V# W8 C6 y0 z5 ~$ r i:=z_uniform(2,0,1);
1 `% l" u2 ]9 n7 ~ if i<0.67 then
: z3 O* }9 G0 @' D! n0 ] from a:=1;, D, S5 N& q0 A8 _# Y
until a>6 loop
4 d. r: m% I% U .models.pan.create(.Models.Frame2.SingleProc);5 G7 L" w M9 Z4 ]
a:=a+1;. K/ V2 c* D9 f5 @# t7 l
end;
& M* B. E9 C! k else
. x( d* M1 x6 S from b:=1
c' X, P9 Y+ T- ?# P until b>8 loop
1 i% y) |9 B$ z% C4 B .models.ban.create(.Models.Frame2.SingleProc);3 S+ a( S0 ]- h' l K4 [7 G' K( b
b:=b+1;
i" _. ]% Z- M# ~- M" \; Q end;
/ m& X2 X) ]* |7 y end;! b5 e+ `0 t, V4 s: L
end;; j; E1 K- W P2 k3 Z
|