textext positioning
Jump to navigation
Jump to search
\define[1]\MyFont{\definedfont[#1]\ignorespaces} \starttext \startMPpage draw (0cm,0cm)--(20cm,0cm)--(20cm,20cm)--(0cm,20cm)--cycle withpen pencircle scaled 0.5mm withcolor red; %------------------------------------------------------------------------------ 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; draw PC withpen pencircle scaled 1.5mm withcolor red; %------------------------------------------------------------------------------ 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 \stoptext