January 2025 - ntg-context - NTG Mailing Lists

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 10 Jan '25

10 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 09 Jan '25

09 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

Yet Another itemize question
by Jim 08 Jan '25

08 Jan '25

Hi everyone, I am using the following sort of structure: Latest news: \startitemize[distance=7.5em,leftmargindistance=2em,] \sym {Bob Loblaw} blah blah blah \sym {Sally Smithers} yada yada yada \stopitemize However, I wanted to achieve a "packed" list, so I tried Latest news: \startitemize[packed,distance=7.5em,leftmargindistance=2em,] \sym {Bob Loblaw} blah blah blah \sym {Sally Smithers} yada yada yada \stopitemize and, as you can see if you try it, the "packed" is completely ignored. I discovered that using either the distance= or the leftmargindistance= parameters "cancels" the "packed". I looked at the documentation I could (relatively easily) find, and I have not discovered either (1) why distance and leftmargindistance "cancel" packed, nor (2) how to uncancel this cancellation. I can work around this in a number of ways (including setting \setupitemize[1][width=<some suitable amount>] ) but I'd prefer to avoid kludgy work-arounds if at all possible. Can anyone tell me The Right Way to do this? Thanks. Jim

2 2

You can't use '\prevdepth' in restricted horizontal mode
by Jeong Dal 08 Jan '25

08 Jan '25

Dear all, I got the error "You can't use '\prevdepth' in restricted horizontal mode” when I compile the following code. If I remove “\starttabulete… \stoptabulate”, then no errors, but the out put is not the form of table. How can I fix this error? Thank you. Best regards, Dalyoung \starttext \startluacode function makeHead(a) local n = #a context.HL() for i = 1, n do context.NC() context(a[i]) end context.NC()context.AR() context.HL() end \stopluacode %\starttabulate[|mcw(1cm)|mcw(1cm)|mcw(1cm)|mcw(1cm)|] \startluacode local a = {"x","y","z","(x\\to y)"} makeHead(a) \stopluacode %\stoptabulate \stoptext

5 14