is
; l& H s1 F! M8 X" V i:real;: b# }. f6 M/ I) `1 Z! f; R. w& w
a,b:integer;
, g8 T' R) Q+ H! r' n; o8 A* e4 jdo
: U+ p4 L1 ]3 K9 h3 R0 \$ F i:=z_uniform(2,0,1);
0 m7 ^3 ^! e3 N! w* P6 P if i<0.67 then
& w/ D' x# S& R from a:=1;. i z) O0 u0 F: V( j
until a>6 loop1 y4 i& M7 G) l$ b
.models.pan.create(.Models.Frame2.SingleProc);
2 \) e3 [2 O8 N9 }& n a:=a+1;
* `0 U% e( D; U8 r! N5 a$ G end;% `9 t I0 I1 R: W% ~7 J6 H
else
( v, D" w* L0 u5 z from b:=1" B" J' c( r5 U$ P/ V% U
until b>8 loop
2 {* a- ?( Z- _# F" e .models.ban.create(.Models.Frame2.SingleProc);
/ N8 c; r' i" O- A" t5 m b:=b+1;
, ~2 D! b2 O- e& M1 K0 e end;% J" G) q9 e. s" N
end;
+ F3 K1 \; q6 C- T6 E" kend;( j, Z# E/ T) E& |8 d5 e( G! [
|