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 (21 years, 1 month 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
#	Content
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;