src/gen/glaze2.cal

{ RCSid: $Id$ }
{
        glaze2.cal - double-pane fritted and low-E glazings

                Uses BRTDfunc type to get correct behavior.
                Oct. 2002 Greg Ward

        We only provide support functions for the nasty expressions
        spat out for dual-glazings by glaze.csh.
}
                                { Fresnel approximation }
fresne = exp(-6*abs(Rdot)) - exp(-6);
fr(r) = r + fresne*(1 - r);
ft(t) = t*(1 - fresne);
                                { glass reflectance and transmittance }
rclr = fr(0.076);
tclr = ft(0.883);
                                { combined double-pane reflectance }
cr(rf,t,rb) : rf + t*t*rb;
Revision:	2.1
Committed:	Sat Feb 22 02:07:23 2003 UTC (22 years, 8 months ago) by greg
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	2.1	{ RCSid: $Id$ }
2			{
3			glaze2.cal - double-pane fritted and low-E glazings
4
5			Uses BRTDfunc type to get correct behavior.
6			Oct. 2002 Greg Ward
7
8			We only provide support functions for the nasty expressions
9			spat out for dual-glazings by glaze.csh.
10			}
11			{ Fresnel approximation }
12			fresne = exp(-6*abs(Rdot)) - exp(-6);
13			fr(r) = r + fresne*(1 - r);
14			ft(t) = t*(1 - fresne);
15			{ glass reflectance and transmittance }
16			rclr = fr(0.076);
17			tclr = ft(0.883);
18			{ combined double-pane reflectance }
19			cr(rf,t,rb) : rf + ttrb;