-+-+-+-+-+-+-+-+ START OF PART 157 -+-+-+-+-+-+-+-+ XC INQUIRE WORKSTATION CLASSIFICATION XC X`09SUBROUTINE PQWKCL (WTYPE,ERRIND,VRTYPE) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER VRTYPE ! workstation classification - vector/raster/othe Vr type X ! (PVECTR,PRASTR,POTHWK) X X`09EXTERNAL PINQWSCLASS X X`09CALL PINQWSCLASS(%VAL(WTYPE),ERRIND,VRTYPE) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE DYNAMICS OF WORKSTATION ATTRIBUTES XC X`09SUBROUTINE PQDSWA (WTYPE,ERRIND,PLBUN,PMBUN,TXBUN,INBUN, X * EDBUN,PAREP,COLREP,VWREP,WKTR,HLFLTR,INFLTR,HLHSR) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER PLBUN ! polyline representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER PMBIJN ! polymarker representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER TXBUN ! text representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER INBUN ! interior representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER EDBUN ! edge representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER PAREP ! pattern representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER COLREP ! colour representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER VWREP ! view representation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER WKTR ! workstation transformation changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER HIFLTR ! highlighting filter changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER INFLTR ! invisibility filter changeable X ! (PIRG,PIMM,PCBS) X`09INTEGER HLHSR ! HLHSR mode changeable X ! (PIRG,PIMM,PCBS) X X`09EXTERNAL pc_inqdynwsattr X X CALL pc_inqdynwsattr(%VAL(WTYPE),ERRIND,PLBUN,PMBUN,TXBUN, X * INBUN,EDBUN,PAREP,COLREP,VWREP,WKTR,HLFLTR,INFLTR,HLHSR) X X`09return X`09end Xc-------------------------------------------------------------------- X `20 X `20 XC XC INQUIRE DEFAULT DISPLAY UPDATE STATE XC X`09SUBROUTINE PQDDUS (WTYPE,ERRIND,DEFMOD,MODMOD) X X`09INTEGER WTYPE ! workstation type X`09INTEGER ERRIND ! error indicator X`09INTEGER DEFMOD ! default value for deferral mode X ! (PASAP ,PBNIG,PBNIL ,PASTI ,PWAITD) X`09INTEGER MODMOD ! default value for modification mode X ! (PNIVE,PUWOR,PUQUM) X`09 X`09EXTERNAL pc_inqdefdisplayupdatest X X`09CALL pc_inqdefdisplayupdatest(%VAL(WTYPE),ERRIND,DEFMOD, X * MODMOD) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE POLYLINE FACILITIES XC X`09SUBROUTINE PQPLF (WTYPE,N,ERRIND,NLT,LT,NLW,NOMLW, X * RLWMIN,RLWMAX,NPPLI) X X INTEGER WTYPE ! workstation type X`09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X INTEGER NLT ! number of available linetypes X INTEGER LT ! Nth element of list of available line Vtypes X INTEGER NLW ! number of available linewidths X REAL NOMLW ! nominal linewidth (DC) X REAL RLWMIN, RLWMAX ! range of linewidths (DC) X INTEGER NPPLI ! number of predefined polyline indices X X`09EXTERNAL pc_inqlinefacil X X`09CALL pc_inqlinefacil(%VAL(WTYPE),%VAL(N),ERRIND,NLT,LT,NLW, X * NOMLW,RLWMIN,RLWMAX,NPPLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC `20 XC INQUIRE PREDEFINED POLYLINE REPRESENTATION XC X`09SUBROUTINE PQPPLR (WTYPE,PLI,ERRIND,LTYPE,LWIDTH,COLI) X X INTEGER WTYPE ! workstation type X INTEGER PLI ! predefined polyline index X INTEGER ERRIND ! error indicator X INTEGER LTYPE ! linetype X REAL LWIDTH ! linewidth scale factor X INTEGER COLI ! polyline colour index X X`09EXTERNAL pc_inqpredlinerep X X`09CALL pc_inqpredlinerep(%VAL(WTYPE),%VAL(PLI),ERRIND,LTYPE, X * LWIDTH,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE POLYMARKER FACILITIES XC X`09SUBROUTINE PQPMF (WTYPE,N,ERRIND,NMT,MT,NMS,NOMMS, X * RMSMIN,RMSMAX,NPPMI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER N ! list element requested X`09INTEGER ERRIND ! error indicator X`09INTEGER NMT ! number of available marker types X`09INTEGER MT ! Nth element of list of available marker types X`09INTEGER NMS ! number of available marker sizes X`09REAL NOMMS ! nominal marker size (DC) X`09REAL RMSMIN, RMSMAX ! range of marker sizes (DC) X`09INTEGER NPPMI ! number of predefined polymarker indices X X`09EXTERNAL pc_inqmarkerfacil X X`09CALL pc_inqmarkerfacil(%VAL(WTYPE),%VAL(N),ERRIND,NMT, X * MT,NMS,NOMMS,RMSMIN,RMSMAX,NPPMI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PREDEFINED POLYMARKER REPRESENTATION `20 XC X`09SUBROUTINE PQPPMR (WTYPE,PMI,ERRIND,MTYPE,MSZSF,COLI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER PMI ! predefined polymarker index X`09INTEGER ERRIND ! error indicator X`09INTEGER MTYPE ! marker type X`09REAL MSZSF ! marker size scale factor X`09INTEGER COLI ! polymarker colour index X X`09EXTERNAL pc_inqpredmarkerrep X X`09CALL pc_inqpredmarkerrep(%VAL(MTYPE),%VAL(PMI),ERRIND, X * MTYPE,MSIZE,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE TEXT FACILITIES XC X`09SUBROUTINE PQTXF (WTYPE,N,ERRIND,NFPP,FONT,PREC,NCHH,MINCHH, X * MAXCHH,NCHX,MINCHX,MAXCHX,NPIXI) X X INTEGER WTYPE ! workstation type X`09INTEGER N ! list element requested X INTEGER ERRIND ! error indicator X INTEGER NFPP ! number of text font and precision pairs X INTEGER FONT ! Nth element of list of text fonts X INTEGER PREC ! Nth element of list of text precisions X ! (PSTRP,PCHARP,PSTRKP) X INTEGER NCHH ! number of available character heights X REAL MINCHH ! minimum character height (DC) X REAL MAXCHH ! maximum character height (DC) X INTEGER NCHX ! number of available character X ! expansion factors X REAL MINCHX ! minimum character expansion factor X REAL MAXCHX ! maximum character expansion factor X INTEGER NPTXI ! number of predefined text indices X X`09EXTERNAL pc_inqtextfacil X X`09CALL pc_inqtextfacil(%VAL(WTYPE),%VAL(N),ERRINDNFPP,FONT, X * PREC,NCHH,MINCHH,MAXCHH,NCHX,MINCHX,MAXCHX,NPTXI) X X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PREDEFINED TEXT REPRESENTATION XC X`09 SUBROUTINE PQPTXR (W TYPE,PTXI,ERRIND,FONT,PREC,CHXP,CHSP, X * COLI) X X INTEGER WTYPE ! workstation type X INTEGER PTXI ! predefined text index X INTEGER ERRIND ! error indicator X INTEGER FONT ! text font X INTEGER PREC ! text precision (PSTRP,PCHARP,PSTRKP) X REAL CHXP ! character expansion factor X REAL CHSP ! character spacing X INTEGER COLI ! text colour index X X EXTERNAL pc_inqpredtextrep X X`09CALL pc_inqpredtextrep(%VAL(WTYPE),%VAL(PTXI),ERRIND,FONT, X * PREC,CHXP,CHSP,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE ANNOTATION FACILITIES XC X`09SUBROUTINE PQANF (WTYPE,N,ERRIND,NAS,AS,NCHH,MINCHH,MAXCHH) X X X`09INTEGER WTYPE ! workstation type X`09INTEGER N ! list element of annotation styles requested X`09INTEGER ERRIND ! error indicator X`09INTEGER NAS ! number of available annotation styles X`09INTEGER AS ! Nth element of list of available annotation s Vtyles X`09INTEGER NCHH ! number of available annotation text character V heights X`09REAL MINCHH ! minimum annotation text character height (DC) X`09REAL MAXCHH ! maximum annotation text character height (DC) X X`09EXTERNAL pc_inqannotationfacil X X`09CALL pc_inqannotationfacil(%VAL(WTYPE),%VAL(N),ERRIND,NAS,AS, X * NCHH,MINCHH,MAXCHH) X `20 X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE TEXT EXTENT XC`20 X X`09SUBROUTINE PQTXX (WKTYPE,FONT,CHXP,CHSP,CHH,TXP,TXALH,TXALV,STR, X * ERRIND,TXEXRX,TXEXRY,COPX,COPY) X X`09INTEGER WKTYPE ! workstation type X`09INTEGER FONT ! text font X`09REAL CHXP ! character expansion factor X`09REAL CHSP ! character spacing X`09REAL CHH ! character height X`09INTEGER TXP ! text path (PRIGHT,PLEFT,PUP,PDOWN) X`09INTEGER TXALH ! text alignment horizontal X ! (PAHNOR,PALEFT,PACENT,PARITE) X`09INTEGER TXALV ! text alignment vertical X ! (PAVNOR ,PATOP ,PACAP,PAHALF,PABASE,PABO VTT) X`09CHARACTER*(*) STR ! character string X`09INTEGER ERRIND ! error indicator X`09REAL TXEXRX(2), TXEXRY(2) ! text extent rectangle X`09REAL COPX,COPY ! concatenation offset X X`09EXTERNAL pc_inqtextextend X X`09CALL pc_inqtextextend(%VAL(WKTYPE),%VAL(FONT),%VAL(CHXP), X * %VAL(CHSP),%VAL(CHH),%VAL(TXP),%VAL(TXALH),%VAL(TXALV), X * STR,ERRIND,TXEXRX,TXEXRY,COPX,COPY)`20 X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE INTERIOR FACILITIES XC X`09SUBROUTINE PQIF (WTYPE,NI,NH,ERRIND,NIS,IS,NHS,HS,NPFAI) X X INTEGER WTYPE ! workstation type X INTEGER NI ! list element of interior styles requeste Vd X INTEGER NH ! list element of hatch styles requested X INTEGER ERRIND ! error indicator X INTEGER NIS ! number of available interior styles X INTEGER IS ! NIth element of list of available interi Vor styles X `09`09`09 ! PHOLLO ,PSOLID ,PPATTR ,PHATCH ,PISEMP) X INTEGER NHS ! number of available hatch styles X INTEGER HS ! NHth element of list of available X ! hatch style indices X INTEGER NPFAI ! number of predefined interior indices X X`09EXTERNAL pc_inqintfacil X X`09CALL pc_inqintfacil(%VAL(WTYPE),%VAL(NI),%VAL(NH),ERRIND, X * NIS,IS,NHS,HS,NPFAI) X X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PREDEFINED INTERIOR REPRESENTATION XC X`09SUBROUTINE PQPIR (WTYPE,PII,ERRIND,STYLE,STYLID,COLI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER PII ! predefined interior index X`09INTEGER ERRIND ! error indicator X`09INTEGER STYLE ! interior style X ! (PHOLLO,PSOLID,PPATTR,PHATCH,PISEMP) X`09INTEGER STYLID ! interior style index X`09INTEGER COLI ! interior colour index X X`09EXTERNAL pc_inqpredintrep X X`09CALL pc_inqpredintrep(%VAL(WTYPE),%VAL(PII),ERRIND,STYLE, X * STYLID,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE EDGE FACILITIES XC X`09SUBROUTINE PQEDF (WTYPE,N,ERRIND,NEDT,EDT,NEDW,NOMEDW, X * REDWMN, REDWMX, NPEDI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER N ! list element requested X`09INTEGER ERRIND ! error indicator X`09INTEGER NEDT ! number of available edgetypes X`09INTEGER EDT ! Nth element of list of available edgetypes X`09INTEGER NEDW ! number of available edgewidths X`09REAL NOMEDW ! nominal edgewidth X`09REAL REDWMN, REDWMX ! range of edgewidths X`09INTEGER NPEDI ! number of predefined edge indices X X`09EXTERNAL pc_inqedgefacil X X`09CALL pc_inqedgefacil(%VAL(WTYPE),%VAL(N),ERRIND,NEDT,EDT, X * NEDW,NOMEDW,REDWMN,REDWMX,NPEDI) X`09 X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE PREDEFINED EDGE REPRESENTATION XC X`09SUBROUTINE PQPEDR (WTYPE,PEDI,ERRIND,EDFLAG,EDTYPE,EWIDTH,COLI) X X`09INTEGER WTYPE ! workstation type X`09INTEGER PEDI ! predefined edge index X`09INTEGER ERRIND ! error indicator X`09INTEGER EDFLAG ! edge flag (POFF,PON) X`09INTEGER EDTYPE ! edgetype X`09REAL EWIDTH ! edgewidth scale factor X`09INTEGER COLI ! edge colour index X X`09EXTERNAL pc_inqprededgerep X X`09CALL pc_inqprededgerep(%VAL(WTYPE),%VAL(PEDI),ERRIND, X * EDFLAG,EDTYPE,EWIDTH,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE COLOUR MODEL FACILITIES XC X`09SUBROUTINE PQCMDF (WIYPE,N,ERRIND,OL,CMOD,DFCMOD) X X INTEGER WTYPE ! workstation type X `09INTEGER N ! element of list of available colou +-+-+-+-+-+-+-+- END OF PART 157 +-+-+-+-+-+-+-+-