January 2025 - ntg-context - NTG Mailing Lists

tree-sitter-context
by Henning Hraban Ramm 12 Jan '25

12 Jan '25

Hi Paul, I tried again to get your code running for me. If I replace tree-sitter-context.pc by tree-sitter.json (attached), then the tree-sitter CLI recognizes the parser. The npm module (to be called as "npx tree-sitter") doesn’t care about the .pc file, but the cli package binary seems to expect a directory by that name. Now I can call the parser with a .tex file, and the process hogs 99% CPU and all RAM (>20GB) quickly. I needed several attempts to even kill it. That doesn’t look right. Hraban

1 0

Lua question - table.save, table.load
by Jeong Dal 12 Jan '25

12 Jan '25

Dear all, I save a table “tfList” using table.save in Lua: \startluacode ... table.save(“tempList.lua”,tfList) ... \stopluacode And I call it in MetaFun using a method explained in the MetaFun book. \startMPcode lua("MP = { } MP.data = table.load('tempList.lua')") ; … \stopMPcode However, I found that whenever I save “tfList”, table contents are appended to the file “tempList.lua” at the end which cause a trouble. I want the tempList.lua contains the new table only. I search the method to do that, but I can’t find it. The only way is to change the file name each time which is not good to make a macro. Is there a way to clear the contents in the tempList.lua before I save another table? Thank you for reading. Best regards, Dalyoung

2 3

JPEG 2000 extensions
by Jim 11 Jan '25

11 Jan '25

Hi, in .../tex/texmf-context/tex/context/base/mkiv/grph-inc.lua I see (at line 333) ["jp2"] = { list = { "jp2" } }, That is (AIUI) the proper extension for JPEG2000 (Part 1) images. The JPEG2000 (Part 2) images I looked at have the same magic bytes as listed in line 349 of that file. AIUI, JPEG2000 (Part 2) images should have the extension .jpx. Is it possible to change line 333 to read ["jp2"] = { list = { "jp2", "jpx" } }, ? (I hope this is the only change needed.) I may be the only (vocal) person using .JPX files right now, but in the years to come, who knows how many people will use it? Thanks. Jim P.S. I know that I can use \definegraphictypesynonym [jpx] [jp2] but in the interest of helping others who may run into this issue in the future, ...

2 2

Re: Touch my cow: Overlaying a picture with links to text
by Axel Kielhorn 11 Jan '25

11 Jan '25

> Am 10.01.2025 um 01:09 schrieb Hans Hagen <j.hagen(a)xs4all.nl>: > > > def touchtolink (expr a, b) (text t) = > label ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); > enddef ; > > but you forgot to define: > > \definecolor[transparentwhite][s=1,t=.5,a=1] It seems I cut too many lines when making my example minimal. Thanks, this is exactly what I needed. > luametafun-mesh.tex > might be interesting It says it only works with Acrobat and it doesn’t work with preview. Greetings Axel

1 0

Re: about : setuplayout[width=fit or height=fit]
by wangzhongtian 11 Jan '25

11 Jan '25

1 0

about : setuplayout[width=fit or height=fit]
by wangzhongtian 11 Jan '25

11 Jan '25

2 1

Functional shading with MetaPost / MetaFun
by Florent Michel 10 Jan '25

10 Jan '25

Hi, I was trying to see if I could use MetaFun / MetaPost as my main tool for generating figures. I really like its close integration with ConTeXt, speed, and expressivity making it, even for a beginner like me, a pleasure to work with. One difficulty I encountered is for generating 2D functional shadings. For instance, I am not sure what is the best way to reproduce the following pgfplots picture in MetaPost: ____________________________________________________________ \usemodule[pgfplots] \pgfplotsset{width=10cm,compat=1.18} \usepgfplotslibrary{patchplots} \starttext \startTEXpage \starttikzpicture \startaxis[ hide axis=true, axis lines=none,hide axis, enlargelimits=false, scale only axis, clip bounding box=upper bound, clip=true, ] \addplot[ patch, shader=interp, mesh/color input=explicit, data cs=polar, ] coordinates { (90,4) [color=red] (210,4) [color=green] (-30,4) [color=blue] }; \stopaxis \stoptikzpicture \stopTEXpage \stoptext ____________________________________________________________ One idea is to draw a sequence of triangles, each with a linear gradient: ____________________________________________________________ \startMPpage def LinearIntTriangle(expr pa, pb, pc, cola, colb, colc, n_iter) = for i = n_iter step -1 until 1 : path p; x := i / n_iter; y := (i - 0.5) / n_iter; p := pa -- (pa + x * (pb - pa)) -- (pa + x * (pc - pa)) -- cycle; sh := define_linear_shade(pa + y * (pb - pa), pa + y * (pc - pa), (1 - y) * cola + y * colb, (1 - y) * cola + y * colc); fill p withshade sh; endfor enddef; color cola, colb, colc; cola := (0,1,0); colb := (1,0,0); colc := (0,0,1); LinearIntTriangle((0,0), (50,50*(3**0.5)), (100,0), cola, colb, colc, 30); \stopMPpage ____________________________________________________________ or to use a slight variation (decomposing the triangle in three so that the color is ‘right’) along each edge: ____________________________________________________________ \startMPpage def LinearIntTriangleB(expr pa, pb, pc, cola, colb, colc, n_iter) = color centre_color; centre_color := (cola + colb + colc) / 3; LinearIntTriangle((pa + pb + pc) / 3, pa, pb, centre_color, cola, colb, n_iter); LinearIntTriangle((pa + pb + pc) / 3, pb, pc, centre_color, colb, colc, n_iter); LinearIntTriangle((pa + pb + pc) / 3, pc, pa, centre_color, colc, cola, n_iter); enddef; color cola, colb, colc; cola := (0,1,0); colb := (1,0,0); colc := (0,0,1); LinearIntTriangleB((0,0), (50,50*(3**0.5)), (100,0), cola, colb, colc, 10); \stopMPpage ____________________________________________________________ This approach gives ‘good enough’ results for large values of n_iter. However, the size of the generated pdf is somewhat larger than the pgfplots version: for instance, the first version above generates a 5KiB pdf versus 3.8KiB for the pgfplots version, while being somewhat less accurate. Increasing n_iter to 100 gives a result which is (to my not-very-good eyes) very close to the pgfplots version but the pdf size increases to about 20KiB, and takes significantly longer to render using MuPDF. I'd be grateful if someone could point me to a better way to generate such shadings in MetaFun / MetaPost. Cheers, Florent

