Back|Forward

DCL:GRPH2:UEPACK :Tone Fill Routines: Explanation of Subroutines

9.2.8 UEpGET/UEpSET(UEpSTX)

1.

Functions

Inquires/changes an internal variable used by the UEPACK subroutine package. (UEpSTX permits changes with a runtime option.)

2.

Call

CALL UEpGET(CP,IPARA)
CALL UEpSET(CP,IPARA)
CALL UEpSTX(CP,IPARA)

3.

Explanation of Parameters

CP	(C*8)	The name of an internal standard.
IPARA	(I,R,L)	The value of an internal standard.

Below is a list of names that can be used to specify as CP.

'LTONE'	(L)	This specifies whether the UEGTLB will be used to generate a tone level and pattern when the tone level for the fill pattern is not specified by the user. When .TRUE., UEGTLB is used; when .FALSE., tone level with value below 'RLEV' (see below) will be filled. (The initial value is .FALSE..)
'RLEV'	(R)	The value of the boundary level when 'LTONE' is .FALSE.. (The initial value is 0.0.) The area with value below the value specified here will be filled.
'IPAT'	(I)	The tone pattern to fill an area with tone level below the internal variable 'RLEV' when 'LTONE' is .FALSE.. (The initial value is 1201: right-up hatch pattern)
'ICOLOR1'	(I)	The lower limit of the value for color index when 'LTONE' is .TRUE.. (The initial value is 15.)
'ICOLOR2'	(I)	The upper limit of the value for color index when 'LTONE' is .TRUE.. (The initial value is 94.)
'ITPAT'	(I)	The tone pattern index used when 'LTONE' is .TRUE.. (The initial value is 999; solid fill)

4.

Notes

(a)

The following are the subroutines that handle internal variables.

UEPQNP(NCP)	Counts the total number (NCP) of internal variables.
UEPQID(CP,IDX)	Determines the position (IDX) of the internal variable CP.
UEPQCP(IDX,CP)	Inquires the name (CP) of the internal variable at position IDX.
UEPQVL(IDX,IPARA)	Inquires the value (IPARA) of the internal variable at position IDX.
UEPSVL(IDX,IPARA)	Changes the value (IPARA) of the internal variable at position IDX

(b)

UEpGET calls the above-mentioned UEPQID to determine the position of an internal variable, and inquires the value by UEPQVL; UEpSET calls UEPQID to determine the position of an internal variable and changes the value using UEPSVL Therefore, when the specified internal variable is not found, an error message will be printed by UEPQID.

(c)

Besides those listed above, there are internal variables in the UEPACK that are equivalent to the internal variables 'NLEV' and 'ICYCLE' in the UDPACK for maintaining the equivalence of an algorithm with UDGCLA and UDGCLB  When the values of these internal variables are changed in the UDPACK, they must also be changed in the UEPACK.

(d)

An appropriate type of constant or variable should be specified for ITYPE.