The following sets of routines are available:
Create and Handle a Progress Bar View-Object
The following routines are available:
Create a progress bar view-object - xdl_progress_bar
Set the current value - xdl_progress_bar_value
Fortran call: CALL XDLF_PROGRESS_BAR (IVH, IXROOT, IYROOT, + XDLSTR(TITLE), ITLEN, + IND_LEN, MAX_VAL, IFONT, ICOLR)
Parameters: IVH (R) View-object handle (see vh) IXROOT (R) Root x position for the window (see xroot) IYROOT (R) Root y position for the window (see yroot) TITLE (R) Fortran character string containing the title ** Pass address using the XDLSTR function ** (cf title) ITITL (R) The title length (> 0) (cf title_len) IND_LEN (R) Length of the 'indicator bar' in pixels (see ind_len) MAX_VAL (R) Maximum value indicating completion (see max_val) IFONT (R) Font type 1 to 5 very-small to extra-large (see font_type) ICOLR (R) Colour type 1 to 6 for red, yellow, green, cyan, blue, magenta (see colr)
'C' call: void xdl_progress_bar (vh, xroot, yroot, title, title_len, ind_len, max_val, font_type, colr)
Parameters: int vh; /* User selected view-object handle (R)*/ int xroot; /* x root position for top left of window (may be repositioned if necessary) (R) */ int yroot; /* y root position for top left of window (may be repositioned if necessary) (R) */ char * title; /* Title string (R)*/ int title_len; /* The length of the title string; if the string is null terminated then 0 may be given and the program will determine the string length (R)*/ int ind_len; /* Length of the indicator bar in pixels. This will start as an open bar which will be filled up as values indicating progress are supplied (R)*/ int max_val; /* The maximum value which indicates completion of the task (R)*/ int font_type; /* Font type 1 to 5 very-small to extra-large */ int colr; /* Colour type for filling the indicator bar (if colour available) 1 to 6 for Red, Yellow, Green, Cyan, Blue, Magenta (R)*/ /* Note: Calls xdl_flush_events to enable initial painting. */
Return: None
Fortran call: CALL XDLF_PROGRESS_BAR_VALUE (IVH, IVAL, IERR)
Parameters: IVH (R) View-object handle (see vh) IVAL (R) The current value (see value) IERR (W) The return from the xdl_progress_bar_value call
'C' call: int xdl_progress_bar_value (vh, value)
Parameters: int vh; /* View-object handle for the progress bar object (R)*/ int value; /* The current value indicating the progress (up to the max_val value passed to xdl_progress_bar) (R)*/ /* Note: Calls xdl_flush_events on each valid call. */
Return: = 0 OK, >0 error bit 0 set: View-object handle not found bit 1 set: View handle does not match view object;