-+-+-+-+-+-+-+-+ START OF PART 156 -+-+-+-+-+-+-+-+ X`09EXTERNAL pc_inqvalst3 X X`09CALL pc_inqvalst3(%VAL(WKID),%VAL(VLDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,IVAL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE VALUATOR DEVICE STATE XC X`09SUBROUTINE PQVLS (WKID,VLDNR,MLDR,ERRIND,MODE,ESW,IVAL,PET,`20 X * EAREA,LDR,DATREC) X X`09INTEGER WKLD ! workstation identifier X`09INTEGER VLDNR ! valuator device number X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo switch (PNECHO,PECHO) X`09REAL IVAL ! initial value X`09INTEGER PET ! prompt and echo type X`09REAL EAREA(4) ! echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09 ! data record X X`09EXTERNAL pc_inqvalst X X`09CALL pc_inqvalst(%VAL(WKID),%VAL(VLDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,IVAL,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CHOICE DEVICE STATE 3 XC X`09SUBROUTINE PQCHS3 (WKID,CHDNR,MLDR,ERRIND,MODE,ESW,ISTAT, X * ICHNR,PET,EVOL,LDR,DATREC) X X`09INTEGER WKID ! workstation identifier X`09INTEGER CHDNR ! choice device number X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo switch (PNECHO,PECHO) X`09INTEGER ISTAT ! initial status (POK,PNCHOI) X`09INTEGER ICHNR ! initial choice number X`09INTEGER PET ! prompt and echo type X`09REAL EVOL(6) ! echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX `20 X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09 ! data record X X`09EXTERNAL pc_inqchoicest3 X X`09CALL pc_inqchoicest3(%VAL(WKID),%VAL(CHDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,ISTAT,ICHNR,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE CHOICE DEVICE STATE XC X`09SUBROUTINE PQCHS (WKID,CHDNR,MLDR,ERRIND,MODE,ESW,ISTAT, X * ICHNR,PET,EAREA,LDR,DATREC) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER CHDNR ! choice device number X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo switch (PNECHO,PECHO) X`09INTEGER ISTAT ! initial status (POK,PNCHOI) X`09INTEGER ICHNR ! initial choice number X`09INTEGER PET ! prompt and echo type X`09REAL EAREA(4) ! echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09! data record X X`09EXTERNAL pc_inqchoicest X X`09CALL pc_inqchoicest(%VAL(WKID),%VAL(CHDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,ISTAT,ICHNR,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PICK DEVICE STATE 3 XC `20 X`09SUBROUTINE PQPKS3 (WKID,PKDNR,TYPE,MLDR,IPISSZ,IPESSZ,IPPSZ, X * ERRIND,MODE,ESW,PISSZ,PINS,PESSZ,PES,ISTAT,PPD,PP, X * PET,EVOL,LDR,DATREC,PPORDR) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER PKDNR ! pick device number X `09INTEGER TYPE ! type of resumed values (PSET,PREALI) X `09INTEGER MLDR ! dimension of data record array X `09INTEGER IPISSZ ! pick inclusion set buffer size X `09`09INTEGER IPESSZ ! pick exclusion set buffer size X `09INTEGER IPPSZ ! pick path buffer size X `09INTEGER ERRIND ! error indicator X `09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X `09INTEGER ESW ! echo switch (PNECHO,PECHO) X `09INTEGER PISSZ ! pick inclusion set size X `09INTEGER PINS(IPISSZ) ! pick inclusion set X `09INTEGER PESSZ ! pick exclusion set size X `09INTEGER P!ES(IPESSZ) ! pick exclusion set X `09INTEGER ISTAT ! initial status (POK,PNPICK) X`09 `09INTEGER PPD ! initial pick path depth X `09INTEGER PP(3,IPPSZ) ! initial pick path X `09INTEGER PET ! prompt and echo type X `09REAL EVOL(6) ! echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X `09INTEGER LDR ! number of array elements used in data r Vecord X`09 `09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X`09`09INTEGER PPORDR ! pick path order (PPOTOP, PPOBOT) X X`09EXTERNAL pc_inqpickst3 X X`09CALL pc_inqpickst3(%VAL(WKID),%VAL(CKDNR),%VAL(TYPE),%VAL(MLDR), X * IPISSZ,IPESSZ,IPPSZ,ERRIND,MODE,ESW,PISSZ,PINS,PESSZ,PES, X * ISTAT,PPD,PP,PET,EVOL,LDR,DATREC,PPORDR) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PICK DEVICE STATE XC `20 X`09SUBROUTINE PQPKS (WKID,PKDNR,TYPE,MLDR,IPISSZ,IPESSZ,IPPSZ, X * ERRIND,MODE,ESW,PISSZ,PINS,PESSZ,PES,ISTAT,PPD,PP, X * PET,EAREA,LDR,DATREC,PPORDR) X X`09INTEGER WKID ! workstation identifier X`09INTEGER PKDNR ! pick device number X`09INTEGER TYPE ! type of resumed values (PSET,PREALI) X`09INTEGER MLDR ! dimension of data record array X`09INTEGER IPISSZ ! pick inclusion set buffer size X`09INTEGER IPESSZ ! pick exclusion set buffer size X`09INTEGER IPPSZ ! pick path buffer size X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo switch (PNECHO,PECHO) X`09INTEGER PISSZ ! pick inclusion set size X`09INTEGER PINS(IPISSZ) ! pick inclusion set X`09INTEGER PESSZ ! pick exclusion set size X`09INTEGER PES(IPESSZ) ! pick exclusion set X`09INTEGER ISTAT ! initial status (POK,PNPICK) X`09INTEGER PPD ! initial pick path depth X`09INTEGER PP(3,IPPSZ) ! initial pick path X`09INTEGER PET ! prompt and echo type X`09REAL EAREA(4) ! echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09 ! data record X`09INTEGER PPORDR ! pick path order (PPOTOP, PPOBOT) X X`09EXTERNAL pc_inqpickst X X`09CALL pc_inqpickst(%VAL(WKID),%VAL(PKDNR),%VAL(TYPE),%VAL(MLDR), X * IPISSZ,IPESSZ,IPPSZ,ERRIND,MODE,ESW,PISSZ,PINS,PESSZ,PES, X * ISTAT,PPD,PP,PET,EAREA,LDR,DATREC,PPORDR) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STRING DEVICE STATE 3 XC`20 X`09SUBROUTINE PQSTS3 (WND,STDNR,MLDR,ERRIND,MODE,ESW,LOSTR,ISTR, `20 X * PET,EVOL,LDR ,DATREC) X X`09INTEGER WND ! workstation identifier X`09INTEGER STDNR ! string device number X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo switch (PNECHO,PECHO) X`09INTEGER LOSTR ! number of characters resumed X`09CHARACTER*(*) ISTR ! initial string X`09INTEGER PET ! prompt and echo type X`09REAL EVOL(6) ! echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09 ! data record X X`09EXTERNAL pc_inqstringst3 X X`09CALL pc_inqstringst3(%VAL(WKID),%VAL(STDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,LOSTR,ISTR,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STRING DEVICE STATE XC `09 X`09SUBROUTINE PQSTS (WKID,STDNR,MLDR,ERRIND,MODE,ESW,LOSTR,ISTR, X * PET,EAREA,LDR,DATREC) X X`09INTEGER WKID ! workstation identifier X`09INTEGER STDNR ! string device number X`09INTEGER MLDR ! dimension of data record array X X X`09INTEGER ERRIND ! error indicator X`09INTEGER MODE ! operating mode (PREQU,PSAMPL,PEVENT) X`09INTEGER ESW ! echo sWitch (PNECHO,PECHO) X`09INTEGER LOSTR ! number of characters returned X`09CHARACTER*(*) ISTR ! initial string X`09INTEGER PET ! prompt and echo type X`09REAL EAREA(4) ! echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09! data record X X`09EXTERNAL pc_inqstringst X X`09CALL pc_instringst(%VAL(WKID),%VAL(STDNR),%VAL(MLDR),ERRIND, X * MODE,ESW,LOSTR,ISTR,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE WORKSTATION CATEGORY XC X`09SUBROUTINE PQWKCA (WTYPE,ERRIND,WKCAT) X X `09INTEGER WTYPE ! workstation type X `09INTEGER ERRIND ! error indicator X INTEGER WKCAT ! workstation category (POUTPT,PINPUT, X ! POUTIN,PMO,PMI) X`09 X`09EXTERNAL PINQWSCATEGORY X X`09CALL PINQWSCATEGORY(%VAL(WTYPE),ERRIND,WKCAT) X X`09return X`09end Xc-------------------------------------------------------------------- `20 X XC XC INQUIRE DISPLAY SPACE SIZE 3 XC X`09SUBROUTINE PQDSP3 (WTYPE,ERRIND,DCUNIT,DX,DY,DZ,RX,RY,RZ) X X `20 X `09INTEGER WTYPE ! workstation type X `09INTEGER ERRIND ! error indicator X `09INTEGER DCUNlT ! device coordinate units (PMETRE,POTHU) X `09REAL DX,DY,DZ ! maximum display volume size (DC) X `09INTEGER RX,RY,RZ ! maximum display volume size (raster units) X X`09EXTERNAL pc_inqdisplayspacesize3 X X`09CALL pc_inqdisplayspacesize3(%VAL(WTYPE),ERRIND,DCUNIT,DX, X * DY,DZ,RX,RY,RZ) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DISPLAY SPACE SIZE XC X`09SUBROUTINE PQDSP (WTYPE,ERRIND,DCUNIT,DX,DY,RX,RY) X X `09INTEGER WTYPE ! workstation type X `09INTEGER ERRIND ! error indicator X `09INTEGER DCUNIT ! device coordinate units (PMETRE,POTHU) X `09REAL DX,DY ! maximum display space size (DC) X `09INTEGER RX,RY ! maximum display space size (raster units) X X`09EXTERNAL pc_inqdisplayspacesize X X`09CALL pc_inqdisplayspacesize(%VAL(WTYPE),ERRIND,DCUNIT, X * DX,DY,RX,RY) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE HLHSR (IDENTIFIER) FACILITIES XC X`09SUBROUTINE PQHRIF (WTYPE, NI, ERRIND, NHRID, HRID) X `20 X `20 X`09INTEGER WTYPE ! workstation type X`09INTEGER NI ! sequence number of HLHSR identifier list elemen Vt requested X`09INTEGER ERRIND ! error indicator X`09INTEGER NHRID ! number of available HLHSR identifiers X`09INTEGER HRID ! NIth element of list of available HLHSR identif Viers X X`09EXTERNAL pc_inqhlhsrfacil X X`09CALL pc_inqhlhsrfacil(%VAL(WTYPE),%VAL(NI),ERRIND,NHRID, X * HRID) X `20 X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE HLHSR (MODE)FACILITIES XC X`09SUBROUTINE PQHRMF (WTYPE, NM, ERRIND, NHRMD, HRMD) X X`09INTEGER WTYPE ! workstation type X`09INTEGER NM ! sequence number of HLHSR mode list element requ Vested X`09INTEGER ERRIND ! error indicator X`09INTEGER NHRMD ! number of available HLHSR modes X`09INTEGER HRMD ! NMth element of list of available HLHSR modes X X`09EXTERNAL pc_inqhlhsrfacil X X`09CALL pc_inqhlhsrfacil(%VAL(WTYPE),%VAL(NM),ERRIND,NHRMD, X * HRMD) X `20 X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE VIEW FACILITIES XC X`09SUBROUTINE PQVWF (WTYPE, ERRIND, NPVWI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER NPVWI ! number of predefined view indices X X`09EXTERNAL pc_inqviewfacil X X`09CALL pc_inqviewfacil(%VAL(WTYPE),ERRIND,NPVWI) X X`09return X`09end Xc--------------------------------------------------------------------`20 X XC XC INQUIRE PREDEFINED VIEW REPRESENTATION XC X`09SUBROUTINE PQPVWR (WTYPE,PVWI,ERRIND,VWORMT,VWMPMT,VWCPLM, X * XYCLPI,BCLIPI,FCLIPI) X X X`09INTEGER WTYPE ! workstation type X`09INTEGER PVWI ! predefined view index X`09INTEGER ERRIND ! error indicator X`09REAL VWORMT(4,4) ! view orientation matrix X`09REAL VWMPMT(4,4) ! view mapping matrix X`09REAL VWCPLM(6) ! view clipping limits (NPC) X ! xmin,xmax,ymin,ymax,zmin,zmax X`09INTEGER XYCLPI ! x-y clipping indicator (PNCLIP,PCLIP) X`09INTEGER BCLIPI ! back clipping indicator (PNCLIP,PCLIP) X`09INTEGER FCLIPI ! front clipping indicator (PNCLIP,PCLIP) X X`09EXTERNAL pc_inqpredviewrep X X`09CAll pc_inqpredviewrep(%VAL(WTYPE),%VAL(PVWI),ERRIND,VWORMT, X * VWMPMT,VWCPLM,XYCLPI,BCLIPI,FCLIPI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC +-+-+-+-+-+-+-+- END OF PART 156 +-+-+-+-+-+-+-+-