%D \module %D [ file=mp-figs.mpiv, %D version=2003.01.15, %D title=\CONTEXT\ \METAPOST\ graphics, %D subtitle=figures, %D author=Hans Hagen, %D date=\currentdate, %D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] %C %C This module is part of the \CONTEXT\ macro||package and is %C therefore copyrighted by \PRAGMA. See licen-en.pdf for %C details. if known metafun_loaded_figs : endinput ; fi ; newinternal boolean metafun_loaded_figs ; metafun_loaded_figs := true ; immutable metafun_loaded_figs ; % todo: check defined def registerfigure(expr name,width,height) = begingroup ; save s ; string s ; s := cleanstring(name) ; scantokens( s & "_width := " & decimal(width )) ; scantokens( s & "_height := " & decimal(height)) ; endgroup ; enddef ; vardef figuresize(expr name) = save s, p ; string s ; pair p ; s := cleanstring(name) ; scantokens( "p := " & "(" & s & "_width" & "," & s & "_height" & ")" ) ; p enddef ; vardef figurewidth(expr name) = xpart figuresize(name) enddef ; vardef figureheight(expr name) = ypart figuresize(name) enddef ; let figuredimensions = figuresize ; % for old times sake def naturalfigure(expr name) = externalfigure name xyscaled(figuresize(name)) enddef ;