textext with plain MetaFun

textext with plain MetaFun

[Henri Menke]

Dear list,

When I process the short MetaFun example

    beginfig(1)
    draw textext("MetaFun") ;
    endfig;
    end

with plain MetaFun, i.e.

    mpost '&metafun' test.mp

the resulting file only contains “unknown”.  How can I get the expected
output?

Cheers, Henri

___________________________________________________________________________________
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
___________________________________________________________________________________

Re: textext with plain MetaFun

[Hans Hagen]

On 1/21/2019 8:57 AM, Henri Menke wrote:
> Dear list,
> 
> When I process the short MetaFun example
> 
>      beginfig(1)
>      draw textext("MetaFun") ;
>      endfig;
>      end
> 
> with plain MetaFun, i.e.
> 
>      mpost '&metafun' test.mp
> 
> the resulting file only contains “unknown”.  How can I get the expected
> output?
context foo.mp

(in mkii one could use mptopdf but i have no interest in figuring out 
some pure metapost solution when we can do the job with simple wrapping 
in mkiv as mentioned)

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
-----------------------------------------------------------------
___________________________________________________________________________________
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
___________________________________________________________________________________

Re: textext with plain MetaFun

[Henri Menke]

On 1/21/19 9:29 PM, Hans Hagen wrote:
> On 1/21/2019 8:57 AM, Henri Menke wrote:
>> Dear list,
>>
>> When I process the short MetaFun example
>>
>>      beginfig(1)
>>      draw textext("MetaFun") ;
>>      endfig;
>>      end
>>
>> with plain MetaFun, i.e.
>>
>>      mpost '&metafun' test.mp
>>
>> the resulting file only contains “unknown”.  How can I get the expected
>> output?
> context foo.mp
> 
> (in mkii one could use mptopdf but i have no interest in figuring out
> some pure metapost solution when we can do the job with simple wrapping
> in mkiv as mentioned)

I tried

    mpost '&metafun' test.mp
    mptopdf test.1

and now I have a PDF which says “unknown“.  Maybe I didn't understand
what you meant.

Cheers, Henri

> 
> 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
> -----------------------------------------------------------------

___________________________________________________________________________________
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
___________________________________________________________________________________

Re: textext with plain MetaFun

[Hans van der Meer]

