12 |
|
} |
13 |
|
DEGREE : PI/180; |
14 |
|
|
15 |
< |
x1 = .5; x2 = .5; { default random variable settings for midpoint } |
15 |
> |
x1 = .5; x2 = .5; { default rand. var. settings for midpoint } |
16 |
|
|
17 |
|
MF : 2^2; { Multiplication factor } |
18 |
|
alpha : 90/(MF*7 + .5); { Separation between rows in degrees } |
26 |
|
Rmax : raccum(RowMax); |
27 |
|
|
28 |
|
Rfindrow(r, rem) : if(rem-rnaz(r)-.5, Rfindrow(r+1, rem-rnaz(r)), r); |
29 |
< |
Rrow = if(Rbin-(Rmax +.5), RowMax, Rfindrow(0, Rbin)); |
29 |
> |
Rrow = if(Rbin-(Rmax-.5), RowMax, Rfindrow(0, Rbin)); |
30 |
|
Rcol = Rbin - raccum(Rrow) - 1; |
31 |
|
|
32 |
|
|