is
, O8 c, b' g2 V" `" R i:real;0 f0 v. A0 H8 D. q9 G- A* h# ~
a,b:integer;
: E! b+ C5 B7 L+ odo3 [! L) u5 s2 O
i:=z_uniform(2,0,1);
1 T4 t- k9 v$ g5 P/ J( [, o if i<0.67 then
- w- }6 _! ^% @ v from a:=1;
$ V# m; n% k! N9 G9 \ until a>6 loop
2 b6 U5 `& E/ S .models.pan.create(.Models.Frame2.SingleProc);
8 ?9 G& `& M3 w! @" E8 y# w3 J a:=a+1;6 b- [" o- X" W: C# v2 }# z: X
end;
# x( P0 I( e% k else2 q \. H2 r5 i+ u6 `" J6 Q( r
from b:=1
* F4 p5 X1 L* B% }+ J until b>8 loop
0 I1 \% Z1 `7 R3 A+ n .models.ban.create(.Models.Frame2.SingleProc);, g0 {& L* c/ \: f
b:=b+1;
. Y# c+ C. d# s* V7 i$ M end;- j% M% J7 H" p9 Z; J0 k
end;
, _$ Z3 M' h! [; e# M% ^+ eend;
8 z! K" P9 N1 |' \# V3 x# Q |