INITIALIZE STROKE 3

PINSK3

CALL SEQUENCE

CALL PINSK3 (WKID, SKDNR, IVIEWI, N, IPX, IPY, IPZ, PET, EVOL, LDR, DATREC)

INPUT PARAMETERS

INTEGER WKID

Workstation identifier.

INTEGER SKDNR

Stroke 3 input device identifier.

INTEGER IVIEWI

View index.

INTEGER N

Number of initial points.

REAL IPX(N), IPY(N), IPZ(N)

Stroke 3 initial points in WC.

INTEGER PET

Echo type.

REAL EVOL(6)

Echo volume in DC.

INTEGER LDR

Number of data records.

CHARACTER*80 DATREC(LDR)

Data record.

PHIGS STATE

(PHOP, WSOP, *, *).

EFFECT

This function initializes the STROKE 3 input device (input of a series of points in space) number SKDNR for the workstation WKID.

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.

Initialize integer array IA and real array RA:

IA(1): input buffer size.

IA(2): editing position.

• RA(1): x 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

ERRORS

3

Ignoring function, function requires state (PHOP, WSOP,*,*)

54

Ignoring function, the specified workstation is not open

61

Ignoring function, specified workstation is neither of category INPUT nor of category OUTIN

250

Ignoring function, the specified device is not available on the specified workstation

251

Ignoring function, the function requires the input device to be in REQUEST mode

254

Ignoring function, invalid echo area volume: XMIN>=XMAX, YMIN>=YMAX or ZMIN>ZMAX

255

Ignoring function, one of the echo area volume boundary points is outside the range of the device

253

Ignoring function, the specified prompt echo type is not available on the specified workstation

260

Ignoring function, one of the fields within the input device data record is in error

261

Ignoring function, initial value is invalid

262

Ignoring function, number of points in the initial stroke is greater than the buffer size

114

Ignoring function, the view index value is less than zero

SEE ALSO

initialize stroke, set stroke mode, request stroke 3, sample stroke 3, get stroke 3, inquire stroke device state 3, inquire default stroke device state 3, inquire number of available logical input devices