PSIP(3g) — Subroutines

Name

PSIP − Modifies the entries in the extended interior bundle table.

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

Old Syntax

DSIRP (WKID, II, CLRTYP, FICOLR, FCOLR, BCLRTP, BICOLR, BCOLR, INTS,
BINTS, ISTYLI, BISTLI, RFEQN, BRFEQN, SHDMD, BSHDMD, AMB, DIFF, SPEC, SPCCT,
FSICLR, FSCLR, SPECXP, TRANS, BAMB, BDIFF, BSPEC, BSPCCT, BSICLR, BSCLR,
BSPECX, BTRANS, APRXTP, SLDR, SDR, TRIMTP, TLDR, TDR)

Argument       Data Type      Access     Description
---------------------------------------------------------------------------
WKID           Integer        Read       Workstation identifier
II             Integer        Read       Interior index
CLRTYP         Integer        Read       Front interior color type
FICOLR         Integer        Read       Front indexed color value
FCOLR(3)       Array of       Read       Front direct color value
               reals
BCLRTP         Integer        Read       Back interior color type
BICOLR         Integer        Read       Back indexed color value
BCOLR(3)       Array of       Read       Back direct color value
               reals
INTS           Integer        Read       Front interior style
BINTS          Integer        Read       Back interior style
ISTYLI         Integer        Read       Front interior style index
BISTLI         Integer        Read       Back interior style index
RFEQN          Integer        Read       Front interior reflectance equation
BRFEQN         Integer        Read       Back interior reflectance equation
SHDMD          Integer        Read       Front interior shading method
BSHDMD         Integer        Read       Back interior shading method
AMB            Real           Read       Front ambient reflection coefficient
DIFF           Real           Read       Front diffuse reflection coefficient
SPEC           Real           Read       Front specular reflection
                                         coefficient
SPCCT          Integer        Read       Front specular color type
FSICLR         Integer        Read       Front specular indexed color value
FSCLR(3)       Array of       Read       Front specular direct color
               reals                     value
SPECXP         Real           Read       Front specular exponent
TRANS          Real           Read       Front transparency coefficient
BAMB           Real           Read       Back ambient reflection coefficient
BDIFF          Real           Read       Back diffuse reflection coefficient
BSPEC          Real           Read       Back specular reflection coefficient
BSPCCT         Integer        Read       Back specular color type
BSICLR         Integer        Read       Back specular indexed color value
BSCLR(3)       Array of       Read       Back specular direct color
               reals                     value
BSPECX         Real           Read       Back specular exponent
BTRANS         Real           Read       Back transparency coefficient
APRXTP         Integer        Read       Surface approximation criteria type
SLDR           Integer        Read       Length of surface approximation
                                         data record
SDR(SLDR)      Character ∗80 Read       Surface approximation criteria data
                                         record
TRIMTP         Integer        Read       Trimming curve approximation
                                         criteria type
TLDR           Integer        Read       Length of trimming curve
                                         approximation data record
TDR(TLDR)      Character ∗80 Read       Trimming curve approximation data
                                         record
---------------------------------------------------------------------------

New Syntax

PSIP (WKID, II, INTS, STYLI, CTYPE, COLI, NCC, COLR, ISM)

Argument       Data Type      Access     Description
---------------------------------------------------------------------------
WKID           Integer        Read       Workstation identifier
II             Integer        Read       Interior index
INTS           Integer        Read       Front interior style
STYLI          Integer        Read       Interior style index
CTYPE          Integer        Read       Interior color type
COLI           Integer        Read       Color index
NCC            Integer        Read       Number of color value components
COLR(NCC)      Real           Read       Color values
ISM            Integer        Read       Interior shading method
---------------------------------------------------------------------------

Constants

Defined Argument      Constant     Description
---------------------------------------------------------------------------
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
INTS                  PHOLLO       Hollow interior. This is the default
                                   value.
                      PSOLID       Solid interior.
                      PPATTR       Patterned interior.
                      PHATCH       Hatched interior.
                      PISEMP       Empty interior.
ISM                   PNOIS        No interpolation, constant shading.
                      PCIS         Linear interpolation of color.
                      PDDIS        Interpolation of color based on dot
                                   products.
                      PDNIS        Interpolation of color based on normals.
---------------------------------------------------------------------------

Description

PSIP allows you to modify the entries in the extended interior bundle table in the workstation state list by defining a new index. The extended interior 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. You can redefine any table entry using this function, including predefined entries.

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

During structure traversal, if the current interior index does not exist in the extended table, Digital PHIGS uses interior 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.