GPHIGS F77 FUNCTIONS - INITIALIZE PICK 3

INITIALIZE PICK 3

PINPK3

CALL SEQUENCE

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

INPUT PARAMETERS

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

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

INTEGER IPPD: Initial pick depth. Defines the number of EXECUTE STRUCTURE levels in the initial pick path.
INTEGER 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

INTEGER PET: Echo type.
REAL EVOL(6): Echo volume in DC.
INTEGER LDR: Number of data records.
CHARACTER*80 DATREC(LDR): Data record.
INTEGER 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