Metafun: setting pen size in properties - ntg-context - NTG Mailing Lists

newer
Bug in wiki \doifsamestringselse...

Metafun: setting pen size in properties

older
Unable to switch math fonts

Aditya Mahajan

24 Jul 2017 24 Jul '17

1:40 a.m.

Hi, Is it possible to set pen width using properties(...)? The following does not work (the color is set, but not the pen width): \starttext \startMPcode property p[] ; p[1] := properties(withcolor red withpen pencircle scaled 1bp); p[2] := properties(withcolor blue withpen pencircle scaled 10bp); draw fullcircle scaled 1cm withproperties p[1]; draw fullcircle scaled 2cm withproperties p[2]; \stopMPcode \stoptext Also, what is the advantage of using properties over a simple def? (except that I cannot def a suffixed variable). For example: \starttext \startMPcode def qA = withcolor red withpen pencircle scaled 1bp enddef; def qB = withcolor blue withpen pencircle scaled 10bp enddef; draw fullcircle scaled 1cm qA; draw fullcircle scaled 2cm qB; \stopMPcode \stoptext Thanks, Aditya

Reply

Sign in to reply online Use email software

Show replies by date

Alan Braslau

24 Jul 24 Jul

2:13 a.m.

withproperties is an experimental, metafun extension that appears to cover color and pre/postscripts. It could be extended to cover withpen, etc. Look at mp-mplib.mkiv. properties() returns an image object that can hold many things. The graph package does similar tricks. Alan On Sun, 23 Jul 2017 19:40:03 -0400 (EDT) Aditya Mahajan wrote:

Hi,

Is it possible to set pen width using properties(...)? The following does not work (the color is set, but not the pen width):

\starttext \startMPcode property p[] ; p[1] := properties(withcolor red withpen pencircle scaled 1bp); p[2] := properties(withcolor blue withpen pencircle scaled 10bp);

draw fullcircle scaled 1cm withproperties p[1]; draw fullcircle scaled 2cm withproperties p[2]; \stopMPcode \stoptext

Also, what is the advantage of using properties over a simple def? (except that I cannot def a suffixed variable). For example:

\starttext \startMPcode def qA = withcolor red withpen pencircle scaled 1bp enddef; def qB = withcolor blue withpen pencircle scaled 10bp enddef;

draw fullcircle scaled 1cm qA; draw fullcircle scaled 2cm qB;

\stopMPcode \stoptext

Thanks, Aditya ___________________________________________________________________________________ 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://context.aanhet.net archive : https://bitbucket.org/phg/context-mirror/commits/ wiki : http://contextgarden.net ___________________________________________________________________________________

Reply

Sign in to reply online Use email software

Hans Hagen

10:26 a.m.

On 7/24/2017 1:40 AM, Aditya Mahajan wrote:

Hi,

Is it possible to set pen width using properties(...)? The following does not work (the color is set, but not the pen width):

\starttext \startMPcode property p[] ; p[1] := properties(withcolor red withpen pencircle scaled 1bp); p[2] := properties(withcolor blue withpen pencircle scaled 10bp);

draw fullcircle scaled 1cm withproperties p[1]; draw fullcircle scaled 2cm withproperties p[2]; \stopMPcode \stoptext

def withproperties expr p = if colormodel p = 3 : withcolor greypart p elseif colormodel p = 5 : withcolor (redpart p,greenpart p,bluepart p) elseif colormodel p = 7 : withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) fi withpen penpart p withprescript prescriptpart p withpostscript postscriptpart p enddef ;

Also, what is the advantage of using properties over a simple def? (except that I cannot def a suffixed variable). For example:

\starttext \startMPcode def qA = withcolor red withpen pencircle scaled 1bp enddef; def qB = withcolor blue withpen pencircle scaled 10bp enddef;

draw fullcircle scaled 1cm qA; draw fullcircle scaled 2cm qB;

\stopMPcode \stoptext abstraction ..

----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

Reply

Sign in to reply online Use email software

Alan Braslau

6:58 p.m.

On Mon, 24 Jul 2017 10:26:25 +0200 Hans Hagen wrote:

On 7/24/2017 1:40 AM, Aditya Mahajan wrote:

...
Hi,

Is it possible to set pen width using properties(...)? The following does not work (the color is set, but not the pen width):

\starttext \startMPcode property p[] ; p[1] := properties(withcolor red withpen pencircle scaled 1bp); p[2] := properties(withcolor blue withpen pencircle scaled 10bp);

draw fullcircle scaled 1cm withproperties p[1]; draw fullcircle scaled 2cm withproperties p[2]; \stopMPcode \stoptext

def withproperties expr p = if colormodel p = 3 : withcolor greypart p elseif colormodel p = 5 : withcolor (redpart p,greenpart p,bluepart p) elseif colormodel p = 7 : withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) fi withpen penpart p

if dashpart p <> nullpicture : dashed dashpart p fi

withprescript prescriptpart p withpostscript postscriptpart p enddef ;

...
Also, what is the advantage of using properties over a simple def? (except that I cannot def a suffixed variable). For example:

\starttext \startMPcode def qA = withcolor red withpen pencircle scaled 1bp enddef; def qB = withcolor blue withpen pencircle scaled 10bp enddef;

draw fullcircle scaled 1cm qA; draw fullcircle scaled 2cm qB;

\stopMPcode \stoptext abstraction ..

----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl ----------------------------------------------------------------- ___________________________________________________________________________________ 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://context.aanhet.net archive : https://bitbucket.org/phg/context-mirror/commits/ wiki : http://contextgarden.net ___________________________________________________________________________________

Reply

Sign in to reply online Use email software

Aditya Mahajan

25 Jul 25 Jul

7:34 p.m.

On Mon, 24 Jul 2017, Alan Braslau wrote:

On Mon, 24 Jul 2017 10:26:25 +0200 Hans Hagen wrote:

...
On 7/24/2017 1:40 AM, Aditya Mahajan wrote:

...
Hi,

Is it possible to set pen width using properties(...)? The following does not work (the color is set, but not the pen width):

\starttext \startMPcode property p[] ; p[1] := properties(withcolor red withpen pencircle scaled 1bp); p[2] := properties(withcolor blue withpen pencircle scaled 10bp);

draw fullcircle scaled 1cm withproperties p[1]; draw fullcircle scaled 2cm withproperties p[2]; \stopMPcode \stoptext

def withproperties expr p = if colormodel p = 3 : withcolor greypart p elseif colormodel p = 5 : withcolor (redpart p,greenpart p,bluepart p) elseif colormodel p = 7 : withcolor (cyanpart p,magentapart p,yellowpart p,blackpart p) fi withpen penpart p

if dashpart p <> nullpicture : dashed dashpart p fi

...
withprescript prescriptpart p withpostscript postscriptpart p enddef ;

Thanks! Aditya

Reply

Sign in to reply online Use email software

2731

Age (days ago)

2733

Last active (days ago)

Download

4 comments

3 participants

tags

participants (3)

Aditya Mahajan
Alan Braslau
Hans Hagen