%!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 1 0] set-display % ------------------------------------------------ page-begin /A 40 def gsave3d 0.6 dup dup scale3d [1 1 1] A rotate3d -0.5 -0.5 -0.5 translate3d cube { % [ n [P[0] P[1] ... P[n-1]]] 1 get /f exch def % n = normal function % f = polygon /ell f length def newpath f ell 1 sub get aload pop moveto3d f { aload pop lineto3d } forall stroke } forall grestore3d grestore showpage