;*ratas

xangle		equ	$0400
yangle		equ	$0200
zangle		equ	$0100

distant		equ	$0800

aradius		equ	$0080
bradius		equ	$00d0

xarcus		equ	$ff00
yarcus		equ	$0200
drawcolor	equ	$0f14
backcolor	equ	$0def

xpoint		equ	$fa00
ypoint		equ	$0400
zpoint		equ	$0000
size		equ	$0070



		include	"offsetsd3.i"
		include	"D3Libs.i"
		
		OpenD3	cleanup
		
		OpenD3Screen			;openlibs
		tst.l	d0
		beq	exit

		OpenD3Window	#0,#0,#310,#240,#1
		tst.l	d0
		beq	exit

		LightArcus	#xarcus,#yarcus,#1

		ColorSet	#drawcolor,#backcolor

		D3Rot		#xangle,#yangle,#zangle

		D3Dist		#distant,#1			;distans

		AllocD3Buf	#1
		tst.l	d0
		beq	exit

		moveq	#4,d7
		move.w	#$fc00,d6	
loop
	
		D3Rot	#xangle,d6,#zangle

		D3Print	letter,text

		lea	letter(pc),a0
		move.w	4(a0),d0
		add.w	#$0200,d0
		move.w	d0,4(a0)
		sub.w	#$0200,d6
		dbf	d7,loop
				
		ColorWindow	#1
		
exit		FreeD3Buf	#1

		ClickD3Window	#1	
		CloseD3Screen			;closelibs
cleanup		CloseD3
		rts

_D3Base		dc.l	0		
letter		dc.w	xpoint,ypoint,zpoint,size
text		dc.b	"Amiga is @#$%^&*",0	



		end