Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 02:31:00 +00:00
Code Issues Projects Releases Wiki Activity

tfv: optimize to not always draw sky

Browse Source
This commit is contained in:
Vince Weaver 2017-11-26 00:10:58 -05:00
parent f68fd6704b
commit 3430394d99
4 changed files with 60 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gr-sim/tfv_flying_6502.c
View File

@ -43,6 +43,16 @@
#define SPEED 0x7b
#define SPLASH_COUNT 0x7c
#define OVER_WATER 0x7d
#define NUM1L 0x7E
#define NUM1H 0x7F
#define NUM2L 0x80
#define NUM2H 0x81
#define RESULT 0x82 // 83,84,85
#define NEGATE 0x86 // UNUSED?
#define LAST_SPACEX_I 0x87
#define LAST_SPACEY_I 0x88
#define LAST_MAP_COLOR 0x89
#define DRAW_SKY 0x8A
#define SHIPY 0xE4
@ -795,11 +805,16 @@ void draw_background_mode7(void) {
int map_color;
ram[OVER_WATER]=0;
cycles.mode7+=11;
if (ram[DRAW_SKY]) {
ram[DRAW_SKY]--;
/* Draw Sky */
/* Originally wanted to be fancy and have sun too, but no */
color_equals(COLOR_MEDIUMBLUE);
cycles.mode7+=10;
cycles.mode7+=11;
for(ram[SCREEN_Y]=0;ram[SCREEN_Y]<6;ram[SCREEN_Y]+=2) {
hlin_double(ram[DRAW_PAGE], 0, 40, ram[SCREEN_Y]);
@ -809,6 +824,8 @@ void draw_background_mode7(void) {
color_equals(COLOR_GREY);
hlin_double(ram[DRAW_PAGE], 0, 40, 6);
cycles.mode7+=14+63+(16*40);
}
cycles.mode7+=30;
/* FIXME: only do this if SPACEZ changes? */
@ -1030,6 +1047,8 @@ int flying(void) {
ram[ANGLE]=1; /* 1 so you can see island */
ram[DRAW_SKY]=2;
ram[SPACEZ_I]=4;
ram[SPACEZ_F]=0x80; /* Z=4.5 */

13
tfv/OPTIMIZATION
View File

@ -71,3 +71,16 @@ Add a cache to lookup_map
Total = 125,824
Frame Rate = 7.95 fps
Don't draw sky every frame
Cycles: flying= 162
Cycles: getkey= 46
Cycles: page_flip= 26
Cycles: multiply= 24,935
Cycles: mode7= 69,099
Cycles: lookup_map= 24,649
Cycles: put_sprite= 2,561
=================================
Total = 121,478
Frame Rate = 8.23 fps

20
tfv/tfv_flying.s
View File

@ -47,6 +47,9 @@ flying_start:
lda #1
sta ANGLE
lda #2 ; initialize sky both pages
sta DRAW_SKY
lda #4
sta SPACEZ_I
lda #$80
@ -530,16 +533,24 @@ draw_ship:
draw_background_mode7:
lda #0 ; 2
sta OVER_WATER ; 3
lda DRAW_SKY ; 3
beq no_draw_sky ; 2nt/3
; Draw Sky
; FIXME: the sky never changes?
; Only draw sky if necessary (we never overwrite it)
dec DRAW_SKY ; 5
lda #COLOR_BOTH_MEDIUMBLUE ; MEDIUMBLUE color ; 2
sta COLOR ; 3
lda #0 ; 2
sta OVER_WATER ; 3
;===========
; 10
; 11
sky_loop: ; draw line across screen
ldy #40 ; from y=0 to y=6 ; 2
@ -565,6 +576,9 @@ sky_loop: ; draw line across screen
jsr hlin_double ; hlin 0,40 at 6 ; 63+(X*16)
;===========
; 63+(X*16)+14
no_draw_sky:
; FIXME: only do this if Z changes?
; fixed_mul(&space_z,&BETA,&factor);
;mul1

1
tfv/tfv_zp.inc
View File

@ -93,6 +93,7 @@ NEGATE EQU $86 ; UNUSED?
LAST_SPACEX_I EQU $87
LAST_SPACEY_I EQU $88
LAST_MAP_COLOR EQU $89
DRAW_SKY EQU $8A
SHIPY EQU $E4