* This procedure displays text in a graphics window.
*
* Input parameters:
* WindowHandle: The WindowHandle of the graphics window, where
* the message should be displayed
* String: A tuple of strings containing the text message to be displayed
* CoordSystem: If set to 'window', the text position is given
* with respect to the window coordinate system.
* If set to 'image', image coordinates are used.
* (This may be useful in zoomed images.)
* Row: The row coordinate of the desired text position
* A tuple of values is allowed to display text at different
* positions.
* Column: The column coordinate of the desired text position
* A tuple of values is allowed to display text at different
* positions.
* Color: defines the color of the text as string.
* If set to [], '' or 'auto' the currently set color is used.
* If a tuple of strings is passed, the colors are used cyclically...
* - if |Row| == |Column| == 1: for each new textline
* = else for each text position.
* Box: If Box[0] is set to 'true', the text is written within an orange box.
* If set to' false', no box is displayed.
* If set to a color string (e.g. 'white', '#FF00CC', etc.),
* the text is written in a box of that color.
* An optional second value for Box (Box[1]) controls if a shadow is displayed:
* 'true' -> display a shadow in a default color
* 'false' -> display no shadow
* otherwise -> use given string as color string for the shadow color
*
* It is possible to display multiple text strings in a single call.
* In this case, some restrictions apply:
* - Multiple text positions can be defined by specifying a tuple
* with multiple Row and/or Column coordinates, i.e.:
* - |Row| == n, |Column| == n
* - |Row| == n, |Column| == 1
* - |Row| == 1, |Column| == n
* - If |Row| == |Column| == 1,
* each element of String is display in a new textline.
* - If multiple positions or specified, the number of Strings
* must match the number of positions, i.e.:
* - Either |String| == n (each string is displayed at the
* corresponding position),
* - or |String| == 1 (The string is displayed n times).
*
*
* Convert the parameters for disp_text.
if (Row == [] or Column == [])
return ()
endif
if (Row == -1)
Row := 12
endif
if (Column == -1)
Column := 12
endif
*
* Convert the parameter Box to generic parameters.
GenParamName := []
GenParamValue := []
if (|Box| > 0)
if (Box[0] == 'false')
* Display no box
GenParamName := [GenParamName,'box']
GenParamValue := [GenParamValue,'false']
elseif (Box[0] != 'true')
* Set a color other than the default.
GenParamName := [GenParamName,'box_color']
GenParamValue := [GenParamValue,Box[0]]
endif
endif
if (|Box| > 1)
if (Box[1] == 'false')
* Display no shadow.
GenParamName := [GenParamName,'shadow']
GenParamValue := [GenParamValue,'false']
elseif (Box[1] != 'true')
* Set a shadow color other than the default.
GenParamName := [GenParamName,'shadow_color']
GenParamValue := [GenParamValue,Box[1]]
endif
endif
* Restore default CoordSystem behavior.
if (CoordSystem != 'window')
CoordSystem := 'image'
endif
*
if (Color == '')
* disp_text does not accept an empty string for Color.
Color := []
endif
*
disp_text (WindowHandle, String, CoordSystem, Row, Column, Color, GenParamName, GenParamValue)
return ()
