MANUEL DE REFERENCE PHIGURE F77 - INITIALIZE VALUATOR 3

INITIALIZE VALUATOR 3

PINVL3

CALL SEQUENCE

PINVL3 (WKID, VLDNR, IVAL, PET, EVOL, LDR, DATREC)

INPUT PARAMETERS

INTEGER	WKID
INTEGER	VLDNR
REAL	IVAL
INTEGER	PET
REAL	EVOL(6)
INTEGER	LDR
CHARACTER*80	DATREC(LDR)

ARGUMENTS

WKID: Workstation identifier.
VLDNR: VALUATOR input device identifier.
IVAL: Initial value.
PET: Echo type.
EVOL(6): Echo volume in DC.
LDR: Number of data records.
DATREC(LDR): Data record.

PHIGS STATE

(PHOP, WSOP, *, *).

EFFECT

This function initializes the VALUATOR input device (input of a real value) number VLDNR for workstation WKID.

Devices 21 to 30 are available, each assigned to a different scale widget.

The following echo types are available:

1: Displays the valuator in the echo volume inside the graphic window.

Echo volume is given in DC coordinates

-1: Displays the valuator device in a separate window

Echo volume is given in percent of the RootWindow size.

The PPREC function is to be called as follows:

Initialize real array RA:

RA(1): Low value.

RA(2): High value.

Initialize LSTR and STR string:

LSTR(1): length of the title of the valuator scale widget.

STR(1): title of the scale widget.

	call PPREC(0,0,2,RA,1,LSTR,STR,MLDR,IERR,LDR,DATREC)
Example:

C Sample program to initialize a valuator device

	program valuator
 
	include 'PHIGS.H'

	parameter (MLDR=10)
	integer wkid,ierr,ldr,vldnr,pet
	real ra(2),defval,evol(6)
	character*80 datrec(MLDR)

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

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

C initialize valuator device 21 with echo number -1 
	ra(1) = 0.
	ra(2) = 100.
	call PPREC(0,0,2,ra, 1,10,'Parameter1',MLDR,ierr,ldr,datrec)
	pet = -1
	evol(1) = 0.
	evol(2)= .95
	evol(3)= .3
	evol(4)= 1.
	evol(5)= 0.
	evol(6)= 1.
	defval = 30.
	vldnr = 21
	call PINVL3(wkid,vldnr,defval,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