[ Previous | Next | Contents | Glossary | Home | Search ]
The graPHIGS Programming Interface: ISO PHIGS Subroutine Reference

Chapter 18. ISO PHIGS FORTRAN Enumeration Types

C    ******************************************************
C    *        ISO PHIGS FORTRAN Enumeration Types         *
C    *                                                    *
C    *   All the enumeration types of PHIGS are mapped    *
C    * to Fortran INTEGERs.  The correspondence between   *
C    * PHIGS scalars and FORTRAN INTEGERs is as follows   *
C    * in a list of symbolic FORTRAN constants that may   *
C    * be included by an application program.  Also       *
C    * included is a mapping of PHIGS enumeration types   *
C    * to FORTRAN variable names.  Line type, marker type,*
C    * and color model are included for convenience even  *
C    * though PHIGS defines them as integer rather than   *
C    * as enumerations.  The numbering of all PHIGS       *
C    * functions is also given for use in the error       *
C    * handling procedures.                               *
C    *                                                    *
C    ******************************************************
C     ---- Annotation Style ---- 
      INTEGER   PUNCON,  PLDLN
      PARAMETER(PUNCON=1,PLDLN=2)
 
C     ---- Archive State ---- 
      INTEGER   PARCL,   PAROP
      PARAMETER(PARCL=0, PAROP=1)
 
C     ---- Aspect Identifier ---- 
      INTEGER   PLN,      PLWSC,    PPLCI,      PMK,     PMKSC,
     1          PPMCI,    PTXFN,    PTXPR,      PCHXP,   PCHSP,
     2          PTXCI,    PIS,      PISI,       PICI,    PEDFG,
     3          PEDT,     PEWSC,    PEDCI
      PARAMETER(PLN=0,    PLWSC=1,  PPLCI=2,    PMK=3,   PMKSC=4,
     1          PPMCI=5,  PTXFN=6,  PTXPR=7,    PCHXP=8, PCHSP=9,
     2          PTXCI=10, PIS=11,   PISI=12,    PICI=13, PEDFG=14,
     3          PEDT=15,  PEWSC=16, PEDCI=17)
 
C     ---- Aspect Source ---- 
      INTEGER   PBUNDL,   PINDIV
      PARAMETER(PBUNDL=0, PINDIV=1)
 
C     ---- Clipping Indicator ---- 
      INTEGER   PNCLIP,   PCLIP
      PARAMETER(PNCLIP=0, PCLIP=1)
 
C     ---- Color Available ---- 
      INTEGER   PMONOC,   PCOLOR
      PARAMETER(PMONOC=0, PCOLOR=1)
 
C     ---- Color Model ---- 
      INTEGER   PRGB,    PCIE,    PHSV,    PHLS
      PARAMETER(PRGB=1,  PCIE=2,  PHSV=3,  PHLS=4)
 
C     ---- Composition Type ---- 
      INTEGER   PCPRE,    PCPOST,    PCREPL
      PARAMETER(PCPRE=0,  PCPOST=1,  PCREPL=2)
 
C     ---- Conflict Resolution ---- 
      INTEGER   PCRMNT,    PCRABA,     PCRUPD
      PARAMETER(PCRMNT=0,  PCRABA=1,   PCRUPD=2)
 
C     ---- Control Flag ---- 
      INTEGER   PCONDI,    PALWAY
      PARAMETER(PCONDI=0,  PALWAY=1)
 
C     ---- Deferral Mode ---- 
      INTEGER   PASAP,   PBNIG,    PBNIL,    PASTI,    PWAITD
      PARAMETER(PASAP=0, PBNIG=1,  PBNIL=2,  PASTI=3,  PWAITD=4)
 
C     ---- Device Coordinate Units ---- 
      INTEGER   PMETRE,   POTHU
      PARAMETER(PMETRE=0, POTHU=1)
 
