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

annotate 3x666.c @ 11:fcae85b39931

Slowly getting closer. Does not compile yet, and it's messy.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 15 Mar 2013 15:47:20 +0200
parents	84d7bc7dfaeb
children	3a358d053ffc

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

Mercurial > hg > forks > 3x666-SDL

annotate 3x666.c @ 11:fcae85b39931