is6 y3 |) w) t( |( e: Q
i:real;
7 R) c2 k$ y# j! R" g# k( P9 e a,b:integer;
4 c3 ?) A' M/ N( zdo
3 i* C/ @' I0 W9 j- a9 e6 b- W i:=z_uniform(2,0,1);0 c; v% U: G% T( P6 E
if i<0.67 then7 h, r6 J: Q" K( Y# t
from a:=1;
1 X6 {& l0 q. p; R until a>6 loop
0 s C# P. {, q5 T9 C( V- c .models.pan.create(.Models.Frame2.SingleProc);
/ C, K* u! J3 l8 F# | a:=a+1;
8 |8 ]; w- {. ?% q end;
6 ]$ e: \* P4 n6 }1 z/ E& W! H else5 i3 E9 Y' e1 B9 b/ n. H! A9 y: e# h
from b:=1) N( b" A# i* Y, l! w/ b
until b>8 loop
- e9 O! O4 U) H) W .models.ban.create(.Models.Frame2.SingleProc);
$ d6 j4 X7 G9 V3 B/ F7 c b:=b+1;" H) J; S. @0 E" h1 ~( W; {
end;
0 Q, S1 s1 V8 J4 |4 B3 g end;, d4 F: r4 T6 p1 p: T
end;, U$ ]3 Z0 j" W/ D
|