* Fielstack and Layers for Presentation
@ 2006-10-12 17:58 Renaud AUBIN
2006-10-13 13:38 ` Peter Rolf
2006-10-13 21:54 ` Renaud AUBIN
0 siblings, 2 replies; 6+ messages in thread
From: Renaud AUBIN @ 2006-10-12 17:58 UTC (permalink / raw)
[-- Attachment #1.1: Type: text/plain, Size: 2337 bytes --]
Hi all,
I would use fieldstack with \getbuffer and overlays... Why the following
code doesn't work ? Is there another way to do that ?
TIA
Renaud
%%%%%%% stack.tex
\setupcolors[state=start]
\usemodule[pre-original]
\defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}]
\defineframedtext[FunnyText][frame=off,background=FunnyFrame]
\def\StartFrame{\startFunnyText}
\def\StopFrame {\stopFunnyText }
\def\FrameTitle#1%
{\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut#1\hss}}}
\setMPtext{FunnyFrame}{} % initialize the text variable
\startuseMPgraphic{FunnyFrame}
picture p ; numeric o ; path a, b ; pair c ;
p := textext.rt(\MPstring{FunnyFrame}) ;
a := unitsquare xyscaled(OverlayWidth,OverlayHeight) ;
o := BodyFontSize ;
p := p shifted (2o,OverlayHeight-ypart center p) ;
drawoptions (withpen pencircle scaled 1pt withcolor .625red) ;
b := a randomized (o/2) ;
fill b withcolor .85white ; draw b ;
c := center p ;
c := b intersectionpoint (c shifted (0,-o)--c shifted(0,o)) ;
p := p shifted (c-center p) ;
b := (boundingbox p) randomized (o/8) ;
fill b withcolor .85white ; draw b ;
draw p withcolor black;
setbounds currentpicture to a ;
\stopuseMPgraphic
\definelayer[bglayer][position=yes]
\setupbackgrounds[text][background=bglayer]
\setuplayer[bglayer][position=no,corner=bottom,height=\paperheight]
\starttext
\startbuffer[first]
\setlayer[bglayer][x=.55\textwidth,y=.9\textheight,location=b]{
\FrameTitle{Knuth}
\StartFrame[width=.75\textwidth]
\input knuth
\StopFrame
}
\stopbuffer
\startbuffer[second]
\setlayer[bglayer][x=.625\textwidth,y=.8\textheight,location=b]{
\FrameTitle{Zapf}
\StartFrame[width=.75\textwidth]
\input zapf
\StopFrame
}
\stopbuffer
\startbuffer[third]
\setlayer[bglayer][x=.70\textwidth,y=.7\textheight,location=b]{
\FrameTitle{Tufte}
\StartFrame[width=.75\textwidth]
\input tufte
\StopFrame
}
\stopbuffer
\definesymbol[empty][]
\definesymbol[one][{\getbuffer[first]}]
\definesymbol[two][{\getbuffer[first,second]}]
\definesymbol[three][{\getbuffer[first,second,third]}]
\Topic{Stacks \& Layers}
{\setupbodyfont[12pt]
\definefieldstack[sequence]
[one,two,three]
[frame=off,
offset=none,
clickin=JS(Walk_Field{sequence})]
{\fieldstack[sequence]}
\goto{next}[JS(Walk_Field{sequence})]
}
\stoptext
[-- Attachment #1.2: Type: text/html, Size: 3317 bytes --]
[-- Attachment #2: Type: text/plain, Size: 139 bytes --]
_______________________________________________
ntg-context mailing list
ntg-context@ntg.nl
http://www.ntg.nl/mailman/listinfo/ntg-context
^ permalink raw reply [flat|nested] 6+ messages in thread* Re: Fielstack and Layers for Presentation 2006-10-12 17:58 Fielstack and Layers for Presentation Renaud AUBIN @ 2006-10-13 13:38 ` Peter Rolf 2006-10-13 21:54 ` Renaud AUBIN 1 sibling, 0 replies; 6+ messages in thread From: Peter Rolf @ 2006-10-13 13:38 UTC (permalink / raw) Hi Renaud, Renaud AUBIN wrote: > Hi all, > > I would use fieldstack with \getbuffer and overlays... Why the following > code doesn't work ? Is there another way to do that ? > \setlayer is breaking the fields here, so that they become normal, inactive content (dunno why). If you remove it, the fields appear... but the positioning is now the problem. For testing I defined the symbols only to be equal to one buffer at a time (not a combination of them). Without this restriction you get really funny positions for them. HTH, Peter > TIA > > > Renaud > > %%%%%%% stack.tex > > \setupcolors[state=start] > \usemodule[pre-original] > > \defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] > \defineframedtext[FunnyText][frame=off,background=FunnyFrame] > \def\StartFrame{\startFunnyText} > \def\StopFrame {\stopFunnyText } > \def\FrameTitle#1% > {\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut#1\hss}}} > \setMPtext{FunnyFrame}{} % initialize the text variable > \startuseMPgraphic{FunnyFrame} > picture p ; numeric o ; path a, b ; pair c ; > p := textext.rt(\MPstring{FunnyFrame}) ; > a := unitsquare xyscaled(OverlayWidth,OverlayHeight) ; > o := BodyFontSize ; > p := p shifted (2o,OverlayHeight-ypart center p) ; > drawoptions (withpen pencircle scaled 1pt withcolor .625red) ; > b := a randomized (o/2) ; > fill b withcolor .85white ; draw b ; > c := center p ; > c := b intersectionpoint (c shifted (0,-o)--c shifted(0,o)) ; > p := p shifted (c-center p) ; > b := (boundingbox p) randomized (o/8) ; > fill b withcolor .85white ; draw b ; > draw p withcolor black; > setbounds currentpicture to a ; > \stopuseMPgraphic > > \definelayer[bglayer][position=yes] > \setupbackgrounds[text][background=bglayer] > \setuplayer[bglayer][position=no,corner=bottom,height=\paperheight] > > > \starttext > > \startbuffer[first] > \setlayer[bglayer][x=.55\textwidth,y=.9\textheight,location=b]{ > \FrameTitle{Knuth} > \StartFrame[width=.75\textwidth] > \input knuth > \StopFrame > } > \stopbuffer > > \startbuffer[second] > \setlayer[bglayer][x=.625\textwidth,y=.8\textheight,location=b]{ > \FrameTitle{Zapf} > \StartFrame[width=.75\textwidth] > \input zapf > \StopFrame > } > \stopbuffer > > \startbuffer[third] > \setlayer[bglayer][x=.70\textwidth,y=.7\textheight,location=b]{ > \FrameTitle{Tufte} > \StartFrame[width=.75\textwidth] > \input tufte > \StopFrame > } > \stopbuffer > > \definesymbol[empty][] > \definesymbol[one][{\getbuffer[first]}] > \definesymbol[two][{\getbuffer[first,second]}] > \definesymbol[three][{\getbuffer[first,second,third]}] > > > \Topic{Stacks \& Layers} > > {\setupbodyfont[12pt] > > \definefieldstack[sequence] > [one,two,three] > [frame=off, > offset=none, > clickin=JS(Walk_Field{sequence})] > > {\fieldstack[sequence]} > > \goto{next}[JS(Walk_Field{sequence})] > } > > \stoptext > > > ------------------------------------------------------------------------ > > _______________________________________________ > ntg-context mailing list > ntg-context@ntg.nl > http://www.ntg.nl/mailman/listinfo/ntg-context ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fielstack and Layers for Presentation 2006-10-12 17:58 Fielstack and Layers for Presentation Renaud AUBIN 2006-10-13 13:38 ` Peter Rolf @ 2006-10-13 21:54 ` Renaud AUBIN 2006-10-14 10:12 ` Peter Rolf 2006-10-14 17:40 ` Hans Hagen 1 sibling, 2 replies; 6+ messages in thread From: Renaud AUBIN @ 2006-10-13 21:54 UTC (permalink / raw) Hi all, After several trial-error experiments, I obtained what I want with the attached code. I use only one background for the frames within definesymbol because the use of several background "failed" (only the last one is eventually displayed). Now, I would like to know if it is possible to obtain a deterministic random-like shapes, i.e. to get always the same shape for Overlay1... Renaud PS: Thanks to Peter, Andrea and Hans for the thread absolute positioning of figures ;) \setupcolors[state=start] \usemodule[pre-original] \defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] \defineframedtext[FunnyText][frame=off,background=FunnyFrame] \def\StartFrame{\startFunnyText} \def\StopFrame {\stopFunnyText } \def\FrameTitle#1% {\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut#1\hss}}} \setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut{TEST}\hss}} % initialize the text variable \startuseMPgraphic{FunnyFrame} picture p ; numeric o ; path a, b ; pair c ; p := textext.rt(\MPstring{FunnyFrame}) ; a := unitsquare xyscaled(OverlayWidth,OverlayHeight) ; o := BodyFontSize ; p := p shifted (2o,OverlayHeight-ypart center p) ; drawoptions (withpen pencircle scaled 1pt withcolor .625red) ; b := a randomized (o/2) ; fill b withcolor .85white ; draw b ; c := center p ; c := b intersectionpoint (c shifted (0,-o)--c shifted(0,o)) ; p := p shifted (c-center p) ; b := (boundingbox p) randomized (o/8) ; fill b withcolor .85white ; draw b ; draw p withcolor black; setbounds currentpicture to a ; \stopuseMPgraphic \starttext \Topic{Stacks \& Layers} \startbuffer[buf1] \FrameTitle{Overlay1} \StartFrame[width=.75\textwidth] This is the first funny frame ! \StopFrame \stopbuffer \startbuffer[buf2] \FrameTitle{Overlay2} \StartFrame[width=.75\textwidth] This is the second funny frame ! \StopFrame \stopbuffer \startbuffer[buf3] \FrameTitle{Overlay3} \StartFrame[width=.75\textwidth] This is the third funny frame ! \StopFrame \stopbuffer \definelayer[layer1][] \definelayer[layer2][] \definelayer[layer3][] \setlayer[layer1][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} \setlayer[layer2][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} \setlayer[layer2][x=.1\textwidth,y=.1\textheight,location=br]{\getbuffer[buf2]} \setlayer[layer3][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} \setlayer[layer3][x=.1\textwidth,y=.1\textheight,location=br]{\getbuffer[buf2]} \setlayer[layer3][x=.15\textwidth,y=.15\textheight,location=br]{\getbuffer[buf3]} \defineoverlay[overlay1][{\placelayer[layer1]}] \defineoverlay[overlay2][{\placelayer[layer2]}] \defineoverlay[overlay3][{\placelayer[layer3]}] \definesymbol[one][{\framed[width=\textwidth,height=.3\textheight,background=overlay1,frame=off]{}}] \definesymbol[two][{\framed[width=\textwidth,height=.3\textheight,background=overlay2, align=right,frame=off]{}}] \definesymbol[three][{\framed[width=\textwidth,height=.3\textheight,background=overlay3, align=right,frame=off]{}}] \definefieldstack[sequence][one,two,three][height=fit,width=fit,frame=off,offset=overlay,clickin=JS(Walk_Field{sequence})] {{\fieldstack[sequence]}} \goto{next}[JS(Walk_Field{sequence})] \stoptext ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fielstack and Layers for Presentation 2006-10-13 21:54 ` Renaud AUBIN @ 2006-10-14 10:12 ` Peter Rolf 2006-10-15 20:14 ` Renaud AUBIN 2006-10-14 17:40 ` Hans Hagen 1 sibling, 1 reply; 6+ messages in thread From: Peter Rolf @ 2006-10-14 10:12 UTC (permalink / raw) Hi Renaud, I tried your example code and it is really fun. But you should exchange the buffers with setups to minimize runtime. On my machine it's 4x faster this way. I'll better not imagine, how often you have compiled your example code, before it reached this nice and clean state ;) Renaud AUBIN wrote: > Hi all, > > After several trial-error experiments, I obtained what I want with the > attached code. I use only one background for the frames within > definesymbol because the use of several background "failed" (only the > last one is eventually displayed). Now, I would like to know if it is > possible to obtain a deterministic random-like shapes, i.e. to get > always the same shape for Overlay1... > What I can think of is to initialize the random seed value of MP (name?) with the same value, every time before you fill a new layer. Another way would be to add the 'random' parameters to your FrameTitle macro. But I don't have much experience with random stuff, so there maybe better ways. Greetings, Peter > Renaud > > PS: Thanks to Peter, Andrea and Hans for the thread absolute positioning > of figures ;) > > \setupcolors[state=start] > \usemodule[pre-original] > > \defineoverlay[FunnyFrame][\useMPgraphic{FunnyFrame}] > \defineframedtext[FunnyText][frame=off,background=FunnyFrame] > \def\StartFrame{\startFunnyText} > \def\StopFrame {\stopFunnyText } > \def\FrameTitle#1% > {\setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut#1\hss}}} > \setMPtext{FunnyFrame}{\hbox spread 1em{\hss\strut{TEST}\hss}} % > initialize the text variable > \startuseMPgraphic{FunnyFrame} > picture p ; numeric o ; path a, b ; pair c ; > p := textext.rt(\MPstring{FunnyFrame}) ; > a := unitsquare xyscaled(OverlayWidth,OverlayHeight) ; > o := BodyFontSize ; > p := p shifted (2o,OverlayHeight-ypart center p) ; > drawoptions (withpen pencircle scaled 1pt withcolor .625red) ; > b := a randomized (o/2) ; > fill b withcolor .85white ; draw b ; > c := center p ; > c := b intersectionpoint (c shifted (0,-o)--c shifted(0,o)) ; > p := p shifted (c-center p) ; > b := (boundingbox p) randomized (o/8) ; > fill b withcolor .85white ; draw b ; > draw p withcolor black; > setbounds currentpicture to a ; > \stopuseMPgraphic > > \starttext > > \Topic{Stacks \& Layers} > > \startbuffer[buf1] > \FrameTitle{Overlay1} > \StartFrame[width=.75\textwidth] > This is the first funny frame ! > \StopFrame > \stopbuffer > > \startbuffer[buf2] > \FrameTitle{Overlay2} > \StartFrame[width=.75\textwidth] > This is the second funny frame ! > \StopFrame > \stopbuffer > > \startbuffer[buf3] > \FrameTitle{Overlay3} > \StartFrame[width=.75\textwidth] > This is the third funny frame ! > \StopFrame > \stopbuffer > > \definelayer[layer1][] > \definelayer[layer2][] > \definelayer[layer3][] > > \setlayer[layer1][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} > > \setlayer[layer2][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} > \setlayer[layer2][x=.1\textwidth,y=.1\textheight,location=br]{\getbuffer[buf2]} > > \setlayer[layer3][x=.05\textwidth,y=.05\textheight,location=br]{\getbuffer[buf1]} > \setlayer[layer3][x=.1\textwidth,y=.1\textheight,location=br]{\getbuffer[buf2]} > \setlayer[layer3][x=.15\textwidth,y=.15\textheight,location=br]{\getbuffer[buf3]} > > \defineoverlay[overlay1][{\placelayer[layer1]}] > \defineoverlay[overlay2][{\placelayer[layer2]}] > \defineoverlay[overlay3][{\placelayer[layer3]}] > > \definesymbol[one][{\framed[width=\textwidth,height=.3\textheight,background=overlay1,frame=off]{}}] > \definesymbol[two][{\framed[width=\textwidth,height=.3\textheight,background=overlay2, > align=right,frame=off]{}}] > \definesymbol[three][{\framed[width=\textwidth,height=.3\textheight,background=overlay3, > align=right,frame=off]{}}] > > \definefieldstack[sequence][one,two,three][height=fit,width=fit,frame=off,offset=overlay,clickin=JS(Walk_Field{sequence})] > > {{\fieldstack[sequence]}} > \goto{next}[JS(Walk_Field{sequence})] > > \stoptext > > _______________________________________________ > ntg-context mailing list > ntg-context@ntg.nl > http://www.ntg.nl/mailman/listinfo/ntg-context > > ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fielstack and Layers for Presentation 2006-10-14 10:12 ` Peter Rolf @ 2006-10-15 20:14 ` Renaud AUBIN 0 siblings, 0 replies; 6+ messages in thread From: Renaud AUBIN @ 2006-10-15 20:14 UTC (permalink / raw) Hi Peter, all, >What I can think of is to initialize the random seed value of MP (name?) >with the same value, every time before you fill a new layer. Another way >would be to add the 'random' parameters to your FrameTitle macro. But I >don't have much experience with random stuff, so there maybe better ways. > > > I use now \startsetups[buf1] \startMPinclusions randomseed:=1; \stopMPinclusions \FrameTitle{Overlay1} \StartFrame[width=.75\textwidth] This is the first funny frame ! \StopFrame \stopsetups \startsetups[buf2] \startMPinclusions randomseed:=2; \stopMPinclusions \FrameTitle{Overlay2} \StartFrame[width=.75\textwidth] This is the second funny frame ! \StopFrame \stopsetups \startsetups[buf3] \startMPinclusions randomseed:=3; \stopMPinclusions \FrameTitle{Overlay3} \StartFrame[width=.75\textwidth] This is the third funny frame ! \StopFrame \stopsetups and \setups{...} ^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Fielstack and Layers for Presentation 2006-10-13 21:54 ` Renaud AUBIN 2006-10-14 10:12 ` Peter Rolf @ 2006-10-14 17:40 ` Hans Hagen 1 sibling, 0 replies; 6+ messages in thread From: Hans Hagen @ 2006-10-14 17:40 UTC (permalink / raw) Renaud AUBIN wrote: > Hi all, > > After several trial-error experiments, I obtained what I want with the > attached code. I use only one background for the frames within > definesymbol because the use of several background "failed" (only the > last one is eventually displayed). Now, I would like to know if it is > possible to obtain a deterministic random-like shapes, i.e. to get > always the same shape for Overlay1... > > Renaud > > PS: Thanks to Peter, Andrea and Hans for the thread absolute positioning > of figures ;) > .... nice example .... if you're in exploration mode : take a look at s-pre-61/62 you can do similar tricks with pdf-layers (layout components in context) (try \showlayoutcomponents in a document and open the acrobat layer tab) i first used such layers in the dante2005 aniv presentation (times stepping, stacking page building) the advantage is that one is not using annotations, which have some limitations (like no embedded hyperlinks) Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | fax: 038 477 53 74 | www.pragma-ade.com | www.pragma-pod.nl ----------------------------------------------------------------- ^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2006-10-15 20:14 UTC | newest] Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2006-10-12 17:58 Fielstack and Layers for Presentation Renaud AUBIN 2006-10-13 13:38 ` Peter Rolf 2006-10-13 21:54 ` Renaud AUBIN 2006-10-14 10:12 ` Peter Rolf 2006-10-15 20:14 ` Renaud AUBIN 2006-10-14 17:40 ` Hans Hagen
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for NNTP newsgroup(s).