dos33fsprogs/demos/second/part04_chess_shapes/chess.s

; Chess board, polyhedrons, circles, interference

; o/~ One night in Bangkok makes a hard man humble... o/~

;
; by deater (Vince Weaver) <vince@deater.net>

.include "../zp.inc"
.include "../hardware.inc"
.include "../qload.inc"
.include "../music.inc"

mod7_table	= $1c00
div7_table	= $1d00
hposn_low	= $1e00
hposn_high	= $1f00

chess_start:
	;=====================
	; initializations
	;=====================

	; some of this not necessary as we come in in HGR

	bit	SET_GR
	bit	HIRES
	bit	FULLGR
	bit	PAGE1
	bit	KEYRESET

	lda	#$00
	jsr	hgr_page2_clearscreen

	;===================
	; Load graphics
	;===================

	; wait until pattern1
pattern2_loop:
	lda	#2
	jsr	wait_for_pattern
	bcc	pattern2_loop

	; technically the above, but we're not fast enough

;	lda	#175
;	jsr	wait_ticks

;	lda	#$FF
;	jsr	hgr_page1_clearscreen


	;==========================
	; Falling board animation
	;==========================

	; TODO

	; 148-192 = full = 44

	; 0 frames in = 0 high,			bottom=125+13	Y=125
	; 4 frames in, 130-138 = 8 high		bottom=138+17	Y=130
	; 8 frames in, from 135-155 = 20	bottom=155+25	Y=135
	;12 frames in, from 145-180 = 35	bottom=180	Y=145


	; first collapse down, top to 125 bottom up to 133
	;	so 125 whie other 60

	ldx	#0
	lda	#191
	sta	COUNT
compact_loop:

	txa
	lsr
	bcc	compact_not_even

	stx	SAVEX

	ldx	COUNT

	lda	hposn_low,X
	sta	GBASL
	lda	hposn_high,X
	sta	GBASH

	lda	#0
	ldy	#39
compact_inner_loop2:
	sta	(GBASL),Y
	dey
	bpl	compact_inner_loop2

	dec	COUNT

	ldx	SAVEX

compact_not_even:

	lda	hposn_low,X
	sta	GBASL
	lda	hposn_high,X
	sta	GBASH

	lda	#0
	ldy	#39
compact_inner_loop:
	sta	(GBASL),Y
	dey
	bpl	compact_inner_loop

	lda	#30
	jsr	wait

	inx
	cpx	#122
	bne	compact_loop





	;=============================
	; Bouncing on board animation
	;=============================

	lda	#10
	jsr	setup_timeout

	bit	PAGE2

	; load image offscreen $6000

	lda	#<chess_data
	sta	zx_src_l+1
	lda	#>chess_data
	sta	zx_src_h+1
	lda	#$60
	jsr	zx02_full_decomp


	lda	#0
	sta	COUNT
	sta	DRAW_PAGE
chess_bounce_loop:

	lda	#$60				; copy to screen
	jsr	hgr_copy

	ldx     COUNT

	lda     object_coords_x,X
;	cmp	#$FF
;	beq	done_orange_loop

	sta     SPRITE_X
	lda     object_coords_y,X
	sta     SPRITE_Y

        lda     #<object_data
	sta     INL
	lda     #>object_data
	sta     INH

	jsr     hgr_draw_sprite_big

	jsr	hgr_page_flip

	inc	COUNT
	lda	COUNT
	cmp	#48
	bne	no_chess_bounce_oflo
	lda	#0
	sta	COUNT

no_chess_bounce_oflo:

	jsr	check_timeout
	bcc	chess_bounce_loop	; clear if not timed out

done_chess_bounce_loop:


	;=============================
	; Orange Blob Animation
	;=============================


	; load image offscreen $6000

	lda	#<orange_data
	sta	zx_src_l+1
	lda	#>orange_data
	sta	zx_src_h+1
	lda	#$60
	jsr	zx02_full_decomp

	ldx	#0
	stx	COUNT

orange_loop:

	lda	#$60				; copy to screen
	jsr	hgr_copy

	ldx     COUNT

	lda     object_coords_x,X
;	cmp	#$FF			; needed?
;	beq	done_orange_loop

	sta     SPRITE_X
	lda     object_coords_y,X
	sta     SPRITE_Y

        lda     #<object_data
	sta     INL
	lda     #>object_data
	sta     INH

	jsr     hgr_draw_sprite_big

	jsr	hgr_page_flip

	inc	COUNT
	lda	COUNT
	cmp	#48
	bne	no_orange_oflo
	lda	#0
	sta	COUNT

