![](https://secure.gravatar.com/avatar/49e63acb01f2ca80efce7eed08310ce8.jpg?s=120&d=mm&r=g)
At 18:57 09/04/2003 +0200, you wrote:
Wednesday, April 9, 2003 Patrick Gundlach wrote:
PG> Giuseppe Bilotta
writes: PG> Hello Giuseppe,
\startuseMPgraphic{mpos:par:columnset} path p, q; for i := 1 upto nofmultipars : p := counterclockwise simplified multipars[i] leftenlarged 5pt rightenlarged 5pt ;
PG> why did you use "counterclockwise simplified..." ? What is this?
I used that to make sure that p didn't have extra points (simplified) and went in a specific direction (counterclockwise); anyway, I rewrote my code:
which can be simplified to: \startuseMPgraphic{mpos:par:columnset} path q ; picture r ; color framecolor, backgroundcolor ; cornerradius := 5pt ; offset := 7.5pt ; framecolor := red ; framethickness := 2pt ; backgroundcolor := lightgray ; for i := 1 upto nofmultipars : multipars[i] := multipars[i] enlarged offset ; if multilocs[i] = 1 : % top q := multipars[i] bottomenlarged (4cornerradius) ; elseif multilocs[i] = 2 : q := multipars[i] bottomenlarged (4cornerradius) ; q := q topenlarged (4cornerradius) ; else: q := multipars[i] topenlarged (4cornerradius) ; fi ; q := q smoothed (2cornerradius) ; r := image ( fill q withcolor backgroundcolor ; draw q withcolor framecolor withpen pencircle scaled framethickness ; ) ; clip r to boundingbox multipars[i] ; addto currentpicture also r ; endfor ; \stopuseMPgraphic watch the usage of "enlarged" and the "smoothed" Hans
===
\starttext
\setupcolors[state=start]
\definetextbackground[gb][state=start]
\startuseMPgraphic{mpos:par:columnset} pair urc, ulc, llc, lrc ; % corners path urcp, ulcp, llcp, lrcp ; % paths path q ; cornerradius := 5pt ; offset := 7.5pt ; color framecolor, backgroundcolor ; pen framepen ; framecolor := red ; framepen := pensquare rotated 45 ; framethickness := 2pt ; backgroundcolor := lightgray ; for i := 1 upto nofmultipars : urc := urcorner multipars[i] + (offset, offset) ; ulc := ulcorner multipars[i] + (-offset, offset) ; llc := llcorner multipars[i] + (-offset, -offset) ; lrc := lrcorner multipars[i] + (offset, -offset) ; ulcp := quartercircle rotated 90 scaled (2*cornerradius) shifted (ulc + (cornerradius, -cornerradius)) ; urcp := quartercircle scaled (2*cornerradius) shifted (urc + (-cornerradius, -cornerradius)) ; llcp := quartercircle rotated 180 scaled (2*cornerradius) shifted (llc + (cornerradius, cornerradius)) ; lrcp := quartercircle rotated -90 scaled (2*cornerradius) shifted (lrc + (-cornerradius, cornerradius)) ; if multilocs[i] = 1 : % top q := lrc -- urcp -- ulcp -- llc ; fill q--cycle withcolor backgroundcolor ; draw q withcolor framecolor withpen framepen scaled framethickness ; elseif multilocs[i] = 2 : fill llc -- lrc -- urc -- ulc -- cycle withcolor backgroundcolor ; draw ulc -- llc withcolor framecolor withpen framepen scaled framethickness ; draw lrc -- urc withcolor framecolor withpen framepen scaled framethickness ; else: q := ulc -- llcp -- lrcp -- urc ; fill q--cycle withcolor backgroundcolor ; draw q withcolor framecolor withpen framepen scaled framethickness ; fi endfor ; \stopuseMPgraphic
\starttextbackground[gb] \input tufte \stoptextbackground
\blank[2*big]
\starttextbackground[gb] \dorecurse{5}{\input tufte \par} \stoptextbackground \blank \input tufte
\stoptext
===
Now the only thing we need is a way to know when the background is split and when it's not. Hans?
-- Giuseppe "Oblomov" Bilotta
_______________________________________________ ntg-context mailing list ntg-context@ntg.nl http://www.ntg.nl/mailman/listinfo/ntg-context
================================================================ Deze e-mail is door E-mail VirusScanner van Planet Internet gecontroleerd op virussen. Op http://www.planet.nl/evs staat een verwijzing naar de actuele lijst waar op wordt gecontroleerd.
------------------------------------------------------------------------- Hans Hagen | PRAGMA ADE | pragma@wxs.nl Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com ------------------------------------------------------------------------- information: http://www.pragma-ade.com/roadmap.pdf documentation: http://www.pragma-ade.com/showcase.pdf -------------------------------------------------------------------------