gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
numeric dimA ; dimA := 10cm; numeric dimB ; dimB := 10cm; % picture pic[] , pictA ;
%
% picture pictA; path pictB , frame ;%
%
% numeric dimC ; dimC := 2cm; % path frame ; color colorframe; colorframe := 0.6white;
%==============================================================================
%==============================================================================
no edit summary
<context source="yes">
%------------------------------------------------------------------------------
%------------------------------------------------------------------------------
\def\MaFunctionEmptyLetters#1%
{%
\resetMPdrawing
%
\startMPdrawing
numeric wid[], len[], pos[], n ;
wid[0] := len[0] := pos[0] := n := 0 ;
numeric scaling;
pair shiftB ;
picture monImageA; monImageA := nullpicture;
picture monImageB; monImageB := nullpicture;
%
\stopMPdrawing
%
\MyFont\handletokens#1\with\whatever
%
\startMPdrawing
draw monImageA ;
\stopMPdrawing
%
\MPdrawingdonetrue
\getMPdrawing}
%
\mpdefineoutlines{M}{MaLettre}
%
\startMPdrawing
pictA := textext.drt("\MyFont M") ;
\doifinstringelse{~}{#1}{}{% HOW TO PROPERLY COPE WITH SPACES ?
\mpdefineoutlines{#1}{MyGlyph}
%
\startMPdrawing
string sb; sb := "i";
%==============================================================================
%==============================================================================
\starttext
%------------------------------------------------------------------------------
\MaFunctionEmptyLetters{MetaPost~is~fun!}\MaFunctionEmptyLetters{ABCDEFGHIJ}\MaFunctionEmptyLetters{KLMNOPQRST}\MaFunctionEmptyLetters{UVWXYZ!?\&*}\MaFunctionEmptyLetters{abcdefghij}\MaFunctionEmptyLetters{klmnopqrst}\MaFunctionEmptyLetters{uvwxyz<>;:@}\MaFunctionEmptyLetters{0123456789} %------------------------------------------------------------------------------
\stoptext
</context>
