textsize Subroutine

  ppm - portable pixmap file format

  The portable pixmap format is a lowest common denominator
  color image file format. The definition is as follows:

  - A "magic number" for identifying the file type. A ppm
    file's magic number is the two characters "P3".

  - Whitespace (blanks, TABs, CRs, LFs).

  - A width, formatted as ASCII characters in decimal.

  - Whitespace.

  - A height, again in ASCII decimal.

  - Whitespace.

  - The maximum color-component value, again in ASCII decimal.

  - Whitespace.

  - Width * height pixels, each three ASCII decimal values
    between 0 and the specified maximum value, starting at the
    top-left corner of the pixmap,  proceeding in normal
    English reading order. The three values for each pixel
    represent red, green, and blue, respectively; a value of 0
    means that color is off, and the maximum value means that
    color is maxxed out.

  - Characters from a "#" to the next end-of-line are ignored
    (comments).

  - No line should be longer than 70 characters.

  Here is an example of a small pixmap in this format:
  P3
  # feep.ppm
  4 4
  15
   0  0  0    0  0  0    0  0  0   15  0 15
   0  0  0    0 15  7    0  0  0    0  0  0
   0  0  0    0  0  0    0 15  7    0  0  0
  15  0 15    0  0  0    0  0  0    0  0  0

  Programs that read this format should be as lenient as possible,
  accepting anything that looks remotely like a pixmap.

  There is also a variant on the format, available by setting
  the RAWBITS option at compile time. This variant is
  different in the following ways:

  - The "magic number" is "P6" instead of "P3".

  - The pixel values are stored as plain bytes,  instead of
    ASCII decimal.

  - Whitespace is not allowed in the pixels area, and only a
    single character of whitespace (typically a newline) is
    allowed after the maxval.

  - The files are smaller and many times faster to read and
    write.

  Note that this raw format can only be used for maxvals less
  than or equal to 255. If you use the ppm library and try to
  write a file with a larger maxval,  it will automatically
  fall back on the slower but more general plain format.

  Copyright (C) 1989, 1991 by Jef Poskanzer.

              Last change: 27 September 1991

textsize(3f) - [M_pixel:TEXT] set text size in world units
(LICENSE:PD)

subroutine textsize(width, height)
real,intent(in) :: width
real,intent(in) :: height

Set the maximum size of a character in the current font. Width
and height are values in world units. This only applies to software
text. This must be done after the font being scaled is loaded. To keep
text of different sizes aligned along the same baseline note that you
typically need to subtrace the descender height from the Y position.

program demo_textsize
use M_pixel
use M_writegif, only : writegif
implicit none
integer :: i,ii
   !! set up long bar as plotting area
   call prefsize(900,150)
   call vinit()
   call ortho2(-30.0, 30.0, -5.0, 5.0)
   call font('DUPLEX')
   call move2(-23.0,-4.5)
   call color(7)
   call textsize(2.0,2.0)
   call move2(-27.5,-3.0)
   call draw2( 27.5,-3.0)
   call move2(-27.5,-3.0)
   do i=1,7
      ii=nint((i*20)*0.30)
      call linewidth(nint(ii*2.35))
      call textsize(real(i),real(i))
      call color(5)
      call drawstr('aA')
   enddo
   ! write plot as GIF file
   call writegif('textsize.3m_pixel.gif',P_pixel,P_colormap)
   call vexit()
   ! use system to display GIF file
   call execute_command_line('display textsize.3m_pixel.gif')
end program demo_textsize

John S. Urban

Public Domain