is
( A; [$ W B, \ i:real;( o3 x3 x \. A
a,b:integer;8 f ^8 k1 S; {2 e4 a& ]# w( e# @" }
do
+ ]% D9 b1 L. b1 u6 V8 ` i:=z_uniform(2,0,1);
n4 x& u1 `2 f1 Q7 W6 T& U1 t1 w if i<0.67 then8 H( t1 i0 W* e6 p- j
from a:=1;
; y/ |1 I5 o8 c' {* s( L5 X3 A until a>6 loop& g1 j) O3 @3 U* [/ J: x+ U4 Q
.models.pan.create(.Models.Frame2.SingleProc);2 Q% [+ A1 O2 k- E1 r8 b, ^
a:=a+1;0 @/ |5 {( o5 @. g& u
end;
. d, b+ I1 d5 J; f8 g* O else- D6 a" |6 h8 D! E; Y) |
from b:=1
$ R! h @% ]9 O |- k until b>8 loop! T" e5 j, F5 a' f' t' U
.models.ban.create(.Models.Frame2.SingleProc);
: Y8 G8 q! J/ X( p b:=b+1;
. H9 F. \2 ]/ C; _# K6 ` end;
( \3 {3 t. l& @* M% W1 ` end;
) ?& ], @% o; lend;! N% E" e' Q6 y
|