pic/hexangle.eps

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%Title: hexangle
   3 %%Creator: vim
   4 %%Pages: 1
   5 %%BoundingBox: 12 12 169 134
   6 %%EndComments
   7
   8 %%Page: 1 1
   9 save gsave
  10 72 25.4 div dup scale
  11 0.25 setlinewidth
  12
  13 /vertex { newpath 0.5 0 360 arc fill } bind def
  14
  15 /u 12 def
  16 /uh u 2 div def
  17 /v 3 sqrt 2 div u mul def
  18
  19 /pt {
  20   u mul 1 index 2 mod uh mul add 5 add
  21   exch
  22   v mul 5 add
  23 } bind def
  24
  25 /up {
  26   1 index 2 mod add
  27   exch 1 add exch
  28 } bind def
  29
  30 /k 4 def
  31
  32 % The black triangles
  33 0.5 setgray
  34 0 1 k 1 sub {
  35   0 1 k 1 sub {
  36     1 index exch
  37     newpath 2 copy pt moveto
  38             2 copy 1 add pt lineto
  39             1 index 2 mod add exch 1 add exch pt lineto
  40     closepath fill
  41   } for
  42   pop
  43 } for
  44 0 setgray
  45
  46 % Grid points
  47 0 1 k {
  48   0 1 k {
  49     1 index
  50     pt vertex
  51   } for
  52   pop
  53 } for
  54
  55 % Horizontal lines
  56 0 1 k {
  57   0 1 k 1 sub {
  58     1 index exch
  59     newpath
  60       2 copy pt moveto
  61       1 add pt lineto
  62     stroke
  63   } for
  64   pop
  65 } for
  66
  67 % Diagonals
  68 0 1 k 1 sub {
  69   0 1 k {
  70     1 index exch
  71     newpath
  72       2 copy pt moveto
  73       exch 1 add exch pt lineto
  74     stroke
  75   } for
  76   pop
  77 } for
  78
  79 % Other diagonals
  80 0 1 k 1 sub {
  81   0 1 k 1 sub {
  82     1 index exch
  83     newpath
  84       2 copy 1 index 2 mod 1 exch sub add pt moveto
  85       1 index 2 mod add exch 1 add exch pt lineto
  86     stroke
  87   } for
  88   pop
  89 } for
  90
  91 % Additional vertices
  92 0 1 k 1 sub {
  93   1 1 k {
  94     1 index exch
  95     1 index 2 mod sub pt
  96     2 copy v 0.6666 mul add
  97     2 copy vertex
  98     newpath
  99       4 copy
 100       moveto
 101       lineto
 102     stroke
 103     newpath
 104       4 copy
 105       moveto
 106       exch u 2 div sub exch v add lineto
 107     stroke
 108     newpath
 109       4 copy
 110       moveto
 111       exch u 2 div add exch v add lineto
 112     stroke
 113     pop pop pop pop
 114   } for
 115   pop
 116 } for
 117
 118 showpage
 119 grestore restore
 120
 121 %%Trailer
 122 %%EOF