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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
%D \module
%D [ file=x-fig-10,
%D version=2003.08.02,
%D title=\CONTEXT\ Style File,
%D subtitle=Resource Dummy Generation,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\usemodule[res-00]
\defineXMLenvironment [rl:library]
{\starttext}
{\stoptext}
\defineXMLenvironment [rl:usage]
{\bgroup}
{\doif{\XMLflush{rl:type}-\XMLflush{rl:state}}{figure-missing}
{\doifnot{\XMLflush{rl:file}}{dummy}{\setups[rl:usage]}}
\egroup}
\defineXMLsave [rl:type] % figure
\defineXMLsave [rl:state] % found|missing
\defineXMLsave [rl:file] % filename
\defineXMLsavecontent [rl:width] {12cm} % width in pt
\defineXMLsavecontent [rl:height] {9cm} % height in pt
\useMPlibrary
[dum]
\setupcolors
[state=start]
\defineoverlay
[rl:banner]
[\setups{rl:banner}]
\startsetups[rl:banner]
\framed [frame=off,offset=none,align={lohi,middle}]
\bgroup
\tt \white \XMLflush{rl:file}
\egroup
\stopsetups
\startsetups[rl:usage]
\startTEXpage
% \externalfigure
% [\XMLflush{rl:file}] % goes wrong when file present
% [object=no,
% backgroundcolor=green,background={foreground,color,rl:banner},
% width=\XMLflush{rl:width},
% height=\XMLflush{rl:height}]
\def\figurewidth {\XMLflush{rl:width}}
\def\figureheight{\XMLflush{rl:height}}
\externalfigurereplacement
{\XMLflush{rl:file}}
{\XMLflush{rl:file}}
{\XMLflush{rl:state}}
\stopTEXpage
\stopsetups
\endinput
|
