is
' U/ d/ x$ H5 k i:real;; e) S6 F+ v: t( H! X1 `
a,b:integer;
& |+ _0 D2 _" L4 k: ^: T7 kdo
- b2 x. J6 F8 e i:=z_uniform(2,0,1);
! u) B# `. Y7 Q' C" v- p- E if i<0.67 then: d* `4 I$ ]& V" h G
from a:=1;$ ^- B$ i' u8 x1 ^' Q6 i2 H
until a>6 loop# s9 R& M# A1 C1 [- k" ?0 W
.models.pan.create(.Models.Frame2.SingleProc);( R: A2 O1 @' [' u3 p
a:=a+1;
1 v9 O$ w& Q& G! | end;# P3 [+ m0 r, R# S6 E0 ?6 M
else: l" t- N6 N- W. N- w9 } `
from b:=1) ]( @ e9 h! K! n6 p
until b>8 loop
- j, b9 K6 [! W& g& C$ s .models.ban.create(.Models.Frame2.SingleProc);
1 H3 v/ f" u1 c4 u- B7 I b:=b+1;
4 F- w) z1 I- n end;7 z7 S8 w, Z* A3 ?; [
end;1 g1 O" P; v, \9 a0 y
end;
3 A! d$ R- m; d& J. ~! @; t2 R |