C     ---- Display Surface Empty ---- 
      INTEGER   PNEMPT,   PEMPTY
      PARAMETER(PNEMPT=0, PEMPTY=1)
 
C     ---- Dynamic Modification ---- 
      INTEGER   PIRG,    PIMM,    PCBS
      PARAMETER(PIRG=0,  PIMM=1,  PCBS=2)
 
C     ---- Echo Switch ---- 
      INTEGER   PNECHO,    PECHO
      PARAMETER(PNECHO=0,  PECHO=1)
 
C     ---- Edit Mode ---- 
      INTEGER   PINSRT,    PREPLC
      PARAMETER(PINSRT=0,  PREPLC=1)
 
C     ---- Element Type ---- 
      INTEGER   PEALL,    PENIL,     PEPL3,    PEPL,
     1          PEPM3,    PEPM,      PETX3,    PETX,
     2          PEATR3,   PEATR,     PEFA3,    PEFA,
     3          PEFAS3,   PEFAS,     PECA3,    PECA,
     4          PEGDP3,   PEGDP,     PEPLI,    PEPMI,
     5          PETXI,    PEII,      PEEDI,    PELN,
     6          PELWSC,   PEPLCI,    PEMK,     PEMKSC,
     7          PEPMCI,   PETXFN,    PETXPR,   PECHXP,
     8          PECHSP,   PETXCI,    PECHH,    PECHUP,
     9          PETXP,    PETXAL,    PEATCH,   PEATCU,
     a          PEATP,    PEATAL,    PEANST,   PEIS,
     b          PEISI,    PEICI,     PEEDFG,   PEEDT,
     c          PEEWSC,   PEEDCI,    PEPA,     PEPRPV,
     d          PEPARF,   PEADS,     PERES,    PEIASF,
     e          PEHRID,   PELMT3,    PELMT,    PEGMT3,
     f          PEGMT,    PEMCV3,    PEMCV,    PEMCLI,
     g          PERMCV,   PEVWI,     PEEXST,   PELB,
     h          PEAP,     PEGSE,     PEPKID
      PARAMETER(PEALL=0,  PENIL=1,   PEPL3=2,  PEPL=3,
     1          PEPM3=4,  PEPM=5,    PETX3=6,  PETX=7,
     2          PEATR3=8, PEATR=9,   PEFA3=10, PEFA=11,
     3          PEFAS3=12,PEFAS=13,  PECA3=14, PECA=15,
     4          PEGDP3=16,PEGDP=17,  PEPLI=18, PEPMI=19,
     5          PETXI=20, PEII=21,   PEEDI=22, PELN=23,
     6          PELWSC=24,PEPLCI=25, PEMK=26,  PEMKSC=27,
     7          PEPMCI=28,PETXFN=29, PETXPR=30,PECHXP=31,
     8          PECHSP=32,PETXCI=33, PECHH=34, PECHUP=35,
     9          PETXP=36, PETXAL=37, PEATCH=38,PEATCU=39,
     a          PEATP=40, PEATAL=41, PEANST=42,PEIS=43,
     b          PEISI=44, PEICI=45,  PEEDFG=46,PEEDT=47,
     c          PEEWSC=48,PEEDCI=49, PEPA=50,  PEPRPV=51,
     d          PEPARF=52,PEADS=53,  PERES=54, PEIASF=55,
     e          PEHRID=56,PELMT3=57, PELMT=58, PEGMT3=59,
     f          PEGMT=60, PEMCV3=61, PEMCV=62, PEMCLI=63,
     g          PERMCV=64,PEVWI=65,  PEEXST=66,PELB=67,
     h          PEAP=68,  PEGSE=69,  PEPKID=70)
 
C     ---- GDP Attributes ---- 
      INTEGER   PPLATT,    PPMATT,    PTXATT,    PINATT,    PEDATT
      PARAMETER(PPLATT=0,  PPMATT=1,  PTXATT=2,  PINATT=3,  PEDATT=4)
 
 
