PINSK3 (WKID, SKDNR, IVIEWI, N, IPX, IPY, IPZ, PET, EVOL, LDR, DATREC)
INTEGER WKID INTEGER SKDNR INTEGER IVIEWI INTEGER N REAL IPX(N), IPY(N), IPZ(N) INTEGER PET REAL EVOL(6) INTEGER LDR CHARACTER*80 DATREC(LDR)
Device number 1 is associated with the mouse.
The following echo types are available:
1 : and 2: Hard X-Window cross cursor with display of the initial points using a polyline function. Attributes of polyline cannot be changed.
3 : Hard X-Window cross cursor with display of the initial points using a polyline function. Attributes of polyline cannot be changed. New points are echoed with polymarkers. A new polymarker is drawn at every new valid position. Polymarker attributes can be specified in the data record parameter.
4 : Hard X-Window cross cursor with display of the initial points using a polyline function. New points are echoed with polyline. Each new position is linked to the previous one by a line. Polyline attributes can be specified in the data record parameter.
10 : Hard X-Window cross cursor with display of the initial points using a polyline function. Attributes of polyline cannot be changed. Only the edited point position is changed when the cursor moves : a line is drawn between the new and the old position of the edited point; all other points remain at the same position. This echo type makes it possible to edit one point position in a full curve. Polyline attributes can be specified in the data record parameter.
11 : Hard X-Window cross cursor with display of the initial points using a polyline function. Attributes of polyline cannot be changed. All the points are translated according to the new cursor position and the editing position. The new curve is drawn using a polyline function. This echo type makes it possible to translate a full set of points to a new position. Polyline attributes can be specified in the data record parameter.
For echo type 1 and 2: The PPREC function is to be called as follows:
Initialize integer array IA and real array RA:
IA(1): input buffer size.
IA(2): editing position.
RA(1): x interval in DC.
RA(2): y interval in DC.
RA(3): time interval in seconds.
call PPREC(2,IA,3,RA,0,0,0,MLDR,IERR,LDR,DATREC)
For echo type 3: The PPREC function is to be called as follows:
Initialize integer array IA and real array RA:
IA(1): input buffer size.
IA(2): editing position.
IA(3): unused.
IA(4): marker type ASF.
IA(5): marker size ASF.
IA(6): marker color ASF.
IA(7): marker index.
IA(8): marker type.
IA(9): marker color.
RA(1): x interval in DC.
RA(2): y interval in DC.
RA(3): time interval in seconds.
RA(4): marker size.
call PPREC(9,IA,4,RA,0,0,0,MLDR,IERR,LDR,DATREC)
For echo type 4, 10 and 11: The PPREC function is to be called as follows:
Initialize integer array IA and real array RA:
IA(1): input buffer size .
IA(2): editing position.
IA(3): unused.
IA(4): line style ASF.
IA(5): line width ASF.
IA(6): line color ASF.
IA(7): line index.
IA(8): line style.
IA(9): line color.
RA(1): x interval in DC.
RA(2): y interval in DC.
RA(3): time interval in seconds.
RA(4): line width.
call PPREC(9,IA,4,RA,0,0,0,MLDR,IERR,LDR,DATREC) Example: program stroke include 'PHIGS.H' parameter (MLDR=10) integer ia(9),wkid,pet,skdnr,iviewi,n,iflag,updst real xp(3),yp(3),zp(3),ra(4),reqwin(6),curwin(6),reqvie(6),curvie(6) real evol(6) character*80 datrec(MLDR) C Open PHIGS session call POPPH(6,-1) C Open workstation wkid = 1 call POPWK(wkid,1,8887) call PQWKT3(wkid,ierr,updst,reqwin,curwin,reqvie,evol) C Initializing stroke for pet number 10 with 3 initial points */ ia(1) = 3 ia(2) = 2 ia(3) = 0 ia(4) = 1 ia(5) = 1 ia(6) = 1 ia(7) = 1 ia(8) = 1 ia(9) = 1 ra(1) = 10. ra(2) = 10. ra(3) = 10000. ra(4) = 1. call PPREC (9,ia,4,ra,0,0,0,MLDR,ierr,ldr,datrec) pet = 10 skdnr = 1 iviewi = 0 n = 3 xp(1) = .2 yp(1) = .2 zp(1) = .2 xp(2) = .4 yp(2) = .7 zp(2) = .1 xp(3) = .6 yp(3) = .6 zp(3) = .2 call PINSK3(wkid,skdnr,iviewi,n,xp,yp,zp,pet,evol,ldr,datrec) C Close workstation call PCLWK(wkid) C Close PHIGS call PCLPH end