SHARE
TWEET

Untitled

a guest Jul 21st, 2019 79 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {inHard Disk: Full Polys}
  2. {ps}
  3. /TurnXYZ
  4.   { ax /mat1 mat0 store mat1 rotate transform 3 -1 roll
  5.     ay /mat1 mat0 store mat1 rotate transform 3 -1 roll
  6.     az /mat1 mat0 store mat1 rotate transform 3 -1 roll
  7.   } def
  8.  
  9. /DrawFace
  10.   { Vertex face 3 get get aload pop TurnXYZ pop moveto
  11.     4 1 face length 1 sub
  12.       {Vertex face 3 -1 roll get get aload pop TurnXYZ pop lineto}
  13.     for
  14.     closepath
  15.     /angcos x px mul y py mul z pz mul add add size psize mul sqrt div def
  16.     angcos
  17.     1 add 2 div
  18.     dup 0 lt {pop 0} if
  19.     dup gsave setgray fill grestore
  20.     2 exp setgray stroke
  21.     /n n 1 add def
  22.   } def
  23.  
  24. /FindFace
  25.   { /face exch def
  26.     face 0 get face 1 get face 2 get TurnXYZ
  27.     /z exch def /y exch def /x exch def
  28.     z lim gt {DrawFace} if
  29.   } def
  30.  
  31. /WhichFaces
  32.   { /which exch def
  33.     which sizes length lt {/size sizes which get def} if
  34.     ranges which get 1 ranges which 1 add get 1 sub {solid exch get FindFace} for
  35.   } def
  36.  
  37. /FaceNos
  38.   { gsave
  39.     /rad exch def
  40.     translate
  41.     rad rad scale
  42.     0 setlinewidth
  43.     /solid exch def
  44.     /faces solid length 3 sub def
  45.     /sets solid faces 1 add get def
  46.     /ranges [0 sets {1 index add} forall] def
  47.     /sizes solid faces 2 add get def
  48.     /multi sets length sizes length gt def
  49.     /n 0 def
  50.     multi {WhichFaces} {0 1 sets length 1 sub {WhichFaces} for} ifelse
  51.     grestore
  52.   } def
  53.  
  54. /lim 0.000001 def
  55. /mat0 matrix def /mat1 6 array def
  56. /px -1 def /py 1 def /pz 1 def /psize 3 def
  57. /ax 0 def /ay 0 def /az 0 def
  58.  
  59. 297 423 translate 0.84 dup scale -306 -396 translate 75 2 -1 atan {pop} setscreen 0.8 setgray
  60. %statusdict begin 11.5 72 mul 9 72 mul 9 0 setpageparams end 18 18 translate
  61. -18 -18 moveto -18 810 lineto 630 810 lineto 630 -18 lineto closepath clip fill
  62.  
  63. {inHard Disk:Logos:Coarse}
  64. {ps}
  65. gsave
  66. 63 -63 translate
  67. /ang -30 def
  68. 45
  69.   { Icosahedron 72 ang cos mul 72 ang sin mul 24 FaceNos
  70.     Dodecahedron -72 ang cos mul -72 ang sin mul 24 FaceNos
  71.     6 12 translate 1.03 dup scale /ang ang 24 add store
  72.     /ax ax 12 add store /ay ay 4 add store /az az 1 add store
  73.   } repeat
  74. grestore
  75.  
  76. 0 -18 moveto 0 0 9 270 180 arcn -18 0 lineto
  77. -18 792 moveto 0 792 9 180 90 arcn 0 810 lineto
  78. 612 810 moveto 612 792 9 90 0 arcn 630 792 lineto
  79. 630 0 moveto 612 0 9 360 270 arcn 612 -18 lineto
  80. 1 setgray stroke
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top