MANUEL DE REFERENCE PHIGURE F77

INITIALIZE PICK 3

PINPK3

CALL SEQUENCE

PINPK3 (WKID, PKDNR, ISTAT, IPPD, PP, PET, EVOL, LDR, DATREC, PPORDR)

INPUT PARAMETERS

INTEGER	WKID
INTEGER	PKDNR
INTEGER	ISTAT
INTEGER	IPPD
INTEGER	PP(3,IPPD)
INTEGER	PET
REAL	EVOL(6)
INTEGER	LDR
CHARACTER*80	DATREC(LDR)
INTEGER	PPORDR

ARGUMENTS

WKID: Workstation identifier.
PKDNR: PICK3 input device identifier.
ISTAT: Initial state:

POK:: 1 (OK)
PNPICK:: 2 (NO PICK)

IPPD: Initial pick depth. Defines the number of EXECUTE STRUCTURE levels in the initial pick path.
PP(3,IPPD): Table defining the initial PICKING path which will be associated with PKDNR. Each path element contains three integers:

- Structure identifier
- Pick identifier
- Element number

PET: Echo type.
EVOL(6): Echo volume in DC.
LDR: Number of data records.
DATREC(LDR): Data record.
PPORDR: Specifies the order in which the picking path is returned.

PPOTOP:: 0 (TOP FIRST)
PPOBOT:: 1 (BOTTOM FIRST)

PHIGS STATE

(PHOP, WSOP, *, *).

EFFECT

This function initializes the PICK input device (designation of graphic elements on the screen) number PKDNR for workstation WKID.

The pick aperture is centered on the graphics cursor and follows its movement. When the pick input device (the mouse for example) is validated, the primitive (or part of it) contained in the pick aperture is selected.

Device number 1 is available and is associated with the mouse.

Echo type number 1 displays an X cursor.

Initial pick path and data record parameters are unused.

Example:

C Sample program for initialization of a pick device 

	program pick
 
	include 'PHIGS.H'

	integer wkid,pkdnr,istat,ippd,pp(3,1),pet,ldr,ppordr
	character*80 datrec
	real evol(6),reqwin(6),curwin(6),reqvie(6)

C Open PHIGS session 
	call POPPH(6,-1)

C Open workstation
	wkid = 1
	call POPWK(wkid,1,8887)

c Get back Device Coordinates of the workstation
	call PQWKT3(wkid,ierr,updst,reqwin,curwin,reqvie,evol)

C Initialize pick device number 1 with echo type number 1 
	pkdnr = 1
	istat = PNPICK
	ippd = 0
	pet = 1
	ldr = 0
	ppordr = PPOTOP
	call PINPK3(wkid,pkdnr,istat,ippd,pp,pet,
			evol,ldr,datrec,ppordr)

C Close workstation
	call PCLWK(wkid)

C Close PHIGS session
	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