[-- Attachment #1.1: Type: text/plain, Size: 1986 bytes --]

The following always worked for me:

\starttext
\startMPpage
.. metapost code ..
\stopMPpage
\stoptext

and delivered from a ConTeXt-run a separate pdf.

dr. Hans van der Meer


> On 21 Jan 2019, at 09:43, Henri Menke <henrimenke@gmail.com> wrote:
> 
> On 1/21/19 9:29 PM, Hans Hagen wrote:
>> On 1/21/2019 8:57 AM, Henri Menke wrote:
>>> Dear list,
>>> 
>>> When I process the short MetaFun example
>>> 
>>>      beginfig(1)
>>>      draw textext("MetaFun") ;
>>>      endfig;
>>>      end
>>> 
>>> with plain MetaFun, i.e.
>>> 
>>>      mpost '&metafun' test.mp
>>> 
>>> the resulting file only contains “unknown”.  How can I get the expected
>>> output?
>> context foo.mp
>> 
>> (in mkii one could use mptopdf but i have no interest in figuring out
>> some pure metapost solution when we can do the job with simple wrapping
>> in mkiv as mentioned)
> 
> I tried
> 
>    mpost '&metafun' test.mp
>    mptopdf test.1
> 
> and now I have a PDF which says “unknown“.  Maybe I didn't understand
> what you meant.
> 
> Cheers, Henri
> 
>> 
>> 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
>> -----------------------------------------------------------------
> 
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________


[-- Attachment #1.2: Type: text/html, Size: 5122 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 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
___________________________________________________________________________________

Re: textext with plain MetaFun

[luigi scarso]

[-- Attachment #1.1: Type: text/plain, Size: 362 bytes --]

On Mon, Jan 21, 2019 at 8:57 AM Henri Menke <henrimenke@gmail.com> wrote:

> Dear list,
>
> When I process the short MetaFun example
>
>     beginfig(1)
>     draw textext("MetaFun") ;
>     endfig;
>     end
>
> with plain MetaFun, i.e.
>
>     mpost '&metafun' test.mp
>
>
 what does
$> mpost -mem=metafun '\relax; tracingall; input test.mp;'
say ?

-- 
luigi

[-- Attachment #1.2: Type: text/html, Size: 979 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 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
___________________________________________________________________________________

Re: textext with plain MetaFun

[Henri Menke]

[-- Attachment #1: Type: text/plain, Size: 954 bytes --]

On 1/21/19 10:40 PM, luigi scarso wrote:
> On Mon, Jan 21, 2019 at 8:57 AM Henri Menke <henrimenke@gmail.com> wrote:
> 
>> Dear list,
>>
>> When I process the short MetaFun example
>>
>>     beginfig(1)
>>     draw textext("MetaFun") ;
>>     endfig;
>>     end
>>
>> with plain MetaFun, i.e.
>>
>>     mpost '&metafun' test.mp
>>
>>
>  what does
> $> mpost -mem=metafun '\relax; tracingall; input test.mp;'
> say ?

Log is attached.

> 
> 
> ___________________________________________________________________________________
> 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
> ___________________________________________________________________________________
> 


[-- Attachment #2: test.log --]
[-- Type: text/x-log, Size: 9577 bytes --]

This is MetaPost, version 2.00 (TeX Live 2018) (kpathsea version 6.3.0)  21 JAN 2019 22:45
**\relax; tracingall; input test.mp;
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/common/metafun.mp
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/metafun.mpii
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-base.mpii
Preloading the plain mem file, version 1.004 for metafun ii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-tool.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-spec.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-core.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-page.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-text.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-txts.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-shap.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-butt.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-char.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-step.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-grph.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-figs.mpii)
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-grid.mpii
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-form.mpii
(/usr/local/texlive/2018/texmf-dist/metapost/base/string.mp)
(/usr/local/texlive/2018/texmf-dist/metapost/base/marith.mp
(/usr/local/texlive/2018/texmf-dist/metapost/base/string.mp))))
(/usr/local/texlive/2018/texmf-dist/metapost/context/base/mpii/mp-func.mpii)))
{tracingtitles:=1}
{tracingequations:=1}
{tracingcapsules:=1}
{tracingspecs:=2}
{tracingchoices:=1}
{tracinglostchars:=1}
{tracingstats:=1}
{tracingoutput:=1}
{tracingmacros:=1}
{tracingrestores:=1}
{input}
(./test.mp
beginfig(EXPR0)->_fig_nesting_:=_fig_nesting_+1;if._fig_nesting_=1:begingroup.c
harcode:=(EXPR0);resetfig;scantokens.extra_beginfig;fi;
(EXPR0)<-1
{(0)+(1)}
{_fig_nesting_:=1}
## _fig_nesting_=1
{if}
{(1)=(1)}
{true}
{begingroup}
{charcode:=1}

resetfig->clearxy;clearit;clearpen;pickup.defaultpen;interim.linecap:=linecap;i
nterim.linejoin:=linejoin;interim.miterlimit:=miterlimit;save._background_;colo
r._background_;_background_:=background;save.background;color.background;backgr
ound:=_background_;drawoptions();

clearxy<text>->if.false.for$:=(TEXT0):or.true.endfor:forsuffixes$:=(TEXT0):x$:=
whatever;y$:=whatever;endfor;else:save.x,y;fi
(TEXT0)<-
{if}
{false}
{for}
{false}
{save}
{fi}

clearit->currentpicture:=nullpicture
{nullpicture}
{currentpicture:=picture}

clearpen->currentpen:=nullpen;pen_lft:=pen_rt:=pen_top:=pen_bot:=0;path.current
pen_path;
{nullpen}
{currentpen:=pen}
{pen_bot:=0}
{pen_top:=0}
{pen_rt:=0}
{pen_lft:=0}
{path}

pickup<secondary>->if.numeric(EXPR0):numeric_pickup_.else:pen_pickup_.fi(EXPR0)
(EXPR0)<-1
{if}
{numeric(1)}
{true}

numeric_pickup_<primary>->if.unknown.pen_[(EXPR0)]:errmessage"Unknown pen";clea
rpen.else:currentpen:=pen_[(EXPR0)];pen_lft:=pen_lft_[(EXPR0)];pen_rt:=pen_rt_[
(EXPR0)];pen_top:=pen_top_[(EXPR0)];pen_bot:=pen_bot_[(EXPR0)];currentpen_path:
=pen_path_[(EXPR0)]fi;
{else}
(EXPR0)<-1
{if}
{unknown(pen)}
{false}
{currentpen:=pen}
{pen_lft:=-0.25}
{pen_rt:=0.25}
{pen_top:=0.25}
{pen_bot:=-0.25}
{fi}
{currentpen_path:=unknown path pen_path_1}
{interim}
{linecap:=1}
{interim}
{linejoin:=1}
{interim}
{miterlimit:=10}
{save}
{color}
{_background_:=(1,1,1)}
## bluepart _background_=1
## greenpart _background_=1
## redpart _background_=1
{save}
{color}
{background:=(1,1,1)}
## bluepart background=1
## greenpart background=1
## redpart background=1

drawoptions(TEXT0)->def._op_=(TEXT0)enddef
(TEXT0)<-
{def}
{scantokens}
{true}
{insidefigure:=true}

reset_extra_specials->begingroup._local_specials_:="";endgroup
(SUFFIX0)<-
(SUFFIX1)<-reset_extra_specials
{begingroup}
{_local_specials_:=""}
{endgroup}
{truecorners:=0}
{miterlimit:=10}
{linejoin:=1}
{linecap:=1}

erasegraphictextfile->write.EOF.to.data_mpo_file;let.erasegraphictextfile=relax
;
{write}

data_mpo_file->job_name&"-mpgraph.mpo"

job_name->jobname
{("test")&("-mpgraph.mpo")}
{let}
{fi}

draw<expr>->addto.currentpicture.if.picture(EXPR0):also(EXPR0)else:doublepath(E
XPR0)withpen.currentpen.fi._op_

textext@#(EXPR3)->begingroup.save._s_;string._s_;interim.labeloffset:=textextof
fset;noftexpictures:=noftexpictures+1;if.string(EXPR3):if.hobbiestextext:write.
_s_&"btex "&(EXPR3)&" etex"to"mptextmp.mp";write.EOF.to"mptextmp.mp";scantokens
"input mptextmp"else:write"% figure "&decimal.charcode&" : "&"texpictures["&dec
imal.noftexpictures&"] := btex "&(EXPR3)&" etex ;"to.jobname&".mpt";if.unknown.
texpictures[noftexpictures]:thelabel(SUFFIX2)("unknown",origin)else:thelabel(SU
FFIX2)(texpictures[noftexpictures],origin)fi.fi.else:thelabel(SUFFIX2)((EXPR3),
origin)fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-textext
(SUFFIX2)<-
(EXPR3)<-"MetaFun"
{begingroup}
{save}
{string}
{interim}
{labeloffset:=0}
{(0)+(1)}
{noftexpictures:=1}
## noftexpictures=1
{if}
{string("MetaFun")}
{true}
{if}
{false}
{write}
{decimal(1)}
{("% figure ")&("1")}
{("% figure 1")&(" : ")}
{("% figure 1 : ")&("texpictures[")}
{decimal(1)}
{("% figure 1 : texpictures[")&("1")}
{("% figure 1 : texpictures[1")&("] := btex ")}
{("% figure 1 : texpictures[1] := btex ")&("MetaFun")}
{("% figure 1 : texpictures[1] := btex MetaFun")&(" etex ;")}
{("test")&(".mpt")}
{if}
{unknown(unknown picture texpictures1)}
{true}

thelabel@#(EXPR3)(EXPR4)->begingroup.save.p;picture.p;p=(EXPR3)if.not.picture(E
XPR3):infont.defaultfont.scaled.defaultscale.fi;(p.shifted((EXPR4)+labeloffset*
laboff(SUFFIX2)-(labxf(SUFFIX2)*lrcorner.p+labyf(SUFFIX2)*ulcorner.p+(1-labxf(S
UFFIX2)-labyf(SUFFIX2))*llcorner.p)))endgroup
(SUFFIX0)<-
(SUFFIX1)<-thelabel
(SUFFIX2)<-
(EXPR3)<-"unknown"
(EXPR4)<-(0,0)
{begingroup}
{save}
{picture}
{if}
{picture("unknown")}
{not(false)}
{true}
{("unknown")infont("cmr10")}
{fi}
{(picture)scaled(1)}
{(unknown picture p)=(picture)}
{(0)*((0,0))}
{((0,0))+((0,0))}
{lrcorner(picture)}
{(0.5)*((39.57397,0))}
{ulcorner(picture)}
{(0.5)*((0,6.9185))}
{((19.78699,0))+((0,3.45926))}
{(1)-(0.5)}
{(0.5)-(0.5)}
{llcorner(picture)}
{(0)*((0,0))}
{((19.78699,3.45926))+((0,0))}
{((0,0))-((19.78699,3.45926))}
{(picture)shifted((-19.78699,-3.45926))}
{restoring p}
{endgroup}
{else}
{fi}
{else}
{restoring labeloffset=3}
{restoring _s_}
{endgroup}
(EXPR0)<-picture
{addto}
{if}
{picture(picture)}
{true}
{else}

_op_->

endfig->;if._fig_nesting_=1:scantokens.extra_endfig;shipit;endgroup;fi;_fig_nes
ting_:=_fig_nesting_-1;
{if}
{(1)=(1)}
{true}
{scantokens}

resetspotcolors->numeric.spotcolorhash[][];
{numeric}

resetcmykcolors->numeric.cmykcolorhash[][][][];
{numeric}

add_special_signal->begingroup.if(length._global_specials_<>0)or(length._local_
specials_<>0):special("%%MetaPostSpecials: 2.0 "&decimal._special_signal_&" "&d
ecimal._special_div_);fi;endgroup
(SUFFIX0)<-
(SUFFIX1)<-add_special_signal
{begingroup}
{if}
{length("")}
{(0)<>(0)}
{length("")}
{(0)<>(0)}
{(false)or(false)}
{false}
{endgroup}

naturalizepaths->let.fill=normalfill;let.draw=normaldraw;
{let}
{let}

mfun_apply_max_dimensions->if.bbwidth.currentpicture>maxdimensions:currentpictu
re:=currentpicture.if.bbheight.currentpicture>bbwidth.currentpicture:ysized.els
e:xsized.fi.maxdimensions;elseif.bbheight.currentpicture>maxdimensions:currentp
icture:=currentpicture.ysized.maxdimensions;fi;
{if}

bbwidth<primary>->begingroup.if.unknown(EXPR2):0elseif.path(EXPR2)or.picture(EX
PR2):xpart(lrcorner(EXPR2)-llcorner(EXPR2))else:0fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-bbwidth
(EXPR2)<-picture
{begingroup}
{if}
{unknown(picture)}
{false}
{path(picture)}
{picture(picture)}
{(false)or(true)}
{true}
{lrcorner(picture)}
{llcorner(picture)}
{((19.78699,-3.45926))-((-19.78699,-3.45926))}
{else}
{xpart((39.57397,0))}
{endgroup}
{(39.57397)>(14000)}
{false}

bbheight<primary>->begingroup.if.unknown(EXPR2):0elseif.path(EXPR2)or.picture(E
XPR2):ypart(urcorner(EXPR2)-lrcorner(EXPR2))else:0fi.endgroup
(SUFFIX0)<-
(SUFFIX1)<-bbheight
(EXPR2)<-picture
{begingroup}
{if}
{unknown(picture)}
{false}
{path(picture)}
{picture(picture)}
{(false)or(true)}
{true}
{urcorner(picture)}
{lrcorner(picture)}
{((19.78699,3.45924))-((19.78699,-3.45926))}
{else}
{ypart((0,6.9185))}
{endgroup}
{(6.9185)>(14000)}
{false}

add_extra_specials->begingroup.scantokens._global_specials_;scantokens._local_s
pecials_;endgroup
(SUFFIX0)<-
(SUFFIX1)<-add_extra_specials
{begingroup}
{scantokens}
{scantokens}
{endgroup}

reset_extra_specials->begingroup._local_specials_:="";endgroup
(SUFFIX0)<-
(SUFFIX1)<-reset_extra_specials
{begingroup}
{_local_specials_:=""}
{endgroup}
{false}
{insidefigure:=false}

shipit->shipout.currentpicture
{shipout}
[1{psfonts.map}]
Edge structure at line 3 (just shipped out):
"unknown" infont "cmr10"
transformed (-19.78699,-3.45926,1,0,0,1)
End edges

{restoring background}
{restoring _background_}
{restoring miterlimit=10}
{restoring linejoin=1}
{restoring linecap=1}
{restoring y}
{restoring x}
{endgroup}
{fi}
{(1)-(1)}
{_fig_nesting_:=0}
## _fig_nesting_=0

end->;message"";message.metafunversion;message"";normalend;
{message}
{message}
metafun ii 2019-1-21 22:45
{message}
 )
 
