mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-04-18 03:37:41 +00:00
starpath: try out gr version
This commit is contained in:
Vince Weaver
parent
41d7be1da1
commit
d9c356863f
21
utils/gr-sim/starpath/Makefile
Normal file
21
utils/gr-sim/starpath/Makefile
Normal file
@ -0,0 +1,21 @@
|
||||
CC = gcc
|
||||
CFLAGS = -O2 -Wall -I.. -g
|
||||
|
||||
SDL_LIBS= `sdl-config --libs`
|
||||
SDL_INCLUDE= `sdl-config --cflags`
|
||||
GR_SIM = ../gr-sim.a
|
||||
|
||||
all: starpath_gr
|
||||
|
||||
###
|
||||
|
||||
starpath_gr: starpath_gr.o
|
||||
$(CC) $(LFLAGS) -o starpath_gr starpath_gr.o $(GR_SIM) $(SDL_LIBS)
|
||||
|
||||
starpath_gr.o: starpath_gr.c
|
||||
$(CC) $(CFLAGS) -c starpath_gr.c
|
||||
|
||||
###
|
||||
|
||||
clean:
|
||||
rm -f *~ *.o hellmood_memories starpath_gr hellmood_simple
|
||||
282
utils/gr-sim/starpath/starpath_gr.c
Normal file
282
utils/gr-sim/starpath/starpath_gr.c
Normal file
@ -0,0 +1,282 @@
|
||||
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#include "gr-sim.h"
|
||||
#include "tfv_zp.h"
|
||||
|
||||
static unsigned short frame;
|
||||
|
||||
/* A sixel version of Hellmood's amazing 64B DOS Star Path Demo */
|
||||
|
||||
/* See https://hellmood.111mb.de//starpath_is_55_bytes.html */
|
||||
|
||||
/* deater -- Vince Weaver -- vince@deater.net -- 21 February 2025 */
|
||||
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#define MAX_COLORS 32
|
||||
|
||||
static unsigned char framebuffer[320][200];
|
||||
|
||||
static int colors_used[MAX_COLORS];
|
||||
|
||||
static void framebuffer_putpixel(unsigned int x, unsigned int y, unsigned char color) {
|
||||
|
||||
if (x>320) return;
|
||||
if (y>200) return;
|
||||
|
||||
colors_used[color]++;
|
||||
|
||||
framebuffer[x][y]=color;
|
||||
|
||||
}
|
||||
|
||||
static int check_color(int y, int c) {
|
||||
int x,row;
|
||||
|
||||
for(row=0;row<6;row++) {
|
||||
for(x=0;x<320;x++) {
|
||||
if (framebuffer[x][y*6+row]==c) return 1;
|
||||
}
|
||||
}
|
||||
|
||||
return 0;
|
||||
|
||||
}
|
||||
|
||||
|
||||
/* The demo only actually generates these colors */
|
||||
// 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
|
||||
// black/white gradient, let's map from 0..15 instead
|
||||
// in decimal, so add 100/16 each time, or 6.25?
|
||||
|
||||
//176,177,178,179,180,181,182,183,184,185,186,187,188
|
||||
// 0, 0, 65, 16 is 256/16, or 1/16. So again, add 6?
|
||||
// 16, 0, 65,
|
||||
// 32, 0, 65,
|
||||
// 48, 0, 65,
|
||||
// 65, 0, 65,
|
||||
// 65, 0, 48,
|
||||
// 65, 0, 32,
|
||||
// 65, 0, 16,
|
||||
// 65, 0, 0,
|
||||
// 65, 16, 0,
|
||||
// 65, 32, 0,
|
||||
// 65, 48, 0,
|
||||
// 65, 65, 0,
|
||||
// 48, 65, 0,
|
||||
// 32, 65, 0
|
||||
// 16, 65, 0,
|
||||
|
||||
|
||||
static void print_vga_palette(void) {
|
||||
int i,r,g,b;
|
||||
|
||||
/* set up palette */
|
||||
|
||||
/* grey gradient */
|
||||
for(i=0;i<16;i++) {
|
||||
printf("#%i;2;%d;%d;%d",i,i*6,i*6,i*6);
|
||||
}
|
||||
|
||||
/* colors for sunset */
|
||||
|
||||
/* want */ /* have */
|
||||
// 0, 0, 25 0, 0, 25
|
||||
// 6, 0, 25, 6, 0, 25
|
||||
// 12, 0, 25, 12,0, 25
|
||||
// 18, 0, 25, 18,0, 25
|
||||
// 24, 0, 25, 24,0, 24
|
||||
// 25, 0, 19, 25,0, 18
|
||||
// 25, 0, 13, 25,0, 12
|
||||
// 25, 0, 7, 25,0, 6
|
||||
// 25, 0, 0, 25,25,0 *
|
||||
// 25, 6, 0, 25,25,0 *
|
||||
// 25, 12, 0, 25,25,0 *
|
||||
// 25, 18, 0, 25,25,0 *
|
||||
// 25, 24, 0, 25,25,0 *
|
||||
// 19, 25, 0, 19,25,0
|
||||
// 13, 25, 0 13,25,0
|
||||
// 7, 25, 0, 7, 25,0
|
||||
|
||||
for(i=16;i<32;i++) {
|
||||
r=(i-16)*6;
|
||||
if (r>25) r=25;
|
||||
if ((i-16)>12) r-=6*(i-16-12);
|
||||
|
||||
if ((i-16)<8) g=0;
|
||||
else {
|
||||
g=((i-24)*6);
|
||||
}
|
||||
if (g>25) g=25;
|
||||
|
||||
/* 0 1 2 3 4 5 6 7 8 9 a b c d e f */
|
||||
/* f e d c b a 9 8 7 6 5 4 3 2 1 0 */
|
||||
/* 10 */
|
||||
if ((32-i)<8) b=0;
|
||||
else {
|
||||
b=((32-8-i)*6);
|
||||
}
|
||||
if (b>25) b=25;
|
||||
printf("#%i;2;%d;%d;%d",i,r,g,b);
|
||||
}
|
||||
|
||||
/* pretty blue gradient */
|
||||
/*
|
||||
for(i=16;i<32;i++) {
|
||||
printf("#%i;2;%d;%d;%d",i,(i-16)*6,65,65);
|
||||
}
|
||||
*/
|
||||
printf("\n");
|
||||
}
|
||||
|
||||
static void dump_framebuffer_gr(void) {
|
||||
|
||||
int x,y;
|
||||
|
||||
for(y=0;y<48;y++) {
|
||||
for(x=0;x<40;x++) {
|
||||
color_equals(framebuffer[x*8][y*4]);
|
||||
basic_plot(x,y);
|
||||
}
|
||||
}
|
||||
|
||||
#if 0
|
||||
int x,y,c,row,value,newline;
|
||||
|
||||
printf("\033Pq\n");
|
||||
|
||||
/* set up palette */
|
||||
// for(i=0;i<256;i++) {
|
||||
// printf("#%i;2;%d;0;0",i,i*100/256);
|
||||
// }
|
||||
// printf("\n");
|
||||
|
||||
print_vga_palette();
|
||||
|
||||
/* print a row */
|
||||
for(y=0;y<200/6;y++) {
|
||||
newline=1;
|
||||
for(c=0;c<MAX_COLORS;c++) {
|
||||
if (check_color(y,c)) {
|
||||
if (newline) {
|
||||
printf("-\n#%d",c);
|
||||
newline=0;
|
||||
}
|
||||
else {
|
||||
printf("$\n#%d",c);
|
||||
}
|
||||
for(x=0;x<320;x++) {
|
||||
value=0;
|
||||
for(row=5;row>=0;row--) {
|
||||
value<<=1;
|
||||
if (framebuffer[x][y*6+row]==c) {
|
||||
value|=1;
|
||||
}
|
||||
}
|
||||
printf("%c",value+'?');
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
/* finished */
|
||||
printf("\n\033\\\n");
|
||||
#endif
|
||||
}
|
||||
|
||||
int main(int argc, char **argv) {
|
||||
|
||||
int frame,color,depth,x,y,yprime,xprime;
|
||||
int temp,ch;
|
||||
|
||||
// set_default_pal();
|
||||
|
||||
frame=0;
|
||||
|
||||
grsim_init();
|
||||
|
||||
gr();
|
||||
|
||||
clear_screens();
|
||||
|
||||
ram[DRAW_PAGE]=0;
|
||||
|
||||
|
||||
while(1) {
|
||||
|
||||
for(x=0;x<256;x++) {
|
||||
for(y=0;y<200;y++) {
|
||||
|
||||
depth=14; // start ray depth at 14
|
||||
L:
|
||||
yprime=y*depth; // Y'=Y * current depth
|
||||
|
||||
temp=x-depth; // curve X by the current depth
|
||||
|
||||
// if left of the curve, jump to "sky"
|
||||
if (temp&0x100) {
|
||||
|
||||
color=27-16; // is both the star color and
|
||||
// palette offset into sky
|
||||
|
||||
// pseudorandom multiplication leftover DL added to
|
||||
// truncated pixel count
|
||||
// 1 in 256 chance to be a star
|
||||
if (((x+yprime)&0xff)!=0) {
|
||||
// if not, shift the starcolor and add scaled pixel count
|
||||
color=(color<<4)|(y>>4);
|
||||
color-=160;
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
else {
|
||||
// multiply X by current depth (into AH)
|
||||
xprime=temp*depth;
|
||||
|
||||
// OR for geometry and texture pattern
|
||||
temp=((xprime)|(yprime))>>8;
|
||||
|
||||
// get (current depth) + (current frame)
|
||||
// mask geometry/texture by time shifted depth
|
||||
color=(temp&(depth+frame));
|
||||
|
||||
// (increment depth by one)
|
||||
depth++;
|
||||
|
||||
// ... to create "gaps"
|
||||
|
||||
if ((color&0x10)==0) goto L;
|
||||
|
||||
// if ray did not hit, repeat pixel loop
|
||||
|
||||
color-=16;
|
||||
}
|
||||
|
||||
framebuffer_putpixel(x,y,color);
|
||||
}
|
||||
}
|
||||
|
||||
frame++; // increment frame counter
|
||||
|
||||
dump_framebuffer_gr();
|
||||
|
||||
grsim_update();
|
||||
|
||||
usleep(10000);
|
||||
|
||||
ch=grsim_input();
|
||||
if (ch=='q') return 0;
|
||||
if (ch==27) return 0;
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
return 0;
|
||||
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user