	PROGRAM THREED
C
C Program to plot a three dimensional saddle function with hidden-lines removed
C
	COMMON ANGA, ANGB, HV, D
	COMMON DL, DM, DN, CX, CY, CZ, QX, QY, QZ, DD
C
	REAL X1, Y1, DX, DY
	DATA X1, Y1, DX, DY /-4.0, -4.0, 0.5, 0.5/
	INTEGER NX, NY
	DATA NX, NY /17, 17/
	REAL ADEG, BDEG
	DATA ADEG, BDEG /60.0, 30.0/
C
	REAL A(100, 100)
C
	WRITE(6,100)
100	FORMAT(1X,'INPUT TILT AND ROTATION ANGLES ')
	READ(5,*)ADEG,BDEG
C200	FORMAT(2F10.2)

	PI = 3.141593
	ANGA = ADEG * PI / 180.0
	ANGB = BDEG * PI / 180.0
	HV = 5.0
	X = X1
	DO 129 I = 1, NX
	    XSQR = X * X
	    Y = Y1
	    DO 119 J = 1, NY
		A(I,J) = XSQR - Y * Y + 4.0
		Y = Y + DY
119	    CONTINUE
	    X = X + DX
129	CONTINUE
	CALL THREED(A, NY, NY, 3)
	CALL	PICSIZ(0.,0.)
	STOP
	END
