[UP]


Manual Reference Pages  - leftjustify (3)

NAME

leftjustify(3f) - [M_draw:TEXT] left justify text (LICENSE:PD)

CONTENTS

Synopsis
Description
Example

SYNOPSIS

subroutine leftjustify()

DESCRIPTION

Left justifies text. The text string will begin at the current position and extend to the notional right. Right justification and X centering are turned off.

EXAMPLE

Sample program:

   program demo_leftjustify
   use M_draw
   use M_draw,    only  : D_BLACK,   D_WHITE
   use M_draw,    only  : D_RED,     D_GREEN,    D_BLUE
   use M_draw,    only  : D_YELLOW,  D_MAGENTA,  D_CYAN
   implicit none
   real    :: x1, x2, y1, y2
   real    :: scl, ax, bx
   integer :: key
      call prefsize(1200,120)
      call vinit(’ ’)
      x1=0; x2=40; y1=0; y2=4; scl=1.9
      call page(x1,x2,y1,y2)
      call textsize(0.9*scl,1.4*scl)
      call font("times.rb")
      call linewidth(200)
      AX=(x1+x2)/2+1; BX=y1+1.3
      call move2(AX,BX)
      call leftjustify()
      call color(D_GREEN)
      call drawstr("leftjustify()")
      call color(D_RED)
      call move2(AX-1.0,BX)
      call draw2(AX+1.0,BX)
      call move2(AX,BX-1.0)
      call draw2(AX,BX+1.0)
      call vflush()
      key=getkey()
      call vexit()
   end program demo_leftjustify


leftjustify (3) March 11, 2021
Generated by manServer 1.08 from 8a5dd620-f608-417d-af2e-571bf2c55628 using man macros.