Re: Fielstack and Layers for Presentation

[Renaud AUBIN <aubin@nibua-r.org>]

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