gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
m
<context source="yes">Note: * With MkIV, be careful to use {{code|textext.dflt}} which means DeFauLT.* With LMTX, be careful to use {{code|textext.dlft}}) for LeFT, like {{code|textext.ulft}}) and {{code|textext.llft}}) ** ({{code|textext.dflt}} does not work with LMTX).
\define[1]\MyFont{\definedfont[#1]\ignorespaces} <context source="yes" mode="lmtx" >
no edit summary
\starttext
\setupMPinstance
[metafun]
[textstyle={\definedfont[name:dejavusans*default at 15pt]\ignorespaces}]
\startMPpage
string MonTexte ; MonTexte := "Aujourd'hui"; draw (0cm,0cm)--(20cm15cm,0cm)--(20cm15cm,20cm15cm)--(0cm,20cm15cm)--cycle
withpen pencircle
scaled 0.5mm
withcolor red;
pair decal ; decal := (0.0cm,-1.8cm) ;
%------------------------------------------------------------------------------
pair PA ; PA := (10cm7.5cm,16cm13.5cm) ;
draw textext.urt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} URT Aujourd'hui}-" & MonTexte) shifted PA;draw textext.ulft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} ULFT Aujourd'hui}-"& MonTexte) shifted PA; draw textext.llft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LLFT Aujourd'hui}-"& MonTexte) shifted PA;draw textext.lrt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LRT Aujourd'hui}-" & MonTexte) shifted PA;
draw PA withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PB ; PB := PA shifted (0cm,-2cm) decal ;
draw textext.drt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} DRT Aujourd'hui}-" & MonTexte) shifted PB;draw textext.dlftdflt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} DLFT Aujourd'hui}-"& MonTexte) shifted PB;
draw PB withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PC ; PC := PB shifted (0cm,-2cm) decal ;
draw textext.d("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} D Aujourd'hui}-"& MonTexte) shifted PC;
draw PC withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PD ; PD := PC shifted (0cm,-2cm) decal ;
draw textext.bot("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} BOT Aujourd'hui}-"& MonTexte) shifted PD;draw textext.top("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} TOP Aujourd'hui}-"& MonTexte) shifted PD;
draw PD withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PE ; PE := PD shifted (0cm,-2cm) decal ;
draw textext.lft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LFT Aujourd'hui}-"& MonTexte) shifted PE;draw textext.rt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} RT Aujourd'hui}-"& MonTexte) shifted PE;
draw PE withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PF ; PF := PE shifted (0cm,-2cm) decal ;
draw textext("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} Aujourd'hui}"MonTexte) shifted PF;
draw PF withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PG ; PG := PF shifted (0cm,-2cm) decal ;
draw textext.origin("\ruledhbox{\MyFont{name:dejavusans*default at 25pt}ORIGIN Aujourd'hui}-"& MonTexte) shifted PG;
draw PG withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
pair PH ; PH := PG shifted (0cm,-2cm) decal ;
draw textext.raw("\ruledhbox{\MyFont{name:dejavusans*default at 25pt}RAW Aujourd'hui}-"& MonTexte) shifted PH;
draw PH withpen pencircle scaled 1.5mm withcolor red;
\stoptext
</context>
