- ntg-context - Mailing Lists

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

09 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

regular online meet-up
by Henning Hraban Ramm 08 Jan '25

08 Jan '25

You’re invited to this year’s first regular online meet-up, this upcoming Wednesday, January 8th, 19:00 CET (UTC+1) at https://lecture.senfcall.de/hen-rbr-rku-oke (same, but shorter: https://u.mtxrun.eu/ctxmtg) ConTeXt users of all levels are welcome! Looking forward to seeing you, Hraban (I’m really looking forward to check out the new column features, but at the moment I’m in songbook mode – I’m helping my former scouts-like youth association to make a new songbook instead of still singing from the booklets I made ~30 years ago.) (Same blurb as always:) [Howto] * No special software installation required; most modern browsers should work (WebRTC required). * Open the URL above, accept the privacy statement, * enter your name, * click "join" (or "start" if you’re the first), * click "with microphone", allow your browser to access it, check the audio. * Your microphone is muted if you join. Activate microphone and/or camera with the buttons at the bottom. * Minimize the default presentation with the "screen" button, bottom right. * If you’d like to share your screen or upload a file, you can make yourself the presenter: Click on your user name, change the setting, then you’ll see the "screen sharing" button beside the camera button; also there’s now "manage presentations" behind the "plus" button. Beware there is only one presenter at a time, so don’t kill someone else’s presentation. [Technical hints] * Sound is usually better if you use a headset (less noise for everyone). * Connection problems are mostly due to low bandwidth or high latency on your side, e.g. with mobile connections. * Sometimes leaving and re-entering helps. * If audio/video doesn’t work for you, you can still use the text chat. * Screen sharing needs a lot of bandwidth. * BigBlueButton documentation applies: https://bigbluebutton.org/teachers/tutorials/ [Netiquette] * Please use a name that we recognize from here. Some feel uncomfortable with anonymous lurkers. * Mute your microphone while you’re not talking. * It’s nice to show your face at least when you join. * If there are connection problems, stop camera sharing. * The room is set to “everyone’s a moderator“, I trust you...

1 1

The newest ConTeXt but with Lua 5.4?
by LPr Pontex 07 Jan '25

07 Jan '25

Hello community, I'm looking for someone with the newest ConTeXt installed: - with ConTeXt which still uses Lua 5.4 - should not originate after 24.1.2024 - that's the time of the latest ConTeXt-with-Lua-5.4 was released, (newer, including the newest/beta ConTeXt versions use Lua 5.5 which is under developpement) - 32b platform, Windows. I need this due to some 3rd party library dependencies. I also downloaded the whole ConTeXt (and LuaMetaTeX and so) sources from the desired date but I'm not able to build them... You can write me to the (private) LPr.pontex(a)gmail.com to prevent polluting this mailing list. If I find someone, I'd like to get his ConTeXt installation tree via temporary cloud upload... Thank you! Best regards, Lukas

1 0

VIM typing vs. Context environments
by Ryszard Kubiak 07 Jan '25

07 Jan '25

Hi, I don't know whether the audience of this mailing list can help me with a problem concerning the VIM module or I should personally ask Aditya for help. The problem is that when I define an environment based on VIM's mechanisms and use this environment surrounded with ConTeXt's narrowing commands then these commands are ignored. You can see this effect in the PDF obtained by contexting the script given below. Best Regards Ryszard \setupbodyfont[12pt] \setuppagenumbering[state=stop] \parindent=0pt\parskip=2ex \usemodule[vim] \definevimtyping[PY][syntax=python, before={\bgroup\switchtobodyfont[9pt]}, after={\egroup}] \starttext Text before a narrowed block. \startnarrower[left] Text starting a narrowed block. \startPY #: The bonds file is absolutely vital for Fontplant to work. That's why we #: define a function to verify its existence on disk. \stopPY Text finishing a narrowed block. \stopnarrower Text after a narrowed block. \stoptext

2 2