;*ratas

xangle		equ	$0500
yangle		equ	$0400
zangle		equ	$0300

distant		equ	$0c00

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

xpoint		equ	$f200
ypoint		equ	$0000
zpoint		equ	$0000
size		equ	$00a0


		
		include	"offsetsd3.i"
		include	"D3Libs.i"
		
		OpenD3	cleanup
		
		OpenD3Screen			;openlibs

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

		LightArcus	#xarcus,#yarcus,#1

		ColorSet	#drawcolor,#backcolor

		D3Rot		#xangle,#yangle,#zangle,#1

		
		D3Dist		#distant,#1		;distans

		AllocD3Buf	#1

		tst.l	d0
		beq	nomem

		moveq	#3,d7
	
loop		
		lea	letter(pc),a0
		lea	text(pc),a1
		Lib	D3,D3Print

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

nomem		ClickD3Window	#1
		
		CloseD3Screen		;closelibs
cleanup		CloseD3
		rts

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

text		dc.b	"1234567890",0	


		end