is: b/ z5 s) ^2 \1 |( g
i:real;
$ R6 O. e: l4 y$ ^ a,b:integer;
8 K3 ]) Y4 l# S7 R2 wdo
: j$ m) B5 a8 R1 K i:=z_uniform(2,0,1);; D# a- I6 g1 c& [. E
if i<0.67 then0 C0 Y* j M; K& Y8 N
from a:=1;) h+ b) j, x3 g
until a>6 loop4 R7 f) I/ o2 |( z# ~7 F( ~
.models.pan.create(.Models.Frame2.SingleProc);
" v1 V+ }! T* z a:=a+1;5 F0 X. i2 l# T/ V) k
end;+ @5 w! K' b2 X r) j. D- A
else: p7 @9 j2 J q5 ^
from b:=1
* m+ t" W; j( r7 J" @( P( A" X until b>8 loop$ H+ q! Z; ~7 ~6 o3 k$ {
.models.ban.create(.Models.Frame2.SingleProc);9 L/ }. j6 [; s7 o! d5 t8 Y
b:=b+1;6 q9 d% J# x4 V3 Q* o
end;. u6 G. r6 o% k- X$ D& v
end;
, a3 T2 Z K3 K% Q+ |end;) q% _( L, i0 z1 p$ ?
|