is* B! ?, b8 M6 @
i:real;
; P2 G- h" p4 _" U! B! Q, r$ a7 e a,b:integer;6 Y, f9 Y8 g+ O0 |% X/ s& K5 Z
do( Q5 w: Y! } [1 d0 @
i:=z_uniform(2,0,1);
" W* W( W" ] j8 y- L2 t T if i<0.67 then
; {' w" C% _- w" ]/ v r) `$ p3 g) N from a:=1;
2 h2 q) D, t: s$ L0 ?3 t2 d until a>6 loop2 {5 O. F) v* j2 ]1 c
.models.pan.create(.Models.Frame2.SingleProc);
/ G! _) k, ^, ^9 f8 S3 b a:=a+1;
y3 E4 S) l1 H- f end;
' H1 w g/ W0 w: U6 P" [ else' t' s' S. t! K
from b:=1
: S! u5 V! \1 g; t until b>8 loop
+ [& _4 E; n' g0 G# h4 q6 s .models.ban.create(.Models.Frame2.SingleProc);
8 Q y" }) b/ ?* [ b:=b+1;
5 V& p+ q! s! _9 @ end;
( O6 l7 g& e1 w( x1 y0 Y end;! q6 _6 s8 @2 k
end;- O6 I9 S+ ~$ U. ?5 |
|