summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/Floor.m4
blob: 0f3076174a3f5d7787d675a07848609b624b1d40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
.PS
# Floor.m4
gen_init
  s = 0.25
  s60 = s*sqrt(3)/2
  c60 = s/2
  ni = 9
  nj = 6
  cellw = 3*s
  cellh = 2*s60
  B:box wid nj*cellw ht ni*cellh shaded rgbstring(0,1,0)
  
  for i=1 to ni do {
    for j=1 to nj do {
      line shaded rgbstring(0,0,1) \
        from B.sw+((j-1)*cellw,(i-1)*cellh) \
        right c60 up s60 then right 2*s then up s60 right c60 then left s \
        then down cellh left 2*c60 then left s
      line shaded rgbstring(1,0,0) \
        from B.sw+((j-1)*cellw,i*cellh) \
        right s then down cellh right 2*c60 then right s then up s60 left c60 \
        then left 2*s then left c60 up s60
      }
    }
.PE