incdir	"ram:include/"
		include	"offsets.i"
		include "offsetsd3.i"
		include	"D3Libs.i"
		

xangle		equ	$0900
yangle		equ	$2900
zangle		equ	$1700
distant		equ	$1000	
aradius		equ	$0800
bradius		equ	$0400
	
xarcus		equ	$f800
yarcus		equ	$0a00

drawcolor	equ	$02f8
backcolor	equ	$0aa4

		OpenD3	cleanup
		
		Lib	D3,OpenD3Screen		;openlibs
		
		OpenD3Window	#10,#10,#300,#240,#1
		
		TestZero	d0,error
		LightArcus	#xarcus,#yarcus

		ColorSet	#drawcolor,#backcolor
		
		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),a3
		lea	yval(pc),a4
		lea	zval(pc),a5
		
		AllocD3Buf	#1
		TestZero	d0,error
loop
		move.w	d3,d7
	
		asl.w	#1,d7
		mulcosi	d5,d7
		move.w	d0,d2
	
		mulcosi	d2,d3
		move.w	d0,(a3)			;xvaljue

		mulsini	d2,d3

		move.w	d0,d7
		move.w	d0,d2
		mulsini	d2,d4
		move.w	d0,(a4)			;yvaljue
		move.w	d4,-(sp)
		muls.w	#3,d4
		mulcosi	d2,d4
		move.w	d0,(a5)			;zvaljue	
		move.w	(sp)+,d4

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

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

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

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

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

		add.w	#4,d7
		move.l	#$2e00,d6
		divs.w	d7,d6
		add.w	#2,d6
		add.w	d6,d4
		cmp.w	#$4200,d4
		ble 	loop	
		
		Lib	D3,VanillaKey
		tst.w	d0
		bne	error	
		move.w	#0,d4
		add.w	#08,d3
		cmp.w	#$0820,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





		D3name




		end