rem                            PT_SPL.CDL


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


rem        Creating Points on Spline



clear
array mtx[9]

:start
getent "Select Spline", enttype

on (@key + 3) goto exit, start,start,
if (enttype!=5)
	goto start
pnum = @intdat[11]
flg = @intdat[8]

if (flg==0)
	goto next
vz = @fltdat[0]
vnum = @intdat[10]
getview vnum, mtx
view vnum, mtx[0], mtx[1], mtx[2], mtx[3], mtx[4], mtx[5], mtx[6], mtx[7], mtx[8]

:next
n = 0
on flg goto point2d, point3d

:point2d

vpoint @fltdat[8 * n + 4], @fltdat[8 * ( n + 1 )], vz, vnum
n = n + 1
if (n<pnum)
	goto point2d
vx = @fltdat[8 * pnum - 7] + @fltdat[8 * pnum - 6] + @fltdat[8 * pnum - 5] + @fltdat[8 * pnum - 4]
vy = @fltdat[8 * pnum - 3] + @fltdat[8 * pnum - 2] + @fltdat[8 * pnum - 1] + @fltdat[8 * pnum]
vpoint vx, vy, vz, vnum
redraw
goto start

:point3d
point @fltdat[12 * n + 3], @fltdat[12 * n + 7], @fltdat[12 * n + 11]
n = n + 1

if (n<pnum)
	goto point3d
x = @fltdat[12 * pnum - 9] + @fltdat[12 * pnum - 10] + @fltdat[12 * pnum - 11] + @fltdat[12 * pnum - 12]
y = @fltdat[12 * pnum - 5] + @fltdat[12 * pnum - 6] + @fltdat[12 * pnum - 7] + @fltdat[12 * pnum - 8]
z = @fltdat[12 * pnum - 1] + @fltdat[12 * pnum - 2] + @fltdat[12 * pnum - 3] + @fltdat[12 * pnum - 4]
point x, y, z
redraw
goto start

:exit
clear