1 |
defaultfont := "phvr8r"; |
defaultfont := "phvr8r"; |
2 |
|
|
3 |
boolean colors; |
boolean colors; |
4 |
colors = false; |
colors = true; |
5 |
|
|
6 |
verbatimtex |
verbatimtex |
7 |
\documentclass{article} |
\documentclass{article} |
24 |
\font\foofontii = cmcss12 scaled 1000 |
\font\foofontii = cmcss12 scaled 1000 |
25 |
etex; |
etex; |
26 |
|
|
27 |
|
boolean bgs; |
28 |
|
bgs = true; |
29 |
|
|
30 |
|
|
31 |
def doc(suffix s)(expr col, pict) = |
def doc(suffix s)(expr col, pict) = |
32 |
picture s.p; |
picture s.p; |
33 |
|
picture s.psol; |
34 |
s.p = nullpicture; |
s.p = nullpicture; |
35 |
addto s.p contour bbox(pict) withcolor white; |
addto s.p contour bbox(pict) withcolor white; |
36 |
addto s.p also currentpicture |
addto s.p also currentpicture |
44 |
clip s.p to bbox(pict); |
clip s.p to bbox(pict); |
45 |
addto s.p also pict; |
addto s.p also pict; |
46 |
addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt; |
addto s.p doublepath bbox(s.p) withpen pencircle scaled 4pt; |
47 |
|
|
48 |
|
s.psol := nullpicture; |
49 |
|
addto s.psol contour bbox(pict) withcolor (.95, .95, .95); |
50 |
|
addto s.psol also pict; |
51 |
|
addto s.psol doublepath bbox(s.p) withpen pencircle scaled 4pt; |
52 |
|
|
53 |
pair s.size; |
pair s.size; |
54 |
s.size = (urcorner pict) - (llcorner pict); |
s.size = (urcorner pict) - (llcorner pict); |
55 |
pair s.loc; |
pair s.loc; |
56 |
transform s.tr; |
transform s.tr; |
57 |
enddef; |
enddef; |
58 |
|
|
59 |
|
|
60 |
vardef docpicraw(suffix s)(expr locp) = |
vardef docpicraw(suffix s)(expr locp) = |
61 |
s.tr := locp; |
s.tr := locp; |
62 |
s.loc := (0,0) transformed locp; |
s.loc := (0,0) transformed locp; |
63 |
(s.p transformed locp) |
(if bgs: s.p else: s.psol fi transformed locp) |
64 |
enddef; |
enddef; |
65 |
|
|
66 |
def docpic(suffix s)(expr locp) = |
def docpic(suffix s)(expr locp) = |
425 |
|
|
426 |
enddef; |
enddef; |
427 |
|
|
428 |
|
bgs := false; |
429 |
frames; |
frames; |
430 |
|
bgs := true; |
431 |
frames; |
frames; |
432 |
|
|
433 |
verbatimtex |
verbatimtex |