---

Manual Reference Pages  - strlength (3)

---

NAME

strlength(3f) - [M_draw:TEXT] return length of string (LICENSE:PD)

CONTENTS

Synopsis
Description
Returns
Example

SYNOPSIS

real function strlength(string) character(len=*),intent(in) :: string

DESCRIPTION

Return the length of the string "STRING" in world units.

RETURNS

STRLENGTH
	length of string using current font size

EXAMPLE

Sample Program:

   program demo_strlength
   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
   real    :: left
   real    :: baseline
   integer :: icolor=0
   real    :: texth=10.0
      !! set up drawing surface
      call prefsize(800, 400)
      call vinit(’ ’) ! start graphics using device $M_DRAW_DEVICE
      call page(-100.0, 300.0, -100.0, 100.0)
      call color(D_WHITE)
      call clear()
      call linewidth(40)
      call textsize(texth, texth)
      call xcentertext()
      call color(D_RED)

      baseline=85.0
      call move2(0.0,baseline)
      call drawstr(’If I Can Stop One Heart’)
      baseline= baseline-texth*1.20
      call move2(0.0,baseline)
      call drawstr(’by Emily Dickinson’)
      call centertext(.false.)

      texth=8.5
      baseline=baseline-texth*1.50
      call textsize(texth, texth)
      left=-90.0

      call nextline(’If I can stop one heart from breaking,’)
      call nextline(’I shall not live in vain;’)
      call nextline(’If I can ease one life the aching,’)
      call nextline(’Or cool one pain,’)
      call nextline(’Or help one fainting robin’)
      call nextline(’Unto his nest again,’)
      call nextline(’I shall not live in vain.’)

      ipaws=getkey()
      call vexit()
   contains
   subroutine nextline(string)
   character(len=*) :: string
   real :: xx
   !! reduce some duplicate code; very specific to this EXAMPLE
      call color(icolor)
      baseline=baseline-texth*1.5    ! move down before drawing line
         call polyfill(.true.)
            call makepoly()
               xx=strlength(string)
               call rect(left,baseline-texth*0.3,left+xx,baseline+texth)
            call closepoly()
         call polyfill(.false.)
      call color(D_WHITE)
      call move2(left, baseline)
      call drawstr(string)    ! draw string
      icolor=icolor+1         ! set pen color
   end subroutine nextline

   end program demo_strlength

---

strlength (3)

March 11, 2021

Generated by manServer 1.08 from 03b4d954-9739-4072-824e-4fc75d8197ac using man macros.