\ textalign 99.4.29 NAB

needs graphics

: type.left
( c-addr u left-margin -- )
  cursor-position drop swap at type ;

: pixel-width ( c-addr u -- width ) 
  swap >abs FntCharsWidth ;

: type.right
( c-addr u right-margin -- )
  >r  2dup pixel-width  r>
  swap - cursor-position drop over
  >r >r  type.left  r> r> at ;

: type.center ( c-addr u center -- )
  >r  2dup pixel-width  r>
  swap 2/ - type.left ;
