Hi
On Sun, Dec 1, 2024 at 1:28 PM Wolfgang Schuster
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... /Mikael