--- ray/src/cal/cal/reinhart.cal 2009/09/15 00:17:36 1.3 +++ ray/src/cal/cal/reinhart.cal 2009/12/09 21:34:23 1.4 @@ -1,10 +1,12 @@ -{ RCSid $Id: reinhart.cal,v 1.3 2009/09/15 00:17:36 greg Exp $ } +{ RCSid $Id: reinhart.cal,v 1.4 2009/12/09 21:34:23 greg Exp $ } { Compute Reinhart high-density sky patches Actual density controlled by MF constant Modified from Tregenza.cal + Need to specify MF constant before loading (usu. power of two) + June 2009 G. Ward } DEGREE : PI/180; @@ -15,7 +17,6 @@ Atan2(y,x) : posangle(atan2(y,x)); alt = Asin(Dz)/DEGREE; azi = Atan2(Dx,Dy)/DEGREE; -MF : 2^2; { Multiplication factor } alpha : 90/(MF*7 + .5); { Separation between rows in degrees } { Number of patches per row } tnaz(r) : select(r, 30, 30, 24, 24, 18, 12, 6);