is6 Q {. w2 Y4 Q! A3 a8 j# |
i:real;2 \0 ~. d& X* ^
a,b:integer;( }$ b* D1 Y( Q& \
do
u0 s1 r# C, a i:=z_uniform(2,0,1);
' A5 i$ C. x% V- ]' M4 r if i<0.67 then* z* d! B. D1 Q$ `
from a:=1;# D% |+ R' U, V' g1 E0 N
until a>6 loop# v7 ^8 y% S) I" W# Y1 d
.models.pan.create(.Models.Frame2.SingleProc);
% b4 }2 s( _1 d6 `2 L a:=a+1;* ^# u; A4 ^% V- ~! u( f
end;5 a8 s1 m- J" ?. ]4 X9 ~
else
- i% i+ {9 f2 { from b:=1
: ?1 c \6 v# R0 a until b>8 loop
- Z* u( _% |# U4 \/ I) v .models.ban.create(.Models.Frame2.SingleProc);" t1 g3 |6 R* j$ \
b:=b+1;9 e% l; `* H: P8 P7 Q, w
end;
' R9 P) c: o# {1 s! c end;: w/ Y% N. q; A$ q- r7 n/ y
end;
" e4 O; F9 @- m2 y# q1 i* U |