rem                            EQ_PL.CDL

rem        Copy Right by International Technology Transfer Corp.
rem        revision 1.0-7/30/99   


rem        Equation of Plane




clear
dspflg = 1

:start
getplane "Select method for plane definition", dspflg

on (@key + 1) goto exit,
a = @fltdat[10]
b = @fltdat[11]
c = @fltdat[12]
d = @fltdat[13]

pause "(%.5f) * x + (%.5f) * y + (%.5f) * z + (%.5f) = 0", a, b, c, d
redraw
goto start
:exit