Source Browser ?

1%D \module
2%D   [       file=pack-pos,
3%D        version=2010.11.17 % real old code, updated a bit
4%D          title=\CONTEXT\ Packaging Macros,
5%D       subtitle=Positioning,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus{loading}{ConTeXt Packaging Macros / Positioning}
15
16\unprotect
17
18% An old but still usefull mechanism:
19%
20% \ruledvbox{\startpositioning
21%     \position(1,1){test}
22%     \position[xstep=relative](1,1){test}
23%     \position[ystep=relative](3,-1){test}
24%     \position(10,10){test}
25% \stoppositioning}
26%
27% watch out: rather global
28
29\installcorenamespace {positioning}
30
31\installcommandhandler \??positioning {positioning} \??positioning
32
\setuppositioning
34  [\c!state=\v!start,
35   \c!unit=\s!cm,
36   \c!factor=\plusone,
37   \c!scale =\plusone,
38   \c!xfactor=\positioningparameter\c!factor,
39   \c!yfactor=\positioningparameter\c!factor,
40   \c!xscale=\positioningparameter\c!scale,
41   \c!yscale=\positioningparameter\c!scale,
42   \c!xstep=\v!absolute,
43   \c!ystep=\v!absolute,
44   \c!xoffset=\zeropoint,
45   \c!yoffset=\zeropoint]
46
47\newdimen\d_pack_positioning_x_position
48\newdimen\d_pack_positioning_y_position
49\newdimen\d_pack_positioning_x_dimension
50\newdimen\d_pack_positioning_y_dimension
51\newdimen\d_pack_positioning_x_offset
52\newdimen\d_pack_positioning_y_offset
53
54\newbox\b_pack_positioning
55
56\permanent\tolerant\protected\def\startpositioning[#1]#*[#2]%
57  {\bgroup
58   \ifparameters
59     \let\currentpositioning\empty
60   \or
61     \ifhastok={#1}%
62       \let\currentpositioning\empty
63       \setupcurrentpositioning[#1]%
64     \else
65       \edef\currentpositioning{#1}%
66     \fi
67   \or
68     \edef\currentpositioning{#1}%
69     \setupcurrentpositioning[#2]%
70   \fi
71   \d_pack_positioning_x_position \zeropoint
72   \d_pack_positioning_y_position \zeropoint
73   \d_pack_positioning_x_dimension\zeropoint
74   \d_pack_positioning_y_dimension\zeropoint
75   \d_pack_positioning_x_offset   \zeropoint
76   \d_pack_positioning_y_offset   \zeropoint
77   \hfuzz\paperwidth
78   \vfuzz\paperheight
79   \setbox\b_pack_positioning\hbox\bgroup
80   \ignorespaces}
81
82\permanent\protected\def\stoppositioning
83  {\removeunwantedspaces
84   \doifnot{\positioningparameter\c!offset}\v!yes
85     {\global\d_pack_positioning_x_offset\zeropoint
86      \global\d_pack_positioning_y_offset\zeropoint}%
87   \global\advance\d_pack_positioning_x_dimension\d_pack_positioning_x_offset
88   \global\advance\d_pack_positioning_y_dimension\d_pack_positioning_y_offset
89   \egroup
90   \vbox to \d_pack_positioning_y_dimension
91     {\vskip\d_pack_positioning_y_offset
92      \hbox to \d_pack_positioning_x_dimension
93        {\hskip\d_pack_positioning_x_offset
94         \box\b_pack_positioning
95         \hfill}
96      \vfill}%
97   \egroup}
98
99\protected\def\pack_positioning_calculate#1#2#3#4#5#6#7#8#9%
100  {\setdimensionwithunit\scratchdimen{#1}{\positioningparameter\c!unit}%
101   \scratchdimen\positioningparameter#8\scratchdimen
102   \scratchdimen\positioningparameter#9\scratchdimen
103   \advance\scratchdimen\positioningparameter#4\relax
104   % == \scratchdimen\dimexpr#8\dimexpr#9\scratchdimen\relax+#4\relax
105   \doif{\positioningparameter#2}\v!relative
106     {\advance\scratchdimen#3%
107      \letpositioningparameter#4\zeropoint}%
108   #3\scratchdimen
109   \doifnot{\positioningparameter\c!state}\v!overlay
110     {\scratchdimen\dimexpr#5\nextbox+#3\relax
111      \ifdim           #3<-#7\relax \global#7-#3\relax    \fi
112      \ifdim\scratchdimen> #6\relax \global#6\scratchdimen\fi}}
113
114\permanent\tolerant\protected\def\position[#1]#:(#2,#3)%
115  {\bgroup
116   \ifparameter#1\or
117     \setupcurrentpositioning[#1]%
118   \fi
119   \removeunwantedspaces
120   \dowithnextbox{\pack_positioning_position_indeed{#2}{#3}}\hbox}
121
122\def\pack_positioning_position_indeed#1#2%
123  {\dontcomplain
124   \pack_positioning_calculate
125     {#1}%
126     \c!xstep
127     \d_pack_positioning_x_position
128     \c!xoffset
129     \wd
130     \d_pack_positioning_x_dimension
131     \d_pack_positioning_x_offset
132     \c!xscale
133     \c!xfactor
134   \pack_positioning_calculate
135     {#2}%
136     \c!ystep
137     \d_pack_positioning_y_position
138     \c!yoffset
139     \htdp
140     \d_pack_positioning_y_dimension
141     \d_pack_positioning_y_offset
142     \c!yscale
143     \c!yfactor
144   \vbox to \zeropoint
145     {\offinterlineskip % else we get an empty line
146      \vskip\d_pack_positioning_y_position
147      \hbox to \zeropoint
148        {\hskip\d_pack_positioning_x_position
149         \box\nextbox
150         \hss}
151      \vss}%
152   \normalexpanded
153     {\egroup
154      \d_pack_positioning_x_position\the\d_pack_positioning_x_position
155      \d_pack_positioning_y_position\the\d_pack_positioning_y_position
156      \setexpandedpositioningparameter\c!xoffset{\the\dimexpr\positioningparameter\c!xoffset}%
157      \setexpandedpositioningparameter\c!yoffset{\the\dimexpr\positioningparameter\c!yoffset}}%
158   \ignorespaces}
159
160\protect \endinput
161