1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
.PS
# Rotbox.m4
gen_init
Point_(-10)
rotbox(boxwid/2,,thick 2)
Point_(30)
rotbox(,,shaded "green" outlined "blue",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
|