Difference between revisions of "textext positioning"

From Wiki
Jump to navigation Jump to search
Line 1: Line 1:
−
<context mode="mkiv" source="yes">
 
−
 
  
 
\starttext
 
\starttext
Line 9: Line 7:
 
    
 
    
 
\startMPpage
 
\startMPpage
 +
 +
string MonTexte ;
 +
MonTexte := "Aujourd'hui";
  
 
draw (0cm,0cm)--(20cm,0cm)--(20cm,20cm)--(0cm,20cm)--cycle
 
draw (0cm,0cm)--(20cm,0cm)--(20cm,20cm)--(0cm,20cm)--cycle
Line 19: Line 20:
 
pair PA ;  PA := (10cm,16cm) ;
 
pair PA ;  PA := (10cm,16cm) ;
 
    
 
    
−
draw textext.urt("\ruledhbox{URT Aujourd'hui}") shifted PA;
+
draw textext.urt ("URT-" & MonTexte) shifted PA;
−
draw textext.ulft("\ruledhbox{ULFT Aujourd'hui}") shifted PA;
+
draw textext.ulft("ULFT-" & MonTexte) shifted PA;
−
 
+
draw textext.llft("LLFT-" & MonTexte) shifted PA;
−
draw textext.llft("\ruledhbox{LLFT Aujourd'hui}") shifted PA;
+
draw textext.lrt ("LRT-" & MonTexte) shifted PA;
−
draw textext.lrt("\ruledhbox{LRT Aujourd'hui}") shifted PA;
 
  
 
draw PA withpen pencircle scaled 1.5mm  withcolor red;
 
draw PA withpen pencircle scaled 1.5mm  withcolor red;
Line 31: Line 31:
 
pair PB ;  PB := PA shifted (0cm,-2cm) ;
 
pair PB ;  PB := PA shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.drt("\ruledhbox{DRT Aujourd'hui}") shifted PB;
+
draw textext.drt ("DRT-" & MonTexte) shifted PB;
−
draw textext.dlft("\ruledhbox{DLFT Aujourd'hui}") shifted PB;
+
draw textext.dlft("DLFT-" & MonTexte) shifted PB;
  
 
draw PB withpen pencircle scaled 1.5mm  withcolor red;
 
draw PB withpen pencircle scaled 1.5mm  withcolor red;
Line 40: Line 40:
 
pair PC ;  PC := PB shifted (0cm,-2cm) ;
 
pair PC ;  PC := PB shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.d("\ruledhbox{D Aujourd'hui}") shifted PC;
+
draw textext.d("D-" & MonTexte) shifted PC;
  
  
Line 49: Line 49:
 
pair PD ;  PD := PC shifted (0cm,-2cm) ;
 
pair PD ;  PD := PC shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.bot("\ruledhbox{BOT Aujourd'hui}") shifted PD;
+
draw textext.bot("BOT-" & MonTexte) shifted PD;
−
draw textext.top("\ruledhbox{TOP Aujourd'hui}") shifted PD;
+
draw textext.top("TOP-" & MonTexte) shifted PD;
  
 
draw PD withpen pencircle scaled 1.5mm  withcolor red;
 
draw PD withpen pencircle scaled 1.5mm  withcolor red;
Line 58: Line 58:
 
pair PE ;  PE := PD shifted (0cm,-2cm) ;
 
pair PE ;  PE := PD shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.lft("\ruledhbox{LFT Aujourd'hui}") shifted PE;
+
draw textext.lft("LFT-" & MonTexte) shifted PE;
−
draw textext.rt("\ruledhbox{RT Aujourd'hui}") shifted PE;
+
draw textext.rt("RT-" & MonTexte)   shifted PE;
  
 
draw PE withpen pencircle scaled 1.5mm  withcolor red;
 
draw PE withpen pencircle scaled 1.5mm  withcolor red;
Line 67: Line 67:
 
pair PF ;  PF := PE shifted (0cm,-2cm) ;
 
pair PF ;  PF := PE shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext("\ruledhbox{Aujourd'hui}") shifted PF;
+
draw textext(MonTexte) shifted PF;
  
 
draw PF withpen pencircle scaled 1.5mm  withcolor red;
 
draw PF withpen pencircle scaled 1.5mm  withcolor red;
Line 75: Line 75:
 
pair PG ;  PG := PF shifted (0cm,-2cm) ;
 
