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

xangle		equ	$0800
yangle		equ	$1400
zangle		equ	$0400

distant		equ	$2000

xarcus		equ	$0b00
yarcus		equ	$0a00

drawcolor	equ	$06f1
backcolor	equ	$0def

radius		equ	$0060
zsize		equ	$0200		
		
		OpenD3	cleanup
		
		Lib	D3,OpenD3Screen		;openlibs

		TestZero	d0,error
		OpenD3Window	#0,#0,#158,#126,#1
		
		TestZero	d0,error
		
		OpenD3Window	#160,#0,#158,#126,#2
		
		TestZero	d0,error
		
		OpenD3Window	#0,#128,#158,#126,#3
		
		TestZero	d0,error
		
		OpenD3Window	#160,#128,#158,#126,#4
		
		TestZero	d0,error
		
		ColorSet	#drawcolor,#backcolor

		LightArcus	#xarcus,#yarcus,#1
		
		LightArcus	#xarcus,#yarcus,#2
		
		LightArcus	#xarcus,#yarcus,#3
		
		LightArcus	#xarcus,#yarcus,#4

		D3Rot	#xangle,#yangle,#zangle,#1
		
		D3Rot	#$1000,#$0000,#$1000,#2
		
		D3Rot	#$0000,#$0000,#$0000,#3
		
		D3Rot	#$0000,#$1000,#$0000,#4   

		D3Dist	#distant			;distant

		AllocD3Buf	#1
		
		TestZero	d0,error

		AllocD3Buf	#2
		
		TestZero	d0,error
		
		AllocD3Buf	#3
		
		TestZero	d0,error
		
		AllocD3Buf	#4
		
		TestZero	d0,error
		
		ActiveD3Window	#1
		
		bsr		pipe	
	
		ActiveD3Window	#2
		
		bsr		pipe
		
		ActiveD3Window	#3
		
		bsr		pipe
		
		ActiveD3Window	#4
		
		Bsr		pipe
				
		ColorWindow	#1
		
		ColorWindow	#2
		
		ColorWindow	#3
		
		ColorWindow	#4
		
error		FreeD3Buf	#1
	
		FreeD3Buf	#2
		
		FreeD3Buf	#3
		
		FreeD3Buf	#4
		
		ClickD3Window	#1
		
		ClickD3Window	#2
		
		ClickD3Window	#3
		
		ClickD3Window	#4		
		Lib	D3,CloseD3Screen			;closelibs
cleanup		CloseD3
		rts


pipe
		move.w	#radius,d3
		moveq	#0,d4			;angle
		move.w	#$fe00,d5
loop		mulsini	d3,d4
		move.w	d0,d2
		mulcosi	d3,d4
		move.w	d0,d1
		movem.w	d1/d2/d5,-(sp)
		
		D3ColorPlot	d2,d1,d5
		
		movem.w	(sp)+,d1/d2/d5
		
		D3ColorPlot	d1,d5,d2
			
		add.w	#36,d4
		cmp.w	#$4000,d4
		blt	loop
		
		tst.w	d5
		bpl	pos
		addq.w	#2,d3
		bra	over
pos		subq.w	#2,d3		
over		moveq	#0,d4
		add.w	#12,d5
		cmp.w	#zsize,d5
		blt	loop
		rts






_D3Base		dc.l	0		

Aval		dc.w	0
Bval		dc.w	0
xval		dc.w	0
yval		dc.w	0
D3buf		dc.l	0





		D3name

		end