April 2020 - ntg-context - NTG Mailing Lists

Why does this example from the MetaFun manual not work?
by Gerben Wierda 09 Apr '20

09 Apr '20

I would like to use the result of transparent() straight in my macros, so I can pass the colors with transparency using a single parameter. That should be possible if I understand the MetaFun manual (where I’ve copy-pasted this example from): \starttext \startMPpage[instance=doublefun] vardef SampleText (expr t, c) = save p ; picture p ; p := image (draw t infont "\truefontname{Regular}") ; draw (p shifted (- xpart center p,0)) scaled 5 withcolor c; enddef ; SampleText ("Much Of This" , transparent(1, .5, red )) ; SampleText ("Functionality" , transparent(1, .5, green)) ; SampleText ("Was Written" , transparent(1, .5, blue )) ; SampleText ("While Listening", transparent(1, .5, cmyk(1,0,0,0))) ; SampleText ("To the CD's Of" , transparent(1, .5, cmyk(0,1,0,0))) ; SampleText ("Tori Amos" , transparent(1, .5, cmyk(0,0,1,0))) ; \stopMPpage \stoptext But it results in: system > files > jobname 'testcolor', input './testcolor', result 'testcolor' fonts > latin modern fonts are not preloaded languages > language 'en' is active open source > level 2, order 3, name './testcolor.tex' fonts > preloading latin modern fonts (second stage) fonts > 'fallback modern-designsize rm 12pt' is loaded metapost > initializing instance 'doublefun:1' using format 'metafun' and method 'double' metapost > loading 'metafun' as '/usr/local/context-osx-64/tex/texmf-context/metapost/context/base/mpiv/metafun.mpxl' using method 'double' metapost > initializing number mode 'double' metapost log > metapost log > loading metafun, including plain.mp version 1.004 for metafun iv and xl metapost log > metapost log > ! Missing ')' has been inserted. metapost log > <to be read again> metapost log > withprescript metapost log > transparent->(1)withprescript metapost log > "tr_alternative="&decimal.transparency_alternat... metapost log > <*> ... ("Much Of This" , transparent(1, .5, red ) metapost log > ) ; SampleText ("Functiona... metapost log > backend > xmp > using file '/usr/local/context-osx-64/tex/texmf-context/tex/context/base/mkiv/lpdf-pdx.xml' pages > flushing realpage 1, userpage 1, subpage 1 close source > level 2, order 3, name './testcolor.tex' close source > level 1, order 3, name 'cont-yes.mkiv' For me, it is not about passing colour on to ConTeXt to typeset text, these are colors that normally would be drawn with “withcolor ca withtransparency (method,factor)” but that requires the passing of many more parameters and a lot more work in coding. Does transparent() maybe produce a string that looks like “ca withtransparency (method,factor)” so something only usable in draw/fill/etc statements? But in that case how does that work without scantokens to parse the string? Is there a way I can do this without having twice the parameters (and I have to pass multiple colours) in my macros everywhere? Thanks, G

4 6

Short weekday option for date command
by Adam Reviczky 08 Apr '20

08 Apr '20

Hi, Is there a way to achieve a short weekday option with \date[] to get 3 letter equivalents (Mon, Tue, Wed, Thu, Fri, Sat, Sun) similar to the monthshort either through context or lua? Thanks, Adam

3 4

Background color of a framedtext that covers floats
by Fabrice Couvreur 08 Apr '20

08 Apr '20

Hi, Is there a more elegant way to have a white background for the table ? In fact, my question is more general : if we insert an image, the background color envelops this image : how to solve this problem ? Thank you. Fabrice \definecolor[fondpaille][c=0,m=0,y=0.2,k=0] \starttext \startframedtext [frame=off,width=\textwidth, background=color,backgroundcolor=fondpaille] \input tufte \startlinecorrection[blank] \startmidaligned \startxtable [align={lohi,middle}, option={stretch},framecolor=cyan, offset=0.8ex,background=color,backgroundcolor=white] \startxrow \startxcell \bf Profondeur \m{x} (en mètre) \stopxcell \startxcell \bf Pression \m{P} (en bar) \stopxcell \startxcell \bf Volume \m{V} (en \m{\text{dm}^{3}}) \stopxcell \stopxrow \startxrow \startxcell 0 (niveau de la mer) \stopxcell \startxcell 1 \stopxcell \startxcell 1 \stopxcell \stopxrow \startxrow \startxcell 10 \stopxcell \startxcell 2 \stopxcell \startxcell 0,5 \stopxcell \stopxrow \stopxtable \stopmidaligned \stoplinecorrection \stopframedtext \stoptext

2 3

Fwd: Using Lua files in project structure
by Jairo A. del Rio 06 Apr '20

06 Apr '20

---------- Forwarded message --------- De: Jairo A. del Rio <jairoadelrio6(a)gmail.com> Date: lun., 6 de abr. de 2020 a la(s) 08:58 Subject: Re: [NTG-context] Using Lua files in project structure To: Wolfgang Schuster <wolfgang.schuster.lists(a)gmail.com> Well, I'll be more specific. I attach a zip file showing a minimal example of what I achieved so far and its output (labelled "Works") and what I actually want, but does not work (labelled "Doesnotwork"). I've tried different commands and combinations, all of them useless. As a side note, I'm porting some TikZ functions. Although it is not recommended in ConTeXt, some of them are really necessary to me. El dom., 5 de abr. de 2020 a la(s) 11:05, Wolfgang Schuster ( wolfgang.schuster.lists(a)gmail.com) escribió: > Jairo A. del Rio schrieb am 05.04.2020 um 17:49: > > None of them work. Maybe I'm doing something wrong. > > I guess so because > > \loadluafile[testh.lua] > > and > > \luaenvironment testh.lua > > work for me. > > Wolfgang >

2 2

Re: [NTG-context] Using Lua files in project structure
by Wolfgang Schuster 06 Apr '20

06 Apr '20

Jairo A. del Rio schrieb am 06.04.2020 um 15:58: > Well, I'll be more specific. I attach a zip file showing a minimal > example of what I achieved so far and its output (labelled "Works") and > what I actually want, but does not work (labelled "Doesnotwork"). I've > tried different commands and combinations, all of them useless. As a > side note, I'm porting some TikZ functions. Although it is not > recommended in ConTeXt, some of them are really necessary to me. You use dofile(...) in your environment and Lua files but this doesn't work when you load files which aren't in the current directory or in your TeX installation. Wolfgang

1 0

startMPpage..stopMPpage written to a separate PDF?
by Gerben Wierda 06 Apr '20

06 Apr '20

I have a series of startMPpage—stopMPpage pairs (with MP code inbetween). These now become separate pages in a single PDF. But I need them to become separate PDF’s each during my ConTeXt run, with a name of my own choosing. Is this possible? I guess this will be problematic, but one can hope (maybe some very low level TeX trickery)... Thanks, G

4 4

Trying to understand this ctxlua error
by Gerben Wierda 06 Apr '20

06 Apr '20

I got this error after I had changed some lua code: tex error > tex error on line 272 in file archimate-lua.new: ! Undefined control sequence warnIfVerbose( "Breaking off the processing of node %s\nNo l...eak xsi:type", node) \luat_start_lua_code_indeed ...ormalexpanded {\endgroup \noexpand \directlua {#1 }} l.272 \stopluacode <empty file> The control sequence at the end of the top line of your error message was never \def'ed. You can just continue as I'll forget about whatever was undefined. I have been looking at that code for over two hours, not seeing anything wrong with it. But I’ve now finally found the culprit and I still do not get it. The culprit was: warnIfVerbose( "Breaking off the processing of %s\n No elementRef", node) The problem goes away when I use: warnIfVerbose( "Breaking off the processing of %s\nNo elementRef", node) (I don’t want the line after the node is printed to begin with a space). But the lack of space between \n and N kills lua (apparently). For completeness (as string.format and texio.write_nl are also in play): function warnWithLabelIfVerbose( str, ... ) if verboseProgram then texio.write_nl( str .. string.format(...)) end end function warnIfVerbose( ... ) warnWithLabelIfVerbose("-----> ", ...) end Is this a lua bug? A ConTeXt bug? Expected behaviour? And if so, why is reported that on line 272 (where \stopluacode is) is the error? Or is the error message indeed helpful and do I just lack the know how to interpret it? G (Took me three hours, this one. Just removing that space that happened with some other changes was the culprit. Totally unexpected for me.)

2 2

Using Lua files in project structure
by Jairo A. del Rio 05 Apr '20

05 Apr '20

I'm writing a project in ConTeXt MKIV and I want to load some (pure) Lua libraries and bindings (defining \ctxlua and the like). For instance, I have the file foo.lua with some macros and I want to use them in my project. Something like this: \startproject project %\component foo.lua %This does not work %\environment foo.lua %This does not work %\input foo.lua %This does not work %\directlua{dofile("foo.lua")} %This does not work even when the project file and foo.lua are in the same folder. \stopproject What should I do? Thank you in advance.

5 6

Bounding box of picture returned by textext() in METAPOST
by Gerben Wierda 05 Apr '20

05 Apr '20

I have this METAPOST macro: vardef makeTeXLabel( expr w, h, name) = if debugProgram or debugLabels: show "NAME makeTeXLabel:", name, tostring 0.8w, tostring 0.8h; fi save p; picture p; p := textext( "\startframedtext[middle]" & "[align=middle,frame=on" & ",width=" & tostring 0.8w & "bp" & ",height=" & tostring 0.8h & "bp]" & name & "\stopframedtext"); save b; path b; b := boundingbox p; save dim; pair dim; dim := (urcorner b) - (llcorner b); save width, height; numeric width, height; width := xpart dim; height = ypart dim; if debugLabels: show "PLACE:", w, h, width, height; fi if (width > 0.8w) or (height > 0.8h): if (width > height): if debugLabels: show "XSCALING:", (0.8w/width,0.8w/width); fi p:= p xyscaled (0.8w/width,0.8w/width); else: if debugLabels: show "YSCALING:", (0.8h/height,0.8h/height); fi p:= p xyscaled (0.8h/height,0.8h/height); fi fi p enddef; It gets called with w=133 and h=53 (I am working in METAPOST native units, so bp) So, the textext() command gets something like 106bp x 42bp, which seems to be the case: metapost log > >> "NAME makeTeXLabel:" metapost log > >> "My 'Application' Function" metapost log > >> "106.40000000000001" cld > tex > w : - : \MPLIBsetNtextX{1}{\startframedtext [middle][align=middle,frame=on,width=106.40000000000001bp,height=42.400000000000006bp]My 'Application' Function\stopframedtext } cld > tex > F : - : \startblankhandling cld > tex > w : - : \setblankcategory{6} cld > tex > F : - : \flushblankhandling cld > tex > F : - : \stopblankhandling metapost log > >> "42.400000000000006" metapost log > >> "PLACE:" metapost log > >> 133 metapost log > >> 53 metapost log > >> 511.08659908200002 metapost log > >> 42.399990514000002 But the bounding box is 511bp wide (something like 7in or 18cm, probably textwidth) but I’m asking for a box that is 106bp wide. What happens here? And how do I get it right? G

1 1

Is there a robust way to find the first (or last intersection) of path p with path q?
by Gerben Wierda 05 Apr '20

05 Apr '20

Intersecting path p and q will give you more or less randomly (actually, there is an algorithm, but not a very useful one for METAPOST) an intersection (time on p, time on q) I am trying to find out if anybody as already created a macro that gives you the intersection with the smallest (or largest) time on p. Probably requires finding all the intersections and then returning either the point on p with minimum (or maximum) t. Before writing myself, maybe someone already has this, in which case thanks in advance. G

1 0