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

xangle		equ	$0800
yangle		equ	$fc00
zangle		equ	$0000
distant		equ	$4000	
aradius		equ	$0600
bradius		equ	$0400
	
xarcus		equ	$0400
yarcus		equ	$fe00

drawcolor	equ	$0c62
backcolor	equ	$0def
		OpenD3	cleanup
		
		Lib	D3,OpenD3Screen			;openlibs

		OpenD3Window	#0,#0,#310,#240,#1
		
		TestZero	d0,error
		
		LightArcus	#xarcus,#yarcus,#1

		ColorSet	#drawcolor,#backcolor

		D3Rot	#xangle,#yangle,#zangle,#1

		D3Dist		#distant,#1	;distans


		move.w	#aradius,d5
		move.w	#bradius,d6
		move.w	#$0,d3
		move.w	#$0,d4
	
		lea	xval(pc),a3
		lea	yval(pc),a4
		lea	zval(pc),a5

		AllocD3Buf	#1
		
		TestZero	d0,error
loop
		move.w	d3,d7
	
		asl.w	#1,d7
		mulsini	d5,d7
		move.w	d0,d2
		mulcosi d2,d3
		move.w	d0,d2
		mulcosi	d2,d3
		move.w	d0,(a3)

		mulsini	d2,d3

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

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

		move.w	(a3),d0
		neg.w	d0
		move.w	(a4),d1
		move.w	(a5),d2
		
		Lib	D3,D3ColorPlot

		tst.w	d7
		bne	nozero
		moveq	#4,d7
nozero		move.l	#$3600,d6
		divs.w	d7,d6
		add.w	d6,d4
		cmp.w	#$4100,d4
		ble 	loop		
		
		Lib	D3,VanillaKey
		tst.w	d0
		bne	error
		move.w	#0,d4
		add.w	#08,d3
		cmp.w	#$1020,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
zval		dc.w	0


		end