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

xangle		equ	$0800
yangle		equ	$f700
zangle		equ	$0000
distant		equ	$4000	
aradius		equ	$0800
bradius		equ	$0300

xarcus		equ	$0400
yarcus		equ	$fa00

drawcolor	equ	$0af1
backcolor	equ	$0def
	
		OpenD3	cleanup
		
		OpenD3Screen			;openlibs
		TestZero	d0,nomem

		OpenD3Window	#0,#0,#310,#240,#1
		TestZero	d0,nomem

		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),a4
		lea	yval(pc),a5
		lea	zval(pc),a3

		AllocD3Buf	#1
		TestZero	d0,nomem
loop
		move.w	d3,d7
	
		asl.w	#1,d7
		mulsini	d5,d7
		move.w	d0,d2

		muls.w	#3,d7
		move.w	#bradius,d6
		mulcosi	d6,d7
		add.w	d0,d2
		mulcosi d2,d3
		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	d0,(a3)

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

		add.w	#4,d7
		bne	overs
		move.w	#4,d7
overs		move.l	#$3000,d6
		divs.w	d7,d6
		add.w	d6,d4
		cmp.w	#$4000,d4
		ble 	loop		
		Lib	D3,VanillaKey
		tst.b	d0
		bne	nomem
		move.w	#0,d4
		add.w	#08,d3
		cmp.w	#$1020,d3
		ble 	loop
				
nomem		ColorWindow	#1

		FreeD3Buf	#1
	

		ClickD3Window	#1
		CloseD3Screen			;closelibs
cleanup		CloseD3
		rts

_D3Base		dc.l	0		
	
xval		dc.w	0
yval		dc.w	0
zval		dc.w	0
Bradius		dc.w	$0300

		end