gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
m
no edit summary
\setupMPinstance
[metafun]
[textstyle={\definedfont[name:dejavusans*default at 20pt15pt]\ignorespaces}]
\startMPpage
scaled 0.5mm
withcolor red;
pair decal ; decal := (0.0cm,-1.5cm) ;
%------------------------------------------------------------------------------
pair PA ; PA := (7.5cm,15cm14cm) ;
draw textext.urt ("URT-" & MonTexte) shifted PA;
%------------------------------------------------------------------------------
pair PB ; PB := PA shifted (0cm,-2cm) decal ;
draw textext.drt ("DRT-" & MonTexte) shifted PB;
%------------------------------------------------------------------------------
pair PC ; PC := PB shifted (0cm,-2cm) decal ;
draw textext.d("D-" & MonTexte) shifted PC;
%------------------------------------------------------------------------------
pair PD ; PD := PC shifted (0cm,-2cm) decal ;
draw textext.bot("BOT-" & MonTexte) shifted PD;
%------------------------------------------------------------------------------
pair PE ; PE := PD shifted (0cm,-2cm) decal ;
draw textext.lft("LFT-" & MonTexte) shifted PE;
%------------------------------------------------------------------------------
pair PF ; PF := PE shifted (0cm,-2cm) decal ;
draw textext(MonTexte) shifted PF;
%------------------------------------------------------------------------------
pair PG ; PG := PF shifted (0cm,-2cm) decal ;
draw textext.origin("ORIGIN-" & MonTexte) shifted PG;
%------------------------------------------------------------------------------
pair PH ; PH := PG shifted (0cm,-2cm) decal ;
draw textext.raw("RAW-" & MonTexte) shifted PH;
