April 2020 - ntg-context - NTG Mailing Lists

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

What was that 'rounding paths' metafun(?) function again?
by Gerben Wierda 05 Apr '20

05 Apr '20

I think I saw a function in MetaFun somehwre that you could give a ‘hard’ path, i.e. (0,0) -- (0,1) — (1,1) and it would become a path with nicely rounded (part of a circle) corners (still straight lines), but I can’t find it anymore. I wrote my own, but it is giving me headaches so I’d like to find something that is better than what I produce. G

3 4

Minimum example of problem getting curly braces printed in METAPOST
by Gerben Wierda 05 Apr '20

05 Apr '20

Here is a minimum example of a problem that I have in getting curly braces printed in METAPOST in code that is generated by lua. Any help is welcome. \usemodule[scite] \setupxml [entities=yes] \startluacode function warn( ... ) texio.write_nl("-----> " .. string.format(...)) end local function mpLabelString( xmlLabelString) -- Returns a string where each " is replaced by a METAPOST compatible result, except for outer double quotes" rep = { [1] = { "\"", "\"&ditto&\"" }, -- DOESN'T WORK: [2] = { "\\", "\\\\" }, } local tmpString = string.formatters( "%!tex!", xmlLabelString) warn( "STRING.FORMAT XML \"%s\"", xmlLabelString) warn( "STRING.FORMAT TeX-ed \"%s\"", tmpString) warn( "STRING.FORMAT Replaced \"%s\"", lpeg.replacer(rep):match(tmpString)) return lpeg.replacer(rep):match(tmpString) end function warnAndConTeXt( ...) warn( ...) context( ...) end function moduledata.test( filename) local labelString context( "The string to typeset is:\\par\\type-{Label} \"a\" [Text]!-") context( "\\par The attempts are:") context( "\\par1. \\type-Label Text-") context( "\\par2. \\type-Label [Text]!-") context( "\\par3. \\type-Label \"a\" [Text]!-") context( "\\par4. \\type-{Label} [Text]!-") context( "\\par5. \\type-{Label} \"a\" [Text]!-") context.startMPpage { instance = "doublefun" } context( "picture pic;") labelString = "1. Label Text OK" warnAndConTeXt( "pic := Foo( 0, 0, 150, 50, \"%s\");", mpLabelString( labelString)) labelString = "2. Label [Text]! OK" warnAndConTeXt( "pic := Foo( 0, -75, 150, 50, \"%s\");", mpLabelString( labelString)) labelString = "3. Label \"a\" [Text]! OK" warnAndConTeXt( "pic := Foo( 0, -150, 150, 50, \"%s\");", mpLabelString( labelString)) labelString = "4. {Label} [Text]! MISSING curly braces" warnAndConTeXt( "pic := Foo( 0, -225, 150, 50, \"%s\");", mpLabelString( labelString)) labelString = "5. {Label} \"a\" [Text]! MISSING curly braces" warnAndConTeXt( "pic := Foo( 0, -300, 150, 50, \"%s\");", mpLabelString( labelString)) context( "drawdot (0,0) withpen pencircle scaled 4 withcolor red;") context.stopMPpage() end \stopluacode \usemodule[article-basic] %\enabletrackers[metapost.tracingall,metapost.lua,metapost.runs,metapost.textexts,metapost.scrintersectionPoints,metapost.runs,metapost.graphics,metapost.terminal] \starttext \definefontfamily[mainface][rm][Optima] \setupbodyfont[mainface,10pt] \startMPinclusions[+]{doublefun} \stopMPinclusions \startMPdefinitions{doublefun} vardef makeTeXLabel( expr w, h, name) = show "NAME makeTeXLabel:", name; save p; picture p ; save s; string s; s := "\framed{" & name & "}"; % Curly braces will be missing. I need this to work. % s := "\type-" & name & "-"; % Curly braces are displayed, but this must become a vbox in the end, so can't use it show "SCAN:", s; p := textext( s); p enddef; vardef Foo( expr xpos, ypos, width, height, str) = show "NAME Foo:", str; % Backslashes are already gone here save pic; picture pic; pic := makeTeXLabel( width, height, str) shifted (xpos, ypos); draw pic; pic enddef; \stopMPdefinitions \ctxlua{moduledata.test("My ArchiMate Model Export BES.xml")} \typefile[option=TEX]{test11.tex} \stoptext The question is: how can I get this to work? The strings that have to be printed inside the METAPOST picture come from an XML and can contain about anything. But in the end that string will have to be vertically typeset as a paragraph, hence I cannot use \type (which works).

2 2