Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/pgqtxt.dc2 Дата изменения: Wed Oct 31 05:16:15 2001 Дата индексирования: Fri Jan 16 01:18:48 2009 Кодировка: Поисковые слова: arp 220

Name: PGQTXT

Purpose: find bounding box of text string

Category: GRAPHICS

File: pgplot.src

Author: T.J. Pearson

Use: see description below.

Description:

SUBROUTINE PGQTXT (X, Y, ANGLE, FJUST, TEXT, XBOX, YBOX)
REAL X, Y, ANGLE, FJUST
CHARACTER*(*) TEXT
REAL XBOX(4), YBOX(4)

This routine returns a bounding box for a text string. Instead
of drawing the string as routine PGPTXT does, it returns in XBOX
and YBOX the coordinates of the corners of a rectangle parallel
to the string baseline that just encloses the string. The four
corners are in the order: lower left, upper left, upper right,
lower right (where left and right refer to the first and last
characters in the string).

If the string is blank or contains no drawable characters, all
four elements of XBOX and YBOX are assigned the starting point
of the string, (X,Y).

Arguments:
X, Y, ANGLE, FJUST, TEXT (input) : these arguments are the same as
the corrresponding arguments in PGPTXT.
XBOX, YBOX (output) : arrays of dimension 4; on output, they
contain the world coordinates of the bounding
box in (XBOX(1), YBOX(1)), ..., (XBOX(4), YBOX(4)).

Updates: Oct 16, 1998: JPT automatically extracted from source.