include	"offsetsd3.i"
		include	"d3Libs.i"
		include	"baselibs.i"
		include	"baselibs1.i"

	#define	LF,10

		variables
		
		int	xv,yv,zv
		int	aradius,bradius
		int	loop1,loop2
		int	error

		main()
		{
		func	error,=,OpenD3	
		if	error,==,0,i1
		{
		print	<"no found d3.library",LF>
		exit	0
		}
		ifend	i1
		
		OpenD3Screen			;openlibs
		
		OpenD3Window	0,0,310,240,1
		
		TestZero	d0,error
	
		ColorSet	$0f40,$0fed

		LightArcus	$0200,$0400

		D3Rot		$0400,$0600,$0800

		D3Dist		$4000		;distans

		
		func	error,=,AllocD3Buf,1
		
		if	error,!=,0,i2
		{
		calc	aradius,=,$0400
		calc	loop1,=,0
		while	loop1,«,$2000,1
		{

		calc	loop1,=,loop1,+,24
		calc	loop2,=,0

		while	loop2,«,$4000,2
	
		{
		calc	loop2,=,loop2,+,24
		calc	bradius,=,aradius,*,sin,loop1
		calc	xv,=,bradius,*,sin,loop2
		calc	yv,=,bradius,*,cos,loop2
		calc	zv,=,aradius,*,cos,loop1

		D3ColorPlot	xv,yv,zv
		
		}	2

		}	1
		
		ColorWindow	1
		}
		ifend	i2
		FreeD3Buf	1
	
		ClickD3Window	1

		Lib	D3,CloseD3Screen			;closelibs
		CloseD3
		}


		end