C     ---- Input Class ---- 
      INTEGER   PNCLAS,    PLOCAT,    PSTROK,    PVALUA,    PCHOIC,
     1          PPICK,     PSTRIN
      PARAMETER(PNCLAS=0,  PLOCAT=1,  PSTROK=2,  PVALUA=3,  PCHOIC=4,
     1          PPICK=5,   PSTRIN=6)
 
C     ---- Input Device Status ---- 
      INTEGER   PNONE,    POK,    PNPICK,    PNCHOI
      PARAMETER(PNONE=0,  POK=1,  PNPICK=2,  PNCHOI=2)
 
C     ---- Interior Style ---- 
      INTEGER   PHOLLO,    PSOLID,    PPATTR,    PHATCH,    PISEMP
      PARAMETER(PHOLLO=0,  PSOLID=1,  PPATTR=2,  PHATCH=3,  PISEMP=4)
 
C     ---- Linetype ---- 
      INTEGER   PLSOLI,    PLDASH,   PLDOT,    PLDASD
      PARAMETER(PLSOLI=1,  PLDASH=2, PLDOT=3,  PLDASD=4)
 
C     ---- Marker Type ---- 
      INTEGER   PPOINT,    PPLUS,    PAST,    POMARK,    PXMARK
      PARAMETER(PPOINT=1,  PPLUS=2,  PAST=3,  POMARK=4,  PXMARK=5)
 
C     ---- Modeling Clip Operator ---- 
      INTEGER   PMCREP,    PMCINT
      PARAMETER(PMCREP=1,  PMCINT=2)
 
C     ---- Modification Mode ---- 
      INTEGER   PNIVE,     PUWOR,    PUQUM
      PARAMETER(PNIVE=0,   PUWOR=1,  PUQUM=2)
 
C     ---- More Simultaneous Events ---- 
      INTEGER   PNMORE,    PMORE
      PARAMETER(PNMORE=0,  PMORE=1)
 
C     ---- Off/On Switch for Edge Flag and Error Handling ---- 
      INTEGER   POFF,    PON
      PARAMETER(POFF=0,  PON=1)
 
C     ---- Open Structure Status ---- 
      INTEGER   PNONST,   POPNST
      PARAMETER(PNONST=0, POPNST=1)
 
C     ---- Operating Mode ---- 
      INTEGER   PREQU,    PSAMPL,    PEVENT
      PARAMETER(PREQU=0,  PSAMPL=1,  PEVENT=2)
 
C     ---- Path Order ---- 
      INTEGER   PPOTOP,    PPOBOT
      PARAMETER(PPOTOP=0,  PPOBOT=1)
 
C     ---- Polyline/Fill Area Control Flag ---- 
      INTEGER   PPLINE,    PFILLA,    PFILAS
      PARAMETER(PPLINE=0,  PFILLA=1,  PFILAS=2)
 
C     ---- Presence of Invalid Values ---- 
      INTEGER   PABSNT,    PPRSNT
      PARAMETER(PABSNT=0,  PPRSNT=1)
 
C     ---- Reference Handling Flag ---- 
      INTEGER   PDELE,    PKEEP
      PARAMETER(PDELE=0,  PKEEP=1)
 
C     ---- Regeneration Flag ---- 
      INTEGER   PPOSTP,    PPERFO
      PARAMETER(PPOSTP=0,  PPERFO=1)
 
 
C     ---- Relative Input Priority ---- 
      INTEGER   PHIGHR,    PLOWER
      PARAMETER(PHIGHR=0,PLOWER=1)
 
C     ---- Search Direction ---- 
      INTEGER   PBWD,    PFWD
      PARAMETER(PBWD=0,  PFWD=1)
 
C     ---- Search Success Indicator ---- 
      INTEGER   PFAIL,    PSUCC
      PARAMETER(PFAIL=0,  PSUCC=1)
 
