Previous Next Up Title Contents Index Functions Index Top Library

NITIALIZE LOCATOR 3

PINLC3

CALL SEQUENCE

PINLC3 (WKID, LCDNR, IVIEWI, IPX, IPY, IPZ, PET, EVOL, LDR, DATREC)

INPUT PARAMETERS

INTEGER	WKID
INTEGER	LCDNR
INTEGER	IVIEWI
REAL	IPX, IPY, IPZ
INTEGER	PET
REAL	EVOL(6)
INTEGER	LDR
CHARACTER*80	DATREC(LDR)

ARGUMENTS

WKID
Workstation identifier.
LCDNR
Locator 3 input device identifier.
IVIEWI
View index.
IPX, IPY, IPZ
Initial position of LOCATOR in WC (World Coordinates).
PET
Echo type.
EVOL(6)
Echo volume in DC (Device Coordinates): XMIN, XMAX, YMIN, YMAX, ZMIN, ZMAX.
LDR
Number of data records.
DATREC(LDR)
Data record.

PHIGS STATE

(PHOP, WSOP, *, *).

EFFECT

This function initializes the LOCATOR 3 input device (designation of a point in space) number LCDNR for workstation WKID.

Devices 1 and 2 are associated with the mouse.

The initial locator position is only used to draw rubber rectangle or rubber band.

The following echo types are available:

1: Hard X-Window cross cursor.

2: Crosshair.

3: Tracking cross.

4: Rubber band.

5: Rubber rectangle.

6: Digital display of Device Coordinates (DC).

0: Digital display of World Coordinates (WC) and view index.

-2:-3,-4:-5,-6: Same as 2,3,4,5 and 6 with digital display of World Coordinates (WC) and view index.

Depending on the echo type, the locator data record may contain additional information about the visual aspect of the echo. For echo type 0,1,2,3,6,-2,-3 and -6 this parameter does not need to be initialized.

For echo type 4 and -4: The PPREC function must be called as follows :

Initialize integer array IA and real array RA:

IA(1): unused.

IA(2): line style ASF.

IA(3): line width ASF.

IA(4): line color ASF.

IA(5): line index.

IA(6): line style.

IA(7): line color index.

RA(1): line width.

	call PPREC(7,IA,1,RA,0,0,0,MLDR,IERR,LDR,DATREC)
GPHIGS will use line index to access line style, line width or line color index if corresponding ASF is set to PBUNDL. Otherwise the line style, line width and line color index of the IA and RA arrays will be used if corresponding ASF is set to PINDIV. Rubber band will appear on the screen with specified attributes.

For echo type 5 and -5: The PPREC function must be called as follows:

Initialize integer array IA and real array RA:

IA(1): type of primitive to be used to generate rubber rectangle: May be either PPLINE, PFILLA or PFILAS.

if PPLINE:

IA(2): unused.

IA(3): line style ASF.

IA(4): line width ASF.

IA(5): line color ASF.

IA(6): line index.

IA(7): line style.

IA(8): line color index.

RA(1): line width.

	call PPREC(8,IA,1,RA,0,0,0,MLDR,IERR,LDR,DATREC)

GPHIGS will use line index to access line style, line width or line color index if corresponding ASF is set to PBUNDL. Otherwise the line style, line width and line color index of the IA and RA arrays will be used if corresponding ASF is set to PINDIV. Rubber rectangle will appear on the screen with specified line attributes.

if PFILLA:

IA(2): unused.

IA(3): interior style ASF.

IA(4): interior style index ASF.

IA(5): interior color ASF.

IA(6): interior index.

IA(7): interior style

IA(8): interior style index.

IA(9): interior color index.

	call PPREC(9,IA,0,0.,0,0,0,MLDR,IERR,LDR,DATREC)

GPHIGS will use style index to access interior style, interior style index or interior color index if corresponding ASF is set to PBUNDL. Otherwise the interior style, interior style index or interior color index of the IA and RA arrays will be used if corresponding ASF is set to PINDIV. Rubber rectangle will appear on the screen with specified interior attributes.

if PFILAS:

IA(2): unused.

IA(3): interior style ASF.

IA(4): interior style index ASF.

IA(5): interior color ASF.

IA(6): interior index.

IA(7): interior style

IA(8): interior style index.

IA(9): interior color index.

IA(10): edge flag ASF.

IA(11): edge type ASF.

IA(12): edge width ASF.

IA(13): edge color ASF.

IA(14): edge index.

IA(15): edge flag.

IA(16): edge type.

IA(17): edge color index.

RA(1): edge width.

	call PPREC(17,IA,1,RA,0,0,0,MLDR,IERR,LDR,DATREC)

GPHIGS will use style index to access interior style, interior style index or interior color index if corresponding ASF is set to PBUNDL. Otherwise the interior style, interior style index or interior color index of the IA and RA arrays will be used if corresponding ASF is set to PINDIV.

GPHIGS will use edge index to access edge flag, edge type, edge width and edge color index if corresponding ASF is set to PBUNDL. Otherwise the edge flag, edge type, edge width and edge color index of the IA and RA arrays will be used if corresponding ASF is set to PINDIV.

Rubber rectangle will appear on the screen with specified interior and edge attributes. 



Example

c Sample program for initialization of a locator device
	program locator
c
	include "PHIGS.H"
c
	integer  MLDR , UNUSED
	parameter (MLDR=10 , UNUSED=0)
c
	integer  wkid,updst,pet,ia(20),lcdnr,iviewi,pet
	real  ra,evol(6),reqwin(6),curwin(6),reqvie(6),px,py
	character*80 datrec(MLDR)
c
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
c Initialization to draw a solid red rectangle with green dashed edges
c of width 3.
	pet = 5
	ia(1) = PFILAS
	ia(2) = UNUSED
	ia(3) = PINDIV
	ia(4) = PINDIV
	ia(5) = PINDIV
	ia(6) = 1
	ia(7) = PSOLID
	ia(8) = 1
	ia(9) = 2
	ia(10) = PINDIV
	ia(11) = PINDIV
	ia(12) = PINDIV
	ia(13) = PINDIV
	ia(14) = 1
	ia(15) = PON
	ia(16) = 2
	ia(17) = 3
	ra = 3.
	call PPREC(17,ia,1,ra,0,0,0,MLDR,ierr,ldr,datrec)
	lcdnr = 1
	iviewi = 0
	px = .5
	py = .5
	pet = 5
	call PINLC3(wkid,lcdnr,iviewi,px,py,pet,evol,ldr,datrec)

C Close workstation
	call PCLWK(wkid)

C Close PHIGS session
	call PCLPH
C
	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
114
Ignoring function, the view index value is less than zero

SEE ALSO

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

Previous Next Up Title Contents Index Functions Index Top Library