--- ray/src/cal/cal/rskysrc.cal 2009/07/01 00:39:34 1.1 +++ ray/src/cal/cal/rskysrc.cal 2009/07/14 16:16:20 1.2 @@ -1,4 +1,4 @@ -{ RCSid $Id: rskysrc.cal,v 1.1 2009/07/01 00:39:34 greg Exp $ } +{ RCSid $Id: rskysrc.cal,v 1.2 2009/07/14 16:16:20 greg Exp $ } { Reinhart sky patch positions & solid angles @@ -12,7 +12,7 @@ } DEGREE : PI/180; -x1 = .5; x2 = .5; { default random variable settings for midpoint } +x1 = .5; x2 = .5; { default rand. var. settings for midpoint } MF : 2^2; { Multiplication factor } alpha : 90/(MF*7 + .5); { Separation between rows in degrees } @@ -26,7 +26,7 @@ RowMax : 7*MF + 1; Rmax : raccum(RowMax); Rfindrow(r, rem) : if(rem-rnaz(r)-.5, Rfindrow(r+1, rem-rnaz(r)), r); -Rrow = if(Rbin-(Rmax +.5), RowMax, Rfindrow(0, Rbin)); +Rrow = if(Rbin-(Rmax-.5), RowMax, Rfindrow(0, Rbin)); Rcol = Rbin - raccum(Rrow) - 1;