summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/svg/RotboxSVG.m4
blob: cb65d317fc2ba7f8258b9ba4b6a79f123717780e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
.PS
# RotboxSVG.m4
gen_init
#nclude(dpictools.pic)

[
  Point_(-10)
  rotbox(boxwid/2,,thick 2)
  Point_(30)
  rotbox(,,shaded "yellow" outlined "blue" thick 3,r=0.1) \
    at last []+vec_(boxwid,0)
  "r=0.1" at last []
  move to last [].ne
  Point_(0)
  [[]; for_(2,8,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
    sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].ne+(0.1,0)
  [[]; for_(10,16,2, `rotbox(,,dashed,t=m4x/10) at last []+vec_(boxwid*1.1,0)
    sprintf("t=%g",m4x/10) at last [] ') ] with .nw at last [].sw+(0,-0.1)
]

.PE