;*ratas

xangle		equ	$fd00
yangle		equ	$0000
zangle		equ	$0400

distant		equ	$2000

aradius		equ	$0080
bradius		equ	$00d0

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

xpoint		equ	$0000
ypoint		equ	$0400
zpoint		equ	$0400
size		equ	$00c0



		include	"offsetsd3.i"
		include	"d3Libs.i"
		
		OpenD3	cleanup
		
		OpenD3Screen			;openlibs
		TestZero	d0,exit

		OpenD3Window	#0,#0,#310,#240,#1
		TestZero	d0,exit	
		
		LightArcus	#xarcus,#yarcus,#1

		ColorSet	#drawcolor,#backcolor

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

		D3Dist	#distant,#1		;distans

		AllocD3Buf	#1

		TestZero	d0,exit

		moveq	#22,d7
		move.w	#$fc00,d6	
		lea	text(pc),a3
loop
		
		D3Rot	#xangle,d6,#zangle,#1

		lea	letter(pc),a0
		move.l	a3,a1
		Lib	D3,D3Print

		lea	letter(pc),a0
		move.w	2(a0),d0
		sub.w	#$0080,d0
		move.w	d0,2(a0)
		add.w	#$0600,d6
		add.l	#2,a3			;next letter
		move.w	6(a0),d0		;size
		sub.w	#$0006,d0
		move.w	d0,6(a0)
		move.w	4(a0),d0		;zpoint
		sub.w	#$002a,d0
		move.w	d0,4(a0)
		dbf	d7,loop
				
		ColorWindow	#1

		ClickD3Window	#1
		
exit		Freed3Buf	#1

		CloseD3Window	#1
		CloseD3Screen			;closelibs
cleanup		CloseD3
		rts

_D3Base		dc.l	0		
letter		dc.w	xpoint,ypoint,zpoint,size
	
text		dc.b	"A",0
		dc.b	"M",0
		dc.b	"I",0
		dc.b	"M",0
		dc.b	"A",0
		dc.b	" ",0
		dc.b	"R",0
		dc.b	"O",0
		dc.b	"U",0
		dc.b	"N",0
		dc.b	"D",0
		dc.b	" ",0  
		dc.b	"L",0
		dc.b	"E",0
		dc.b	"T",0
		dc.b	"T",0
		dc.b	"E",0
		dc.b	"R",0
		dc.b	"S",0	
		dc.b	" ",0
		dc.b	"I",0
		dc.b	"N",0
		dc.b	" ",0
		dc.b	"S",0
		dc.b	"C",0
		dc.b	"R",0
		dc.b	"E",0
		dc.b	"E",0
		dc.b	"N",0

		end