;*ratas

xangle		equ	$0200
yangle		equ	$0800
zangle		equ	$0400

distant		equ	$2000

aradius		equ	$0080
bradius		equ	$00d0

xarcus		equ	$fc00
yarcus		equ	$0600
drawcolor	equ	$0f11
backcolor	equ	$0eed

xpoint		equ	$f200
ypoint		equ	$0000
zpoint		equ	$0000
size		equ	$0078


		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

		ColorSet	#drawcolor,#backcolor

		D3rot	#xangle,#yangle,zangle,#1

		D3Dist		#distant,#1			;distans

		AllocD3Buf	#1

		tst.l	d0
		beq	nomem
	
		D3Print	letter,text
	
		Colorwindow	#1
		
		FreeD3Buf	#1
	

nomem		ClickD3Window	#1
exit		CloseD3Screen			;closelibs
cleanup		CloseD3
		rts

_D3Base		dc.l	0		
letter		dc.w	xpoint,ypoint,zpoint,size

text		dc.b	"AMIGA IS #$%^&*",0	


		end