Here is how much of MetaPost's memory you used:
 223 strings using 5067 characters
 3461584 bytes of node memory
 1938 symbolic tokens
 6i,94n,9p,835b,5f stack positions out of 16i,96n,33p,950b,6f
1 output file written: test.1


[-- Attachment #3: Type: text/plain, Size: 492 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
___________________________________________________________________________________

Re: textext with plain MetaFun

[luigi scarso]

[-- Attachment #1.1: Type: text/plain, Size: 854 bytes --]

On Mon, Jan 21, 2019 at 10:47 AM Henri Menke <henrimenke@gmail.com> wrote:

> On 1/21/19 10:40 PM, luigi scarso wrote:
> > On Mon, Jan 21, 2019 at 8:57 AM Henri Menke <henrimenke@gmail.com>
> wrote:
> >
> >> Dear list,
> >>
> >> When I process the short MetaFun example
> >>
> >>     beginfig(1)
> >>     draw textext("MetaFun") ;
> >>     endfig;
> >>     end
> >>
> >> with plain MetaFun, i.e.
> >>
> >>     mpost '&metafun' test.mp
> >>
> >>
> >  what does
> > $> mpost -mem=metafun '\relax; tracingall; input test.mp;'
> > say ?
>
> Log is attached.
>

hm.

# cat test.mp
hobbiestextext := true;
beginfig(1)
    draw textext("MetaFun") ;
    endfig;
end

# mpost -interaction=batchmode -mem=metafun '\relax;   input test.mp;'

# gs test.1

You should see the text at the bottom left.  It seems that there is a
string _s_  not initialized.

-- 
luigi

[-- Attachment #1.2: Type: text/html, Size: 1937 bytes --]

[-- Attachment #2: Type: text/plain, Size: 492 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
___________________________________________________________________________________

textext with plain MetaFun

[Akira Kakuto]

> You should see the text at the bottom left.
> It seems that there is a string _s_  not initialized.

If I remove all _s_ in mp-text.mpii,
metafun test.mp
worked for

hobbiestextext := true;
beginfig(1)
    draw textext("MetaFun") ;
    endfig;
end.

Best,
Akira
___________________________________________________________________________________
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
___________________________________________________________________________________