is( r& k! Z$ q. i( M4 E# O9 ?0 E
i:real;
/ i" g0 z8 W, g' O1 B8 t a,b:integer;
! d) O7 h V: y) Q0 ~do
4 S) D _2 S, F- b! k' S, n6 ` i:=z_uniform(2,0,1);
5 ] }( D& P; W if i<0.67 then
" G6 Q& @3 V# l from a:=1;
5 d0 h* J3 r; R- s0 G* P' O* c until a>6 loop
" {/ f* d$ A- j& | .models.pan.create(.Models.Frame2.SingleProc);
2 |% `: \% c, d8 e# F+ A a:=a+1;
5 R, N& o; E/ P end;; k9 C3 N J! T2 \
else) `1 B7 {! n( M& v u
from b:=1+ I- S% w ?& E( c& i
until b>8 loop
8 P& R0 T; ]" H5 ~ .models.ban.create(.Models.Frame2.SingleProc);
. q ]3 w. k. A# ^. z. H; B b:=b+1;( c' f$ p) z, ^! `( X: H
end;
, D, m- f: ^& T; W end;
* a4 E+ W2 C; \% C& r7 ~end;$ T& J$ [3 E! ?9 a# R! w# W
|