- ntg-context - Mailing Lists

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

splitted xtable with repeating headers and placetable
by Geert Dobbels 05 Apr '20

05 Apr '20

Hello, Code below shows some behaviour I cannot explain (csv file attached): - If I run the code below as is, I get what I want, except that the header line of the table does not repeat at the top of each page. - Changing "split=yes" to "split=repeat" in the setupxtable gives me repeating headers, but the table starts at the second page, leaving the first page with only the text line and all the rest as blank spaces. - Placing the table in a float by activating the 3 commented lines gives me an error ("extra } or forgotten endgroup") pointing to the external figure in my page header overlay. Replacing the \placefigure..... in the page header by ordinary text makes the error go away, but is no solution, since I need the company logo picture there, and even then with no error, the headers do not repeat. - With the table in a float, I manage to get repeating headers when I change to "split=yes" and "headers=repeat" in the \setupxtable, but I still get the abovementioned error as soon as I want to put my figure back in the page header...... Any suggestions ? Geert \usemodule[handlecsv] \opencsvfile{systaprov2.csv} \setuppapersize[A4, landscape] \setuplayout[location=middle, width=27.5cm, height=18cm, backspace=1cm,header=4cm] \setuppagenumbering[state=stop] \setupcaptions[location=none] \setupbackgrounds[header][text][background={Logos}, state=repeat] \setupnumbering [location=] \setupframed[offset=none] \defineoverlay [Logos][{ \framed[width=\textwidth, height=3cm, align=right, strut=no, offset=none, frame=on, frameoffset=0.1cm, corner=round, radius=0.15cm, framecolor=darkgray, background=color, backgroundcolor=gray, framecorner=round, frameradius=0.15cm, rulethickness=0.05cm]{ \framed[width=0.280\textwidth, height=3cm, align=right, frame=off] {\placefigure[force][]{none}{\externalfigure[somepic.png][height=1.9cm]} } \framed[width=0.430\textwidth, height=3cm, align=middle, frame=off] {\crlf\tfa \crlf \bf Technical Report} \framed[width=0.370\textwidth, height=3cm, align=middle, frame=off] {\tfx \crlf Annex T.2.3. \crlf \tfx Date of issue: \crlf \currentdate \crlf page \pagenumber of \lastpage} } }] %\setupfloat[table][default={force,split}] \setupxtable[offset=0cm, frame=off, bottomframe=on, framecolor=gray, option=stretch, split=yes, header=repeat, align=middle] \setupxtable[head][background=color, backgroundcolor=gray, topframe=on, bottomframe=on, framecolor=black, foregroundcolor=blue] \setupxtable[left][align=right] \starttext Some lines of text. This text must come just before the table, but only on the first page of the table \startbuffer[loop] \startxrow \startxcell[left] \cA \stopxcell \startxcell[left] \cB \stopxcell \startxcell[left] \cC \stopxcell \startxcell[left] \cD \stopxcell \startxcell \cE \stopxcell \startxcell[left] \cF \stopxcell \startxcell \cG \stopxcell \startxcell \cH \stopxcell \doifdefined{cI}{\startxcell \cI \stopxcell} \doifdefined{cJ}{\startxcell \cJ \stopxcell} \doifdefined{cK}{\startxcell [left] \cK \stopxcell} \stopxrow \stopbuffer %\startplacetable[] \startxtable \startxtablehead[head] \doloopif{\lineno}{<}{2}{\getbuffer[loop]} \stopxtablehead \startxtablebody \doloopif{\lineno}{>}{1}{\getbuffer[loop]} \stopxtablebody \stopxtable %\stopplacetable \stoptext

3 4

Fontfallbacks using typescripts
by Tim Steenvoorden 04 Apr '20

04 Apr '20

