Difference between revisions of "textext positioning"

From Wiki
Jump to navigation Jump to search
m
m
(20 intermediate revisions by the same user not shown)
Line 1: Line 1:
−
<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).
 +
 
 +
<context source="yes" mode="lmtx" >
 
\starttext
 
\starttext
  
 
\setupMPinstance
 
\setupMPinstance
 
   [metafun]
 
   [metafun]
−
   [textstyle={\definedfont[name:dejavusans*default at 25pt]\ignorespaces}]
+
   [textstyle={\definedfont[name:dejavusans*default at 15pt]\ignorespaces}]
−
 
+
 
 
\startMPpage
 
\startMPpage
  
Line 11: Line 16:
 
MonTexte := "Aujourd'hui";
 
MonTexte := "Aujourd'hui";
  
−
draw (0cm,0cm)--(20cm,0cm)--(20cm,20cm)--(0cm,20cm)--cycle
+
draw (0cm,0cm)--(15cm,0cm)--(15cm,15cm)--(0cm,15cm)--cycle
 
   withpen pencircle
 
   withpen pencircle
 
   scaled 0.5mm
 
   scaled 0.5mm
 
   withcolor red;
 
   withcolor red;
 +
 +
pair decal ;  decal := (0.0cm,-1.8cm) ;
  
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PA ;  PA := (10cm,16cm) ;
+
pair PA ;  PA := (7.5cm,13.5cm) ;
 
    
 
    
 
draw textext.urt ("URT-"  & MonTexte) shifted PA;
 
draw textext.urt ("URT-"  & MonTexte) shifted PA;
Line 29: Line 36:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PB ;  PB := PA shifted (0cm,-2cm) ;
+
pair PB ;  PB := PA shifted decal ;
 
    
 
    
 
draw textext.drt ("DRT-"  & MonTexte) shifted PB;
 
draw textext.drt ("DRT-"  & MonTexte) shifted PB;
−
%draw textext.dlft("DLFT-" & MonTexte) shifted PB;
+
draw textext.dflt("DLFT-" & MonTexte) shifted PB;
  
 
draw PB withpen pencircle scaled 1.5mm  withcolor red;
 
draw PB withpen pencircle scaled 1.5mm  withcolor red;
Line 38: Line 45:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PC ;  PC := PB shifted (0cm,-2cm) ;
+
pair PC ;  PC := PB shifted decal ;
 
    
 
    
 
draw textext.d("D-" & MonTexte) shifted PC;
 
draw textext.d("D-" & MonTexte) shifted PC;
−
 
  
 
draw PC withpen pencircle scaled 1.5mm  withcolor red;
 
draw PC withpen pencircle scaled 1.5mm  withcolor red;
Line 47: Line 53:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PD ;  PD := PC shifted (0cm,-2cm) ;
+
pair PD ;  PD := PC shifted decal ;
 
    
 
    
 
draw textext.bot("BOT-" & MonTexte) shifted PD;
 
draw textext.bot("BOT-" & MonTexte) shifted PD;
Line 56: Line 62:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PE ;  PE := PD shifted (0cm,-2cm) ;
+
pair PE ;  PE := PD shifted decal ;
 
    
 
    
 
draw textext.lft("LFT-" & MonTexte) shifted PE;
 
draw textext.lft("LFT-" & MonTexte) shifted PE;
Line 65: Line 71:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PF ;  PF := PE shifted (0cm,-2cm) ;
+
pair PF ;  PF := PE shifted decal ;
 
    
 
    
 
draw textext(MonTexte) shifted PF;
 
draw textext(MonTexte) shifted PF;
Line 73: Line 79:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PG ;  PG := PF shifted (0cm,-2cm) ;
+
pair PG ;  PG := PF shifted decal ;
 
    
 
    
 
draw textext.origin("ORIGIN-" & MonTexte) shifted PG;
 
draw textext.origin("ORIGIN-" & MonTexte) shifted PG;
Line 81: Line 87:
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
  
−
pair PH ;  PH := PG shifted (0cm,-2cm) ;
+
pair PH ;  PH := PG shifted decal ;
 
    
 
    
 
draw textext.raw("RAW-" & MonTexte) shifted PH;
 
draw textext.raw("RAW-" & MonTexte) shifted PH;
Line 88: Line 94:
  
 
%------------------------------------------------------------------------------
 
%------------------------------------------------------------------------------
−
 
−
\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
 
\stopMPpage

Revision as of 14:31, 5 September 2021

Note:

  • With MkIV, be careful to use textext.dflt which means DeFauLT.
  • With LMTX, be careful to use textext.dlft) for LeFT, like textext.ulft) and textext.llft)
    • (textext.dflt does not work with LMTX).
\starttext

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

\startMPpage

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

draw (0cm,0cm)--(15cm,0cm)--(15cm,15cm)--(0cm,15cm)--cycle
  withpen pencircle
  scaled 0.5mm
  withcolor red;

pair decal ;  decal := (0.0cm,-1.8cm) ;

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

pair PA ;  PA := (7.5cm,13.5cm) ;
  
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 decal ;
  
draw textext.drt ("DRT-"  & MonTexte) shifted PB;
draw textext.dflt("DLFT-" & MonTexte) shifted PB;

draw PB withpen pencircle scaled 1.5mm  withcolor red;

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

pair PC ;  PC := PB shifted decal ;
  
draw textext.d("D-" & MonTexte) shifted PC;

draw PC withpen pencircle scaled 1.5mm  withcolor red;

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

pair PD ;  PD := PC shifted decal ;
  
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 decal ;
  
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 decal ;
  
draw textext(MonTexte) shifted PF;

draw PF withpen pencircle scaled 1.5mm  withcolor red;

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

pair PG ;  PG := PF shifted decal ;
  
draw textext.origin("ORIGIN-" & MonTexte) shifted PG;

draw PG withpen pencircle scaled 1.5mm  withcolor red;

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

pair PH ;  PH := PG shifted decal ;
  
draw textext.raw("RAW-" & MonTexte) shifted PH;

draw PH withpen pencircle scaled 1.5mm  withcolor red;

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

\stopMPpage

\stoptext

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