sdl-ios-xcode: test/testpalette.c annotate

annotate test/testpalette.c @ 3495:1b22878e04d0

Adam Strzelecki to SDL D3D renderer shall try mapping YV12 and I420 (IYUV) to D3D texture formats via FOURCC. This will enable HW acceleration for those formats when driver is capable (most of them are). Note that SDL's IYUV maps I420 FOURCC on Woe.

author	Sam Lantinga <slouken@libsdl.org>
date	Fri, 27 Nov 2009 03:11:26 +0000
parents	422452508c76
children	06f0768a904c

rev	line source
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	1 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	2 * testpalette.c
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	3 *
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	4 * A simple test of runtime palette modification for animation
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	5 * (using the SDL_SetPalette() API).
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	6 */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	7
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	8 #include <stdio.h>
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	9 #include <stdlib.h>
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	10 #include <string.h>
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	11 #include <math.h>
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	12
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	13 /* This isn't in the Windows headers */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	14 #ifndef M_PI
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	15 #define M_PI 3.14159265358979323846
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	16 #endif
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	17
1815 871090feb7ad Fixed building with CodeWarrior on MacOS Classic Sam Lantinga <slouken@libsdl.org> parents: 1516 diff changeset	18 #include "SDL.h"
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	19
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	20 /* screen size */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	21 #define SCRW 640
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	22 #define SCRH 480
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	23
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	24 #define NBOATS 5
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	25 #define SPEED 2
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	26
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	27 #ifndef MIN
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	28 #define MIN(a, b) ((a) < (b) ? (a) : (b))
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	29 #endif
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	30 #ifndef MAX
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	31 #define MAX(a, b) ((a) > (b) ? (a) : (b))
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	32 #endif
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	33
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	34 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	35 * wave colours: Made by taking a narrow cross-section of a wave picture
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	36 * in Gimp, saving in PPM ascii format and formatting with Emacs macros.
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	37 */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	38 static SDL_Color wavemap[] = {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	39 {0, 2, 103}, {0, 7, 110}, {0, 13, 117}, {0, 19, 125},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	40 {0, 25, 133}, {0, 31, 141}, {0, 37, 150}, {0, 43, 158},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	41 {0, 49, 166}, {0, 55, 174}, {0, 61, 182}, {0, 67, 190},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	42 {0, 73, 198}, {0, 79, 206}, {0, 86, 214}, {0, 96, 220},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	43 {5, 105, 224}, {12, 112, 226}, {19, 120, 227}, {26, 128, 229},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	44 {33, 135, 230}, {40, 143, 232}, {47, 150, 234}, {54, 158, 236},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	45 {61, 165, 238}, {68, 173, 239}, {75, 180, 241}, {82, 188, 242},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	46 {89, 195, 244}, {96, 203, 246}, {103, 210, 248}, {112, 218, 250},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	47 {124, 224, 250}, {135, 226, 251}, {146, 229, 251}, {156, 231, 252},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	48 {167, 233, 252}, {178, 236, 252}, {189, 238, 252}, {200, 240, 252},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	49 {211, 242, 252}, {222, 244, 252}, {233, 247, 252}, {242, 249, 252},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	50 {237, 250, 252}, {209, 251, 252}, {174, 251, 252}, {138, 252, 252},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	51 {102, 251, 252}, {63, 250, 252}, {24, 243, 252}, {7, 225, 252},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	52 {4, 203, 252}, {3, 181, 252}, {2, 158, 252}, {1, 136, 251},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	53 {0, 111, 248}, {0, 82, 234}, {0, 63, 213}, {0, 50, 192},
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	54 {0, 39, 172}, {0, 28, 152}, {0, 17, 132}, {0, 7, 114}
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	55 };
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	56
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	57 /* Call this instead of exit(), so we can clean up SDL: atexit() is evil. */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	58 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	59 quit(int rc)
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	60 {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	61 SDL_Quit();
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	62 exit(rc);
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	63 }
be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	64
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	65 static void
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	66 sdlerr(char *when)
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	67 {
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	68 fprintf(stderr, "SDL error: %s: %s\n", when, SDL_GetError());
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	69 quit(1);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	70 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	71
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	72 /* create a background surface */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	73 static SDL_Surface *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	74 make_bg(SDL_Surface * screen, int startcol)
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	75 {
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	76 int i;
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	77 SDL_Surface *bg =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	78 SDL_CreateRGBSurface(SDL_SWSURFACE, screen->w, screen->h,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	79 8, 0, 0, 0, 0);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	80 if (!bg)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	81 sdlerr("creating background surface");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	82
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	83 /* set the palette to the logical screen palette so that blits
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	84 won't be translated */
2855 422452508c76 Fixed palette sharing Sam Lantinga <slouken@libsdl.org> parents: 2851 diff changeset	85 SDL_SetSurfacePalette(bg, screen->format->palette);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	86
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	87 /* Make a wavy background pattern using colours 0-63 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	88 if (SDL_LockSurface(bg) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	89 sdlerr("locking background");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	90 for (i = 0; i < SCRH; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	91 Uint8 p = (Uint8 ) bg->pixels + i * bg->pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	92 int j, d;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	93 d = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	94 for (j = 0; j < SCRW; j++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	95 int v = MAX(d, -2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	96 v = MIN(v, 2);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	97 if (i > 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	98 v += p[-bg->pitch] + 65 - startcol;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	99 p[j] = startcol + (v & 63);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	100 d += ((rand() >> 3) % 3) - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	101 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	102 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	103 SDL_UnlockSurface(bg);
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	104 return (bg);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	105 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	106
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	107 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	108 * Return a surface flipped horisontally. Only works for 8bpp;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	109 * extension to arbitrary bitness is left as an exercise for the reader.
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	110 */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	111 static SDL_Surface *
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	112 hflip(SDL_Surface * s)
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	113 {
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	114 int i;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	115 SDL_Surface *z = SDL_CreateRGBSurface(SDL_SWSURFACE, s->w, s->h, 8,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	116 0, 0, 0, 0);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	117 /* copy palette */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	118 SDL_SetColors(z, s->format->palette->colors,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	119 0, s->format->palette->ncolors);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	120 if (SDL_LockSurface(s) < 0 \|\| SDL_LockSurface(z) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	121 sdlerr("locking flip images");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	122
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	123 for (i = 0; i < s->h; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	124 int j;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	125 Uint8 from = (Uint8 ) s->pixels + i * s->pitch;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	126 Uint8 to = (Uint8 ) z->pixels + i * z->pitch + s->w - 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	127 for (j = 0; j < s->w; j++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	128 to[-j] = from[j];
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	129 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	130
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	131 SDL_UnlockSurface(z);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	132 SDL_UnlockSurface(s);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	133 return z;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	134 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	135
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	136 int
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	137 main(int argc, char **argv)
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	138 {
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	139 SDL_Color cmap[256];
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	140 SDL_Surface *screen;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	141 SDL_Surface *bg;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	142 SDL_Surface *boat[2];
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	143 unsigned vidflags = 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	144 unsigned start;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	145 int fade_max = 400;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	146 int fade_level, fade_dir;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	147 int boatcols, frames, i, red;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	148 int boatx[NBOATS], boaty[NBOATS], boatdir[NBOATS];
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	149 int gamma_fade = 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	150 int gamma_ramp = 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	151
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	152 if (SDL_Init(SDL_INIT_VIDEO) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	153 sdlerr("initialising SDL");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	154
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	155 while (--argc) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	156 ++argv;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	157 if (strcmp(*argv, "-hw") == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	158 vidflags \|= SDL_HWSURFACE;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	159 else if (strcmp(*argv, "-fullscreen") == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	160 vidflags \|= SDL_FULLSCREEN;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	161 else if (strcmp(*argv, "-nofade") == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	162 fade_max = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	163 else if (strcmp(*argv, "-gamma") == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	164 gamma_fade = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	165 else if (strcmp(*argv, "-gammaramp") == 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	166 gamma_ramp = 1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	167 else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	168 fprintf(stderr,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	169 "usage: testpalette "
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	170 " [-hw] [-fullscreen] [-nofade] [-gamma] [-gammaramp]\n");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	171 quit(1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	172 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	173 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	174
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	175 /* Ask explicitly for 8bpp and a hardware palette */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	176 if ((screen =
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	177 SDL_SetVideoMode(SCRW, SCRH, 8, vidflags \| SDL_HWPALETTE)) == NULL) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	178 fprintf(stderr, "error setting %dx%d 8bpp indexed mode: %s\n",
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	179 SCRW, SCRH, SDL_GetError());
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	180 quit(1);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	181 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	182
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	183 if (vidflags & SDL_FULLSCREEN)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	184 SDL_ShowCursor(SDL_FALSE);
1429 aff0170f9f1b Date: Sat, 25 Feb 2006 14:26:19 +0100 (CET) Sam Lantinga <slouken@libsdl.org> parents: 1151 diff changeset	185
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	186 if ((boat[0] = SDL_LoadBMP("sail.bmp")) == NULL)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	187 sdlerr("loading sail.bmp");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	188 /* We've chosen magenta (#ff00ff) as colour key for the boat */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	189 SDL_SetColorKey(boat[0], SDL_SRCCOLORKEY \| SDL_RLEACCEL,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	190 SDL_MapRGB(boat[0]->format, 0xff, 0x00, 0xff));
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	191 boatcols = boat[0]->format->palette->ncolors;
2851 6c3fbeb04eca Fixed crash in testpalette and potential crash in SDL_LoadBMP_RW() Sam Lantinga <slouken@libsdl.org> parents: 2735 diff changeset	192 if (boatcols >= 256)
6c3fbeb04eca Fixed crash in testpalette and potential crash in SDL_LoadBMP_RW() Sam Lantinga <slouken@libsdl.org> parents: 2735 diff changeset	193 sdlerr("too many colors in sail.bmp");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	194 boat[1] = hflip(boat[0]);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	195 SDL_SetColorKey(boat[1], SDL_SRCCOLORKEY \| SDL_RLEACCEL,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	196 SDL_MapRGB(boat[1]->format, 0xff, 0x00, 0xff));
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	197
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	198 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	199 * First set the physical screen palette to black, so the user won't
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	200 * see our initial drawing on the screen.
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	201 */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	202 memset(cmap, 0, sizeof(cmap));
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	203 SDL_SetPalette(screen, SDL_PHYSPAL, cmap, 0, 256);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	204
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	205 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	206 * Proper palette management is important when playing games with the
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	207 * colormap. We have divided the palette as follows:
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	208 *
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	209 * index 0..(boatcols-1): used for the boat
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	210 * index boatcols..(boatcols+63): used for the waves
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	211 */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	212 SDL_SetPalette(screen, SDL_LOGPAL,
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	213 boat[0]->format->palette->colors, 0, boatcols);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	214 SDL_SetPalette(screen, SDL_LOGPAL, wavemap, boatcols, 64);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	215
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	216 /*
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	217 * Now the logical screen palette is set, and will remain unchanged.
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	218 * The boats already have the same palette so fast blits can be used.
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	219 */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	220 memcpy(cmap, screen->format->palette->colors, 256 * sizeof(SDL_Color));
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	221
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	222 /* save the index of the red colour for later */
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	223 red = SDL_MapRGB(screen->format, 0xff, 0x00, 0x00);
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	224
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	225 bg = make_bg(screen, boatcols); /* make a nice wavy background surface */
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	226
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	227 /* initial screen contents */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	228 if (SDL_BlitSurface(bg, NULL, screen, NULL) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	229 sdlerr("blitting background to screen");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	230 SDL_Flip(screen); /* actually put the background on screen */
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	231
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	232 /* determine initial boat placements */
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	233 for (i = 0; i < NBOATS; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	234 boatx[i] = (rand() % (SCRW + boat[0]->w)) - boat[0]->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	235 boaty[i] = i * (SCRH - boat[0]->h) / (NBOATS - 1);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	236 boatdir[i] = ((rand() >> 5) & 1) * 2 - 1;
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	237 }
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	238
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	239 start = SDL_GetTicks();
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	240 frames = 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	241 fade_dir = 1;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	242 fade_level = 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	243 do {
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	244 SDL_Event e;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	245 SDL_Rect updates[NBOATS];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	246 SDL_Rect r;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	247 int redphase;
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	248
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	249 /* A small event loop: just exit on any key or mouse button event */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	250 while (SDL_PollEvent(&e)) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	251 if (e.type == SDL_KEYDOWN \|\| e.type == SDL_QUIT
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	252 \|\| e.type == SDL_MOUSEBUTTONDOWN) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	253 if (fade_dir < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	254 fade_level = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	255 fade_dir = -1;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	256 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	257 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	258
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	259 /* move boats */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	260 for (i = 0; i < NBOATS; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	261 int old_x = boatx[i];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	262 /* update boat position */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	263 boatx[i] += boatdir[i] * SPEED;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	264 if (boatx[i] <= -boat[0]->w \|\| boatx[i] >= SCRW)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	265 boatdir[i] = -boatdir[i];
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	266
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	267 /* paint over the old boat position */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	268 r.x = old_x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	269 r.y = boaty[i];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	270 r.w = boat[0]->w;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	271 r.h = boat[0]->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	272 if (SDL_BlitSurface(bg, &r, screen, &r) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	273 sdlerr("blitting background");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	274
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	275 /* construct update rectangle (bounding box of old and new pos) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	276 updates[i].x = MIN(old_x, boatx[i]);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	277 updates[i].y = boaty[i];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	278 updates[i].w = boat[0]->w + SPEED;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	279 updates[i].h = boat[0]->h;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	280 /* clip update rectangle to screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	281 if (updates[i].x < 0) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	282 updates[i].w += updates[i].x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	283 updates[i].x = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	284 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	285 if (updates[i].x + updates[i].w > SCRW)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	286 updates[i].w = SCRW - updates[i].x;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	287 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	288
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	289 for (i = 0; i < NBOATS; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	290 /* paint boat on new position */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	291 r.x = boatx[i];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	292 r.y = boaty[i];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	293 if (SDL_BlitSurface(boat[(boatdir[i] + 1) / 2], NULL,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	294 screen, &r) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	295 sdlerr("blitting boat");
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	296 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	297
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	298 /* cycle wave palette */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	299 for (i = 0; i < 64; i++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	300 cmap[boatcols + ((i + frames) & 63)] = wavemap[i];
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	301
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	302 if (fade_dir) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	303 /* Fade the entire palette in/out */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	304 fade_level += fade_dir;
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	305
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	306 if (gamma_fade) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	307 /* Fade linearly in gamma level (lousy) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	308 float level = (float) fade_level / fade_max;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	309 if (SDL_SetGamma(level, level, level) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	310 sdlerr("setting gamma");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	311
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	312 } else if (gamma_ramp) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	313 /* Fade using gamma ramp (better) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	314 Uint16 ramp[256];
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	315 for (i = 0; i < 256; i++)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	316 ramp[i] = (i * fade_level / fade_max) << 8;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	317 if (SDL_SetGammaRamp(ramp, ramp, ramp) < 0)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	318 sdlerr("setting gamma ramp");
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	319
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	320 } else {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	321 /* Fade using direct palette manipulation (best) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	322 memcpy(cmap, screen->format->palette->colors,
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	323 boatcols * sizeof(SDL_Color));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	324 for (i = 0; i < boatcols + 64; i++) {
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	325 cmap[i].r = cmap[i].r * fade_level / fade_max;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	326 cmap[i].g = cmap[i].g * fade_level / fade_max;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	327 cmap[i].b = cmap[i].b * fade_level / fade_max;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	328 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	329 }
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	330 if (fade_level == fade_max)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	331 fade_dir = 0;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	332 }
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	333
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	334 /* pulse the red colour (done after the fade, for a night effect) */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	335 redphase = frames % 64;
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	336 cmap[red].r = (int) (255 * sin(redphase * M_PI / 63));
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	337
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	338 SDL_SetPalette(screen, SDL_PHYSPAL, cmap, 0, boatcols + 64);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	339
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	340 /* update changed areas of the screen */
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	341 SDL_UpdateRects(screen, NBOATS, updates);
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	342 frames++;
2735 204be4fc2726 Final merge of Google Summer of Code 2008 work... Sam Lantinga <slouken@libsdl.org> parents: 1895 diff changeset	343 } while (fade_level > 0);
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	344
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	345 printf("%d frames, %.2f fps\n",
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	346 frames, 1000.0 * frames / (SDL_GetTicks() - start));
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	347
1895 c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	348 if (vidflags & SDL_FULLSCREEN)
c121d94672cb SDL 1.2 is moving to a branch, and SDL 1.3 is becoming the head. Sam Lantinga <slouken@libsdl.org> parents: 1815 diff changeset	349 SDL_ShowCursor(SDL_TRUE);
1151 be9c9c8f6d53 Removed atexit() from most of the test programs; atexit(SDL_Quit) isn't safe Ryan C. Gordon <icculus@icculus.org> parents: 0 diff changeset	350 SDL_Quit();
0 74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	351 return 0;
74212992fb08 Initial revision Sam Lantinga <slouken@lokigames.com> parents: diff changeset	352 }

Mercurial > sdl-ios-xcode

annotate test/testpalette.c @ 3495:1b22878e04d0