Hi,
I uploaded a new lmtx. Some more adaptive magic ... I'm not sure how
usefull it is but users always find ways to apply such things. I
attached a test file.
Hans
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------\starttext
\setupexternalfigures
[location={default,global}]
\startMPdefinitions
def TickTock =
interim linecap := squared;
save p ; path p ; p := fullsquare
xysized(AdaptiveWidth,.9(AdaptiveHeight+AdaptiveDepth)) ;
fill p withcolor AdaptiveColor ;
draw bottomboundary (p enlarged (-AdaptiveThickness) )
withdashes (3*AdaptiveThickness)
withpen pencircle scaled AdaptiveThickness
withcolor white ;
enddef ;
\stopMPdefinitions
\startsetups adaptive:test
\setbox\usedadaptivebox\hbox to \usedadaptivewidth yoffset
-.9\usedadaptivedepth \bgroup
\hss
\startMPcode
TickTock ;
\stopMPcode
\hss
\egroup
\stopsetups
\definecolor[adaptive:tick][.25(blue,green)]
\definecolor[adaptive:tock][.75(blue,green)]
\defineadaptive
[tick]
[setups=adaptive:test,
color=adaptive:tick,
foregroundcolor=white,
foregroundstyle=\infofont,
strut=yes]
\defineadaptive
[tock]
[tick]
[color=adaptive:tock]
\dorecurse{5}{
\dostepwiserecurse{1}{150}{1}{%
this~#1.##1 is~#1.##1 test~#1.##1
\ifodd##1\relax
\adaptivebox[tick]{\hss tick #1.##1\hss}
\else
\adaptivebox[tock]{\hss tock #1.##1\hss}
\fi
}
\blank
}
\startsetups adaptive:test
\setbox\usedadaptivebox\hbox to \usedadaptivewidth yoffset
-\usedadaptivedepth \bgroup
\externalfigure
[cow.pdf]
[width=\usedadaptivewidth,
height=\dimexpr\usedadaptiveheight+\usedadaptivedepth\relax]%
\egroup
\stopsetups
\dorecurse{5}{
\dostepwiserecurse{1}{150}{1}{%
this~#1.##1 is~#1.##1 test~#1.##1
{\adaptivebox[strut=yes,setups=adaptive:test]{}}
}
\blank
}
\page
\startsetups adaptive:test
\setbox\usedadaptivebox\vbox to \usedadaptivetotal \bgroup
\externalfigure
[cow.pdf]
[width=\usedadaptivewidth,
height=\usedadaptivetotal]%
\egroup
\stopsetups
\ruledvbox to \textheight {
\par \begstrut \samplefile{tufte} \endstrut \par
\adaptivevbox[strut=yes,setups=adaptive:test]{\hsize\textwidth\hss}
\par \begstrut \samplefile{tufte} \endstrut
}
\page
\startsetups adaptive:test:a
\setbox\usedadaptivebox\vbox to \usedadaptivetotal \bgroup
\externalfigure
[cow.pdf]
[width=\framedmaxwidth,
frame=on,
height=\usedadaptivetotal]%
\egroup
\stopsetups
\startsetups adaptive:test:b
\setbox\usedadaptivebox\vbox to \usedadaptivetotal \bgroup
\externalfigure
[cow.pdf]
[width=\usedadaptivewidth,
frame=on,
height=\usedadaptivetotal]%
\egroup
\stopsetups
\showframe
\framed[height=18cm,align=middle,adaptive=yes,top=,bottom=] {%
\begstrut \samplefile{tufte} \endstrut
\par
\adaptivevbox
[strut=yes,setups=adaptive:test:a]
{\showstruts\strut\hsize5cm\hss}%
\par
\adaptivevbox
[strut=yes,setups=adaptive:test:b]
{\showstruts\strut\hsize5cm\hss}%
\par
\begstrut \samplefile{tufte} \endstrut
}
\stoptext
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
