-+-+-+-+-+-+-+-+ START OF PART 155 -+-+-+-+-+-+-+-+ X XC XC INQUIRE INTERIOR REPRESENTATION XC X`09SUBROUTINE PQIR (WKID,II,TYPE,ERRIND,INTS,ISTYLI,COLI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER II ! interior index X `09INTEGER TYPE ! type of returned values (PSET,PREALI) X `09INTEGER ERRIND ! error indicator X `09INTEGER INTS ! interior style X ! (PHOLLO,PSOLID,PPATTR,PHATCH,PISEMP) X `09INTEGER ISTYLI ! interior style index X `09INTEGER COLI ! interior colour index X X`09EXTERNAL pc_inqintrep X X`09CALL pc_inqintrep(%VAL(WKID),%VAL(II),%VAL(TYPE),ERRIND,INTS, X * ISTYLI,COLI) X X`09return `20 X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF EDGE INDICES XC X`09SUBROUTINE PQEEDI (WKID,N,ERRIND,OL,EDI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of edge bundle table entries X `09INTEGER EDI ! Nth element of list of defined edge indice Vs X X`09EXTERNAL pc_inqedgeind X X`09CALL pc_inqedgeind(%VAL(WKID),%VAL(N),ERRIND,OL,EDI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE EDGE REPRESENTATION XC X`09SUBROUTINE PQEDR (WKID,EDI,TYPE,ERRIND,EDFLAG,EDTYPE,EWIDTH,COLI) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER EDI ! edge index X`09INTEGER TYPE ! type of returned values (PSET,PREALI) 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 `20 X X`09EXTERNAL pc_inqedgerep X X`09CALL pc_inqedgerep(%VAL(WKID),%VAL(EDI),%VAL(TYPE),ERRIND, X * EDFLAG,EDTYPE,EWIDTH,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE COLOUR MODEL XC X`09SUBROUTINE PQCMD (WKID,ERRIND,CMODEL) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER CMODEL ! current colour model X X`09EXTERNAL PINQCOLOURMODEL X X`09CALL PINQCOLOURMODEL(%VAL(WKID),ERRIND,CMODEL) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LIST element OF COLOUR INDICES XC X`09SUBROUTINE PQECI (WKID,N,ERRIND,OL,COLI) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER N ! list element requested X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of colour table entries X `09INTEGER COLI ! Nth element of list of colour indices`20 X X`09EXTERNAL pc_inqcolourind X X`09CALL pc_inqcolourind(%VAL(WKID),%VAL(N),ERRIND,OL,COLI) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE COLOUR REPRESENTATION XC X`09SUBROUTINE PQCR (WKID,COLI,CCSBSZ,TYPE,ERRIND,OL,CSPEC) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER COLI ! colour index X `09INTEGER CCSBSZ ! colour component specification buffer size X `09INTEGER TYPE ! type of returned values (PSET,PREALI) X `09INTEGER ERRIND ! error indicator X `09INTEGER OL ! number of colour components in the colour V specification X `09REAL CSPEC(CCSBSZ) ! colour specification X X`09EXTERNAL pc_inqcolourrep X X`09CALL pc_inqccolourrep(%VAL(WKID),%VAL(COLI),CCSBSZ,%VAL(TYPE), X * ERRIND,OL,CSPEC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE HIGHLIGHTING FILTER XC X`09SUBROUTINE PQHLFT (WKID,ISBSZ,ESBSZ,ERRIND,ISN,IS,ESN,ES) X `20 X `20 X`09INTEGER WKID ! workstation identifier X`09INTEGER ISBSZ ! inclusion set buffer size X`09INTEGER ESBSZ ! exclusion set buffer size X`09INTEGER ERRIND ! error indicator X`09INTEGER ISN ! number of names in the inclusion set X`09INTEGER IS (ISBSZ) ! inclusion set X`09INTEGER ESN ! number of names in the exclusion set X`09INTEGER ES (ESBSZ) ! exclusion set X X `09EXTERNAL pc_inqhighlightfilter X X`09CALL pc_inqhighlightfilter(%VAL(WKID),%VAL(ISBSZ),%VAL(ESBSZ), X * ERRIND,ISN,IS,ESN,ES) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE INVISIBILITY FILTER XC X`09SUBROUTINE PQIVFT (WKID,ISBSZ,ESBSZ,ERRIND,ISN,IS,ESN,ES) X X`09INTEGER WKID ! workstation identifier X`09INTEGER ISBSZ ! inclusion set bufi r size X`09INTEGER ESBSZ ! exclusion set buffer size X`09INTEGER ERRIND ! error indicator X`09INTEGER ISN ! number of names in the inclusion set X `09INTEGER IS (ISBSZ) ! inclusion set X`09INTEGER ESN ! number of names in the exclusion set X`09INTEGER ES (ESBSZ) ! exclusion set X X`09EXTERNAL pc_inqinvisfilter X X`09CALL pc_inqinvisfilter(%VAL(WKID),%VAL(ISBSZ),%VAL(ESBSZ), X * ERRIND,ISN,IS,ESN,ES) X `20 X `20 X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE WORKSTATION TRANSFORMATION 3 XC X`09SUBROUTINE PQWKT3 (WKID,ERRIND,TUS,RWINDO,CWINDO, X * RVIEWP, CVIEWP) X X `20 X `09INTEGER WKID ! workstation identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER TUS ! workstation transformation update state X ! (PNPEND,PPEND) X `09REAL RWINDO(6) ! requested workstation window in NPC X ! RWXMIN,RWXMAX,RWYMIN, X ! RWYMAX, RWZMIN, RWZMAX X `09REAL CWINDO(6) ! current workstation window in NPC X ! CWXMIN, CWXMAX, CWYMIN X ! CWYMAX, CWZMIN, CWZMAX X `09REAL RVIEWP(6) ! requested workstation viewport in DC X ! RVXMIN,RVXMAX,RVYMIN X ! RVYMAX, RVZMIN, RVZMAX X `09REAL CVIEWP(6) ! current workstation viewport in DC X ! CVXMIN, CVXMAX, CVYMIN X ! CVYMAX, CVZMIN, CVZMAX X X`09EXTERNAL pc_inqwstran3 X X`09CALL pc_inqwstran3(%VAL(WKID),ERRIND,TUS,RWINDO,CWINDO, X * RVIEWP,CVIEWP) X X`09return X`09end Xc-------------------------------------------------------------------- X `20 X `20 XC XC INQUIRE WORKSTATION TRANSFORMATION XC X `09SUBROUTINE PQWKT (WKID,ERRIND,TUS,RWINDO,CWINDO, X * RVIEWP, CVIEWP) X X `09INTEGER WKID ! workstation identifier X `09INTEGER ERRIND ! error indicator X `09INTEGER TUS ! workstation transformation update state X ! (PNPEND,PPEND) X `09REAL RWINDO(4) ! requested workstation window in NPC X`09`09`09 ! RWXMIN, RWXMAX, RWYMIN, RWYMAX X `09REAL CWINDO(4) ! current workstation window in NPC X`09`09`09 ! CWXMIN, CWXMAX, CWYMIN, CWYMAX X `09REAL RVIEWP(4) ! requested workstation viewport in DC X`09`09`09 ! RVXMIN, RVXMAX, RVYMIN, RVYMAX X `09REAL CVIEWP(4) ! current workstation viewport in DC X`09`09`09 ! CVXMIN, CVXMAX, CVYMIN, CVYMAX X X`09EXTERNAL pc_inqwstran X X`09CALL pc_inqwstran(%VAL(WKID),ERRIND,TUS,RWINDO,CWINDO, X * RVIEWP,CVIEWP) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LOCATOR DEVICE STATE 3 XC X`09SUBROUTINE PQLCS3 (WND,LCDNR,TYPE,MLDR,ERRIND,MODE,ESW,IVIEWI, X * IPX,IPY,IPZ,PET,EVOL,LDR,DATREC) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER LCDNR ! locator device number X`09INTEGER TYPE ! type of returned values (PSET,PREALI) 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 IVIEWI ! initial view index X`09REAL IPX, IPY, IPZ ! initial locator position (WC) 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_inqlocst3 X X`09CALL pc_inqlocst3(%VAL(WKID),%VAL(LCDNR),%VAL(TYPE),%VAL(MLDR) X * ,ERRIND,MODE,ESW,IVIEWI,IPX,IPY,IPZ,PET,EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE LOCATOR DEVICE STATE XC X`09SUBROUTINE PQLCS (WKID,LCDNR,TYPE,MLDR,ERRIND,MODE,ESW,IVIEWI, X * IPX,IPY,PET,EAREA,LDR,DATREC) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER LCDNR ! locator device number X`09INTEGER TYPE ! type of resumed values (PSET,PREALI) 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) `20 X`09INTEGER IVIEWI ! initial view index X`09REAL IPX, IPY ! initial locator position (WC) 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_inqlocst X X`09CALL pc_inqlocst(%VAL(WKID),%VAL(LCDNR),%VAL(TYPE),%VAL(MLDR) X * ,ERRIND,MODE,ESW,IVIEWI,IPX,IPY,PET,EAREA,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STROKE DEVICE STATE 3 XC X`09SUBROUTINE PQSKS3 (WKID,SKDNR,TYPE,N,MLDR,ERRIND,MODE,ESW,IVIEWI, X * NP,IPXA,IPYA,IPZA ,PET,EVOL,LDR,DATREC) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER SKDNR ! stroke device number X`09INTEGER TYPE ! type of returned values (PSET,P`09REALI) X`09INTEGER N ! maximum number of points 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 s vitch (PNECHO,PECHO) X`09INTEGER IVIEWI ! initial view index X`09INTEGER NP ! number of points X`09REAL IPXA(N), IPYA(N), IPZA(N) X ! coordinates of initial stroke (WC) V `20 X `09INTEGER PET V ! 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 re Vcord X`09CHARACTER*80 DATREC(MLDR) X`09`09`09`09 ! data record X X`09EXTERNAL pc_inqstrokest3 X X`09CALL pc_inqstrokest3(%VAL(WKID),%VAL(SKDNR),%VAL(TYPE),%VAL(N) X * ,%VAL(MLDR),ERRIND,MODE,ESW,IVIEWI,NP,IPXA,IPYA,IPZA,PET, X * EVOL,LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE STROKE DEVICE STATE XC X`09SUBROUTINE PQSKS (WKID,SKDNR,TYPE,N,MLDR,ERRIND,MODE,ESW,IVIEWI, X * NP,IPXA,IPYA,PET,EAREA,LDR,DATREC) X X X`09INTEGER WKID ! workstation identifier X`09INTEGER SKDNR ! stroke device number X`09INTEGER TYPE ! type of resumed values (PSET,PREALI) X`09INTEGER N ! maximum number of points 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 IVIEWI ! initial view index X`09INTEGER NP ! number of points X`09REAL IPXA(N), IPYA(N) ! coordinates of initial stroke (WC) X`09INTEGER PET ! prompt and echo type X`09REAL EAREA(4) ! echo area (DC) `20 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_inqstrokest X X`09CALL pc_inqstrokest(%VAL(WKID),%VAL(SKDNR),%VAL(TYPE),%VAL(N), X * %VAL(MLDR),ERRIND,MODE,ESW,IVIEWI,NP,IPXA,IPYA,PET,EAREA, X * LDR,DATREC) X X`09return X`09end Xc-------------------------------------------------------------------- X XC XC INQUIRE VALUATOR DEVICE STATE 3 XC X`09SUBROUTINE PQVLS3 (WKID,VLDNR,MLDR,ERRIND,MODE,ESW,IVAL,PET, X * EVOL,LDR,DATREC) X X`09INTEGER WKID ! 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 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 +-+-+-+-+-+-+-+- END OF PART 155 +-+-+-+-+-+-+-+-