On 1 Dec 2024, at 10:45, Bruce Horrocks wrote:

...

On 1 Dec 2024, at 09:51, Wolfgang Schuster wrote:

While I can get the desired result which a filled path I'm looking for a solution where I have to set fewer control points.

Draw the paths two grid squares sorter and at each end draw a “dot” which is a triangle of the right direction and shading?

s/sorter/shorter/

So your first line

draw (1,7) -- (7,7) ;

becomes

triangle_dot_bottom_right_fill (1,7) ; draw (2,6) ; triangle_dot_bottom_left_fill (7,7) ;

triangle_dot_bottom_right_fill (1,7) ; draw (2,7) -- (6,7) ; triangle_dot_bottom_left_fill (7,7) ; <sigh> Sorry, brain not in gear

If there are load of them then it might be easier to write a macro to walk the (1,7) — (7,7) path and insert “dots” at the changes of direction.

Regards,

— Bruce Horrocks Hampshire, UK

Hans Hagen via ntg-context schrieb am 01.12.2024 um 12:34:

On 12/1/2024 11:54 AM, Bruce Horrocks wrote:

...

<sigh> Sorry, brain not in gear

so once you're rebooted, you can figure out the logic behind this:

linecap := butt ; linejoin := beveled ;

This doesn't result in the desired output I want.

or even

pickup pensquare rotated -60 scaled (1/sqrt(2)) ; linecap := 1 ;

I played with custom pens but failed to create a working triangle pen. I'll take another look into it because a few custom pens can draw all lines. Wolfgang

On 12/1/2024 2:02 PM, Mikael Sundqvist wrote:

Hi

On Sun, Dec 1, 2024 at 1:28 PM Wolfgang Schuster wrote:

...

Hans Hagen via ntg-context schrieb am 01.12.2024 um 12:34:

...

On 12/1/2024 11:54 AM, Bruce Horrocks wrote:

...

<sigh> Sorry, brain not in gear

so once you're rebooted, you can figure out the logic behind this:

linecap := butt ; linejoin := beveled ;

This doesn't result in the desired output I want.

...

or even

pickup pensquare rotated -60 scaled (1/sqrt(2)) ; linecap := 1 ;

I played with custom pens but failed to create a working triangle pen. I'll take another look into it because a few custom pens can draw all lines.

\startuseMPgraphic{draw} draw hlingrid(0, 7, 1, 7, 7) withpen pencircle scaled 1/20 shifted (0.5,0.5) withcolor "darkgray" ; draw vlingrid(0, 7, 1, 7, 7) withpen pencircle scaled 1/20 shifted (0.5,0.5) withcolor "darkgray" ; pen pentriangle ; pentriangle := (makepen ((0,0) -- (1,0) -- (1,1) -- cycle) shifted (-1/2,-1/2)) scaled 1 ; drawoptions(withcolor "red"); pickup pensquare scaled 1; draw (1,7) -- (7,7) ; draw (7,1) ; draw (5,4) ; pickup pentriangle ; draw (1,1) -- (2,1) withpen pentriangle rotated 90 ; draw (3,1) -- (3,5) withpen pentriangle rotated 180 ; draw (7,3) -- (5,3) withpen pentriangle rotated 90 ; draw (7,5) -- (5,5) withpen pentriangle rotated 0 ; \stopuseMPgraphic

seems to work here. But I happily admit it is a bit cumbersome...

i wonder of we can use our new secret penstroked feature but i'm not in that mode now, Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

Bruce Horrocks schrieb am 01.12.2024 um 11:45:

...

On 1 Dec 2024, at 09:51, Wolfgang Schuster wrote:

While I can get the desired result which a filled path I'm looking for a solution where I have to set fewer control points. Draw the paths two grid squares sorter and at each end draw a “dot” which is a triangle of the right direction and shading?

So your first line

draw (1,7) -- (7,7) ;

becomes

triangle_dot_bottom_right_fill (1,7) ; draw (2,6) ; triangle_dot_bottom_left_fill (7,7) ;

If there are load of them then it might be easier to write a macro to walk the (1,7) — (7,7) path and insert “dots” at the changes of direction.

I had this in my mind but wasn't sure if this is the best solution. Using a macro to create the line is a must here but I have to think how to set which delimiters for the line should be used (using different macros for each variation or passing the shape as argument). BTW: Use && to connect the parts of the line to avoid graphical errors in your pdf viewer. \startMPpage[offset=1pt] pickup pensquare scaled 1 ; draw (0,0) ; draw (1,0) ; draw (0,2) && (1,2) ; \stopMPpage Wolfgang