1 files changed, 0 insertions, 123 deletions
diff --git a/externals/gridflow/format/sdl.c b/externals/gridflow/format/sdl.c
deleted file mode 100644
index 32ba64a5..00000000
--- a/externals/gridflow/format/sdl.c
+++ /dev/null
@@ -1,123 +0,0 @@
-/*
-	$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
-}