Hi all, I’d like to use Lucida (Type1) as my main font for text and math, but fallback on arrows from Pagella. Especially, I’d like to use the `\downzigzagarrow` which is not defined by Lucida. Although direct lookup of the zigzag symbol in Pagella works, below typescripts do not seem to work. Can somebody give me a hint? Cheers, Tim \startproduct test \definefontfallback[pagellaarrows][texgyrepagella-math][arrows][check=yes,force=yes] \definefontfallback[pagellaarrows][texgyrepagella-math][0x021AF][check=yes,force=yes] \starttypescript[math][main] \loadfontgoodies[lucida-typeone-math] \definefontsynonym[MathRoman][lucidamath@lucida-math][fallbacks=pagellaarrows] \stoptypescript \starttypescript [main] \definetypeface [main] [rm] [serif] [lucida] [default] [features=default] \definetypeface [main] [ss] [sans] [lucida] [default] [features=default] \definetypeface [main] [tt] [mono] [lucida] [default] [features=none] \definetypeface [main] [hw] [handwriting] [lucida] [default] [features=default] \definetypeface [main] [cg] [calligraphy] [lucida] [default] [features=default] \definetypeface [main] [mm] [math] [main] [default]%[fallbacks=pagellaarrows] \stoptypescript \setupbodyfont[main,9pt] $\downzigzagarrow,↯,\downarrow$ {\switchtobodyfont[pagella,10pt]↯} \stopproduct

1 0

Compile a file embedding modules with the lmtx engine
by Fabrice Couvreur 03 Apr '20

03 Apr '20

Hi, I'm sorry but I didn't necessarily follow all the threads. I use to make my graphics Metapost or Metafun, but I also sometimes use TiKz. This file compiles with context but not with lmtx because the modules are not recognized. I am willing to use only lmtx which seems to be the future of ConteXt, but how do I do that ? Thank you. Fabrice \usemodule[tikz] \usetikzlibrary[calc] \starttext \startlinecorrection[blank] \startmidaligned \starttikzpicture \draw[fill=orange!30e,draw=orange] (0,0) rectangle (5,5); \stoptikzpicture \stopmidaligned \stoplinecorrection \stoptext

3 7

xtable headers and handlecsv loop
by Geert Dobbels 03 Apr '20

03 Apr '20

Hello, The sample below has 2 problems I cannot find the solution for: I am reading a table from a CSV file and want to typeset it via \xtable. The xtable as defined below works, it splits over several pages, but the header does not repeat. I have seen examples in the mailing list where people put the "\startxtable.....\stopxtable" within a \placefigure, but as soon as I try this, I get an error message: "missing } or endgroup", although I doublechecked the "}" and I see no error. The other issue I have: Since xtable requires me to read the header line separately in order to put it between \startxtablehead and \stopxtablehead, I access the csv buffer twice: the first time, I only read the first line, and the second time, I read starting from the second line. My problem here is that I do not know beforehand the number of lines in the csv file. So in my second \doloopfromto I give the second argument a number high enough to be sure it reads all the lines. It works fine, but I would like to know if there is a way to read the number of lines in the csv file to use the exact number of lines, instead of guessing. \usemodule[handlecsv] \opencsvfile{systaprov2.csv} \starttext \startbuffer[loop] \startxrow \startxcell[left] \cA \stopxcell \startxcell[left] \cB \stopxcell \startxcell[left] \cC \stopxcell \startxcell[left] \cD \stopxcell \startxcell \cE \stopxcell \startxcell[left] \cF \stopxcell \startxcell \cG \stopxcell \startxcell \cH \stopxcell \doifdefined{cI}{\startxcell \cI \stopxcell} \doifdefined{cJ}{\startxcell \cJ \stopxcell} \doifdefined{cK}{\startxcell [left] \cK \stopxcell} \stopxrow \stopbuffer \setupxtable[offset=0cm, frame=off, bottomframe=on, framecolor=gray, option=stretch, align=middle] \setupxtable[head][background=color, backgroundcolor=gray, topframe=on, bottomframe=on, framecolor=black, foregroundcolor=blue] \setupxtable[left][align=right] \startxtable[header=repeat] \startxtablehead[head] \doloopfromto{1}{1}{\getbuffer[loop]} \stopxtablehead \startxtablebody \doloopfromto{2}{500}{\getbuffer[loop]} \stopxtablebody \stopxtable \stoptext

3 6

