Untitled

partno/ 'graph some points for fun'
lim1=point/-10,-10,0
lim2=point/10,10,0
export/file,'forFun.dxf',mode,dxf,lowlft,lim1,uprgt,lim2,on

declar/point,p(202)
c=point/1.2,3,4
a=1;b=200
while/a .lt. b
	p(a)=point/(a/10),(4*sin(4*a)),0
$$	c(1)=5
	$$print/a
	print/p(a)
	a=a+1
endof/while

a=1;b=200
spindl/3000
coolnt/on
while/a .lt. b
	goto/p(a:1),p(a:2),p(a:3)
	a=a+1
endof/while




fini