rem                            PLINESPL.CDL


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


rem        Convert Polyline to Spline




clear

	set mask,7
:start
	getent "Select Polyline", enttype

	on (@key + 3) goto exit, start, start,

	pltype = @intdat[9]
	pnum = @intdat[12]
	n = 0
	array val[pnum][3]

:point
	val[n][0] = @fltdat[3 * n + 1]
	val[n][1] = @fltdat[3 * n + 2]
	val[n][2] = @fltdat[3 * n + 3]
	n = n + 1
	if (n<pnum)
		goto point
	on pltype goto open, close, start

:open
	spline p3nn, val, pnum
	redraw
	clear val
	goto start

:close
	if (pnum<3)
		goto next1

:next
	spline p3c, val, pnum - 1
	redraw

:next1
	clear val
	goto start
:exit