is( }6 I N0 L7 k- x4 l4 e% X
i:real;
* z7 u; M; Y; D8 f, e9 y a,b:integer;5 G/ W4 R" m. t7 `& C' _3 F$ b6 {
do
- O0 r" i) Z/ B/ n+ |% T i:=z_uniform(2,0,1);8 W& j/ z9 `$ \& P9 T3 B
if i<0.67 then- Q8 l% q7 z* M& G* X7 C, i
from a:=1;) V: a8 x( [0 H3 ^4 Y9 m; D
until a>6 loop K5 _' b8 r& Q& A! |% T
.models.pan.create(.Models.Frame2.SingleProc);6 D3 J( ~6 Q: }3 M: w# w
a:=a+1;
% d" e2 r* b/ c' G; ]" n end;) M9 V( y5 [% s3 K# ?5 n+ [ H; S
else4 j! d9 ]2 i8 R4 d. R3 p5 {
from b:=1
- l2 z+ e) X) H5 I) o/ l$ Y5 Z until b>8 loop- T* t6 M9 A# K5 Z' G# O2 A" r4 z
.models.ban.create(.Models.Frame2.SingleProc);
) N3 [& `" d* G% z2 M b:=b+1;
4 k. y$ y# z9 U% d. L5 P. i( I end;
2 q2 K; ~7 z# m1 q# X. w7 D end;6 {# h+ h& q8 X
end;) t) @9 T8 L) ?5 q! x
|