is7 x4 ^' R. ^% t
i:real;% W0 t+ \" X: A3 O* x6 e3 p
a,b:integer; \+ M, G0 v& K. m8 k: b% k3 q
do Y$ ~9 s0 N& [ L- C$ t! X
i:=z_uniform(2,0,1);
3 A& r/ [6 S% f if i<0.67 then# k! ]" C, I, I
from a:=1;4 L7 N; K# q5 B
until a>6 loop
; i( s5 _# t0 k: y0 q: q. _ .models.pan.create(.Models.Frame2.SingleProc);
' p$ O* L, r* X! Q0 } a:=a+1;
+ Y$ T! U) U9 `6 y G$ h end;
( u2 b) O6 j5 ~. y! _4 x b, M: T else" K# x l6 d+ N. J6 v# R1 c1 |
from b:=1
, y: e# u( ^( ] Q+ s' Z: o3 t5 R. s until b>8 loop
8 a4 _" g* X, [# H: ^+ x( `% z2 _, S, ~ .models.ban.create(.Models.Frame2.SingleProc);9 R% |" z- `% B
b:=b+1;
- m- j: y6 q: @3 s end;0 N* j+ W0 O+ Y2 `' F* P
end;) S7 Y1 |6 T' L4 c/ y8 y
end;& T# W/ l2 o) ]" P8 ~+ f
|