\placenamedfloat and \setuphead[aftersection=...] broken?
by Benjamin Buchmuller 03 Apr '20

03 Apr '20

Potentially on the same lines, placing delayed element seems currently not to work properly (or the syntax has changed?). I think these features of MkIV are very elegant and useful. I’m just wondering if they are/were temporarily not working (tried on 2019.12.27 16:34 MKIV beta and the Wiki’s ConTeXt online) or have been disabled/changed for some reason? Thanks! Benjamin (1) palcenamedfloat --------------- This is the example from the Wiki: \starttext test \placefigure[somewhere:alpha][whatever]{alpha}{} test \placefigure[somewhere:beta] [whatever]{beta}{} test \placefigure[somewhere:gamma][whatever]{gamma}{} test \placefigure[somewhere:delta][whatever]{delta}{} test \placefigure{}{} in \in{figure}[whatever] bla bla \placenamedfloat[figure][*l*] \placenamedfloat[figure][gamma] \placenamedfloat[figure][beta] \stoptext (2) Footnotes at the end of each chapter ------------------------------------ Also an example from the Wiki: \startsetups chapter:after \ifcase\rawcountervalue[footnote]\relax \or \startsubject[title=Footnote] \placefootnotes \stopsubject \else \startsubject[title=Footnotes] \placefootnotes \stopsubject \fi \stopsetups \setupnotes[location=none] \setupnotation[way=bychapter] \setuphead[chapter][aftersection=\setups{chapter:after}]

2 2

Re: [NTG-context] \setupinteraction[style=...] supersedes manual text style for \note
by Pablo Rodriguez 02 Apr '20

02 Apr '20

On 4/2/20 12:30 PM, Benjamin Buchmuller wrote: > Hi Pablo, > > thanks, this works. :) I will see if I can add this information in > the wiki at some point. > > Is there any way to figure out which styles are inherited or taken > from which setup in general? Hi Benjamin, maybe a superuser from the list knows that, but I’m afraid I only know by trial and error 😅. Pablo PS: I see that your reply to me was also carbon-copied to the mailing list, but it seems it hasn’t reached it yet. -- http://www.ousia.tk

1 0

Lua/TeX/METAPOST/textext string issue/puzzle
by Gerben Wierda 02 Apr '20

02 Apr '20

I have lua code that generates this for METAPOST: ApplicationComponentLogo( w, h, "withcolor (0.686,1.000,1.000) withtransparency (1,0.200)", "withcolor (0.000,0.000,0.000) withtransparency (1,1.000) withpen pencircle scaled 1.000", "\{Hello\}, "&ditto&"(a)"&ditto&" [World]!") shifted (x, -y); draw pic; The string to be typeset, eventually is this: {Hello}, "(a)" [World]! So, with double quotes in the string. The function creating the actual string to pass to METAPOST (above) is this: local function mpLabelString( xmlLabelString) -- Returns a string where each " is replaced by a METAPOST compatible result, except for outer double quotes" rep = { [1] = { "\"", "\"&ditto&\"" }, } local tmpString = string.formatters( "%!tex!", xmlLabelString) return lpeg.replacer(rep):match(tmpString) end That works. Then, in METAPOST the vardef ‘ApplicationComponentLogo’ calls a vardef makeTeXLabel draw makeTeXLabel( w, h, name) shifted (w/2,0); which, for now, simplified does this: vardef makeTeXLabel( expr w, h, name) = save p; picture p ; save s; string s; s := "\framed{" & name & "}”; % s := "\type-" & name & "-"; p := textext( s); p enddef; But, this is what is in string s before it is sent to textext(): \framed {{Hello}, "(a)" [World]!} In other words, the escapes on the curly braces are lost and now the curly braces are ignored by TeX. I tried adding a doubling of the backslahes to the replacement: rep = { [1] = { "\"", "\"&ditto&\"" }, [2] = { "\\", "\\\\" }, } But then the string that is typeset (and given to textext()) becomes \framed {\\{Hello\\}, "(a)" [World]!} And the result in the output is the same. No curly braces. My route is probably to complex anyway, but what can I do for the curly braces to be actually typeset? G

2 2