; letter test

; TODO:
;	line border?
;	flame demo
;	DEMO OVER message, zooming from angle?


; zero page locations
HGR_SHAPE	=	$1A
SEEDL		=	$4E
FRAME		=	$A4
OUR_ROT		=	$A5
RND_EXP		=	$C9
HGR_PAGE	=	$E6
HGR_SCALE	=	$E7
HGR_ROTATION	=	$F9
WHICH		=	$FB
SCALE		=	$FC
ROTATE		=	$FD
XPOS		=	$FE
YPOS		=	$FF

; Soft Switches
KEYPRESS	=	$C000
KEYRESET	=	$C010
SPEAKER		=	$C030
PAGE0           =       $C054
PAGE1           =       $C055

; ROM calls
RND		=	$EFAE

HGR2		=	$F3D8
HGR		=	$F3E2
HCLR		=	$F3F2
HCLR_COLOR	=	$F3F4
HPOSN		=	$F411
XDRAW0		=	$F65D
TEXT		=	$FB36	; Set text mode
WAIT		=	$FCA8	; delay 1/2(26+27A+5A^2) us


letter_test:

	;=========================================
	; SETUP
	;=========================================

	jsr	HGR2			; set/clear HGR page2 to black
					; Hi-res graphics, no text at bottom
					; Y=0, A=$60 after this call


	lda	#0
	sta	ROTATE
	sta	WHICH

	jsr	zoom_in

	lda	#5
	sta	HGR_SCALE

;	jsr	slide_in

end:
	jmp	end


	;=========================
	; zoom in
	;=========================

zoom_in:

outer_zoom_loop:

	lda	#30
	sta	HGR_SCALE

	ldx	WHICH
	lda	deater_ends,X
	sta	XPOS

	lda	#100
	sta	YPOS

inner_zoom_loop:
	jsr	xdraw

	lda	#100
	jsr	WAIT
	jsr	xdraw

	dec	HGR_SCALE
	dec	HGR_SCALE

	lda	HGR_SCALE

;	lsr
;	and	#$f
;	tax
;	lda	rotate_pattern,X
;	sta	ROTATE

;	lda	XPOS
;ends_smc:
	cmp	#6
	bcs	inner_zoom_loop

	jsr	xdraw

	inc	WHICH
	lda	WHICH
	tax
;	lda	deater_ends,X
;	sta	ends_smc+1
;	lda	deater_offsets,X
;	lda	ma2e_offsets,X

	lda	desire_offsets,X
	sta	xdraw_offset_smc+1

	bpl	outer_zoom_loop

	rts


	;=========================
	; slide in
	;=========================

slide_in:

outer_slide_loop:
	lda	#255
	sta	XPOS
	lda	#100
	sta	YPOS

slide_loop:
	jsr	xdraw

	lda	#100
	jsr	WAIT
	jsr	xdraw

	dec	XPOS
	dec	XPOS

	lda	XPOS
	lsr
	and	#$f
	tax
	lda	rotate_pattern,X
	sta	ROTATE

	lda	XPOS
ends_smc:
	cmp	#65
	bcs	slide_loop

	jsr	xdraw

	inc	WHICH
	lda	WHICH
	tax
	lda	deater_ends,X
	sta	ends_smc+1
;	lda	deater_offsets,X
;	lda	ma2e_offsets,X
	lda	desire_offsets,X
	sta	xdraw_offset_smc+1
	bpl	outer_slide_loop

	rts




	;=======================
	; xdraw
	;=======================

xdraw:
	ldy	#0
	ldx	XPOS
	lda	YPOS
	jsr	HPOSN		; X= (y,x) Y=(a)



	clc
	lda	#<shape_table_d
xdraw_offset_smc:
	adc	#0
	tax
	ldy	#>shape_table_d

	lda	ROTATE

	jmp	XDRAW0

.if 0
	;=======================
	; flip page
	;=======================

flip_page:
	lda	HGR_PAGE
	eor	#$60
	sta	HGR_PAGE

	clc
	rol
	rol
	tax
	lda	PAGE1,X

	rts
.endif

;	ldy	#3		; 2
;init_loop:
;	tya			; 1
;	asl
;	asl
;	sta	rotate_pattern,Y; 3
;	dey			; 1
;	bne	init_loop	; 2

rotate_pattern:
	.byte 0,3,6,9, 9,6,3,0, 0,$FD,$FA,$F7, $F7,$FA,$FD, 0


deater_offsets:
	.byte 0		; D
	.byte 8		; E
	.byte 15	; A
	.byte 23	; T
	.byte 8		; E
	.byte 30	; R
	.byte $FF	; end

ma2e_offsets:
	.byte 39	; M
	.byte 15	; A
	.byte 47	; 2
	.byte 8		; E
	.byte $FF	; end


desire_offsets:
	.byte 0		; D
	.byte 8		; E
	.byte 54	; S
	.byte 61	; I
	.byte 30	; R
	.byte 8		; E
	.byte $FF	; end

deater_ends:
	.byte	65,90,115,140,165,190


.align $100
shape_table:

shape_table_d:	.byte	$23,$2c,$2e,$36, $37,$27,$04,$00	; 0
shape_table_e:	.byte	$27,$2c,$95,$12, $3f,$24,$00		; 8
shape_table_a:	.byte	$23,$2c,$35,$96, $24,$3f,$36,$00	; 15
shape_table_t:	.byte	$12,$24,$e4,$2b, $2d,$05,$00		; 23
shape_table_r:	.byte	$97,$24,$24,$2d, $36,$37,$35,$06,$00	; 30
shape_table_m:	.byte	$24,$37,$36,$4e, $24,$24,$07,$00	; 39
shape_table_2:	.byte	$25,$3c,$97,$39, $36,$2d,$00		; 47
shape_table_s:	.byte	$27,$2c,$95,$2b, $36,$3f,$00		; 54
shape_table_i:	.byte	$d2,$ed,$24,$e4, $2d,$00		; 61
shape_table_o:	.byte	$23,$2c,$35,$36, $3e,$27,$04,$00	; 67
shape_table_b:	.byte	$18,$30,$36,$35, $28,$24,$04,$00	; 75
shape_table_line:	.byte	$12,$24,$24,$00			; 83