- ntg-context - Mailing Lists

\autodirhbox doesn’t work in \framed
by Wolfgang Schuster 24 Sep '18

24 Sep '18

Hi, for another thread in the normal list I tried to show how you can use the \itemtag command with natural tables but the result was that no item counter appeared in the PDF. \starttext \startitemize[n] \bTABLE \bTR \bTD (\itemtag) Item 1 \eTD \eTR \eTABLE \stopitemize \stoptext The reason for this is the \autodirhbox command – which is used to store the item symbol – produces only a empty space when you use it with \framed. \starttext \hbox{Text?} \autodirhbox{Text?} \framed{\autodirhbox{Text?}} \framed[align=right,width=4cm]{\autodirhbox{Text?}} \stoptext Wolfgang

2 1

issue with interaction
by Pablo Rodriguez 24 Sep '18

24 Sep '18

Hans, I have the following sample (sorry, but I’m afraid I don’t know how to write a lopp here): \setupinteraction[state=start] \setupcomment[location=inmargin] \showframe \starttext This is a sample comment. \startcomment Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Comment] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Help] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Insert] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Key] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Newparagraph] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Paragraph] Just a comment \stopcomment This is a sample comment. \startcomment[symbol=Note] Just a comment \stopcomment \stoptext The /Rect entries are the following: /Rect [ 52.939237 702.3845 58.913537 708.3588 ] /Rect [ 9.183458 687.714 58.913537 696.3768 ] /Rect [ 35.19556 671.22738 58.913537 681.8377 ] /Rect [ 29.281004 659.0063 58.913537 667.2867 ] /Rect [ 38.44558 642.2687 58.913537 652.8671 ] /Rect [ -15.526249 627.83718 58.913537 638.579 ] /Rect [ 5.754209 613.4176 58.913537 624.15939 ] /Rect [ 34.538389 601.328 58.913537 609.6084 ] I don’t know how the lower-left x coordinate is calculated, but I think it should be the same for all annotation types. If location is in margin, the lower-left x coordinate should be around 35 user units. I have checked it with Acrobat Reader, evince, mupdf-gl, SumatraPDF and PDF.js (within Firefox). I think it makes sense to unify the lower-left x coordinate for this kind of annotation when located in margin. Many thanks for your help, Pablo -- http://www.ousia.tk

1 0

interaction
by Hans Hagen 24 Sep '18

24 Sep '18

Hi, At the recent meeting Tomas Hala triggered a discussion about interaction and as a side effect I promissed to update the 'widgets' manual (mkii) which now will be 'interactions' (mkiv). In the process I'll check and clean up some of the code so if there are issues / wishes ... the usual struggle with making different viewers happy. (Or course Tomas is going to check everything discussed.) Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

4 7

Reminder: wiki maintenance
by Taco Hoekwater 24 Sep '18

24 Sep '18

Hi all, Let me remind you that the wiki and various other ConTeXt related sites will be down some time this afternoon (my local time, GMT+1) for server maintenance. Best wishes, Taco

2 1

Metafun: Finding intersection between characters
by Henri Menke 22 Sep '18

22 Sep '18

Dear list, Challanged by a very old TeX.SX question https://tex.stackexchange.com/questions/180510 I wanted to calculate all the intersection points between two characters. Therefore I ripped off the \showshape macro to load the outlines from the font and convert them to MetaPost paths. Then I try to find all intersections by cutting the path. It somewhat works but for some reason, in the MWE below two intersection points are missing. I also have the feeling that my implementation is extremely inefficient. I would very much appreciate some hints by the MetaPost experts! Cheers, Henri --- \startluacode -- That's a simple reimplemetation of the showshape macro function outlinepaths(character) local fontid = font.current() local shapedata = fonts.hashes.shapes[fontid] -- by index local chardata = fonts.hashes.characters[fontid] -- by unicode local shapeglyphs = shapedata.glyphs or { } character = utf.byte(character) local c = chardata[character] if c then if not c.index then return {} end local glyph = shapeglyphs[c.index] if glyph and (glyph.segments or glyph.sequence) then local units = shapedata.units or 1000 local factor = 100/units local paths = fonts.metapost.paths(glyph,factor) return paths end end end \stopluacode \def\mpdefineoutlines#1#2{\ctxlua{ local char = "\luaescapestring{#1}" local outlines = outlinepaths("#2") local len = \letterhash outlines tex.print("path " .. char .. "[];") tex.print(char .. "n := " .. len .. ";") for i, path in ipairs(outlines) do tex.print(char .. "[" .. i .. "] := " .. path .. ";") end }} \starttext \startMPpage pair shift; shift := (1cm,-1cm); numeric angle; angle := 5; \mpdefineoutlines{B}{B} \mpdefineoutlines{T}{T} nofill B2; nofill B3; eofill B1 withcolor .5[blue,white]; fill T1 shifted (shift) rotated (angle) withcolor .5[red,white]; path r; numeric n; n := 0; for i = 1 upto Bn: for j = 1 upto Tn: r := B[i]; forever: pair q; r := r cutbefore (T[j] shifted (shift) rotated (angle)); exitif length cuttings = 0; r := subpath(epsilon, length r) of r; q = point 0 of r; n := n + 1; dotlabel.urt(textext("\tfx" & decimal n), q); endfor; endfor ; endfor ; \stopMPpage \stoptext

