* Metafun's utflen not working in certain contexts
@ 2021-10-03 19:28 Jairo A. del Rio via ntg-context
2021-10-04 18:23 ` Hans Hagen via ntg-context
0 siblings, 1 reply; 3+ messages in thread
From: Jairo A. del Rio via ntg-context @ 2021-10-03 19:28 UTC (permalink / raw)
To: mailing list for ConTeXt users; +Cc: Jairo A. del Rio
[-- Attachment #1.1: Type: text/plain, Size: 984 bytes --]
Hi, list. The following works for MkIV, but not LMTX (adapted from here:
https://tex.stackexchange.com/questions/617597/how-can-i-use-luas-string-len-inside-a-metapost-function
):
\startMPinclusions
vardef MotMystere(expr taille, speciale, index) =
save avant,apres,case;
numeric avant,apres;
path case;
case := fullsquare scaled 13;
avant := speciale-1;
%For Unicode, use "utflen" instead
apres := utflen(taille) - speciale;
if avant >= 1:
for j=1 upto avant:
draw (case rotated 180
cutafter point 3 of case rotated 180)
shifted (-13j,-13*index);
endfor;
fi;
label.lft (index,point 3.5 of
case shifted (-13*avant,-13*index));
draw case yshifted (-13*index);
fill case yshifted (-13*index)
withcolor \MPcolor{gray-8};
if apres > 0:
for j=1 upto apres:
draw (case cutafter point 3 of case)
shifted (13j,-13*index);
endfor;
fi;
enddef;
\stopMPinclusions
\starttext
An example with "enigma"
\startMPcode
MotMystere("enigma",4,1)
\stopMPcode
\stoptext
[-- Attachment #1.2: Type: text/html, Size: 3496 bytes --]
[-- Attachment #2: Type: text/plain, Size: 493 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Metafun's utflen not working in certain contexts
2021-10-03 19:28 Metafun's utflen not working in certain contexts Jairo A. del Rio via ntg-context
@ 2021-10-04 18:23 ` Hans Hagen via ntg-context
2021-10-05 6:08 ` Jairo A. del Rio via ntg-context
0 siblings, 1 reply; 3+ messages in thread
From: Hans Hagen via ntg-context @ 2021-10-04 18:23 UTC (permalink / raw)
To: mailing list for ConTeXt users; +Cc: Hans Hagen
On 10/3/2021 9:28 PM, Jairo A. del Rio via ntg-context wrote:
> Hi, list. The following works for MkIV, but not LMTX (adapted from here:
> https://tex.stackexchange.com/questions/617597/how-can-i-use-luas-string-len-inside-a-metapost-function
> <https://tex.stackexchange.com/questions/617597/how-can-i-use-luas-string-len-inside-a-metapost-function>):
>
> \startMPinclusions
>
> vardef MotMystere(expr taille, speciale, index) =
>
> save avant,apres,case;
>
> numeric avant,apres;
>
> path case;
>
> case := fullsquare scaled 13;
>
> avant := speciale-1;
>
> %For Unicode, use "utflen" instead
>
> apres := utflen(taille) - speciale;
>
> if avant >= 1:
>
> for j=1 upto avant:
>
> draw (case rotated 180
>
> cutafter point 3 of case rotated 180)
>
> shifted (-13j,-13*index);
>
> endfor;
>
> fi;
>
> label.lft (index,point 3.5 of
>
> case shifted (-13*avant,-13*index));
>
> draw case yshifted (-13*index);
>
> fill case yshifted (-13*index)
>
> withcolor \MPcolor{gray-8};
>
> if apres > 0:
>
> for j=1 upto apres:
>
> draw (case cutafter point 3 of case)
>
> shifted (13j,-13*index);
>
> endfor;
>
> fi;
>
> enddef;
>
> \stopMPinclusions
>
> \starttext
>
> An example with "enigma"
>
>
> \startMPcode
>
> MotMystere("enigma",4,1)
>
> \stopMPcode
>
> \stoptext
for the moment use ()
apres := (utflen(taille)) - speciale;
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Metafun's utflen not working in certain contexts
2021-10-04 18:23 ` Hans Hagen via ntg-context
@ 2021-10-05 6:08 ` Jairo A. del Rio via ntg-context
0 siblings, 0 replies; 3+ messages in thread
From: Jairo A. del Rio via ntg-context @ 2021-10-05 6:08 UTC (permalink / raw)
To: Hans Hagen; +Cc: Jairo A. del Rio, mailing list for ConTeXt users
[-- Attachment #1.1: Type: text/plain, Size: 2049 bytes --]
Nice, thanks.
Jairo
El lun, 4 de oct. de 2021 a la(s) 13:23, Hans Hagen (j.hagen@xs4all.nl)
escribió:
> On 10/3/2021 9:28 PM, Jairo A. del Rio via ntg-context wrote:
> > Hi, list. The following works for MkIV, but not LMTX (adapted from here:
> >
> https://tex.stackexchange.com/questions/617597/how-can-i-use-luas-string-len-inside-a-metapost-function
> > <
> https://tex.stackexchange.com/questions/617597/how-can-i-use-luas-string-len-inside-a-metapost-function
> >):
> >
> > \startMPinclusions
> >
> > vardef MotMystere(expr taille, speciale, index) =
> >
> > save avant,apres,case;
> >
> > numeric avant,apres;
> >
> > path case;
> >
> > case := fullsquare scaled 13;
> >
> > avant := speciale-1;
> >
> > %For Unicode, use "utflen" instead
> >
> > apres := utflen(taille) - speciale;
> >
> > if avant >= 1:
> >
> > for j=1 upto avant:
> >
> > draw (case rotated 180
> >
> > cutafter point 3 of case rotated 180)
> >
> > shifted (-13j,-13*index);
> >
> > endfor;
> >
> > fi;
> >
> > label.lft (index,point 3.5 of
> >
> > case shifted (-13*avant,-13*index));
> >
> > draw case yshifted (-13*index);
> >
> > fill case yshifted (-13*index)
> >
> > withcolor \MPcolor{gray-8};
> >
> > if apres > 0:
> >
> > for j=1 upto apres:
> >
> > draw (case cutafter point 3 of case)
> >
> > shifted (13j,-13*index);
> >
> > endfor;
> >
> > fi;
> >
> > enddef;
> >
> > \stopMPinclusions
> >
> > \starttext
> >
> > An example with "enigma"
> >
> >
> > \startMPcode
> >
> > MotMystere("enigma",4,1)
> >
> > \stopMPcode
> >
> > \stoptext
> for the moment use ()
>
> apres := (utflen(taille)) - speciale;
>
>
>
> -----------------------------------------------------------------
> Hans Hagen | PRAGMA ADE
> Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
> tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
> -----------------------------------------------------------------
>
[-- Attachment #1.2: Type: text/html, Size: 3282 bytes --]
[-- Attachment #2: Type: text/plain, Size: 493 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2021-10-05 6:08 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-10-03 19:28 Metafun's utflen not working in certain contexts Jairo A. del Rio via ntg-context
2021-10-04 18:23 ` Hans Hagen via ntg-context
2021-10-05 6:08 ` Jairo A. del Rio via ntg-context
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).