2 2

Fwd: Touch my cow: Overlaying a picture with links to text
by Hans Hagen 10 Jan '25

10 Jan '25

-------- Forwarded Message -------- Subject: Re: [NTG-context] Touch my cow: Overlaying a picture with links to text Date: Fri, 10 Jan 2025 01:09:47 +0100 From: Hans Hagen <j.hagen(a)xs4all.nl> To: Axel Kielhorn <tex(a)axelkielhorn.de> On 1/9/2025 8:29 PM, Axel Kielhorn wrote: > Hello, > > I’m trying to make our documentation more interactive. > > So far I managed to turn the labels in the picture into links. > > The next step would be to mark certain areas in the picture. > When the reader clicks on these areas, they will follow the link. > > This is where I am so far: > > % !TEX TS-program = ConTeXt (LMTX) > > \setupinteraction[state=start, color=middleblue] > \placebookmarks[section] > > \setupexternalfigures[location=default] > \starttext > > \startMPinclusions > > color mycolor; > > def gridscaled = > pair ur; > ur = urcorner currentpicture; > width := xpart ur; > height := ypart ur; > xstep := ceiling(width / 10); > ystep := ceiling(height / 10); > enddef; > % Bottom: The annotation is at the bottom of the start point > def annotb (expr a, b, c, d) (text t) = > label.bot ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .8mm withcolor white; > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .5mm withcolor mycolor; > enddef ; > % Top: The annotation is on top of the start point > def annott (expr a, b, c, d) (text t) = > label.top ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .8mm withcolor white; > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .5mm withcolor mycolor; > enddef ; > % Right: The annotation is on the right of the start point > def annotr (expr a, b, c, d) (text t) = > label.rt (t, (a * xstep, b * ystep)); > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .8mm withcolor white; > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .5mm withcolor mycolor; > enddef ; > % Left: The annotation is on the left of the start point > def annotl (expr a, b, c, d) (text t) = > label.lft (t, (a * xstep, b * ystep)); > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .8mm withcolor white; > drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) > withpen pencircle scaled .5mm withcolor mycolor; > enddef ; > % touchtolink > def touchtolink (expr a, b) (text t) = > label ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); > enddef ; > \stopMPinclusions > > \startMPpage > % Picture > draw externalfigure "cow.pdf" xsized 16cm; > % Grid > gridscaled; > % Text > annotb (1, 5, .8, 7.3, "\goto{Maul}[Maul]"); > touchtolink (.8, 7.3, "\goto{\blackrule[height=2cm, width=4cm, color=transparentwhite]}[Maul]"); > annotb (6, 2, 7, 3.2, "\goto{Euter}[Euter]"); > annott (9.2, 9.5, 9.6, 3, "Schwanz"); > annotb (3, -.5, 3.1, .9, "\goto{Huf}[Huf]"); > annotb (3, -.5, 3.9, 1.1, ""); > > \stopMPpage > > > \startsection[ > title={Das Maul}, > reference=Maul, > bookmark={Maul}, > ] > Lorem ipsum dolor > \stopsection > > \startsection[ > title={Die Hufe}, > reference=Huf, > bookmark={Huf}, > ] > Lorem ipsum dolor > \stopsection > > \startsection[ > title={Das Euter}, > reference=Euter, > bookmark={Euter}, > ] > Lorem ipsum dolor > \stopsection > > \stoptext > %%%% > > I filled the area with a \blackrule, which is transparent and the link works. > Only problem the frame is filled with the link color, in this case blue. > > How do I suppress the color for this link only? > Adding [color=transparentwhite] to the \goto command didn’t help. > > Is there a more elegant way to define this area? def touchtolink (expr a, b) (text t) = label ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); enddef ; but you forgot to define: \definecolor[transparentwhite][s=1,t=.5,a=1] > Greetings from the snowy pastures of northern Germany > Axel > > > ___________________________________________________________________________________ > If your question is of interest to others as well, please add an entry to the Wiki! > > maillist : ntg-context(a)ntg.nl / https://mailman.ntg.nl/mailman3/lists/ntg-context.ntg.nl > webpage : https://www.pragma-ade.nl / https://context.aanhet.net (mirror) > archive : https://github.com/contextgarden/context > wiki : https://wiki.contextgarden.net > ___________________________________________________________________________________ -- ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

