gardener, Interface administrators, Administrators
3,893
edits
Changes
Jump to navigation
Jump to search
\define[1]\MyFont{\definedfont[#1]\ignorespaces}
no edit summary
<context mode="mkiv" source="yes">
\starttext
\setupMPinstance
[metafun]
[textstyle={\definedfont[name:dejavusans*default at 25pt]\ignorespaces}]
\startMPpage
pair PA ; PA := (10cm,16cm) ;
draw textext.urt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} URT Aujourd'hui}") shifted PA;draw textext.ulft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} ULFT Aujourd'hui}") shifted PA;
draw textext.llft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LLFT Aujourd'hui}") shifted PA;draw textext.lrt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LRT Aujourd'hui}") shifted PA;
draw PA withpen pencircle scaled 1.5mm withcolor red;
pair PB ; PB := PA shifted (0cm,-2cm) ;
draw textext.drt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} DRT Aujourd'hui}") shifted PB;draw textext.dlft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} DLFT Aujourd'hui}") shifted PB;
draw PB withpen pencircle scaled 1.5mm withcolor red;
pair PC ; PC := PB shifted (0cm,-2cm) ;
draw textext.d("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} D Aujourd'hui}") shifted PC;
pair PD ; PD := PC shifted (0cm,-2cm) ;
draw textext.bot("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} BOT Aujourd'hui}") shifted PD;draw textext.top("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} TOP Aujourd'hui}") shifted PD;
draw PD withpen pencircle scaled 1.5mm withcolor red;
pair PE ; PE := PD shifted (0cm,-2cm) ;
draw textext.lft("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} LFT Aujourd'hui}") shifted PE;draw textext.rt("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} RT Aujourd'hui}") shifted PE;
draw PE withpen pencircle scaled 1.5mm withcolor red;
pair PF ; PF := PE shifted (0cm,-2cm) ;
draw textext("\ruledhbox{\MyFont{name:dejavusans*default at 25pt} Aujourd'hui}") shifted PF;
draw PF withpen pencircle scaled 1.5mm withcolor red;
pair PG ; PG := PF shifted (0cm,-2cm) ;
draw textext.origin("\ruledhbox{\MyFont{name:dejavusans*default at 25pt}ORIGIN Aujourd'hui}") shifted PG;
draw PG withpen pencircle scaled 1.5mm withcolor red;
pair PH ; PH := PG shifted (0cm,-2cm) ;
draw textext.raw("\ruledhbox{\MyFont{name:dejavusans*default at 25pt}RAW Aujourd'hui}") shifted PH;
draw PH withpen pencircle scaled 1.5mm withcolor red;
%------------------------------------------------------------------------------
\stopMPpage
%==============================================================================
%==============================================================================
%==============================================================================
\setupMPinstance
[metafun]
[textstyle={\definedfont[name:dejavusans*default at 50pt]\ignorespaces}]
\startMPpage
draw (0cm,0cm)--(20cm,0cm)--(20cm,20cm)--(0cm,20cm)--cycle
withpen pencircle
scaled 0.5mm
withcolor red;
%------------------------------------------------------------------------------
picture PictA ;
pair PA ; PA := (5cm,12cm) ;
PictA := textext.urt("\ruledhbox{Aujourd'hui}") shifted PA;
draw PictA;
%------------------------------------------------------------------------------
draw (llcorner PictA) withpen pencircle scaled 3mm withcolor green;
draw (lrcorner PictA) withpen pencircle scaled 3mm withcolor yellow;
draw (urcorner PictA) withpen pencircle scaled 3mm withcolor blue;
draw (ulcorner PictA) withpen pencircle scaled 3mm withcolor cyan;
%------------------------------------------------------------------------------
picture PictB, PictC ;
pair PB ; PB := PA shifted (0cm,-4cm) ;
PictB := textext.urt("\ruledhbox{Aujourd'hui}") shifted PB;
PictC := textext.drt("\ruledhbox{Aujourd'hui}") shifted PB;
draw PictB;
pair decalage ;
decalage = llcorner PictB - llcorner PictC;
%------------------------------------------------------------------------------
draw (center PictB) withpen pencircle scaled 3mm withcolor green;
draw (PB shifted decalage) withpen pencircle scaled 3mm withcolor yellow;
draw (PB shifted (decalage shifted (bbwidth PictB / 2,0mm)))
withpen pencircle scaled 3mm withcolor blue;
draw (PB shifted (decalage shifted (bbwidth PictB,0mm)))
withpen pencircle scaled 3mm withcolor cyan;
draw PA withpen pencircle scaled 1.5mm withcolor red;
\stopMPpage
\stoptext
</context>
