3 files changed, 292 insertions, 0 deletions
diff --git a/externals/gridflow/doc/images/crop_icons b/externals/gridflow/doc/images/crop_icons
new file mode 100644
index 00000000..4aa06499
--- /dev/null
+++ b/externals/gridflow/doc/images/crop_icons
@@ -0,0 +1,12 @@
+if [ "z$1" = "zall" ]; then
+  foo="\@*.png format*.png"
+else
+  foo="$1"
+fi
+
+for z in $foo; do \
+	echo $z
+	pngtopnm $z | pnmcrop | pnmtopng -background black -transparent =red -compress 9 > $z.new
+	mv $z.new $z
+done
+
diff --git a/externals/gridflow/format/quartz.m b/externals/gridflow/format/quartz.m
new file mode 100644
index 00000000..d7f2863a
--- /dev/null
+++ b/externals/gridflow/format/quartz.m
@@ -0,0 +1,241 @@
+/*
+	$Id: quartz.m,v 1.1 2005-10-04 02:15:31 matju Exp $
+
+	GridFlow
+	Copyright (c) 2001,2002,2003 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.
+*/
+
+/*
+	This is written in Objective C++, which is the union of C++ and Objective C;
+	Their intersection is C or almost. They add quite different sets of features.
+	I need Objective C here because the Cocoa API is for Objective C and Java only,
+	and the Objective C one was the easiest to integrate in GridFlow.
+
+	The next best possibility may be using RubyCocoa, a port of the Cocoa API to Ruby;
+	However I haven't checked whether Quartz is wrapped, and how easy it is to
+	process images.
+*/
+
+#include <stdio.h>
+#include <objc/Object.h>
+
+/* wrapping name conflict */
+#define T_DATA T_COCOA_DATA
+#include <Cocoa/Cocoa.h>
+#undef T_DATA
+
+#include "../base/grid.h.fcs"
+
+@interface GFView: NSView {
+	Pt<uint8> imdata;
+	int imwidth;
+	int imheight;
+}
+- (id) drawRect: (NSRect)rect;
+- (id) imageHeight: (int)w width: (int)h;
+- (uint8 *) imageData;
+- (int) imageDataSize;
+@end
+
+@implementation GFView
+
+- (uint8 *) imageData { return imdata; }
+- (int) imageDataSize { return imwidth*imheight*4; }
+
+- (id) imageHeight: (int)h width: (int)w {
+	if (imheight==h && imwidth==w) return self;
+	gfpost("new size: y=%d x=%d",h,w);
+	imheight=h;
+	imwidth=w;
+	if (imdata) delete imdata.p;
+	int size = [self imageDataSize];
+	imdata = ARRAY_NEW(uint8,size);
+	uint8 *p = imdata;
+	CLEAR(imdata,size);
+	NSSize s = {w,h};
+	[[self window] setContentSize: s];
+	return self;
+}
+
+- (id) initWithFrame: (NSRect)r {
+	[super initWithFrame: r];
+	imdata=Pt<uint8>(); imwidth=-1; imheight=-1;
+	[self imageHeight: 240 width: 320];
+	return self;
+}	
+
+- (id) drawRect: (NSRect)rect {
+	[super drawRect: rect];
+	if (![self lockFocusIfCanDraw]) return self;
+	CGContextRef g = (CGContextRef)
+		[[NSGraphicsContext graphicsContextWithWindow: [self window]]
+			graphicsPort];
+	CGColorSpaceRef cs = CGColorSpaceCreateDeviceRGB();
+	CGDataProviderRef dp = CGDataProviderCreateWithData(
+		NULL, imdata, imheight*imwidth*4, NULL);
+	CGImageRef image = CGImageCreate(imwidth, imheight, 8, 32, imwidth*4, 
+		cs, kCGImageAlphaFirst, dp, NULL, 0, kCGRenderingIntentDefault);
+	CGDataProviderRelease(dp);
+	CGColorSpaceRelease(cs);
+	CGRect rectangle = CGRectMake(0,0,imwidth,imheight);
+	CGContextDrawImage(g,rectangle,image);
+	CGImageRelease(image);
+	[self unlockFocus];
+	return self;
+}
+@end
+
+/* workaround: bus error in gcc */
+Pt<uint8> GFView_imageData(GFView *self) {
+	return Pt<uint8>([self imageData], [self imageDataSize]);
+}
+void GFView_imageHeight_width(GFView *self, int height, int width) {
+	[self imageHeight: height width: width];
+}
+
+void GFView_display(GFView *self) {
+	NSRect r = {{0,0},{self->imheight,self->imwidth}};
+	[self displayRect: r];
+	[self setNeedsDisplay: YES];
+	[self display];
+}
+
+\class FormatQuartz < Format
+struct FormatQuartz : Format {
+	NSWindow *window;
+	NSWindowController *wc;
+	GFView *widget; /* GridFlow's Cocoa widget */
+	NSDate *distantFuture;
+	\decl void initialize (Symbol mode);
+	\decl void delete_m ();
+	\decl void close ();
+	\decl void call ();
+	\grin 0
+};
+
+static NSDate *distantFuture, *distantPast;
+
+\def void call() {
+	NSEvent *e = [NSApp nextEventMatchingMask: NSAnyEventMask
+		// untilDate: distantFuture // blocking
+		untilDate: distantPast // nonblocking
+		inMode: NSDefaultRunLoopMode
+		dequeue: YES];
+	if (e) {
+		NSLog(@"%@", e);
+		[NSApp sendEvent: e];
+	}
+	[NSApp updateWindows];
+	[this->window flushWindowIfNeeded];
+	IEVAL(rself,"@clock.delay 20");
+}
+
+template <class T, class S>
+static void convert_number_type(int n, Pt<T> out, Pt<S> in) {
+	for (int i=0; i<n; i++) out[i]=(T)in[i];
+}
+
+GRID_INLET(FormatQuartz,0) {
+	if (in->dim->n!=3) RAISE("expecting 3 dims, not %d", in->dim->n);
+	int c=in->dim->get(2);
+	if (c!=3&&c!=4) RAISE("expecting 3 or 4 channels, not %d", in->dim->get(2));
+//	[widget imageHeight: in->dim->get(0) width: in->dim->get(1) ];
+	GFView_imageHeight_width(widget,in->dim->get(0),in->dim->get(1));
+	in->set_factor(in->dim->prod(1));
+} GRID_FLOW {
+	int off = in->dex/in->dim->prod(2);
+	int c=in->dim->get(2);
+	NSView *w = widget;
+	Pt<uint8> data2 = GFView_imageData(w)+off*4;
+//	convert_number_type(n,data2,data);
+	if (c==3) {
+		while(n) {
+			data2[0]=255;
+			data2[1]=data[0];
+			data2[2]=data[1];
+			data2[3]=data[2];
+			data+=3; data2+=4; n-=3;
+		}
+	} else {
+		while(n) {
+			data2[0]=255;
+			data2[1]=data[0];
+			data2[2]=data[1];
+			data2[3]=data[2];
+			data+=4; data2+=4; n-=4;
+		}
+	}
+} GRID_FINISH {
+	GFView_display(widget);
+} GRID_END
+
+\def void initialize (Symbol mode) {
+	rb_call_super(argc,argv);
+	NSRect r = {{0,0}, {320,240}};
+	window = [[NSWindow alloc]
+		initWithContentRect: r
+		styleMask: NSTitledWindowMask | NSMiniaturizableWindowMask | NSClosableWindowMask
+		backing: NSBackingStoreBuffered
+		defer: YES
+		];
+	widget = [[GFView alloc] initWithFrame: r];
+	[window setContentView: widget];
+	[window setTitle: @"GridFlow"];
+	[window makeKeyAndOrderFront: NSApp];
+	[window orderFrontRegardless];
+	wc = [[NSWindowController alloc]
+		initWithWindow: window];
+	IEVAL(rself,"@clock = Clock.new self");
+	[window makeFirstResponder: widget];
+	gfpost("mainWindow = %08lx",(long)[NSApp mainWindow]);
+	gfpost(" keyWindow = %08lx",(long)[NSApp keyWindow]);
+	NSColor *color = [NSColor clearColor];
+	[window setBackgroundColor: color];
+}
+
+\def void delete_m () {
+	[window autorelease];
+}
+
+\def void close () {
+	IEVAL(rself,"@clock.unset");
+	rb_call_super(argc,argv);
+	[window autorelease];
+	[window setReleasedWhenClosed: YES];
+	[window close];
+}
+
+\classinfo {
+	NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
+	distantFuture = [NSDate distantFuture];
+	distantPast = [NSDate distantPast];
+	[NSApplication sharedApplication];
+	IEVAL(rself,
+\ruby
+	install '#io:quartz',1,1
+	@comment = "Apple Quartz/Cocoa"
+	@flags = 2
+\end ruby
+);}
+
+\end class FormatQuartz
+void startup_quartz () {
+        \startall
+}
+
diff --git a/externals/gridflow/java/Makefile b/externals/gridflow/java/Makefile
new file mode 100644
index 00000000..867d2b78
--- /dev/null
+++ b/externals/gridflow/java/Makefile
@@ -0,0 +1,39 @@
+#!/usr/bin/make
+
+# JMAX = /opt/lib/jmax
+# JMAX = /usr/local/lib/jmax
+
+include ../config.make
+include ../bundled/jmax/Makefiles/Makefile.$(JMAX_ARCH)
+JMAX = $(prefix)/lib/jmax
+CLASSPATH=".:$(JMAX)/java/classes/jmax.jar:$(JMAX)/packages/guiobj/java/classes/guiobj.jar:$(JMAX)/java/lib/jacl/jacl.jar:$(JMAX)/java/lib/jacl/tcljava.jar"
+
+OBJS = \
+gridflow/FtsPeepholeObject.class \
+gridflow/Peephole.class \
+gridflow/PeepholeControlPanel.class \
+gridflow/GridFlowExtension.class \
+gridflow/PeepholeControlPanel\$1.class \
+gridflow/PathInfo.class
+
+SRC = \
+FtsPeepholeObject.java \
+Peephole.java \
+PeepholeControlPanel.java \
+GridFlowExtension.java \
+PathInfo.java
+
+# libPeephole.so
+
+JC = javac -classpath $(CLASSPATH) -O
+
+all: gridflow.jar
+
+clean::
+	rm -f $(OBJS) gridflow.jar PathInfo.java
+
+gridflow.jar: $(SRC)
+	mkdir gridflow || true
+	$(JC) -d . $(SRC)
+	/bin/rm -f gridflow.jar
+	jar -cvf gridflow.jar gridflow/*.class