is
1 R/ [" x7 M- x+ w i:real;+ {, ?1 e; Q/ y- q+ P" m2 P
a,b:integer;
5 `0 ~! s4 p( `& P3 V2 F- p, ]do: C0 a* _. S0 U9 l7 P6 [) ]: t G
i:=z_uniform(2,0,1);1 Y# r3 ~! @% L7 \2 R4 ~; s
if i<0.67 then$ J! _# v9 x [9 O% O
from a:=1;
C( v$ _, z7 P7 T( m% ` until a>6 loop$ o; K7 O) V$ d$ d
.models.pan.create(.Models.Frame2.SingleProc);
# y) n& w. Y; {9 C! H+ m1 { a:=a+1;7 S i' Y1 ^2 Z: l7 q9 }
end; A) E5 u. n, c6 p3 O7 d1 L
else
1 J! b5 e; r7 u" n" J5 e! _! E& U from b:=1; ?8 A4 U8 R7 e1 |( R
until b>8 loop
& l+ Y+ E# W5 N% [ .models.ban.create(.Models.Frame2.SingleProc);
" Z g# S' b7 E" y: v: Q0 D9 T b:=b+1;$ l" M, q+ F/ j0 G: B, Y
end; ^" x9 v8 y) K* M' k: R
end;
- i+ J: [1 y/ s. u/ w8 i" ]end;) e* x$ }* x: z2 r
|