Category : Printer + Display Graphics
Archive   : RAYSH386.ZIP
Filename : CSG.RAY

/*
* csg wood block (apologies to Hofstadter)
*
* Eric Haines
*
*/
name letter_c
difference
list
cylinder 1 0 0 -1.0 0 0 1.0
disc 1 0 0 -1.0 0 0 -1
disc 1 0 0 1.0 0 0 1
end
union
list
cylinder 0.55 0 0 -1.2 0 0 1.2
disc 0.55 0 0 -1.2 0 0 -1
disc 0.55 0 0 1.2 0 0 1
end
box 0. -.3 -1.2 1.2 0.3 1.2
end
end


name s1 /* outer top part of s */
list
cylinder 0.6125 -0.3875 0.3875 -1.0 -0.3875 0.3875 1.0
disc 0.6125 -0.3875 0.3875 -1.0 0 0 -1
disc 0.6125 -0.3875 0.3875 1.0 0 0 1
cylinder 0.6125 0.3875 -0.3875 -1.0 0.3875 -0.3875 1.0
disc 0.6125 0.3875 -0.3875 -1.0 0 0 -1
disc 0.6125 0.3875 -0.3875 1.0 0 0 1
end

name s3 /* all inner part of s */
union
list
cylinder 0.1625 -0.3875 0.3875 -1.2 -0.3875 0.3875 1.2
disc 0.1625 -0.3875 0.3875 -1.2 0 0 -1
disc 0.1625 -0.3875 0.3875 1.2 0 0 1
cylinder 0.1625 0.3875 -0.3875 -1.2 0.3875 -0.3875 1.2
disc 0.1625 0.3875 -0.3875 -1.2 0 0 -1
disc 0.1625 0.3875 -0.3875 1.2 0 0 1
end
box -.3875 -1.2 -1.2 .3875 1.2 1.2
end

name letter_s
union
union
union
difference
object s1
object s3
end

box -0.3875 0.55 -1 1 1 1
end
box -0.3875 -0.225 -1 0.3875 0.225 1
end
box -1 -1 -1 0.3875 -0.55 1
end


name g3 /*all inner of g */
union
list
cylinder 0.55 0 0 -1.2 0 0 1.2
disc 0.55 0 0 -1.2 0 0 -1
disc 0.55 0 0 1.2 0 0 1
end
box 0. 0. -1.2 1.2 0.425 1.2
end

name letter_g
union
difference
list /* outer part of g */
cylinder 1.0 0 0 -1.0 0 0 1.0
disc 1 0 0 -1.0 0 0 -1
disc 1 0 0 1.0 0 0 1
end
object g3
end
box 0.25 -0.3375 -1.2 1.05 0.1125 1.2
end

name csg
difference
difference
object letter_s rotate 1 0 0 90
object letter_c rotate 1 0 0 90 rotate 0 0 1 90
scale 1.2 0.8 0.8
end
object letter_g scale 0.8 0.8 1.2
/* scaling here is to avoid coincident surfaces */
end

surface white ambient .1 .1 .1 diffuse .5 .5 .5

surface s1 ambient .5 .4 .3 diffuse .25 .2 .15
surface lgreen ambient .07 .1 .07
diffuse .42 .6 .42
specular .28 .4 .28 specpow 10

plane white 0 0 -3 0 0 1
plane white 0 3 0 0 -1 0
plane white -3 0 0 1 0 0

object s1 csg /* texture wood scale 3 3 3*/

light 0.8 directional 0 0 1
light 0.7 directional 0 -1 0
light 0.6 directional 1 0 0

background .1 .3 .8
eyep 10. -13 8.
lookp 0 0 -0.3
up 0 0 1
fov 20.