forks/3x666-SDL: 3x666.c annotate

annotate 3x666.c @ 13:3a358d053ffc

Runs now, audio does not work yet and the pace seems slightly too fast (not sure if that is the case however.)

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 15 Mar 2013 17:27:26 +0200
parents	fcae85b39931
children	2663b7bb23b9

rev	line source
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1 #include <SDL.h>
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	2 #include <math.h>
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	3 #include <stdlib.h>
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	4 #include <unistd.h>
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	5 #include <string.h>
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	6 #include <stdarg.h>
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	7 #include "config.h"
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	8 #include "3xfont.h"
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	9
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	10
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11 / typedefs /
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	12 #if !defined(FALSE) && !defined(TRUE) && !defined(BOOL)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	13 typedef enum { FALSE = 0, TRUE = 1 } BOOL;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	14 #endif
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	15
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	16 #ifndef BOOL
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	17 # ifdef bool
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	18 # define BOOL bool
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	19 # else
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	20 # define BOOL int
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	21 # endif
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	22 #endif
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	23
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	24
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	25 struct
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	26 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	27 int tickLen;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	28 int frameTime, frameCount,
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	29 startTime, endTime;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	30
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	31 BOOL exitFlag;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	32
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	33 int optVFlags;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	34 SDL_Surface *screen;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	35 SDL_Event event;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	36 SDL_AudioSpec optAfmt;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	37 } engine;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	38
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	39
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	40
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	41 typedef struct
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	42 {
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	43 int x, y, z;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	44 } vec3d;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	45
7 4c1d187d0cf6 Moar. Matti Hamalainen <ccr@tnsp.org> parents: 3 diff changeset	46
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	47 int *ballz;
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	48
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	49
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	50 static inline int dmClamp(const int v, const int min, const int max)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	51 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	52 return (v < min ? min : (v > max ? max : v));
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	53 }
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	54
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	55
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	56 static int engineGetTick()
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	57 {
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	58 return ((engine.frameTime - engine.startTime) * SET_DEMOHZ) / 1000;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	59 }
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	60
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	61
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	62 void dmErrorVA(const char *fmt, va_list ap)
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	63 {
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	64 fprintf(stderr, "3x666: ");
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	65 vfprintf(stderr, fmt, ap);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	66 }
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	67
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	68
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	69 void dmError(const char *fmt, ...)
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	70 {
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	71 va_list ap;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	72
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	73 va_start(ap, fmt);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	74 dmErrorVA(fmt, ap);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	75 va_end(ap);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	76 }
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	77
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	78
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	79 static BOOL engineInitializeVideo()
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	80 {
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	81 SDL_FreeSurface(engine.screen);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	82
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	83 engine.screen = SDL_SetVideoMode(SET_VID_BUFW, SET_VID_BUFH, 8, engine.optVFlags);
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	84 if (engine.screen == NULL)
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	85 {
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	86 dmError("Can't SDL_SetVideoMode(): %s\n", SDL_GetError());
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	87 return FALSE;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	88 }
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	89 return TRUE;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	90 }
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	91
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	92
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	93 /************** tEXT dRAWiNG rOUTiNES ********
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	94
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	95 bitmaps are for lamers :) let's use a little 12-segment calculator font...
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	96 ascii chars 32..90, 16 bits per char unpacked -> 114 bytes for the whole
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	97 font ;) let's credit karl/nooon for the original idea. */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	98
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	99 void drawseg(int y, int x, int w, int h)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	100 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	101 /* clip clip clip */
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	102 if (x + w > SET_VID_BUFW)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	103 w = SET_VID_BUFW - x;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	104 if (x < 0)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	105 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	106 w += x;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	107 x = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	108 }
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	109 if (y + h > SET_VID_BUFH)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	110 h = SET_VID_BUFH - y;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	111 if (y < 0)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	112 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	113 h += y;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	114 y = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	115 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	116 if (w > 0 && h > 0)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	117 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	118 Uint8 b = engine.screen->pixels + (y engine.screen->pitch) + x;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	119 for (; h; h--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	120 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	121 memset(b, 122, w);
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	122 b += engine.screen->pitch;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	123 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	124 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	125 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	126
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	127 void drawchar(int x, int y, int c, int xunit, int yunit)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	128 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	129 x -= xunit * 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	130 y -= yunit * 3;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	131 for (;;)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	132 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	133 if (!c)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	134 break;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	135
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	136 if (c & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	137 drawseg(y, x + 1, xunit * 2 - 2, yunit);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	138 if (c & 2)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	139 drawseg(y, x + 1 + xunit * 2, xunit * 2 - 2, yunit);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	140 y++;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	141
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	142 c >>= 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	143 if (!c)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	144 break;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	146 if (c & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	147 drawseg(y, x, xunit, yunit * 3 - 2);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	148 if (c & 2)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	149 drawseg(y, x + ((xunit * 3) >> 1), xunit, yunit * 3 - 2);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	150 if (c & 4)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	151 drawseg(y, x + xunit * 3, xunit, yunit * 3 - 2);
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	152
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	153 y += yunit * 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	154 c >>= 3;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	155 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	156 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	157
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	158 void drawtxtscr(char *str)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	159 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	160 int x = SET_VID_BUFW >> 4, y = SET_VID_BUFH >> 3;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	161 while (*str)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	162 {
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	163 if (*str >= 32)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	164 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	165 drawchar(x, y, phont[*str - 32], SET_VID_BUFW / 50, SET_VID_BUFW / 80);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	166 x += SET_VID_BUFW / 10;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	167 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	168 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	169 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	170 x = SET_VID_BUFW >> 4;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	171 y += SET_VID_BUFW / 10;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	172 }
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	173 str++;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	174 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	175 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	176
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	177
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	178 void flashtxt(char *str)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	179 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	180 int x = (SET_VID_BUFW >> 1) - (strlen(str) + 1) * 3 * SET_VID_BUFW / 80;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	181 while (*str)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	182 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	183 drawchar(x, SET_VID_BUFH >> 1, phont[*str++ - 32], SET_VID_BUFW / 50, SET_VID_BUFW / 80);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	184 x += SET_VID_BUFW / 10;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	185 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	186 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	187
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	188 /************************* DA PHONGBALL HEAVEN ************
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	189
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	190 A short course on phongball theory!
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	191
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	192 A sphere: x^2+y^2+z^2=R^2
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	193
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	194 Diffuse shading: intensity = dotproduct(surfacenormal,lightvector)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	195
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	196 (doing this for every drawn point of the surface is sometimes called
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	197 phong shading even if the normals aren't actually interpolated)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	198
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	199 For a sphere, a normal vector at a point of the surface == constant *
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	200 the coordinates of the point (if center == origo).
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	201
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	202 Thus, the function for the intensity of a 2d-projected phongball can be
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	203 stated as
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	204
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	205 intensity(x,y) = l.xx + l.yy + l.z*z, z = sqrt(R^2-x^2-y^2)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	206
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	207 The first two muls can be eliminated easily. (and will be eliminated by
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	208 a good compiler even if you are lazy)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	209
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	210 The third mul can be eliminated by approximating l.z*z with a function
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	211 of the form f(x)=a*x^2+c. This approximation makes the ball look a bit
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	212 "twisty" but who cares, it just looks damn cool ;)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	213
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	214 ***/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	215
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	216 #if (SET_VID_BUFH < SET_VID_BUFW)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	217 # define maxR (SET_VID_BUFH >> 1)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	218 #else
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	219 # define maxR (SET_VID_BUFW >> 1)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	220 #endif
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	221
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	222 struct
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	223 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	224 int *tab;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	225 signed int R;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	226 } balltab[50];
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	227
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	228 void preball()
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	229 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	230 unsigned int rR;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	231 signed int R;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	232
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	233 for (rR = 0; rR < 48; rR++)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	234 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	235 int R2, *d;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	236 signed int y;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	237 R = (maxR * (rR + 4)) / 52;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	238 if (R < 2)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	239 R = 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	240 R2 = R * R;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	241 balltab[rR].R = R;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	242 d = balltab[rR].tab = malloc(R * 2 * sizeof(int));
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	243 for (y = -R + 1; y < R - 1; y++)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	244 d++ = sqrt(R2 - y y);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	245 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	246
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	247 balltab[49].R = balltab[48].R = balltab[47].R;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	248 balltab[49].tab = balltab[48].tab = balltab[47].tab;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	249 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	250
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	251
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	252 void drawball_inloop(Uint8 *d, int dotxyz, int ddot, int dddot, int x)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	253 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	254 for (; x; x--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	255 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	256 dotxyz += ddot;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	257 ddot += dddot;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	258 *d++ = dotxyz >> 16;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	259 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	260 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	261
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	262 void drawball(SDL_Surface screen, vec3d l, int relR)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	263 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	264 int R = balltab[relR].R, *s = balltab[relR].tab;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	265
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	266 signed int doty = (-(R - 1) * l->y);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	267 signed int y = R * 2 - 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	268
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	269 Uint8 dp = screen->pixels + (SET_VID_BUFW >> 1) - R + ((SET_VID_BUFH >> 1) - R) screen->pitch;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	270
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	271 for (; y; y--)
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	272 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	273 int halfw = *s++;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	274 if (halfw)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	275 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	276 drawball_inloop(dp + R - halfw,
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	277 (doty - (l->x * halfw)) << 8,
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	278 (l->x + l->z) << 8,
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	279 0 - ((l->z << 8) / halfw), halfw << 1);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	280 }
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	281 dp += screen->pitch;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	282 doty += l->y;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	283 }
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	284 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	285
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	286 /* some extra for freaks: a plasma made with the phongball innerloop :)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	287 looks ugly.
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	288
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	289 void drawplasma(char *d,float t)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	290 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	291 int y=SET_VID_BUFH; float u=0,du=500/SET_VID_BUFH;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	292
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	293 for(;y;y--){
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	294 drawball_inloop(d,
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	295 sin(t0.02+0+u0.033)65536256,
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	296 cos(t0.04+1+u0.022)655364096/SET_VID_BUFW,
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	297 -2cos(t0.04+1+u0.022)655364096/(SET_VID_BUFWSET_VID_BUFW), SET_VID_BUFW);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	298 d+=SET_VID_BUFW;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	299 u+=du;
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	300 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	301 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	302 */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	303
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	304 /********************** oTHA FX *************/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	305
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	306 void rotochess(SDL_Surface *screen, int du, int dv, int iu, int iv)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	307 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	308 int hu = iu - (dv * (SET_VID_BUFH >> 1)) - (du * (SET_VID_BUFW >> 1)),
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	309 hv = iv + (du * (SET_VID_BUFH >> 1)) - (dv * (SET_VID_BUFW >> 1));
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	310
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	311 int y;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	312 Uint8 *dp = screen->pixels;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	313
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	314 for (y = SET_VID_BUFH; y; y--)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	315 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	316 Uint8 *d = dp;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	317 int u = hu, v = hv, x;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	318 for (x = SET_VID_BUFW; x; x--)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	319 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	320 u += du;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	321 v += dv;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	322 *d++ = ((u ^ v) >> 8) & 0xb1;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	323 }
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	324 dp += screen->pitch;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	325 hu += dv;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	326 hv -= du;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	327 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	328 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	329
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	330 /***************************************************************/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	331
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	332
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	333 void setpal()
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	334 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	335 SDL_Color pal[SET_VID_COLORS];
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	336 int i, a = 3, b = 0;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	337
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	338 for (i = 255; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	339 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	340 int n = (i + 128) & 255;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	341 pal[n].r = (abs(i - 140) >> a) & 255;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	342 pal[n].g = ((abs(i - 128) >> b) & 255) ^ 1;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	343 pal[n].b = (abs(i - 96) >> b) & 255;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	344 if (i == 128)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	345 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	346 a = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	347 b = 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	348 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	349 }
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	350
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	351 SDL_SetColors(engine.screen, pal, 0, SET_VID_COLORS);
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	352 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	353
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	354
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	355 void unitvec(vec3d * v, float a, float b, float c, float m)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	356 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	357 float cam = cos(a) * m, sam = sin(a) * m, sbcam = sin(b) * cam;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	358
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	359 v->x = cos(b) * cam;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	360 v->y = cos(c) * sam - sin(c) * sbcam;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	361 v->z = cos(c) * sbcam + sin(c) * sam;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	362 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	363
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	364 /*********************** MUSiC cODE ************************/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	365
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	366 /* This table was ripped (and reduced and rudely integerized) from the
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	367 Maube tracker by K .. keep on the good work man! ;) */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	368
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	369 const Sint16 noterate[3 * 12] =
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	370 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	371 1000, 1059, 1122, 1189, 1259, 1334,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	372 1414, 1498, 1587, 1681, 1781, 1887,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	373
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	374 2000, 2118, 2244, 2378, 2519, 2669,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	375 2828, 2996, 3174, 3363, 3563, 3775,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	376
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	377 4000, 4237, 4489, 4756, 5039, 5339,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	378 5656, 5993, 6349, 6727, 7127, 7550
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	379 };
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	380
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	381 /* 64 bytes of pure musical power ;)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	382 Originally composed with Scream Tracker. */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	383
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	384 const char basstrak[32] =
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	385 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	386 12, 0, 24, 12,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	387 12, 24, 12, 24,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	388 12, 0, 24, 12,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	389 12, 24, 12, 24,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	390 15, 0, 27, 15,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	391 15, 27, 15, 27,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	392 14, 0, 26, 14,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	393 15, 27, 17, 29
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	394 };
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	395
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	396 const char melody[32] =
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	397 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	398 24, 12, 19, 15,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	399 24, 0, 19, 0,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	400 24, 12, 19, 15,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	401 24, 0, 15, 19,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	402 15, 19, 15, 19,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	403 22, 0, 15, 19,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	404 14, 17, 21, 14,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	405 22, 17, 17, 22
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	406 };
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	407
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	408 signed int drum0, drum1;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	409
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	410
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	411 /* sampling sucks! */
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	412 void audio_precalcs()
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	413 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	414 int drumlgt = engine.tickLen * SET_ROWTIX * 4;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	415 int d = drum0 = malloc(drumlgt sizeof(int)),
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	416 e = drum1 = malloc(drumlgt sizeof(int)), i,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	417 vol = 24680, dvol = 35000 / (float) drumlgt;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	418 int o = 0, oo = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	419 float a = 0, da = 386 / (float) drumlgt, dda = da / (float) drumlgt;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	420
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	421 printf("aCtIvATiNg 303 eMuLAtOR\n");
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	422
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	423 for (i = drumlgt; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	424 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	425 int u;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	426
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	427 o = (o >> 1) + (rand() % vol) - (rand() % vol);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	428 oo = (oo * 2 + ((rand() % vol) - (rand() % vol))) / 3;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	429
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	430 o *= sin(a);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	431 oo *= sin(a);
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	432
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	433 u = o * 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	434 if (u < -65535)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	435 u = -65535;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	436 if (u > 65535)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	437 u = 65535;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	438 d++ = (vol sin((a / 2) + ((float) u) / 80000));
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	439 e++ = (vol sin(a + ((float) oo) / 60000));
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	440
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	441 a += da;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	442 da -= dda;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	443 vol -= dvol;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	444 }
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	445 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	446
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	447
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	448 static void engineAudioCallback(void userdata, Uint8 stream, int len)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	449 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	450 #if 0
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	451 (void) userdata;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	452 static int rowno = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	453 static signed int delta = -5;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	454 static char ismelody = 0, silend = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	455
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	456 int rowlgt = engine.tickLen * SET_ROWTIX, i;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	457 int *d = mxbuf, note;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	458
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	459 /* BASS (sawtooth ofcoz) */
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	460
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	461 *d++ = rowlgt;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	462
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	463 note = basstrak[(rowno >> 1) & 31];
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	464
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	465 if (!note)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	466 note = basstrak[((rowno >> 1) & 31) - 1];
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	467 else
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	468 if (rowno & 1)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	469 note = 0;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	470
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	471 if ((rowno & 3) == 3)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	472 note = 0;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	473
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	474 if (note)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	475 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	476 int ps = 16384, dps;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	477 note += delta;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	478 dps = ((noterate[note] << 10) / SET_AUDIO_FREQ);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	479 for (i = rowlgt; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	480 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	481 *d++ = ps;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	482 ps = (ps + dps) & 32767;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	483 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	484 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	485 else
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	486 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	487 for (i = rowlgt; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	488 *d++ = 16384;
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	489 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	490
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	491 /* MELODY (sawtooth as well :) */
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	492
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	493 if (!(silend && ((rowno & 63) > 47)))
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	494 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	495 if (ismelody)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	496 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	497 d = mxbuf + 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	498 if (rowno & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	499 note = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	500 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	501 note = melody[(rowno >> 1) & 31];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	502 if (note)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	503 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	504 int ps = 16384, dps; /* this loop is different */
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	505 note += delta;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	506 dps = ((noterate[note] << 12) / engine.optAfmt.freq);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	507 for (i = rowlgt; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	508 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	509 *d++ += ps;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	510 ps = (ps + dps) & 32767;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	511 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	512 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	513 }
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	514
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	515 /* DRUMS (rave on!!!) */
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	516 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	517 int *s = drum1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	518 d = mxbuf + 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	519 if (rowno & 4)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	520 s = drum0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	521 s += (rowno & 3) * rowlgt;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	522
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	523 for (i = rowlgt; i; i--)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	524 d++ += s++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	525 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	526 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	527 /* PATTERN SHIFT */
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	528
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	529 rowno++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	530
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	531 /* no switch+case? just check out how gcc handles them!
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	532 it's 1024+ bytes for every phukken switch statement!
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	533 in this case we can prefer size to speed, can't we? */
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	534
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	535 if ((rowno & 63) == 0)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	536 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	537 int r = rowno >> 6;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	538 if (r == 2)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	539 delta = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	540 if (r == 4)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	541 ismelody = 1;
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	542 if (r == 6 \|\| r == 10)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	543 delta = 5;
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	544 if (r == 7 \|\| r == 11)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	545 silend = 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	546 if (r == 8)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	547 delta = silend = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	548 if (r == 12)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	549 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	550 rowno = ismelody = silend = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	551 delta = -5;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	552 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	553 }
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	554
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	555 // if (engine.dev != NULL)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	556 // jvmRenderAudio(engine.dev, stream, len / jvmGetSampleSize(engine.dev));
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	557 #endif
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	558 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	559
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	560
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	561 /************** tEXT gENERATORS eTC *************/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	562
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	563 char skrtxt[] =
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	564 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	565 " HI THERE ! THIS IS THE FIRST OCSA RELEASE FOR LINUX ! "
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	566 "IT'S A STUPID INTRO CALLED 3X666 ! "
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	567 };
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	568
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	569
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	570 #define CHTIME 16
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	571 #define CHPSCR 8
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	572
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	573 void plainscroll(int t)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	574 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	575 int chno = t / CHTIME;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	576 int x = 0 - ((t % CHTIME) * (SET_VID_BUFW / CHPSCR)) / CHTIME;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	577 int h = (abs((t % 48) - 24) * SET_VID_BUFH) / 256, i;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	578 char *c = skrtxt + chno;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	579
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	580 for (i = 0; i < CHPSCR + 1; i++)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	581 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	582 drawchar(x, (SET_VID_BUFH * 3) / 4, phont[c++ - 32], SET_VID_BUFW / (6 CHPSCR), h);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	583 x += SET_VID_BUFW / CHPSCR;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	584 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	585 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	586
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	587 char *lyrix(void)
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	588 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	589 static int phinext = 0, philast;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	590 int phiwsty;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	591 char *phiword;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	592
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	593 phiwsty = phinext;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	594
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	595 if (!phiwsty)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	596 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	597 if (!(rand() & 3))
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	598 phiwsty = 13;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	599 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	600 phiwsty = 1 + (rand() & 1);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	601 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	602 if (phiwsty == 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	603 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	604 char *w[] = { "HERE", "THERE", "NOW", "TOMORROW", "TODAY", "NEVER" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	605 phiword = w[rand() % 6];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	606 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	607 phinext = 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	608 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	609 phinext = 12;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	610 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	611 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	612 if (phiwsty == 2)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	613 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	614 char nx[] = { 5, 10, 7, 3, 11 };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	615 philast = rand() & 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	616 if (!philast)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	617 phiword = "YOU";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	618 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	619 phiword = "I";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	620 phinext = nx[rand() % 5];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	621 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	622 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	623 if (phiwsty == 3)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	624 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	625 char *w[] = { "DON'T", "CAN'T", "WON'T", "COULDN'T" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	626 phiword = w[rand() % 4];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	627 phinext = 7 + (rand() & 4);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	628 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	629 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	630 if (phiwsty == 4)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	631 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	632 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	633 phiword = "YOU";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	634 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	635 phiword = "ME";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	636 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	637 phinext = 6;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	638 else if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	639 phinext = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	640 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	641 phinext = 11;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	642 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	643 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	644 if (phiwsty == 5)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	645 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	646 if (philast)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	647 phiword = "AM";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	648 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	649 phiword = "ARE";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	650 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	651 phinext = 6;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	652 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	653 phinext = 12 + (rand() & 1);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	654 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	655 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	656 if (phiwsty == 6)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	657 {
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	658 char *w[] = {
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	659 "FALLING", "THINKING", "DREAMING", "CRYING",
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	660 "LYING", "REACHING", "BREATHING", "BURNING", "RUNNING"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	661 };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	662 phiword = w[rand() % 9];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	663 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	664 phinext = 9;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	665 else if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	666 phinext = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	667 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	668 phinext = 13;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	669 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	670 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	671 if (phiwsty == 7)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	672 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	673 char nx[] = { 8, 4, 12 };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	674 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	675 phiword = "NEED";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	676 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	677 phiword = "WANT";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	678 phinext = nx[rand() % 3];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	679 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	680 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	681 if (phiwsty == 8)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	682 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	683 phiword = "TO";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	684 phinext = 11;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	685 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	686 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	687 if (phiwsty == 9)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	688 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	689 char *w[] = { "DOWN", "OFF", "OUT", "UP", "ABOUT" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	690 phiword = w[rand() % 5];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	691 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	692 phinext = rand() & 4;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	693 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	694 phinext = 12 + (rand() & 1);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	695 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	696 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	697 if (phiwsty == 10)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	698 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	699 char *w[] = { "CAN", "COULD", "WOULD", "MAY", "MIGHT" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	700 phiword = w[rand() % 5];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	701 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	702 phinext = 11;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	703 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	704 phinext = 12;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	705 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	706 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	707 if (phiwsty == 11)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	708 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	709 char *w[] = { "SEE", "HEAR", "FEEL", "THINK" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	710 phiword = w[rand() % 4];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	711 if (rand() & 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	712 phinext = 12;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	713 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	714 phinext = rand() & 4;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	715 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	716 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	717 if (phiwsty == 12)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	718 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	719 char *w[] = { "WHAT", "SOMETHING", "NOTHING", "THINGS", "WHATEVER" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	720 phiword = w[rand() % 5];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	721 phinext = 2;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	722 }
8 bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	723 else
bbc901af24fb More cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 7 diff changeset	724 if (phiwsty == 13)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	725 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	726 phiword = "THE";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	727 phinext = 14;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	728 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	729 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	730 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	731 char *w[] = { "WAY", "EYES", "WORLD", "ROBOT", "FREEDOM", "HATE" };
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	732 phiword = w[rand() % 6];
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	733 phinext = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	734 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	735 return phiword;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	736 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	737
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	738 char *dotxtscr(void)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	739 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	740 static int cnt = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	741 cnt++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	742 if (cnt == 1)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	743 return "WHERES THE\n" "DESIGN?\n\n" "WHERES THE\n" "ATTITUDE?!";
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	744
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	745 if (cnt == 2)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	746 return "NOTHING\n" "HAPPENED\n" "IN 1997";
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	747
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	748 if (cnt == 3)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	749 return "PERHAPS\n" "IT IS TIME\n" "FOR A NEW\n" "PROPHECY?";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	750
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	751 if (cnt == 4)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	752 return "IN 1998,\n" "SCENE WILL\n" "DIE !!!!!";
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	753
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	754 if (cnt == 5)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	755 return "PHONGBALLS\n" "WILL\n" "INVADE\n" "THE WORLD";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	756
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	757 if ((cnt == 6) \|\| (cnt == 7))
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	758 return "HALUU OLLA\n" "APPELSIINI";
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	759
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	760 return NULL;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	761 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	762
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	763 const char *endscroll =
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	764 "THAT'S ALL\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	765 "FOLKS !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	766 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	767 "ALL CODING +\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	768 "COMPOSING\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	769 "BY VIZNUT !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	770 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	771 "WHAT A\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	772 "MARVELOUS\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	773 "PALETTE !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	774 "WHAT A\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	775 "SUPERB TUNE !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	776 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	777 "BUT IT'S ALL\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	778 "BELOW 10 KB\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	779 "AND RUNS\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	780 "SMOOTHLY ON\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	781 "A 386\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	782 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	783 "GREETINGS TO\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	784 "ALL THE\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	785 "LINUX SCENE !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	786 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	787 "LET'S MAKE\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	788 "THIS WORLD A\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	789 "BETTER PLACE\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	790 "TO LIVE IN !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	791 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	792 "THIS IS JUST\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	793 "A PIECE OF\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	794 "SHITTY CODE\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	795 "BUT IT'S ALL\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	796 "YOURS !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	797 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	798 "RIP OFF\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	799 "EVERYTHING !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	800 "USE IT FOR\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	801 "SOMETHING\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	802 "CREATIVE !\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	803 "\n"
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	804 "\n\n\nOCSA 1998";
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	805
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	806
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	807 void doendscroll(int t)
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	808 {
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	809 const char *s = endscroll;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	810 int y = SET_VID_BUFH - (SET_VID_BUFH * t / 512), x = SET_VID_BUFW / 24;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	811
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	812 while (*s)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	813 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	814 if (*s < 32)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	815 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	816 x = SET_VID_BUFW / 24;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	817 y += SET_VID_BUFH / 8;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	818 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	819 else
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	820 if (y >= 0 - (SET_VID_BUFH / 8) && y < SET_VID_BUFH)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	821 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	822 drawchar(x, y, phont[*s - 32], SET_VID_BUFW / 60, SET_VID_BUFH / 60);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	823 x += SET_VID_BUFW / 13;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	824 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	825 s++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	826 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	827 }
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	828
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	829 /******************** tHA kORE bEGiNS *******************/
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	830
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	831 #define BLACKBG 0x0001
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	832 #define FLASHBG 0x0002
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	833 #define OCSALOGO 0x0004
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	834 #define SCROLL0 0x0008
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	835 #define BALLIE 0x0010
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	836 #define BALLJUMPS 0x0020
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	837 #define COUNTAH 0x0040
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	838 #define CHESSBG 0x0080
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	839 #define PLASMABG 0x0100
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	840 #define FLASHTXT 0x0200
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	841 #define TXTSCR 0x0400
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	842 #define ENDSCR 0x0800
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	843 #define DEMOEND 0x1000
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	844
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	845 const short dezign[] = {
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	846 0 , BLACKBG \| OCSALOGO \| SCROLL0,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	847 256 , FLASHBG \| BALLIE \| BALLJUMPS \| COUNTAH,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	848 384 , BLACKBG \| BALLIE \| BALLJUMPS \| COUNTAH \| OCSALOGO,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	849 400 , BLACKBG \| BALLIE \| COUNTAH \| OCSALOGO,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	850 416 , BLACKBG \| BALLIE,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	851 448 , BLACKBG \| BALLIE \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	852 512 , CHESSBG \| BALLIE \| BALLJUMPS \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	853 576 , CHESSBG \| BALLIE \| BALLJUMPS \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	854 640 , CHESSBG \| BALLIE \| BALLJUMPS \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	855 704 , CHESSBG \| BALLIE \| BALLJUMPS \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	856 768 , FLASHBG \| FLASHTXT,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	857 896 , FLASHBG \| FLASHTXT \| TXTSCR,
84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	858 962 , FLASHBG \| FLASHTXT \| TXTSCR \| BALLIE \| BALLJUMPS,
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	859 1024, BLACKBG \| BALLIE \| ENDSCR,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	860 1152, CHESSBG \| BALLIE \| BALLJUMPS \| ENDSCR,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	861 1344, FLASHBG \| BALLIE \| BALLJUMPS \| ENDSCR,
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	862 1536, DEMOEND
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	863 };
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	864
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	865
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	866 /* don't look at the rest of the code, it just sucks :) */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	867
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	868 int main(int argc, char *argv[])
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	869 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	870 BOOL initSDL = FALSE;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	871 vec3d joo;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	872 const int U = SET_VID_BUFW / 40;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	873 int flagz = 0;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	874 const short *dez = dezign;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	875 char phiword = NULL, dizainword = NULL;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	876 int flixtim = 0;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	877
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	878 // engine.optVFlags \|= SDL_FULLSCREEN;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	879
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	880
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	881 // Initialize SDL components
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	882 if (SDL_Init(SDL_INIT_VIDEO \| SDL_INIT_AUDIO \| SDL_INIT_TIMER) != 0)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	883 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	884 dmError("Could not initialize SDL: %s\n", SDL_GetError());
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	885 goto error_exit;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	886 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	887 initSDL = TRUE;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	888
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	889 // Initialize audio parts
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	890 engine.optAfmt.freq = SET_AUDIO_FREQ;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	891 engine.optAfmt.format = AUDIO_S16SYS;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	892 engine.optAfmt.channels = SET_AUDIO_CHN;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	893 engine.optAfmt.samples = engine.optAfmt.freq / 16;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	894 engine.optAfmt.callback = engineAudioCallback;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	895
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	896 // Initialize SDL audio
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	897 if (SDL_OpenAudio(&engine.optAfmt, NULL) < 0)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	898 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	899 dmError("Couldn't open SDL audio: %s\n", SDL_GetError());
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	900 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	901
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	902 // Initialize SDL video
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	903 if (!engineInitializeVideo())
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	904 goto error_exit;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	905
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	906 SDL_ShowCursor(SDL_DISABLE);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	907 SDL_WM_SetCaption(SET_WIN_NAME, SET_WIN_NAME);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	908
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	909 // Initialize effects
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	910 preball();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	911 srand(0);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	912
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	913 engine.tickLen = engine.optAfmt.freq / SET_DEMOHZ;
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	914 audio_precalcs();
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	915 setpal();
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	916
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	917 // Start audio, enter main loop
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	918 SDL_LockAudio();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	919 SDL_PauseAudio(0);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	920 SDL_UnlockAudio();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	921 engine.startTime = SDL_GetTicks();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	922
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	923 while (!engine.exitFlag)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	924 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	925 // Handle SDL events
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	926 while (SDL_PollEvent(&engine.event))
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	927 switch (engine.event.type)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	928 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	929 case SDL_KEYDOWN:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	930 switch (engine.event.key.keysym.sym)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	931 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	932 case SDLK_ESCAPE:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	933 engine.exitFlag = TRUE;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	934 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	935
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	936 case SDLK_f:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	937 engine.optVFlags ^= SDL_FULLSCREEN;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	938 if (!engineInitializeVideo())
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	939 goto error_exit;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	940 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	941
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	942 case SDLK_RETURN:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	943 if (engine.event.key.keysym.mod & KMOD_ALT)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	944 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	945 engine.optVFlags ^= SDL_FULLSCREEN;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	946 if (!engineInitializeVideo())
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	947 goto error_exit;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	948 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	949 break;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	950
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	951 default:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	952 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	953 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	954
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	955 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	956
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	957 case SDL_VIDEOEXPOSE:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	958 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	959
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	960 case SDL_QUIT:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	961 engine.exitFlag = TRUE;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	962 break;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	963 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	964
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	965 // Draw frame
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	966 engine.frameTime = SDL_GetTicks();
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	967 int qt = engineGetTick(&engine);
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	968
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	969 if (SDL_MUSTLOCK(engine.screen) != 0 && SDL_LockSurface(engine.screen) != 0)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	970 {
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	971 dmError("Can't lock surface.\n");
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	972 goto error_exit;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	973 }
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	974
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	975 // Main rendering code
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	976 while ((qt / SET_ROWTIX >= *dez) && (flagz & DEMOEND) == 0)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	977 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	978 dez++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	979 flagz = *dez++;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	980 if (flagz & FLASHTXT)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	981 flixtim = *(dez - 2);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	982 if (flagz & TXTSCR)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	983 dizainword = dotxtscr();
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	984 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	985
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	986 if (flagz & FLASHTXT)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	987 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	988 while ((qt / SET_ROWTIX) >= flixtim)
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	989 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	990 phiword = lyrix();
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	991 flixtim += 4;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	992 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	993 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	994
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	995 if (flagz & DEMOEND)
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	996 engine.exitFlag = TRUE;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	997
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	998 if (flagz & BLACKBG)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	999 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1000 SDL_FillRect(engine.screen, NULL, 0);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1001 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1002 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1003 if (flagz & FLASHBG)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1004 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1005 unsigned char col = 130 + (qt % 48) * 2;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1006 SDL_FillRect(engine.screen, NULL, col);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1007 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1008
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1009 if (flagz & CHESSBG)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1010 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1011 int zoom = (10 + abs(((qt >> 1) % 96) - 48)) * 4096 / SET_VID_BUFW;
3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1012 rotochess(engine.screen, sin(qt * 0.03) * zoom, cos(qt * 0.03) * zoom, 0, 0);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1013 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1014
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1015 /* if(flagz&PLASMABG) drawplasma(ruutu,t); */
0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1016
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1017 if (flagz & OCSALOGO)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1018 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1019 drawchar(U * 6, U * 4, phont['O' - 32], U + U * sin(qt * 0.10 + 3),
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1020 U);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1021 drawchar(U * 14, U * 4, phont['C' - 32], U,
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1022 U + U * sin(qt * 0.11 + 3));
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1023 drawchar(U * 22, U * 4, phont['S' - 32], U,
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1024 U + U * sin(qt * 0.12 + 3));
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1025 drawchar(U * 30, U * 4, phont['A' - 32],
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1026 U + U * sin(qt * 0.13 + 3), U);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1027 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1028
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1029 if (flagz & SCROLL0)
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1030 plainscroll(qt);
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1031
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1032 if (flagz & BALLIE)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1033 {
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1034 int zoom;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1035 if (flagz & BALLJUMPS)
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1036 zoom = abs((qt % 96) - 48);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1037 else
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1038 zoom = 47;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1039
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1040 zoom = dmClamp(zoom, 0, 47);
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1041
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1042 unitvec(&joo, 0.038 * qt, 0.023 * qt, 0.011 * qt,
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1043 32000 / balltab[zoom].R);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1044 joo.z <<= 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1045
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1046 drawball(engine.screen, &joo, zoom);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1047 }
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1048
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1049 if (flagz & FLASHTXT)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1050 flashtxt(phiword);
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1051
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1052 if ((flagz & TXTSCR) && ((qt / SET_ROWTIX) & 2))
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1053 drawtxtscr(dizainword);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1054
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1055 if (flagz & ENDSCR)
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1056 doendscroll(qt - 1024 * SET_ROWTIX);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1057
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1058 if (flagz & COUNTAH)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1059 {
13 3a358d053ffc Runs now, audio does not work yet and the pace seems slightly too fast (not Matti Hamalainen <ccr@tnsp.org> parents: 11 diff changeset	1060 int n = ((qt * 50 / 48) - 256 * 6);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1061 int dis = (rand() % U) >> 1;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1062 if (n > 666)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1063 n = 666;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1064
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1065 if (n > 600)
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1066 {
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1067 drawchar(U * 12 + dis, (SET_VID_BUFH >> 1) + dis + U * 6,
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1068 phont['X' - 32], U, U);
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1069 drawchar(U * 22 + dis, (SET_VID_BUFH >> 1) + dis + U * 6,
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1070 phont['3' - 32], U, U);
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1071 }
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1072
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1073 drawchar(U * 28 + dis, SET_VID_BUFH >> 1, phont[16 + (n % 10)], U, U);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1074 n /= 10;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1075 drawchar(U * 18 + dis, SET_VID_BUFH >> 1, phont[16 + (n % 10)], U, U);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1076 n /= 10;
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1077 drawchar(U * 8 + dis, SET_VID_BUFH >> 1, phont[16 + (n % 10)], U, U);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1078 n /= 10;
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1079 }
4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1080
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1081 // Flip screen
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1082 if (SDL_MUSTLOCK(engine.screen) != 0)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1083 SDL_UnlockSurface(engine.screen);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1084
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1085 engine.frameCount++;
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1086 SDL_Flip(engine.screen);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1087 SDL_Delay(20);
3 4dd2b0c81ad2 Cleanups, removing cruft, re-indent. Matti Hamalainen <ccr@tnsp.org> parents: 0 diff changeset	1088 }
9 84d7bc7dfaeb More cleanup work. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1089
11 fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1090 error_exit:
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1091 // Shutdown
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1092 SDL_ShowCursor(SDL_ENABLE);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1093 if (engine.screen)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1094 SDL_FreeSurface(engine.screen);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1095
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1096 SDL_LockAudio();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1097 SDL_PauseAudio(1);
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1098 SDL_UnlockAudio();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1099
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1100 if (initSDL)
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1101 SDL_Quit();
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1102
fcae85b39931 Slowly getting closer. Does not compile yet, and it's messy. Matti Hamalainen <ccr@tnsp.org> parents: 9 diff changeset	1103 return 0;
0 0e4f2da58161 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1104 }

Mercurial > hg > forks > 3x666-SDL

annotate 3x666.c @ 13:3a358d053ffc