灰度图像处理：计算均值与方差教程

##############################################################################
#   File generated by HDevelop
##############################################################################
# Procedures 
# External procedures 
# Chapter: Graphics / Text
# Short Description: This procedure displays 'Click 'Run' to continue' in the lower right corner of the screen. 
procedure disp_continue_message (: : WindowHandle, Color, Box: )
  * This procedure displays 'Press Run (F5) to continue' in the
  * lower right corner of the screen.
  * It uses the procedure disp_message.
  * 
  * Input parameters:
  * WindowHandle: The window, where the text shall be displayed
  * Color: defines the text color.
  *    If set to '' or 'auto', the currently set color is used.
  * Box: If set to 'true', the text is displayed in a box.
  * 
  ContinueMessage := 'Press Run (F5) to continue'
  get_window_extents (WindowHandle, Row, Column, Width, Height)
  get_string_extents (WindowHandle, ' ' + ContinueMessage + ' ', Ascent, Descent, TextWidth, TextHeight)
  disp_message (WindowHandle, ContinueMessage, 'window', Height - TextHeight - 12, Width - TextWidth - 12, Color, Box)
  return ()


# Chapter: Graphics / Text
# Short Description: This procedure writes a text message. 
procedure disp_message (: : WindowHandle, String, CoordSystem, Row, Column, Color, 
    Box: )
  * 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
  *    If set to -1, a default value of 12 is used.
  * Column: The column coordinate of the desired text position
  *    If set to -1, a default value of 12 is used.
  * 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
  *    for each new textline.
  * 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 (same as if no second value is given)
  *        otherwise -> use given string as color string for the shadow color
  * 
  * Prepare window
  get_rgb (WindowHandle, Red, Green, Blue)
  get_part (WindowHandle, Row1Part, Column1Part, Row2Part, Column2Part)
  get_window_extents (WindowHandle, RowWin, ColumnWin, WidthWin, HeightWin)