tmertz / TIM-Postcript-Mertz

Blame view

tableau.ps 258 Bytes
Edit Raw Normal View History
07443681   Thorsieger   first commit 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  %tableau%
  
  /ccarre {
      newpath
      moveto
      0 100 rlineto
      100 0 rlineto
      0 -100 rlineto
      closepath
      stroke
  } def
  
  250 0 translate
  
  45 rotate
  4 {
      4 {
          100 0 translate
          0 0 ccarre
      } repeat
      -400 100 translate
  } repeat