is+ e' ?; P; h9 @% b Y' q/ g# Z
i:real;
/ g& v( h& ]1 ]& W a,b:integer;, b! v4 P, P* c- O1 a" @) w
do
" J; H& S9 v& T" Z+ ~) o+ i i:=z_uniform(2,0,1);
$ M$ m; U P* i/ F# ~ if i<0.67 then
+ B; i$ t: B4 W* z from a:=1;" t, }9 Q' t( ~
until a>6 loop$ V1 j8 S; d: D3 E* F
.models.pan.create(.Models.Frame2.SingleProc);
- a; |1 ^# t0 S; ?$ J/ |4 |1 } a:=a+1;
- ^, a7 z1 r$ l end;
2 {/ }1 b7 O: a9 O7 v2 X0 d4 @; A1 c else
; b. F; a3 y4 O% I% t9 m% d from b:=13 b! I. h+ W' Q2 x
until b>8 loop
- W8 T" h9 f! f .models.ban.create(.Models.Frame2.SingleProc);
7 X7 Z+ `1 M# d" m& z/ U b:=b+1;6 c- q$ w6 c4 `! b
end;
. M2 i- Y! o- O5 x end;" N! \& l7 Y" H' b+ S
end;+ w3 `$ `- s% F# D1 N* m
|