--- ray/src/util/klems_half.cal 2015/03/27 18:58:06 1.3 +++ ray/src/util/klems_half.cal 2018/08/26 05:33:46 1.4 @@ -1,4 +1,4 @@ -{ RCSid $Id: klems_half.cal,v 1.3 2015/03/27 18:58:06 greg Exp $ } +{ RCSid $Id: klems_half.cal,v 1.4 2018/08/26 05:33:46 greg Exp $ } { Compute interior bin for half Klems BSDF basis (0-72) Returns -1 for wrong-side rays @@ -28,8 +28,7 @@ khbin2(pol,azi) = if(pol-90, -1, khaccum(3) + khazn(azi,360/khnaz(4)), khaccum(4) + khazn(azi,360/khnaz(5)), khaccum(5) + khazn(azi,360/khnaz(6)), - khaccum(6) + khazn(azi,360/khnaz(7)), - khaccum(7) + khazn(azi,360/khnaz(8)) + khaccum(6) + khazn(azi,360/khnaz(7)) ) ); RHS = 1; { set to -1 for left-handed system }