is# l/ B: u8 Y0 Y9 E* M: k0 I
i:real;
5 N" ?; ^$ G+ u- h& I# B, k a,b:integer;
$ B' K0 L& P5 n0 Q$ I. W1 L- tdo' T# K8 Q* F9 i
i:=z_uniform(2,0,1);
& _$ j9 Q1 D; {& F% ~0 v if i<0.67 then
# O1 t3 y- F8 A( P- u1 O from a:=1;
! {9 k. `3 K3 Y4 m until a>6 loop
6 }/ B$ F( H2 Y .models.pan.create(.Models.Frame2.SingleProc);: L& L, {7 F3 P- \8 g5 R! o
a:=a+1;. E" ?% o2 s, u7 `' w+ ?. D; u
end;
2 T$ c3 y7 \; @* C2 n else" H! l4 h9 E- N
from b:=1' ?$ z8 y* {+ H5 b( w/ {6 z7 Y
until b>8 loop+ _" A7 ?* h& \0 m$ A5 e ?9 c9 I
.models.ban.create(.Models.Frame2.SingleProc);6 g5 M! t, d) B# l. a
b:=b+1;& V8 {3 l- L9 h, E: Q% N/ a
end;( L' o3 G" h# Q) A5 ~) Q/ X
end;
; @7 T3 y3 M+ f0 C4 kend;
1 K- s4 J5 f* w3 j |