is" g0 U/ U& X- ]8 ^: m( R# z) j
i:real;
. y N* k% @$ x$ z6 v7 a a,b:integer;' \- e5 O. I, W! l1 U
do
+ z8 c+ A) G3 w. R; ^# F0 G i:=z_uniform(2,0,1);
% r4 p, j- d3 F7 Y" v; L, D if i<0.67 then1 Q9 ~) S; l4 h6 Z5 K& g. R0 o
from a:=1;
2 G' r8 V& B1 d1 t$ a9 r until a>6 loop7 C( x7 O& ^' z! S) H
.models.pan.create(.Models.Frame2.SingleProc);
% L- U, v$ U% X; N1 S. H! E9 M a:=a+1;
* Q" ~/ J2 G& D: ~8 i8 c9 [ end;
( X$ v# O: b; x else, m6 R3 |- Q( ?
from b:=1, x" }$ l& w! _1 J+ G! N" X$ c
until b>8 loop% @+ J# w$ p' i& k: ]
.models.ban.create(.Models.Frame2.SingleProc);
7 E; L& X' h* T b:=b+1;
( I! ^/ `- \+ N. V8 f3 s' u: x end; X, x4 N( z; A5 m8 {4 a) f
end;
3 \4 v# z7 H7 ~4 iend;
; m' d8 f6 t2 q- {) A. a |