1LBFILL(3NCARG) NCAR GRAPHICS LBFILL(3NCARG)
2
3
4
6 LBFILL - A routine that is called by LBLBAR (when the argument IFTP is
7 non-zero) to fill portions of the bar. The default version of this
8 routine does color fill by calling GSFACI and GFA. A user-written
9 version may be supplied to do a different kind of fill.
10
12 CALL LBFILL (IFTP, XCRA, YCRA, NCRA, INDX)
13
15 IFTP (an input expression of type INTEGER) is the value of the
16 argument IFTP from the user's call to LBLBAR.
17
18 XCRA, YCRA (input arrays of type REAL) are real arrays containing the
19 X and Y coordinates of five points defining a rectangular
20 box which is to be filled in some manner. The fifth point
21 defined by these arrays will always be a duplicate of the
22 first.
23
24 NCRA (an input expression of type INTEGER) is the number of
25 points defining the rectangular box. Its value will always
26 be five.
27
28 INDX (an input expression of type INTEGER) is one of the indices
29 from the array LFIN, in the user's call to LBLBAR. Its
30 value may be used as a color index or as a pattern
31 selector.
32
34 This routine is called by LBLBAR when LBLBAR's argument IFTP is non-
35 zero. LBFILL is called once for each sub-box in the label bar, using a
36 statement of the form:
37
38 CALL LBFILL (IFTP,XCRA,YCRA,NCRA,INDX)
39
40 and is expected to fill the sub-box defined by its arguments. The
41 default version of the routine looks like this:
42
43 SUBROUTINE LBFILL (IFTP,XCRA,YCRA,NCRA,INDX)
44 DIMENSION XCRA(*),YCRA(*)
45 CALL GSFACI (INDX)
46 CALL GFA (NCRA-1,XCRA,YCRA)
47 RETURN
48 END
49
50 This version does color fill of the box, using the last argument as a
51 color index. The user may replace this routine with a version that does
52 any desired sort of fill; usually, this can be done by simply compiling
53 the desired version, so that the default one from the package will not
54 be loaded.
55
57 To use LBFILL, load the NCAR Graphics libraries ncarg, ncarg_gks, and
58 ncarg_c, preferably in that order.
59
61 Online: labelbar, labelbar_params, lbgeti, lbgetr, lblbar, lbseti,
62 lbsetr, ncarg_cbind
63
64 Hardcopy: NCAR Graphics Fundamentals, UNIX Version
65
67 Copyright (C) 1987-2009
68 University Corporation for Atmospheric Research
69
70 The use of this Software is governed by a License Agreement.
71
72
73
74UNIX March 1993 LBFILL(3NCARG)