summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/x-res-10.mkii
blob: 833bce776e18065c8dbe8c0dd702916948251bbe (plain)
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