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

annotate 3x666.c @ 15:e5603b03732b

Some more work.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 15 Mar 2013 18:18:30 +0200
parents	2663b7bb23b9
children	e846eda89058

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

Mercurial > hg > forks > 3x666-SDL

annotate 3x666.c @ 15:e5603b03732b