1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/*
$Id: sdl.c,v 1.2 2006-03-15 04:37:46 matju Exp $
GridFlow
Copyright (c) 2001,2002,2003,2004 by Mathieu Bouchard
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
See file ../COPYING for further informations on licensing terms.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#include "../base/grid.h.fcs"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <sys/time.h>
#include <signal.h>
#include <SDL/SDL.h>
static bool in_use = false;
\class FormatSDL < Format
struct FormatSDL : Format {
SDL_Surface *screen;
P<BitPacking> bit_packing;
P<Dim> dim;
void resize_window (int sx, int sy);
void call ();
Pt<uint8> pixels () {
return Pt<uint8>((uint8 *)screen->pixels,
dim->prod(0,1)*bit_packing->bytes);
}
\decl void initialize (Symbol mode);
\decl void close ();
\grin 0 int
};
void FormatSDL::call() {
SDL_Event event;
while(SDL_PollEvent(&event)) {}
IEVAL(rself,"@clock.delay 20");
}
void FormatSDL::resize_window (int sx, int sy) {
dim = new Dim(sy,sx,3);
screen = SDL_SetVideoMode(sx,sy,0,SDL_SWSURFACE);
if (!screen)
RAISE("Can't switch to (%d,%d,%dbpp): %s", sy,sx,24, SDL_GetError());
}
GRID_INLET(FormatSDL,0) {
if (in->dim->n != 3)
RAISE("expecting 3 dimensions: rows,columns,channels");
if (in->dim->get(2) != 3)
RAISE("expecting 3 channels: red,green,blue (got %d)",in->dim->get(2));
int sxc = in->dim->prod(1);
int sx = in->dim->get(1), osx = dim->get(1);
int sy = in->dim->get(0), osy = dim->get(0);
in->set_factor(sxc);
if (sx!=osx || sy!=osy) resize_window(sx,sy);
} GRID_FLOW {
int bypl = screen->pitch;
int sxc = in->dim->prod(1);
int sx = in->dim->get(1);
int y = in->dex / sxc;
assert((in->dex % sxc) == 0);
assert((n % sxc) == 0);
if (SDL_MUSTLOCK(screen)) if (SDL_LockSurface(screen) < 0) return; //???
for (; n>0; y++, data+=sxc, n-=sxc) {
/* convert line */
bit_packing->pack(sx, data, pixels()+y*bypl);
}
if (SDL_MUSTLOCK(screen)) SDL_UnlockSurface(screen);
} GRID_FINISH {
SDL_UpdateRect(screen,0,0,in->dim->get(1),in->dim->get(0));
} GRID_END
\def void close () {
IEVAL(rself,"@clock.unset");
in_use=false;
}
\def void initialize (Symbol mode) {
dim=0;screen=0;
rb_call_super(argc,argv);
if (in_use) RAISE("only one FormatSDL object at a time; sorry");
in_use=true;
if (SDL_Init(SDL_INIT_VIDEO)<0)
RAISE("SDL_Init() error: %s",SDL_GetError());
atexit(SDL_Quit);
resize_window(320,240);
SDL_PixelFormat *f = screen->format;
uint32 mask[3] = {f->Rmask,f->Gmask,f->Bmask};
switch (f->BytesPerPixel) {
case 1: RAISE("8 bpp not supported"); break;
case 2: case 3: case 4:
bit_packing = new BitPacking(is_le(),f->BytesPerPixel,3,mask);
break;
default: RAISE("%d bytes/pixel: how do I deal with that?",f->BytesPerPixel); break;
}
IEVAL(rself,"@clock = Clock.new self");
}
\classinfo {
IEVAL(rself,"install '#io:sdl',1,1;@flags=2;@comment='Simple Directmedia Layer'");
}
\end class FormatSDL
void startup_sdl () {
\startall
}
|
