def @TeX
{
    @OneCol { T &0.4fo {-0.2f @VShift E} &0.45fo X }
}

def @MkNewLine
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 0 lineto xsize ysize lineto"
     "0 ysize lineto closepath fill"
   } @Graphic { 0.5f @High ^// 0.25f @High 0.5f @Wide }
}

def @MkNoNewLine
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 0 lineto xsize 2 mul 3 div ysize 2 div lineto"
     "xsize ysize lineto 0 ysize lineto xsize 3 div ysize 2 div lineto"
     "closepath fill"
   } @Graphic { 0.5f @High ^// 0.25f @High 0.5f @Wide }
}

def @MkIndent
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 3 div 0 lineto xsize ysize 2 div lineto"
     "xsize 3 div ysize lineto 0 ysize lineto closepath fill"
   } @Graphic { 0.5f @High ^// 0.25f @High 0.5f @Wide }
}

def @MkSentence
{
   @HContract @VContract lightmagenta @Colour
   {
     "xsize 2 div 0 moveto xsize ysize 2 div lineto xsize 2 div ysize lineto"
     "0 ysize 2 div lineto closepath fill"
   } @Graphic { 0.5f @High ^// 0.25f @High 0.5f @Wide }
}

def @MkRight
{
   @HContract @VContract lightmagenta @Colour
   {
     "xsize 2 mul 3 div 0 moveto xsize 0 lineto xsize ysize lineto"
     "xsize 2 mul 3 div ysize lineto 0 ysize 2 div lineto closepath fill"
   } @Graphic { 0.5f @High ^// 0.25f @High 0.5f @Wide }
}

def @MkNewColumn
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 0 lineto xsize ysize lineto"
     "0 ysize lineto closepath fill"
   } @Graphic { 0.25f @High ^// 0.25f @High 1.0f @Wide }
}

def @MkNoNewColumn
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 2 div ysize 3 div lineto xsize 0 lineto"
     "xsize ysize lineto xsize 2 div ysize 2 mul 3 div lineto"
     "0 ysize lineto closepath fill"
   } @Graphic { 0.25f @High ^// 0.25f @High 1.0f @Wide }
}

def @MkDowndent
{
   @HContract @VContract lightmagenta @Colour
   {
     "xsize 2 div 0 moveto xsize ysize 2 mul 3 div lineto xsize ysize lineto"
     "0 ysize lineto 0 ysize 2 mul 3 div lineto closepath fill"
   } @Graphic { 0.25f @High ^// 0.25f @High 1.0f @Wide }
}

def @MkPart
{
   @HContract @VContract lightmagenta @Colour
   {
     "xsize 2 div 0 moveto xsize ysize 2 div lineto xsize 2 div ysize lineto"
     "0 ysize 2 div lineto closepath fill"
   } @Graphic { 0.25f @High ^// 0.25f @High 1.0f @Wide }
}

def @MkBottom
{
   @HContract @VContract lightmagenta @Colour
   {
     "0 0 moveto xsize 0 lineto xsize ysize 3 div lineto"
     "xsize 2 div ysize lineto 0 ysize 3 div lineto closepath fill"
   } @Graphic { 0.25f @High ^// 0.25f @High 1.0f @Wide }
}
