Re: [NTG-context] MetaFun labels and xsized

On 12/25/2020 6:36 PM, Fabrice L wrote:

Hi,

...

Le 25 déc. 2020 à 12:30, Pablo Rodriguez a écrit :

Dear list,

I have this minimal MetaFun sample (the only one in my real document):

\setupbodyfont[pagella] \starttext \startMPcode pair a ; a := (1, 1) ; pair b ; b := (1, 10) ; pair c ; c := (10, 10) ; pair d ; d := (10, 1) ; draw (a--b--c--d--a) xsized .75TextWidth;

draw thelabel.lft("α",a) ; draw thelabel.lft("β",b) ; draw thelabel.top("γ",c) ; draw thelabel.rt("δ",d) ; \stopMPcode \stoptext

Is there a way to relate adapt the labels to the xsized positions used?

I’m sure somebody could find a more elegant solution, but here is a simple one:

\setupbodyfont[pagella] \starttext \startMPcode pair a ; a := (1, 1) ; pair b ; b := (1, 10) ; pair c ; c := (10, 10) ; pair d ; d := (10, 1) ; path square ; square := (a--b--c--d--cycle) xsized .75TextWidth ;

draw square xsized .75TextWidth;

draw thelabel.lft("α",point 0 of square) ; draw thelabel.lft("β",point 1 of square) ; draw thelabel.top("γ",point 2 of square) ; draw thelabel.rt("δ",point 3 of square) ; \stopMPcode \stoptext

Fabrice.

\startMPcode path p ; p := ( ( 1, 1) -- ( 1, 5) -- (10, 10) -- (14, 4) -- cycle) xsized .75TextWidth; draw p ; freelabel("\strut α",point 0 of p,center p) ; freelabel("\strut β",point 1 of p,center p) ; freelabel("\strut γ",point 2 of p,center p) ; freelabel("\strut δ",point 3 of p,center p) ; \stopMPcode ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------