C     ---- State of Visual Representation ---- 
      INTEGER   PVROK,    PVRDFR,    PVRSIM
      PARAMETER(PVROK=0,  PVRDFR=1,  PVRSIM=2)
 
C     ---- Structure Network Source ---- 
      INTEGER   PCSS,     PARCHV
      PARAMETER(PCSS=0,   PARCHV=1)
 
C     ---- Structure State Value ---- 
      INTEGER   PSTCL,    PSTOP
      PARAMETER(PSTCL=0,  PSTOP=1)
 
C     ---- Structure Status Indicator ---- 
      INTEGER   PSNOEX,    PSEMPT,    PSNEMP
      PARAMETER(PSNOEX=0,  PSEMPT=1,  PSNEMP=2)
 
C     ---- System State Value ---- 
      INTEGER   PPHCL,    PPHOP
      PARAMETER(PPHCL=0,  PPHOP=1)
 
C     ---- Text Alignment Horizontal ---- 
      INTEGER   PAHNOR,    PALEFT,    PACENT,    PARITE
      PARAMETER(PAHNOR=0,  PALEFT=1,  PACENT=2,  PARITE=3)
 
C     ---- Text Alignment Vertical ---- 
      INTEGER   PAVNOR,   PATOP,   PACAP,   PAHALF,   PABASE,  PABOTT
      PARAMETER(PAVNOR=0, PATOP=1, PACAP=2, PAHALF=3, PABASE=4,PABOTT=5)
 
C     ---- Text Path ----  
      INTEGER   PRIGHT,   PLEFT,   PUP,   PDOWN
      PARAMETER(PRIGHT=0, PLEFT=1, PUP=2, PDOWN=3)
 
C     ---- Text Precision ---- 
      INTEGER   PSTRP,   PCHARP,   PSTRKP
      PARAMETER(PSTRP=0, PCHARP=1, PSTRKP=2)
 
C     ---- Type of Returned Values ---- 
      INTEGER   PSET,   PREALI
      PARAMETER(PSET=0, PREALI=1)
 
C     ---- Update State ----  
      INTEGER   PNPEND,   PPEND
      PARAMETER(PNPEND=0, PPEND=1)
 
C     ---- Vector/Raster/Other Type ----  
      INTEGER   PVECTR,   PRASTR,   POTHWK
      PARAMETER(PVECTR=0, PRASTR=1, POTHWK=2)
 
C     ---- View Type ----  
      INTEGER   PPARL,   PPERS
      PARAMETER(PPARL=0, PPERS=1)
 
C     ---- Workstation Category ---- 
      INTEGER   POUTPT,   PINPUT,   POUTIN,   PMO,   PMI
      PARAMETER(POUTPT=0, PINPUT=1, POUTIN=2, PMO=3, PMI=4)
 
C     ---- Workstation Dependency Indicator ---- 
      INTEGER   PWKI,   PWKD
      PARAMETER(PWKI=0, PWKD=1)
 
C     ---- Workstation State Value ---- 
      INTEGER   PWSCL,   PWSOP
      PARAMETER(PWSCL=0, PWSOP=1)
 
C     ---- Current/Requested ---- 
      INTEGER   PCURVL,   PRQSVL
      PARAMETER(PCURVL=0, PRQSVL=1)
 
