Radius attribute and scaling in lmt_shade[ ]

* Radius attribute and scaling in lmt_shade[ ]
@ 2022-01-06 15:57 Keith McKay via ntg-context
  2022-01-09 15:53 ` Keith McKay via ntg-context
  0 siblings, 1 reply; 4+ messages in thread
From: Keith McKay via ntg-context @ 2022-01-06 15:57 UTC (permalink / raw)
  To: ntg-context; +Cc: Keith McKay

[-- Attachment #1.1: Type: text/plain, Size: 1891 bytes --]

Hi

In the code below you will see that I have created a closed path and 
performed scaling, and shading on the path with lmt_shade [ ]. I have 
noticed a few features which may or may not be bugs depending on whether 
scaled is applied to the path within the square brackets or outside.

1) Applying scaled to the path within the square brackets and 
incrementing the radius key I can see the shaded areas changing, however 
the first two shapes show incorrect scaling and have ragged edges.

2) When scaled is applied outside the square brackets all shapes are the 
same size and no ragged edges, however the shading is not showing 
correctly with increasing radius.

Am I missing something?

Best Wishes

Keith McKay

*******************MWE*****************

\setuppapersize[A4, landscape]

\starttext

\dorecurse{10}{

\startMPpage

StartPage;

width := 27; height := 18;

path r;

r := (0.25cm,0cm)--(0cm,1.5cm)..(0.25cm,1.75cm)..(0.5cm,1.5cm) -- cycle;

definecolor [ name = "MyColor1", r = uniformdeviate(1), g = 
uniformdeviate(1), b = uniformdeviate(1) ] ;

definecolor [ name = "MyColor2", r = uniformdeviate(1), g = 
uniformdeviate(1), b = uniformdeviate(1) ] ;

     for k = 0.5 step 0.25 until 2:

         draw lmt_shade [

             path = r ,

             direction = "up",

             alternative = "circular",

             radius = k*cm,

             colors = { "MyColor1", "MyColor2" },

             ] scaled 4.5 shifted((k *12)*cm,12*cm);

         draw lmt_shade [

             path = r scaled 4.5,

             direction = "up",

             alternative = "circular",

             radius = k*cm,

             colors = { "MyColor1", "MyColor2" },

             ] shifted((k *12)*cm,1cm);

endfor;

StopPage;

\stopMPpage

}

\stoptext

[-- Attachment #1.2: Type: text/html, Size: 6760 bytes --]

[-- Attachment #2: Type: text/plain, Size: 493 bytes --]

___________________________________________________________________________________
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
___________________________________________________________________________________

^ permalink raw reply	[flat|nested] 4+ messages in thread