summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/birds.m4
blob: 4b42ea35af6b05b523b7646e016796cd32560f9a (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
26
27
28
29
30
31
32
33
34
35
36
.PS
# Birds.m4
gen_init

scale = 50
linethick = 2*linethick

define bird {[
  line shaded "$1" from (0,0) to \
  (10,-5) to (19,8) to  (35,7) to  (38,-12)+(0,2) to (60,0) to\
  (75,23) to (80,40) to (52,37)+(2,2) to (74,50) to  (52,50) to \
  (60,60) to (38,48)+(0,2) to (35,67) to (19,68) to (10,55) to \
  (0,60) to  (-8,50) to (14,50) to (-8,37)+(2,2) to (20,40) to \
  (15,23) to (0,0)
E: (80,40)
W: (20,40)
N: (19,68)
S: (19,8)
  line outlined "gray" from (35,15) down 10 right 25
  line outlined "gray" from (40,20) right 25 down 8
  line outlined "gray" from (42,25) right 28 down 6
  line outlined "gray" from (40,30) right 32 down 4
  circle outlined "gray" rad 1 at (1,55)
  circle outlined "gray" rad 4 at (24,55)
]}

  ncols = 4
  nrows = 4
  right
  for i=0 to nrows-1 do {
    for j=0 to ncols-1 do { move to (j*60,-i*60)
      if (i+j)%2==0 then { bird(black) } else { bird(white) }
      }
    }

.PE