no_orange_oflo:

	; finish at music pattern #10 or keypress
	lda	#10
	jsr	wait_for_pattern
	bcc	orange_loop

;	lda	KEYPRESS
;	bpl	orange_loop

;done_orange_loop:
;	bit	KEYRESET

chess_done:



	;==================
	;==================
	;==================
	; DO TUNNEL HERE
	;==================
	;==================
	;==================

	; load image $2000

	lda	#<tunnel1_data
	sta	zx_src_l+1
	lda	#>tunnel1_data
	sta	zx_src_h+1
	lda	#$20
	jsr	zx02_full_decomp

	; load image $4000

	lda	#<tunnel2_data
	sta	zx_src_l+1
	lda	#>tunnel2_data
	sta	zx_src_h+1
	lda	#$40
	jsr	zx02_full_decomp

tunnel_loop:
	bit	PAGE1
	lda	#8
	jsr	wait_irq

	bit	PAGE2
	lda	#8
	jsr	wait_irq

	; finish at music pattern #13 or keypress
	lda	#13
	jsr	wait_for_pattern
	bcc	tunnel_loop

main_tunnel_done:

	;==================
	;==================
	;==================
	; DO circles HERE
	;==================
	;==================
	;==================

	jsr	zooming_circles


	lda	#$ff
	sta	clear_all_color+1
	jsr	clear_all

	; todo, fade to white

	;==================
	;==================
	;==================
	; DO INTERFERENCE HERE
	;==================
	;==================
	;==================

	; first until pattern 18

	lda	#18
	sta	interference_end_smc+1
	jsr	interference

	; TODO: falling bars
	jsr	clear_all
	lda	#50
	jsr	wait_ticks


	; again until pattern 25

	lda	#25
	sta	interference_end_smc+1
	jsr	interference


main_interference_done:

	rts


;.align $100
	.include	"../wait_keypress.s"
	.include	"../zx02_optim.s"
;	.include	"../hgr_table.s"
	.include	"../hgr_clear_screen.s"
	.include	"../hgr_copy_fast.s"
	.include	"../hgr_sprite_big.s"
	.include	"../irq_wait.s"

	.include	"interference.s"
	.include	"circles.s"
	.include	"../hgr_page_flip.s"

	; wait A * 1/50s
wait_irq:
;	lda	#50
	sta	IRQ_COUNTDOWN
wait_irq_loop:
	lda	IRQ_COUNTDOWN
	bne	wait_irq_loop
	rts

chess_data:
	.incbin "graphics/chessboard.hgr.zx02"
orange_data:
	.incbin "graphics/orange_bg.hgr.zx02"

object_data:
	.include "graphics/object.inc"

tunnel1_data:
	.incbin "graphics/tunnel1_cropped.hgr.zx02"
tunnel2_data:
	.incbin "graphics/tunnel2_cropped.hgr.zx02"


; object is roughly 15 wide?

; this is a triangle pattern
; we could reverse at some point

	; 12*4 = 48
object_coords_x:
	.byte	13,12,11,10, 9, 8, 7, 6, 5, 4, 3, 2
	.byte	 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12
	.byte	13,14,15,16,17,18,19,20,21,22,23,24
	.byte	25,24,23,22,21,20,19,18,17,16,15,14

object_coords_y:
	.byte	 5,10,16,23,30,36,43,49,55,62,68,75
	.byte	82,82,82,82,82,82,82,82,82,82,82,82
	.byte	82,82,82,82,82,82,82,82,82,82,82,82
	.byte	75,68,62,55,49,43,36,30,23,16,10, 5




	; 12*4 = 48
bounce_coords_x:
	.byte	13,12,11,10, 9, 8, 7, 6, 5, 4, 3, 2
	.byte	 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11,12
	.byte	13,14,15,16,17,18,19,20,21,22,23,24
	.byte	25,24,23,22,21,20,19,18,17,16,15,14

bounce_coords_y:
	.byte	 5,10,16,23,30,36,43,49,55,62,68,75
	.byte	82,82,82,82,82,82,82,82,82,82,82,82
	.byte	82,82,82,82,82,82,82,82,82,82,82,82
	.byte	75,68,62,55,49,43,36,30,23,16,10, 5