is- a* F; l A, B3 n# S- d! V' N
i:real;
' B1 \" Q8 g: J, c a,b:integer;
. a0 Q- Y6 X E( ` r# k- [# r- n$ d2 fdo
$ \ e. w2 S: x8 v0 v2 Z- x i:=z_uniform(2,0,1);
" T, S1 M: W4 L4 k$ W if i<0.67 then
$ R/ \ ~( G- `& W: H$ G% B' n6 b7 k from a:=1;
3 `$ x, T3 \5 D. n- L' R! E until a>6 loop
p" |5 R" Y' T. V+ y .models.pan.create(.Models.Frame2.SingleProc);! J, A o' l! @* J
a:=a+1;. r5 Z9 O+ g- J4 N1 {
end;
" W7 K0 E0 K+ y- I' D% A1 \ else/ E# |; m% j) ], h1 I. \, ]
from b:=1: m6 ?% b6 @- [3 R2 ?
until b>8 loop* I0 z6 h& R) R# E5 i7 O I1 n
.models.ban.create(.Models.Frame2.SingleProc);
( P% n8 `% w8 v( ^ b:=b+1;
% K* \8 W& h, E& C- R0 |" j end;
P4 N' u( F* T5 p end;
. a$ J0 l4 X7 |# T; e* |5 uend;4 B8 U7 `$ K+ k. K% u
|