pair PG ;  PG := PF shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.origin("\ruledhbox{ORIGIN Aujourd'hui}") shifted PG;
+
draw textext.origin("ORIGIN-" & MonTexte) shifted PG;
  
 
draw PG withpen pencircle scaled 1.5mm  withcolor red;
 
draw PG withpen pencircle scaled 1.5mm  withcolor red;
Line 83: Line 83:
 
pair PH ;  PH := PG shifted (0cm,-2cm) ;
 
pair PH ;  PH := PG shifted (0cm,-2cm) ;
 
    
 
    
−
draw textext.raw("\ruledhbox{RAW Aujourd'hui}") shifted PH;
+
draw textext.raw("RAW-" & MonTexte) shifted PH;
  
 
draw PH withpen pencircle scaled 1.5mm  withcolor red;
 
draw PH withpen pencircle scaled 1.5mm  withcolor red;
Line 91: Line 91:
 
\stopMPpage
 
\stopMPpage
  
−
\stoptext
+
 
 +
%==============================================================================
 +
%==============================================================================
 +
%==============================================================================
 +
 
 +
\setupMPinstance
 +
  [metafun]
 +
  [textstyle={\definedfont[name:dejavusans*default at 50pt]\ignorespaces}]
 +
 
 +
\startMPpage
 +
 
 +
string MonTexte ;
 +
MonTexte := "\ruledhbox{Aujourd'hui}";
 +
 
 +
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(MonTexte) 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) ;
 +
 
 +
def givedecalage(text temptext) =  ( (llcorner textext.urt(temptext)) -
 +
                                    (llcorner textext.drt(temptext)) ) enddef;
 +
 
 +
 
 +
PictB := textext.urt(MonTexte) shifted PB;
 +
 
 +
pair decalage ;
 +
decalage := givedecalage(MonTexte) ;
 +
 
 +
%------------------------------------------------------------------------------
 +
 
 +
draw PictB;
 +
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;
  
  
−
</context>
+
\stopMPpage
 +
 
 +
\stoptext

Revision as of 10:49, 20 December 2020

\starttext

\setupMPinstance 

 [metafun]
 [textstyle={\definedfont[name:dejavusans*default at 25pt]\ignorespaces}]

\startMPpage

string MonTexte ; MonTexte := "Aujourd'hui";

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 ("URT-" & MonTexte) shifted PA; draw textext.ulft("ULFT-" & MonTexte) shifted PA; draw textext.llft("LLFT-" & MonTexte) shifted PA; draw textext.lrt ("LRT-" & MonTexte) shifted PA;

draw PA withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PB ; PB := PA shifted (0cm,-2cm) ;

draw textext.drt ("DRT-" & MonTexte) shifted PB; draw textext.dlft("DLFT-" & MonTexte) shifted PB;

draw PB withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PC ; PC := PB shifted (0cm,-2cm) ;

draw textext.d("D-" & MonTexte) shifted PC;


draw PC withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PD ; PD := PC shifted (0cm,-2cm) ;

draw textext.bot("BOT-" & MonTexte) shifted PD; draw textext.top("TOP-" & MonTexte) shifted PD;

draw PD withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PE ; PE := PD shifted (0cm,-2cm) ;

draw textext.lft("LFT-" & MonTexte) shifted PE; draw textext.rt("RT-" & MonTexte) shifted PE;

draw PE withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PF ; PF := PE shifted (0cm,-2cm) ;

draw textext(MonTexte) shifted PF;

draw PF withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PG ; PG := PF shifted (0cm,-2cm) ;

draw textext.origin("ORIGIN-" & MonTexte) shifted PG;

draw PG withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

pair PH ; PH := PG shifted (0cm,-2cm) ;

draw textext.raw("RAW-" & MonTexte) shifted PH;

draw PH withpen pencircle scaled 1.5mm withcolor red;

%------------------------------------------------------------------------------

\stopMPpage


%============================================================================== %============================================================================== %==============================================================================

\setupMPinstance 

 [metafun]
 [textstyle={\definedfont[name:dejavusans*default at 50pt]\ignorespaces}]

\startMPpage

string MonTexte ; MonTexte := "\ruledhbox{Aujourd'hui}";

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(MonTexte) 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) ;

def givedecalage(text temptext) = ( (llcorner textext.urt(temptext)) - 

                                    (llcorner textext.drt(temptext)) ) enddef;


PictB := textext.urt(MonTexte) shifted PB;

pair decalage ; decalage := givedecalage(MonTexte) ;

%------------------------------------------------------------------------------

draw PictB; 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

Retrieved from "https://wiki.contextgarden.net/index.php?title=textext_positioning&oldid=32286"