include	"offsetsd3.i"
		include	"d3Libs.i"
		

xangle		equ	$0800
yangle		equ	$fc00
zangle		equ	$0000
distant		equ	$4000	
aradius		equ	$0600
bradius		equ	$0200
xlight		equ	$0600
ylight		equ	$0400	
drawcolor	equ	$002f
backcolor	equ	$0ddf

		OpenD3	cleanup
		
		Lib	D3,OpenD3Screen			;openlibs
		
		OpenD3Window	#0,#0,#310,#240,#1
		
		TestZero	d0,error
	
		ColorSet	#drawcolor,#backcolor

		LightArcus	#xlight,#ylight

		D3Rot	#xangle,#yangle,#zangle

		D3Dist	#distant		;distans


		move.w	#aradius,d5
		move.w	#bradius,d6
		move.w	#0,d3
		move.w	#0,d4
	
		lea	xval(pc),a4
		lea	yval(pc),a5
		
		AllocD3Buf	#1
		
		TestZero	d0,error

loop
		move.w	d3,d7
	
		mulcosi	d5,d7
		move.w	d0,d2
		mulcosi	d2,d3
		move.w	d0,(a4)

		mulsini	d2,d3

		move.w	d0,d7
		move.w	d0,d2
		mulsini	d2,d4
		move.w	d0,(a5)

		mulcosi	d2,d4
		
		move.w	d0,d2
	
		move.w	(a5),d1
		move.w	(a4),d0
	
		Lib	D3,D3ColorPlot

		add.w	#4,d7
		move.l	#$4000,d6
		divs.w	d7,d6
		add.w	d6,d4
		cmp.w	#$4100,d4
		ble 	loop		
		move.w	#0,d4
		add.w	#08,d3
		cmp.w	#$1000,d3
		ble 	loop
				
		
		ColorWindow	#1
	
error		FreeD3Buf	#1
	
		ClickD3Window	#1

		Lib	D3,CloseD3Screen			;closelibs
cleanup		CloseD3
		rts

_D3Base		dc.l	0		
	
xval		dc.w	0
yval		dc.w	0
D3buf		dc.l	0



		end