include "offsetsd3.i"
		include	"baselibs.i"
		include	"d3Libs.i"
		
		variables

		int	xv,yv,zv,wv

		int	xsint,xcost,ysint,ycost,
		
		int	loop1,loop2

		int	aradius,bradius,kierto1,kierto2
	
	main()
	{
		OpenD3	cleanup
		
		OpenD3Screen			;openlibs

		OpenD3Window	0,0,310,240,1
		
		TestZero	d0,error
		
		LightArcus	$0400,$fa00

		ColorSet	$0f60,$0def

		D3Rot		$1d00,$1a00,$0600

		D3Dist		$4000		;distans

		AllocD3Buf	1
		
		TestZero	d0,error


		calc	aradius,=,$0480
		calc	loop1,=,0

		while	loop1,«,$1000,1
		{
		calc	loop1,=,loop1,+,24
		calc	loop2,=,0
		
			while	loop2,«,$4000,2
			{
			calc	loop2,=,loop2,+,16
			calc	kierto1,=,loop2,*,2
			calc	kierto2,=,loop2,*,3
			calc	bradius,=,aradius,*,sin,loop1
			calc	xv,=,bradius,*,sin,loop2
			calc	yv,=,bradius,*,cos,kierto1
			calc	zv,=,aradius,*,cos,loop1
			calc	xv,=,xv,*,cos,loop1
			calc	zv,=,zv,*,cos,kierto2 
			

			D3ColorPlot	xv,yv,zv
	
			}	2
		
		Lib	D3,VanillaKey
		tst.w	d0
		bne	error
		}	1
				
		ColorWindow	1
error
		FreeD3Buf	1
		
		ClickD3Window	1
	
		CloseD3Screen			;closelibs
cleanup		CloseD3

	}	

		end