1 0

TeXShop macro to open PDF in thumbnail view
by Bruce Horrocks 10 Jan '25

10 Jan '25

If you are using TeXShop on a Mac, you may have noticed that it has a "View pdf with Preview" macro in the Macros->AppleScript menu. As well as showing full pages, Preview also has the ability to view a PDF as a series of thumbnails which I find useful for seeing the impact of a change across the whole document. Modifying the existing macro to open in thumbnail view is simple if you want to do the same. <https://wiki.contextgarden.net/TeXShop#Viewing_the_PDF_in_Preview_using_thu…> Regards, — Bruce Horrocks Hampshire, UK

1 1

Touch my cow: Overlaying a picture with links to text
by Axel Kielhorn 09 Jan '25

09 Jan '25

Hello, I’m trying to make our documentation more interactive. So far I managed to turn the labels in the picture into links. The next step would be to mark certain areas in the picture. When the reader clicks on these areas, they will follow the link. This is where I am so far: % !TEX TS-program = ConTeXt (LMTX) \setupinteraction[state=start, color=middleblue] \placebookmarks[section] \setupexternalfigures[location=default] \starttext \startMPinclusions color mycolor; def gridscaled = pair ur; ur = urcorner currentpicture; width := xpart ur; height := ypart ur; xstep := ceiling(width / 10); ystep := ceiling(height / 10); enddef; % Bottom: The annotation is at the bottom of the start point def annotb (expr a, b, c, d) (text t) = label.bot ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .8mm withcolor white; drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .5mm withcolor mycolor; enddef ; % Top: The annotation is on top of the start point def annott (expr a, b, c, d) (text t) = label.top ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .8mm withcolor white; drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .5mm withcolor mycolor; enddef ; % Right: The annotation is on the right of the start point def annotr (expr a, b, c, d) (text t) = label.rt (t, (a * xstep, b * ystep)); drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .8mm withcolor white; drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .5mm withcolor mycolor; enddef ; % Left: The annotation is on the left of the start point def annotl (expr a, b, c, d) (text t) = label.lft (t, (a * xstep, b * ystep)); drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .8mm withcolor white; drawarrow (a * xstep, b * ystep) -- ( c * xstep, d * ystep) withpen pencircle scaled .5mm withcolor mycolor; enddef ; % touchtolink def touchtolink (expr a, b) (text t) = label ("\framed[background=color,backgroundcolor=transparentwhite,align=normal,corner=00,frame=no]{" & t &"}", (a * xstep, b * ystep)); enddef ; \stopMPinclusions \startMPpage % Picture draw externalfigure "cow.pdf" xsized 16cm; % Grid gridscaled; % Text annotb (1, 5, .8, 7.3, "\goto{Maul}[Maul]"); touchtolink (.8, 7.3, "\goto{\blackrule[height=2cm, width=4cm, color=transparentwhite]}[Maul]"); annotb (6, 2, 7, 3.2, "\goto{Euter}[Euter]"); annott (9.2, 9.5, 9.6, 3, "Schwanz"); annotb (3, -.5, 3.1, .9, "\goto{Huf}[Huf]"); annotb (3, -.5, 3.9, 1.1, ""); \stopMPpage \startsection[ title={Das Maul}, reference=Maul, bookmark={Maul}, ] Lorem ipsum dolor \stopsection \startsection[ title={Die Hufe}, reference=Huf, bookmark={Huf}, ] Lorem ipsum dolor \stopsection \startsection[ title={Das Euter}, reference=Euter, bookmark={Euter}, ] Lorem ipsum dolor \stopsection \stoptext %%%% I filled the area with a \blackrule, which is transparent and the link works. Only problem the frame is filled with the link color, in this case blue. How do I suppress the color for this link only? Adding [color=transparentwhite] to the \goto command didn’t help. Is there a more elegant way to define this area? Greetings from the snowy pastures of northern Germany Axel

1 0