Hi,
I have the following code (see at final). I define SquareText to be
darkblue in framecolor, but metafun use darkred. Why? Any ideas?
Xan.
\page
\section{Tectònica de plaques}
\subsection{Com es formen els relleus?}
\setupFLOWcharts[width=.4\textwidth]
\startFLOWchart[fixistes]
\startFLOWcell
\name {Fonts}
\location {1,1}
\text {Algunes teories es basaven en relats bíblics. Atribuïen al
diluvi universal la causa d'alguns relleus i la presència de fòssils
marins a les muntanyes.}
\connection [rl] {fixistes}
\shape{procedure}
\stopFLOWcell
\startFLOWcell
\name {fixistes}
\location{2,1}
\text {Altres suposaven que la Terra s'ha anat arrugat progressivament
en refredar-se i que els relleus són arrugues provocades per l'escorça
en contracció.}
\shape{decision}
\stopFLOWcell
\stopFLOWchart
\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}) ;
o := BodyFontSize ;
a := unitsquare xyscaled(OverlayWidth,OverlayHeight) ;
p := p shifted (2o,OverlayHeight-ypart center p) ;
pickup pencircle scaled OverlayLineWidth ;
b := a superellipsed .95 ;
fill b withcolor OverlayColor ;
draw b withcolor OverlayLineColor ;
b := (boundingbox p) superellipsed .95 ;
fill b withcolor OverlayColor ;
draw b withcolor OverlayLineColor ;
draw p withcolor black ;
setbounds currentpicture to a ;
\stopuseMPgraphic
\setupframedtexts
[FunnyText]
[backgroundcolor=lightgray,
framecolor=darkred,
rulethickness=2pt,
offset=\bodyfontsize,
before={\blank[big,medium]},
after={\blank[big]},
width=\textwidth]
\FrameTitle{Teories fixistes}
\StartFrame
Al llarg del segle XIX i el començament del XX, es crearen diverses
teories que intentaven explicar l'origen de les serrelades i el
plegament dels estrats, que no podem explicar fàcilment.
Totes aquestes teories tenen com a {\bf principi} que els continents i
els oceans han ocupat les {\em mateixes posicions} des de l'origen de la
Terra fins ara.
\StopFrame
\FLOWchart[fixistes]
\defineoverlay[SquareFrame][\useMPgraphic{SquareFrame}]
\defineframedtext[SquareText][frame=off,background=SquareFrame]
\def\StartSquareFrame{\startSquareText}
\def\StopSquareFrame {\stopSquareText }
\def\SquareTitle#1%
{\setMPtext{SquareFrame}{\hbox spread 1em{\hss\strut#1\hss}}}
\setMPtext{SquareFrame}{} % initialize the text variable
\startuseMPgraphic{SquareFrame}
picture p ; numeric o ; path a, b ; pair c ;
p := textext.rt(\MPstring{SquareFrame}) ;
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
\setupframedtexts
[SquareText]
[backgroundcolor=screen,
framecolor=darkblue,
rulethickness=2pt,
offset=\bodyfontsize,
before={\blank[big,medium]},
after={\blank[big]},
width=\textwidth]
\SquareTitle{Mobilisme}
\StartSquareFrame
El 1912, Alfred Wegener proposa una teoria revolucionària
\StopSquareFrame
___________________________________________________________________________________
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://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
