28 |
bgs = true; |
bgs = true; |
29 |
|
|
30 |
|
|
31 |
def doc(suffix s)(expr col, pict) = |
vardef doc(suffix s)(expr col, pict) = |
32 |
|
interim bboxmargin := 10pt; |
33 |
picture s.p; |
picture s.p; |
34 |
picture s.psol; |
picture s.psol; |
35 |
s.p = nullpicture; |
s.p = nullpicture; |
44 |
currentpicture := nullpicture; |
currentpicture := nullpicture; |
45 |
clip s.p to bbox(pict); |
clip s.p to bbox(pict); |
46 |
addto s.p also pict; |
addto s.p also pict; |
47 |
addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt; |
addto s.p doublepath bbox(pict) withpen pencircle scaled 4pt; |
48 |
|
|
49 |
s.psol := nullpicture; |
s.psol := nullpicture; |
50 |
addto s.psol contour bbox(pict) withcolor (.95, .95, .95); |
addto s.psol contour bbox(pict) withcolor (.95, .95, .95); |
51 |
addto s.psol also pict; |
addto s.psol also pict; |
52 |
addto s.psol doublepath bbox(s.p) withpen pencircle scaled 4pt; |
addto s.psol doublepath bbox(pict) withpen pencircle scaled 4pt; |
53 |
|
|
54 |
pair s.size; |
pair s.size; |
55 |
s.size = (urcorner pict) - (llcorner pict); |
s.size = (urcorner pict) - (llcorner pict); |
148 |
|
|
149 |
|
|
150 |
for i = -100 step 30 until 800 : |
for i = -100 step 30 until 800 : |
151 |
p := (i,0); |
p := (i,-50); |
152 |
fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle; |
fill p -- p+(100,800) -- p+(125,800) -- p+(15,0) -- cycle; |
153 |
endfor; |
endfor; |
154 |
|
|