is
/ K9 `7 k) N) P) V" W7 T u: c2 z i:real;
9 k! x! E; L- S+ J3 W a,b:integer;/ E+ p! Y: P& n
do7 s8 t1 z$ C" x6 E
i:=z_uniform(2,0,1);9 I# Z2 s2 q& z* X; O- U+ I, f
if i<0.67 then
5 T: i$ z9 k2 _ from a:=1;, i4 w1 f! ^% w- D
until a>6 loop
: \; J( d+ i7 P8 ? .models.pan.create(.Models.Frame2.SingleProc);: Q2 v' R2 q: V# y3 \ A
a:=a+1;
/ X- Q; f$ X4 n6 _; W( m end;, C1 J. h/ E; o
else9 \9 N- t+ b5 i I1 }
from b:=1
9 W/ I3 j; b4 u+ ?' N8 D until b>8 loop* v( v4 F. {! ?% D, J
.models.ban.create(.Models.Frame2.SingleProc);
# _+ f: _6 E6 S: ~/ ?1 r* i# N) t: s b:=b+1;. }7 }, ~9 \1 B; n6 |
end;
; o" E: e& H6 m/ q- T$ z end;/ q5 b$ u: c6 o* c8 G
end;, ~. w* S0 Z9 ]3 R6 r
|