C     ---- PHIGS Function Identifiers ----  (Ref #2.)
 
      INTEGER   EOPPH,    ECLPH,     EOPWK,     ECLWK,      ERST
      PARAMETER(EOPPH=0,  ECLPH=1,   EOPWK=2,   ECLWK=3,    ERST=4)
      INTEGER   EUWK,     ESDUS,     EMSG,      EPL3,       EPL
      PARAMETER(EUWK=5,   ESDUS=6,   EMSG=7,    EPL3=8,     EPL=9)
      INTEGER   EPM3,     EPM,       ETX3,      ETX,        EATR3
      PARAMETER(EPM3=10,  EPM=11,    ETX3=12,   ETX=13,     EATR3=14)
      INTEGER   EATR,     EFA3,      EFA,       EFAS3,      EFAS
      PARAMETER(EATR=15,  EFA3=16,   EFA=17,    EFAS3=18,   EFAS=19)
      INTEGER   ECA3,     ECA,       EGDP3,     EGDP,       ESPLI
      PARAMETER(ECA3=20,  ECA=21,    EGDP3=22,  EGDP=23,    ESPLI=24)
      INTEGER   ESPMI,    ESTXI,     ESII,      ESEDI,      ESLN
      PARAMETER(ESPMI=25, ESTXI=26,  ESII=27,   ESEDI=28,   ESLN=29)
      INTEGER   ESLWSC,   ESPLCI,    ESMK,      ESMKSC,     ESPMCI
      PARAMETER(ESLWSC=30,ESPLCI=31, ESMK=32,   ESMKSC=33,  ESPMCI=34)
      INTEGER   ESTXFN,   ESTXPR,    ESCHXP,    ESCHSP,     ESTXCI
      PARAMETER(ESTXFN=35,ESTXPR=36, ESCHXP=37, ESCHSP=38,  ESTXCI=39)
      INTEGER   ESCHH,    ESCHUP,    ESTXP,     ESTXAL,     ESATCH
      PARAMETER(ESCHH=40, ESCHUP=41, ESTXP=42,  ESTXAL=43,  ESATCH=44)
      INTEGER   ESATCU,   ESATP,     ESATAL,    ESANS,      ESIS
      PARAMETER(ESATCU=45,ESATP=46,  ESATAL=47, ESANS=48,   EISI=49)
      INTEGER   ESISI,    ESICI,     ESEDFG,    ESEDT,      ESEWSC
      PARAMETER(ESISI=50, ESICI=51,  ESEDFG=52, ESEDT=53,   ESEWSC=54)
      INTEGER   ESEDCI,   ESPA,      ESPRPV,    ESPARF,     EADS
      PARAMETER(ESEDCI=55,ESPA=56,   ESPRPV=57, ESPARF=58,  EADS=59)
      INTEGER   ERES,     ESIASF,    ESPLR,     ESPMR,      ESTXR
      PARAMETER(ERES=60,  ESIASF=61, ESPLR=62,  ESPMR=63,   ESTXR=64)
      INTEGER   ESIR,     ESEDR,     ESPAR,     ESCR,       ESHLFT
      PARAMETER(ESIR=65,  ESEDR=66,  ESPAR=67,  ESCR=68,    ESHLFT=69)
      INTEGER   ESIVFT,   ESCMD,     ESHRID,    ESHRM,      ESLMT3
      PARAMETER(ESIVFT=70,ESCMD=71,  ESHRID=72, ESHRM=73,   ESLMT3=74)
      INTEGER   ESLMT,    ESGMT3,    ESGMT,     ESMCV3,     ESMCV
      PARAMETER(ESLMT=75, ESGMT3=76, ESGMT=77,  ESMCV3=78,  ESMCV=79)
      INTEGER   ESMCLI,   ERMCV,     ESVWI,     ESVWR3,     ESVWR
      PARAMETER(ESMCLI=80,ERMCV=81,  ESVWI=82,  ESVWR3=83,  ESVWR=84)
      INTEGER   ESVTIP,   ESWKW3,    ESWKW,     ESWKV3,     ESWKV
      PARAMETER(ESVTIP=85,ESWKW3=86, ESWKW=87,  ESWKV3=88,  ESWKV=89)
      INTEGER   EOPST,    ECLST,     EEXST,     ELB,        EAP
      PARAMETER(EOPST=90, ECLST=91,  EEXST=92,  ELB=93,     EAP=94)
      INTEGER   EGSE,     ESEDM,     ECELST,    ESEP,       EOSEP
      PARAMETER(EGSE=95,  ESEDM=96,  ECELST=97, ESEP=98,    EOSEP=99)
      INTEGER   ESEPLB,   EDEL,      EDELRA,    EDELLB,     EEMST
      PARAMETER(ESEPLB=100,EDEL=101, EDELRA=102,EDELLB=103, EEMST=104)
      INTEGER   EDST,     EDSN,      EDAS,      ECSTID,     ECSTRF
      PARAMETER(EDST=105, EDSN=106,  EDAS=107,  ECSTID=108, ECSTRF=109)
      INTEGER   ECSTIR,   EPOST,     EUPOST,    EUPAST,     EOPARF
      PARAMETER(ECSTIR=110,EPOST=111,EUPOST=112,EUPAST=113, EOPARF=114)
      INTEGER   ECLARF,   EARST,     EARSN,     EARAST,     ESCNRS
      PARAMETER(ECLARF=115,EARST=116,EARSN=117, EARAST=118, ESCNRS=119)
      INTEGER   ERSID,    EREST,     ERESN,     ERAST,      EREPAN
      PARAMETER(ERSID=120,EREST=121, ERESN=122, ERAST=123,  EREPAN=124)
      INTEGER   EREPDE,   EDSTAR,    EDSNAR,    EDASAR,     ESPKID
      PARAMETER(EREPDE=125,EDSTAR=126,EDSNAR=127,EDASAR=128,ESPKID=129)
      INTEGER   ESPKFT,   EINLC3,    EINLC,     EINSK3,     EINSK
      PARAMETER(ESPKFT=130,EINLC3=131,EINLC=132,EINSK3=133, EINSK=134)
      INTEGER   EINVL3,    EINVL,    EINCH3,    EINCH,      EINPK3
      PARAMETER(EINVL3=135,EINVL=136,EINCH3=137,EINCH=138,  EINPK3=139)
      INTEGER   EINPK,     EINST3,   EINST,     ESLCM,      ESSKM
      PARAMETER(EINPK=140, EINST3=141,EINST=142,ESLCM=143,  ESSKM=144)
      INTEGER   ESVLM,     ESCHM,    ESPKM,     ESSTM,      ERQLC3
      PARAMETER(ESVLM=145, ESCHM=146,ESPKM=147, ESSTM=148,  ERQLC3=149)
      INTEGER   ERQLC,     ERQSK3,   ERQSK,     ERQVL,      ERQCH
      PARAMETER(ERQLC=150, ERQSK3=151,ERQSK=152,ERQVL=153,  ERQCH=154)
      INTEGER   ERQPK,     ERQST,    ESMLC3,    ESMLC,      ESMSK3
      PARAMETER(ERQPK=155, ERQST=156,ESMLC3=157,ESMLC=158,  ESMSK3=159)
      INTEGER   ESMSK,     ESMVL,    ESMCH,     ESMPK,      ESMST
      PARAMETER(ESMSK=160, ESMVL=161,ESMCH=162, ESMPK=163,  ESMST=164)
      INTEGER   EWAIT,     EFLUSH,   EGTLC3,    EGTLC,      EGTSK3
      PARAMETER(EWAIT=165, EFLUSH=166,EGTLC3=167,EGTLC=168, EGTSK3=169)
      INTEGER   EGTSK,     EGTVL,    EGTCH,     EGTPK,      EGTST
      PARAMETER(EGTSK=170, EGTVL=171,EGTCH=172, EGTPK=173,  EGTST=174)
      INTEGER   EWITM,     EGTITM,   ERDITM,    EIITM,      ESERHM
      PARAMETER(EWITM=175, EGTITM=176,ERDITM=177,EIITM=178, ESERHM=179)
      INTEGER   EESC,      EPREC,    EUREC
      PARAMETER(EESC=180,  EPREC=181,EUREC=182)


[ Previous | Next | Contents | Glossary | Home | Search ]