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

mode7: starfield works

Browse Source
This commit is contained in:
Vince Weaver 2017-12-31 13:57:52 -05:00
parent ce4eafc474
commit 6af4836f26
2 changed files with 43 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gr-sim/starfield_fixed.c
View File

@ -221,8 +221,8 @@ int main(int argc, char **argv) {
if ((dx.i<0) || (dy.i<0) || (dx.i>=40) ||
(dy.i>=40)) {
printf("%i: out of range %d,%d\n",
i,dx.i,dy.i);
// printf("%i: out of range %d,%d\n",
// i,dx.i,dy.i);
random_star(i);
}
else {
@ -232,11 +232,11 @@ int main(int argc, char **argv) {
// }
color_equals(color);
printf("plot %i: (%d,%d,%d) %d,%d = %d\n",
i,
stars[i].x.i,stars[i].y.i,
stars[i].z,
dx.i,dy.i,color);
// printf("plot %i: (%d,%d,%d) %d,%d = %d\n",
// i,
// stars[i].x.i,stars[i].y.i,
// stars[i].z,
// dx.i,dy.i,color);
basic_plot(dx.i,dy.i);
}
@ -255,8 +255,17 @@ int main(int argc, char **argv) {
if (ch=='q') exit(0);
usleep(10000);
sleep(25);
exit(1);
while(1) {
ch=grsim_input();
if (ch!=0) break;
usleep(10000);
}
if (ch=='q') exit(0);
// repeat_until_keypressed();
// sleep(25);
// exit(1);
}

29
mode7/starfield_demo.s
View File

@ -221,14 +221,37 @@ plot_write:
plot_star_continue:
;==============================
ldx XX
dex
bmi starfield_keyboard
bmi move_stars
; bpl draw_stars
jmp draw_stars
;=============================
; Move stars
move_stars:
ldy #(NUMSTARS-1)
move_stars_loop:
clc
lda star_z,Y
adc #1
sta star_z,Y
and #64
beq move_loop_skip
jsr random_star
move_loop_skip:
dey
bpl move_stars_loop
starfield_keyboard:
jsr get_key ; get keypress ; 6
@ -250,10 +273,8 @@ skipskip:
;==================
; loop forever
;==================
blah:
jmp blah
; jmp starfield_loop ; 3
jmp starfield_loop ; 3
; matches scroll_row1 - row3