from piscript.PiModule import *

f = font("/usr/share/texmf/fonts/type1/bluesky/cm/cmr10.pfb")
c = charpath(f, 0)

init3d("c3d.ps", 212, 144)
seteye([0,0,40,1])
A = 0
setdeg()
for i in range(73):
	gsave3d()
	rotate3d([0,1,0], A)
	beginpage()
	center()
	translate(0,-68)
	scale(10)
	gsave3d()
	scale3d(1.0/100, 1.0/100, 1.0/100)
	mf = mappedface([0,0,0],[1,0,0],[0,1,0])
	e = geteye()
	newpath()
	mf.makepath(c)
	if mf.isvisible(e):
		fill(0.8,0,0)
		stroke(0)
	else:
		fill(1,1,0)
		stroke(0) 
	grestore3d() 
	scale3d(10,10,10)
	newpath()
	p = Path()
	p.moveto(0,0)
	p.lineto(1,0)
	p.lineto(1,1)
	p.lineto(0,1)
	p.closepath()
	
	mf.makepath(p)
	stroke(0)
	endpage()
	A += 5
	grestore3d()

finish()