# RCSid $Id: illum_tfunc.rad,v 1.2 2021/02/20 07:56:29 greg Exp $
# A transfunc window to turn into a light source with mkillum

#@mkillum l+ f=tfunc_ill c=a d=100 s=128 i=void

void transfunc tfunc_mat
2 absdf aniso.cal
0
11 .9 .9 .9 .05 .8 .9 .1 .02 0 0 1

tfunc_mat polygon tfunc_window
0
0
12
	-8.1	1	1
	-8.1	4	1
	-8.1	4	2
	-8.1	1	2

void polygon tfunc_window
0
0
12
	-8	1	1
	-8	4	1
	-8	4	2
	-8	1	2