# RCSid $Id: mirror.rad,v 1.2 2019/01/04 22:45:37 greg Exp $
#
# A mirror on the Y=5 wall with an alternate material having some pink diffuse
#
# Also used for testing rfluxmtx
#

#@rfluxmtx h=kf u=+Z

void plastic pink_mirror_mat
0
0
5 .9 .5 .6 .8 .015

void mirror wall_mirror
1 pink_mirror_mat
0
3 .8 .8 .8

wall_mirror polygon mirror
0
0
12
	-5	4.99	1
	-2	4.99	1
	-2	4.99	2
	-5	4.99	2