From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/11885 Path: main.gmane.org!not-for-mail From: Hans Hagen Newsgroups: gmane.comp.tex.context Subject: Re[2]: Backgrounds Date: Thu, 10 Apr 2003 22:00:20 +0200 Sender: ntg-context-admin@ntg.nl Message-ID: <5.2.0.9.1.20030410215807.014f3880@localhost> References: <871y0biuyd.fsf@gundla.ch> <5.1.0.14.1.20030325094633.031a8c80@server-1> <5.1.0.14.1.20030325094633.031a8c80@server-1> <5.1.0.14.1.20030325131938.01d9af40@server-1> <9619582618.20030325153623@iol.it> <871y0biuyd.fsf@gundla.ch> Reply-To: ntg-context@ntg.nl NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii"; format=flowed X-Trace: main.gmane.org 1050047658 19921 80.91.224.249 (11 Apr 2003 07:54:18 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 11 Apr 2003 07:54:18 +0000 (UTC) Original-X-From: ntg-context-admin@ntg.nl Fri Apr 11 09:54:16 2003 Return-path: Original-Received: from ref.vet.uu.nl ([131.211.172.13] helo=ref.ntg.nl) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 193tMW-0005B8-00 for ; Fri, 11 Apr 2003 09:54:16 +0200 Original-Received: from ref.ntg.nl (localhost.localdomain [127.0.0.1]) by ref.ntg.nl (Postfix) with ESMTP id 657E510B8C; Fri, 11 Apr 2003 09:54:47 +0200 (MEST) Original-Received: from mail.solcon.nl (mail.solcon.nl [212.45.33.11]) by ref.ntg.nl (Postfix) with ESMTP id 9F87410B65 for ; Fri, 11 Apr 2003 09:33:33 +0200 (MEST) Original-Received: from server-1.pragma-net.nl (wc-58016.solcon.nl [212.45.58.16]) by mail.solcon.nl (8.12.9/SQL-8.12.9-10/8.12.5) with ESMTP id h3B7XRbL031793 for ; Fri, 11 Apr 2003 09:33:28 +0200 Original-Received: from laptop-3.wxs.nl (laptop-3 [10.100.1.191]) by server-1.pragma-net.nl (8.12.3/8.12.2) with ESMTP id h3B7XLF2006307 for ; Fri, 11 Apr 2003 09:33:25 +0200 X-Sender: hagen-mail@server-1 X-Mailer: QUALCOMM Windows Eudora Version 5.2.0.9 Original-To: ntg-context@ntg.nl In-Reply-To: <122893905.20030409185718@iol.it> X-RAVMilter-Version: 8.4.1(snapshot 20020919) (mail.solcon.nl) Errors-To: ntg-context-admin@ntg.nl X-BeenThere: ntg-context@ntg.nl X-Mailman-Version: 2.0.13 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: mailing list for ConTeXt users List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.comp.tex.context:11885 X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:11885 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 -------------------------------------------------------------------------