# RCSid $Id: gymbal2.rad,v 1.2 2024/12/09 03:10:36 greg Exp $
#
# Tests of WGMDfunc material
#

void colorfunc check1
6 if(Check(12),.5,.1) if(Check(12),.1,.7) if(Check(12),.4,.9)
	cylmods.cal -ry 90
0
0

void WGMDfunc wgmd_mat1
19
	void if(Px,.08,0) 0 0
	check1 .2 0 0
	void
	0 0 1
	cylmods.cal -ry 90 -t -4 2.5 1.1
0
9
	.01	.01	.01
	.05	.2	.05
	0	0	0

void texfunc pyramid2
12 Pyramid_dx(13) Pyramid_dy(13) Pyramid_dz(13)
	cylmods.cal -s .9 -rx 90 -t -4 2.5 1.1
0
0

void colorfunc check2
12 if(Check(9),.9,.1) .1 if(Check(9),.3,.1)
	cylmods.cal -s .9 -rx 90 -t -4 2.5 1.1
0
0

void WGMDfunc wgmd_mat2
17
	pyramid2 .08 0 0
	check2 .2 .02 .02
	void
	0 0 0
	. -t -4 2.5 1.1
0
9
	0 0 0
	0 0 0
	0 0 0

void colorfunc check3
10 if(Check(7),.9,.1) .1 if(Check(7),.3,.1)
	cylmods.cal -s .8 -t -4 2.5 1.1
0
0

check3 WGMDfunc wgmd_mat3
17
	void .03 .08*max(Pz,0) .03*max(Pz,0)
	void 0 0 0
	inherit
	0 0 1
	. -t -4 2.5 1.1
0
9
	0 0 0
	.4 .1 .1
	.3 .3 .4


wgmd_mat1 cylinder cyl1
0
0
7
	-4.4	2.5	1.1
	-3.6	2.5	1.1
	1

wgmd_mat2 tube tube2
0
0
7
	-4	2.1	1.1
	-4	2.9	1.1
	.9

wgmd_mat3 cylinder cyl3
0
0
7
	-4	2.5	0.7
	-4	2.5	1.5
	.8