PSEDP(3g) — Subroutines

Name

PSEDP − Modifies the entries in the extended edge bundle table.

Operating States: PHOP, WSOP, ∗, ∗
PHIGS PLUS function

Old Syntax

DSERP (WKID, EDI, EDFLAG, EDTYPE, EWIDTH, CLRTYP, ICOLR, COLR)

Argument       Data Type      Access     Description
---------------------------------------------------------------------------
WKID           Integer        Read       Workstation identifier
EDI            Integer        Read       Edge index
EDFLAG         Integer        Read       Edge flag
EDTYPE         Integer        Read       Edge type
EWIDTH         Real           Read       Edge width scale factor
CLRTYP         Integer        Read       Edge color type
ICOLR          Integer        Read       Edge indexed color value
COLR(3)        Array of       Read       Edge direct color value
               reals
---------------------------------------------------------------------------

New Syntax

PSEDP (WKID, EDI, EDFLAG, EDTYPE, EWIDTH, CTYPE, COLI, NCC, COLR)

Argument       Data Type      Access     Description
---------------------------------------------------------------------------
WKID           Integer        Read       Workstation identifier
EDI            Integer        Read       Edge index
EDFLAG         Integer        Read       Edge flag
EDTYPE         Integer        Read       Edge type
EWIDTH         Real           Read       Edge width scale factor
CLRTYP         Integer        Read       Edge color type
COLI           Integer        Read       Edge indexed color value
NCC            Integer        Read       Number of color value components
COLR(NCC)      Array of       Read       Edge color values
               reals
---------------------------------------------------------------------------

Constants

Defined Argument     Constant     Description
---------------------------------------------------------------------------
EDFLAG               POFF         Edges off. This is the default
                                  value.
                     PON          Edges on.
EDTYPE               PLSOLI       Solid edge. This is the default
                                  value.
                     PLDASH       Dashed edge.
                     PLDOT        Dotted edge.
                     PLDASD       Dashed-dotted edge.
CTYPE                PINDIR       Indirect (indexed) color
                     PRGB         Direct specification of red, green,
                                  and blue
                     PCIE         Direct specification in the format of the
                                  Commission Internationale de l’Eclairage
                     PHSV         Direct specification of hue, saturation,
                                  and value
                     PHLS         Direct specification of hue, lightness,
                                  and saturation
---------------------------------------------------------------------------

Other, nonstandard, edge types are available. See Constants.

Description

PSEDP allows you to modify the entries in the extended edge bundle table in the workstation state list by defining a new index. There are four entries in the table: edge flag, edge type, edge width scale factor, and edge color.

The edge flag enables or disables the ability to draw edges. The edge type defines the line type used to draw the edges.

During structure traversal, Digital PHIGS multiplies the edge width scale factor by the nominal edge width on a workstation. The workstation maps the result to the nearest available edge width.

The edge color is either an indirect or direct color in a specified color model. If you specify an indirect color and the color index is unavailable, Digital PHIGS uses color index 1 during structure reversal.

The extended edge bundle table in the workstation state list has predefined entries taken from the workstation description table. A number of these entries are predefined for every workstation of category OUTPUT and OUTIN. Redefine any table entry using this function.

When Digital PHIGS displays area-defining primitives during structure traversal, the current edge index in the PHIGS PLUS traversal state list refers to an entry in the extended edge bundle table. If the current edge index is not present in the extended edge bundle table, Digital PHIGS uses edge index 1. The setting of the corresponding ASF determines which of the aspects in an entry Digital PHIGS uses.

During structure traversal, if the current edge index does not exist in the extended table, Digital PHIGS uses edge index 1. If CTYPE = PINDIR, the function uses the COLI argument. Otherwise, the function uses the COLR argument.

The new function syntax conforms to the ISO Fortran standard. Digital recommends that you code using the new function syntax.