4 5

Apache server down
by Mojca Miklavec 22 Sep '18

22 Sep '18

Hi, I would like to sincerely apologise. I screwed up when trying to restart Apache on the garden and I'll probably need Taco to fix the problem, so please be patient. (The wiki works, some other sites are down.) Mojca

2 1

Re: [NTG-context] Variable instance identifiers exhausted
by Fabrice L 21 Sep '18

21 Sep '18

Le 19 septembre 2018 à 15:47:07, Fabrice L (fabrice.alpha(a)gmail.com) a écrit: Le 19 septembre 2018 à 15:28:54, Alan Braslau (braslau.list(a)comcast.net (mailto:braslau.list@comcast.net)) a écrit: > On Tue, 18 Sep 2018 19:21:31 -0700 > Fabrice L wrote: > > > The problem is that the process take hours of compilations, and > > tests are not easy to do. Anyway, I will enrich my « minimal » code to my > > « full » code in order to find the difference… and the problem. I will > > update the thread as soon as can. > > My over 700k object graphics example, processed several times (repeatedly, over several pages with modifications) took less than one minute to process. In fact, each graphic took almost as long to render from the pdf as it did for metapost/lua to process. > > Alan I do not know what your example is (but I’m curious: can I see this somewhere ?). In my case, the long time needed is to check if a new object does not intersect with any other object: so when I try to find the maximum size of the 1000th object at a given position, I have to check with the 999 others… I do this with « intersectiontimes ». And so on for the 10001th… I have a course try to find solutions to gain time, like using the coordinate of a new object: when the coordinate of a new object is chosen, I do not need to check potential intersections with objects far away… but surprisingly (to me) this take more time than to blindly check with every object. This is an algorithmic problem more than a ConTeXt/Metapost one… but I you have suggestions, I’m sure I can learn ! Below is minimal code. (Just to be clear, this code work, even for 20K objects.) Thanks. \starttext \startMPpage path Obj[] , ObjTemp ; pair ObjPos , Inter ; numeric NObj ; % Change herte "NObj" to a big numer (says 20K) NObj := 100; numeric Danger, MaxSize ; % Draw an initial object of random shape and random size ; Obj[1]:= fullsquare randomized .001in scaled (uniformdeviate(.5)*1in) shifted (uniformdeviate(5)*1in,uniformdeviate(5)*1in) ; Obj[1] := curved ( Obj[1] ); fill Obj[1] withcolor cyan randomized (.2,1.5); draw Obj[1] withcolor black randomized (.2,1.5); for i=2 upto NObj : Danger := 0; % Choose a position for the object : ObjPos := (uniformdeviate(5)*1in,uniformdeviate(5)*1in) ; % Choose a form : Obj[i] := fullsquare randomized .01in ; Obj[i] := curved ( Obj[i] ); % Choose a scale so the object does not interact with any other object: for j=1 upto 50: MaxSize := (j*.01in) ; ObjTemp := Obj[i] scaled MaxSize shifted ObjPos ; %draw ObjTemp withcolor magenta ; % Check if this temporary object intersect with any other object : for k=1 upto (i-1): string trace ; Inter := Obj[k] intersectiontimes ObjTemp ; if (xpart Inter) <> -1 : Danger := 1; fi ; if Danger=1: MaxSize := ((j-1)*.01in) ; fi; exitif Danger = 1; endfor; exitif Danger = 1; endfor ; Obj[i] := Obj[i] scaled MaxSize shifted ObjPos ; fill Obj[i] withcolor cyan randomized (.2,1.5); draw Obj[i] withcolor black randomized (.2,1.5); endfor; \stopMPpage \stoptext So after some hours of computation, this code above breaks for me if the number of objects, NObj in my code, is too large. Of course, perhaps an error occurs at some point and is not caused directly by the number of objects, because according to what has been said in this thread this should not be is not a problem. I put below the log. If somebody has a hint in which direction I should look… thanks ! Fabrice. mtx-context | run 1: luatex --fmt="/Users/fabricel/context/tex/texmf-cache/luatex-cache/context/5fe67e0bfe781ce0dde776fb1556f32e/formats/luatex/cont-en" --jobname="0030-0018-minimal2" --lua="/Users/fabricel/context/tex/texmf-cache/luatex-cache/context/5fe67e0bfe781ce0dde776fb1556f32e/formats/luatex/cont-en.lui" --no-parse-first-line --c:currentrun=1 --c:fulljobname="./0030-0018-minimal2.tex" --c:input="./0030-0018-minimal2.tex" --c:kindofrun=1 --c:maxnofruns=1 --c:runs="1" "cont-yes.mkiv" This is LuaTeX, Version 1.08.0 (TeX Live 2018) system commands enabled. open source > level 1, order 1, name '/Users/fabricel/context/tex/texmf-context/tex/context/base/mkiv/cont-yes.mkiv' system > system > ConTeXt ver: 2018.05.17 18:32 MKIV beta fmt: 2018.5.18 int: english/english system > system > 'cont-new.mkiv' loaded open source > level 2, order 2, name '/Users/fabricel/context/tex/texmf-context/tex/context/base/mkiv/cont-new.mkiv' system > beware: some patches loaded from cont-new.mkiv close source > level 2, order 2, name '/Users/fabricel/context/tex/texmf-context/tex/context/base/mkiv/cont-new.mkiv' system > files > jobname '0030-0018-minimal2', input './0030-0018-minimal2', result '0030-0018-minimal2' fonts > latin modern fonts are not preloaded languages > language 'en' is active open source > level 2, order 3, name '/Users/fabricel/Dropbox/Divers/Création/P030-Remplissage/0030-0018-minimal2.tex' fonts > preloading latin modern fonts (second stage) fonts > 'fallback modern-designsize rm 12pt' is loaded metapost > initializing instance 'metafun' using format 'metafun' metapost > loading 'metafun' as '/Users/fabricel/context/tex/texmf-context/metapost/context/base/mpiv/metafun.mpiv' using method 'default' metapost > initializing number mode 'scaled' tex error > mp error on line 45 in file /Users/fabricel/Dropbox/Divers/Création/P030-Remplissage/0030-0018-minimal2.tex: ! Emergency stop. <for(12315)> ...(EXPR0)]intersectiontimes.ObjTemp; if(xpart.Inter)<>-1:Danger... <for(1)> ...)-1)*0.01in);fi;exitif.Danger=1;endfor ;exitif.Danger=1; ENDFOR <for(22896)> ...er=1;endfor;exitif.Danger=1;endfor ;Obj[(EXPR0)]:=Obj[(EXPR0)... <*> ...withcolor black randomized (.2,1.5); endfor ; ; variable instance identifiers exhausted 35 if Danger=1: MaxSize := ((j-1)*.01in) ; fi; 36 exitif Danger = 1; 37 endfor; 38 exitif Danger = 1; 39 endfor ; 40 Obj[i] := Obj[i] scaled MaxSize shifted ObjPos ; 41 42 fill Obj[i] withcolor cyan randomized (.2,1.5); 43 draw Obj[i] withcolor black randomized (.2,1.5); 44 endfor; 45 >> \stopMPpage 46 \stoptext 47 ?

2 1

wrapup
by Hans Hagen 21 Sep '18

21 Sep '18

I'll add documentdata.variable so that one can do this: \setupdocument [id=foo] \startluacode luatex.wrapup(function() local id = documentdata.variable("id") if id and id ~= "" then local oldname = file.addsuffix(environment.jobname,"pdf") local newname = file.addsuffix("doc-"..id,"pdf") if lfs.isfile(newname) then -- print("removing",newname) os.remove(newname) end if not lfs.isfile(newname) then -- print("renaming",oldname,newname) os.rename(oldname,newname) end if not lfs.isfile(newname) then -- print("error in renaming") end end end) \stopluacode \starttext test \stoptext -- ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl -----------------------------------------------------------------

2 1

how to set the name of outputfile using a value defined in the source
by J Huisman 21 Sep '18

21 Sep '18

Hi all, I'm getting back to using ConTeXt after a couple of years, so I might be missing something obvious... I would like to add an I.D. code to the name of my outputfile, but since this will be used in an automated environment I would like to load the ID-code from the source file. MWE: test.tex \starttext \def\idcode{something} Some text, whatever. \stoptext If I typeset with: context text --result=test-idcode the result is obviously "test-idcode.pdf", but I want to get a file name: "test-something.pdf" Is this possible? Thanks, Jelle

6 11

Using the source han sans fonts fails
by Ulrike Fischer 21 Sep '18

21 Sep '18

Because of a question on tex.sx I tried to use the source han sans fonts. I installed (in windows 10) the fonts from this zip-file: https://github.com/adobe-fonts/source-han-sans/blob/release/OTF/SourceHanSa… Trying to use them with latex/luaotfload failed with a memory exhausted error while trying to write the lua-file. In context \starttext \font\test={name:sourcehansans} \test abc \stoptext gave the error: fonts > otf loading > loading 'c:/windows/fonts/SourceHanSans-Regular.otf', hash 'sourcehansans-regular' otf reader > loading of table 'vorg' skipped otf reader > invalid index in single format 1: 65353 -> 67212 (max 65535) otf reader > rule 1 in gsub lookup 's_s_5' has empty lookups fonts > otf loading > loading failed due to read error fonts > defining > forced type 'otf' of 'c:/windows/fonts/SourceHanSans-Regular' not found fonts > defining > font with asked name 'c:/windows/fonts/SourceHanSans-Regular' is not found using lookup 'name' fonts > defining > unknown font 'c:/windows/fonts/SourceHanSans-Regular', loading aborted xelatex had no problems to use the font. Is this an error in the font or in the fontloader? -- Ulrike Fischer http://www.troubleshooting-tex.de/

5 14