%!PS-Adobe-2.0 %%BoundingBox: 0 0 80 80 /w 80 def /h 80 def (ps3d.inc) run (cube.inc) run (epsetup.inc) run % ------------------------------------------------ [0 0 3 1] set-eye 0 0 -2 translate3d page-begin gsave3d [1 1 1] A rotate3d -0.5 -0.5 -0.5 translate3d /O origin cim3d transform3d def % O = origin in current coordinates /L light cim3d transform3d normalized def % L = light in current coordinates cube { % [ n [P[0] P[1] ... P[n-1]]] dup 0 get /n exch def 1 get /f exch def % n = normal function /ell f length def n O dot-product 0 ge { newpath f ell 1 sub get aload pop moveto3d f { aload pop lineto3d } forall gsave n normalized L dot-product [0.40 0.60 0.80 1] shade 0 0 setrgbcolor fill grestore stroke } if } forall grestore3d grestore showpage