-+-+-+-+-+-+-+-+ START OF PART 158 -+-+-+-+-+-+-+-+ Vr models X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of available colour models X `09INTEGER CMOD ! Nth available colour model X `09INTEGER DFCMOD ! default colour model X X`09EXTERNAL pc_inqcolourmodelfacil X X`09CALL pc_inqcolourmodelfacil(%VAL(WTYPE),%VAL(N),ERRIND, X * OL,CMOD,DFCMOD) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE COLOUR FACILITIES XC X`09SUBROUTINE PQCF (WTYPE,ERRIND,NCOLI,COLA,NPCI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER NCOLI ! number of colour indices X`09INTEGER COLA ! colour available (PMONOC,PCOLOR) `20 X`09INTEGER NPCI ! number of predefined colour indices X X`09EXTERNAL pc_inqcolourfacil X X`09CALL pc_inqcolourfacil(%VAL(WTYPE),ERRIND,NCOLI,COLA,NPCI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PREDEFINED COLOUR REPRESENTATION XC X`09SUBROUTINE PQPCR (WTYPE,PCI,ERRIND,C1,C2,C3) X X`09INTEGER WTYPE ! workstation type X`09INTEGER PCI ! predefined colour index X`09INTEGER ERRIND ! error indicator X`09REAL C1,C2,C3 ! colour specification X X`09EXTERNAL pc_inqpredcolourrep X X`09CALL pc_inqpredcolourrep(%VAL(WTYPE),%VAL(PCI), X * ERRIND,C1,C2,C3) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF AVAILABLE GENERALIZED STRUCTURE ELEMENTS XC X`09SUBROUTINE PQEGSE (WTYPE,N,ERRIND,NGSE,GSEL) X X X`09INTEGER WTYPE ! workstation type X`09INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X`09INTEGER NGSE ! number of available generalized structure X ! elements X`09INTEGER GSEL ! Nth element of list of GSE identifiers X X`09EXTERNAL pc_inqgse X X`09CALL pc_inqgse(%VAL(WTYPE),%VAL(N),ERRIND,NGSE,GSEL) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE NUMBER OF DISPLAY PRIORITIES SUPPORTED`20 XC X`09SUBROUTINE PQDP (WTYPE,ERRIND,NSPSUP) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER NSPSUP ! number of display priorities supported X X`09EXTERNAL PINQNUMSTRUCTPRI X X`09CALL PINQNUMSTRUCTPRI(%VAL(WTYPE),ERRIND,NSPSUP) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE WORKSTATION STATE TABLE LENGTHS XC X`09SUBROUTINE PQWKSL (WTYPE,ERRIND,MPLBTE,MPMBTE,MTXBTE,MINBTE, X * MEDBTE,MPAI,MCOLI,VWTBI) X X X`09INTEGER WTYPE ! workstation type X INTEGER ERRIND ! error indicator X`09INTEGER MPLBTE ! maximum number of polyline bundle X ! table entries X`09INTEGER MPMBTE ! maximum number of polymarker bundle X ! table entries X`09INTEGER MTXBTE ! maximum number of text bundle X ! table entries X`09INTEGER MINBTE ! maximum number of interior bundle X ! table entries X`09INTEGER MEDBTE ! maximum number of edge bundle X ! table entries X`09INTEGER MPAI ! maximum number of pattern indices X`09INTEGER MCOLI ! maximum number of colour indices X`09INTEGER VWTBI ! maximum number of view table indices X X`09EXTERNAL pc_inqwssttable X X`09CALL pc_inqwssttable(%VAL(WTYPE),ERRIND,MPLBTE,MPMBTE,MTXBTE, X * MINBTE,MEDBTE,MPAI,MCOLI,VWTBI) X X`09return X`09end Xc-------------------------------------------------------------------- `20 X XC XC INQUIRE DYNAMICS OF STRUCTURES XC X`09SUBROUTINE PQDSTR (WTYPE,ERRIND,STRCON,POST,UNPOST, X * DELETE,REFMOD) X `20 X INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X INTEGER STRCON ! structure content modification (PIRG,PIMM, VPCBS) X INTEGER POST ! post structure (PIRG,PIMM,PCBS) X INTEGER UNPOST ! unpost structure (PIRG,PIMM,PCBS) X INTEGER DELETE ! delete structure (PIRG,PIMM,PCBS) X INTEGER REFMOD ! reference modification (PIRG,PIMM,PCBS) X X`09EXTERNAL pc_inqdynstruct X X`09CALL pc_inqdynstruct(%VAL(WTYPE),ERRIND,STRCON,POST,UNPOST, X * DELETE,REFMOD) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE NUMBER OF AVAILABLE LOGICAL INPUT DEVICES XC X`09SUBROUTINE PQLI (WTYPE,ERRIND,NLCD,NSKD,NVLD,NCHD,NPKD,NSTD) X X INTEGER WTYPE ! workstation type X INTEGER ERRIND ! error indicator X INTEGER NLCD ! number of locator devices X INTEGER NSKD ! number of stroke devices X INTEGER NVLD ! number of valuator devices X INTEGER NCHD ! number of choice devices X INTEGER NPKD ! number of pick devices X INTEGER NSTD ! number of string devices X X`09EXTERNAL pc_inqnuminput X X`09CALL pc_inqnuminput(%VAL(WTYPE),ERRIND,NLCD,NSKD,NVLD,NCHD, X * NPKD,NSTD) X X`09return X`09end Xc-------------------------------------------------------------------- X `20 XC XC INQUIRE DEFAULT LOCATOR DEVICE DATA 3 XC X`09SUBROUTINE PQDLC3 (WTYPE,DEVNO,N,MLDR,ERRIND,DPX,DPY,DPZ, X * OL,PET,EVOL,LDR,DATREC) X X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09REAL DPX,DPY,DPZ ! default initial locator position (WC) X`09INTEGER OL ! number of available prompt and echo types X`09INTEGER PET ! Nth element of list of available Font and ech Vo X ! types X`09REAL EVOL(6) ! default 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`09 ! data record X `09 X`09EXTERNAL pc_inqdeflocdata3 X X`09CALL pc_inqdeflocdata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N),MLDR, X * ERRIND,DPX,DPY,DPZ,OL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT LOCATOR DEVICE DATA XC X`09SUBROUTINE PQDLC (WTYPE,DEVNO,N,MLDR,ERRIND,DPX,DPY, X * OL,PET,EAREA,LDR,DATREC) X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator `20 X`09REAL DPX,DPY ! default initial locator position (WC) X`09INTEGER OL ! number of available prompt and echo types X`09INTEGER PET ! Nth element of list of available prompt and e Vcho X ! types X`09REAL EAREA(4) ! default 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_inqdeflocdata X X`09CALL pc_inqdeflocdata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,DPX,DPY,OL,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT STROKE DEVICE DATA 3 XC X`09SUBROUTINE PQDSK3 (WTYPE,DEVNO,N,MLDR,ERRIND,MBUFF, X * OL,PET,EVOL,LDR,DATREC) X X `20 X INTEGER WTYPE ! workstation type X INTEGER DEVNO ! logical input device number X INTEGER N ! list element requested X INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X INTEGER MBUFF ! available input buffer size X INTEGER OL ! number of available prompt and echo V types X INTEGER PET ! Nth element of list of available pr Vompt and echo X ! types X REAL EVOL(6) ! default echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X INTEGER LDR ! number of array elements used in da Vta record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefstrokedata3 X X`09CALL pc_inqdefstrokedata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MBUFF,OL,PET,EVOL,LDR,DATREC) X X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT STROKE DEVICE DATA XC X`09SUBROUTINE PQDSK (WTYPE, DEVNO, N, MLDR, ERRIND, MBUFF, X * OL,PET,EAREA,LDR,DATREC) X X INTEGER WTYPE ! workstation type X INTEGER DEVNO ! logical input device number X INTEGER N ! list element requested X INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X INTEGER MBUFF ! available input buffer size X INTEGER OL ! number of available prompt and echo V types X INTEGER PET ! Nth element of list of available pr Vompt and echo X ! types X REAL EAREA(4) ! default echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X INTEGER LDR ! number of array elements used in da Vta record X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefstrokedata X X`09CALL pc_inqdefstrokedata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,MBUFF,OL,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT VALUATOR DEVICE DATA 3 XC X`09SUBROUTINE PQDVL3 (WTYPE,DEVNO,N,MLDR,ERRIND,DVAL, X * OL,PET,EVOL,LDR ,DATREC) X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested `20 X`09INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X`09REAL DVAL ! default initial value X`09INTEGER OL ! number of available prompt and echo type Vs X`09INTEGER PET ! Nth element of list of available prompt V and echo X ! types X`09REAL EVOL(6) ! default echo volume (DC) X ! XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX X`09INTEGER LDR ! number of array elements used in data re Vcord X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefvaldata3 X X`09CALL pc_indefvaldata3(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,DVAL,OL,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT VALUATOR DEVICE DATA XC X`09SUBROUTINE PQDVL (WTYPE,DEVNO,N,MLDR,ERRIND,DVAL, X * OL,PET,EAREA,LDR,DATREC) X X`09INTEGER WTYPE ! workstation type X`09INTEGER DEVNO ! logical input device number X`09INTEGER N ! list element requested X`09INTEGER MLDR ! dimension of data record array X`09INTEGER ERRIND ! error indicator X`09REAL DVAL ! default initial value X`09INTEGER OL ! number of available prompt and echo type Vs X`09INTEGER PET ! Nth element of list of available prompt V and echo X ! types X`09REAL EAREA(4) ! default echo area (DC) X ! XMIN, XMAX, YMIN, YMAX X`09INTEGER LDR ! number of array elements used in data re Vcord X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X `20 X EXTERNAL pc_inqdefvaldata X X`09CALL pc_inqdefvaldata(%VAL(WTYPE),%VAL(DEVNO),%VAL(N), X * MLDR,ERRIND,DVAL,OL,PET,EAREA,LDR,DATREC) X `20 X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DEFAULT CHOICE DEVICE DATA 3 XC X`09SUBROUTINE PQDCH3 (WTYPE,DEVNO,N,MLDR,ERRIND,MALT, X * OL,PET,EVOL,LDR,DATREC) X X INTEGER WTYPE ! workstation type X INTEGER DEVNO ! logical input device number X INTEGER N ! list element requested X `09 INTEGER MLDR ! dimension of data record array X INTEGER ERRIND ! error indicator X INTEGER MALT ! maximum number of choice alternati Vves X INTEGER OL ! number of available prompt and ech Vo types X INTEGER PET ! Nth element of list of available p Vrompt and echo X `09`09`09 ! types X REAL EVOL(6) ! default echo volume (DC) X ! XMIN, XMAX, YMLN, YMAX, ZMIN, ZMAX X INTEGER LDR ! number of array elements used in d Vata record X CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqdefchoicedata3 X +-+-+-+-+-+-+-+- END OF PART 158 +-+-+-+-+-+-+-+-