rem                            SPLOPN.CDL


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


rem        Open Spline

rem        1. Select Node point for Spline
rem        2. Draw spline curve



clear
defpt = 2
pnum = 0
array val[200][3]
array $pmpt[65]

:point

sprint $pmpt,"Indicate Node Point No.%d (Press Return when finished)",pnum+1

getpos $pmpt,defpt
on (@key+3) goto exit,point1,spline,

defpt=@key

val[pnum][0] = @xworld
val[pnum][1] = @yworld
val[pnum][2] = @zworld
pnum = pnum + 1
goto point

:point1
pnum=pnum-1
if (pnum<0)
	goto exit
goto point


:spline
if (pnum<2)
	goto exit

:makespl
spline p3nn, val, pnum
pnum = 0
goto point
:exit
clear