is# v: z- v! A K4 o" r3 x2 b/ P
i:real;
# _( J3 v9 D5 O# o$ _1 F" y# y) L6 s a,b:integer;6 _+ F+ o! h* l9 z
do) a' w! ?) g# G( E4 q, p7 C) {: }
i:=z_uniform(2,0,1);! j$ ?! [. i6 v9 `
if i<0.67 then' Y. |0 [9 B) u
from a:=1;4 p9 \' j3 T2 F0 q) i7 d
until a>6 loop) p& x4 J' g+ R! T
.models.pan.create(.Models.Frame2.SingleProc);( @% r2 |! C# Q4 A+ i# W6 I
a:=a+1;
* w" z) J& c4 i" B" k+ E+ Y end;: T, W. D. A) {9 ~; z8 I4 ~ q
else
% j" c6 h" l6 X# Z) @$ d from b:=1
3 _8 l+ f/ p* [ until b>8 loop$ y% E' e$ {( v
.models.ban.create(.Models.Frame2.SingleProc);! d* L- T" {3 ~! X
b:=b+1;
" }' R" D! H1 b [8 p" | z( n end;
* w8 T/ K0 x# G( a) E2 Y9 Q end;% {& {& O8 K0 k' l* K; g6 d
end;2 q4 }/ |7 W1 f$ Z8 Z
|