PeRColate

svn path=/trunk/Framestein/; revision=31

1 files changed, 178 insertions, 0 deletions

diff --git a/Plugins/eclipse02.c b/Plugins/eclipse02.c
new file mode 100644
index 0000000..d1d5301
--- /dev/null
+++ b/Plugins/eclipse02.c
@@ -0,0 +1,178 @@
+// 242.eclipse02 -- does meta-imaging on two input images.
+//		by r. luke dubois (luke@music.columbia.edu),
+//			computer music center, columbia university, 2001.
+//		grid quantization algorithm massively improved by jeremy bernstein, bootsquadresearch.
+//
+//  Pd / Framestein port by Olaf Matthes <olaf.matthes@gmx.de>, June 2002
+//
+//	objects and source are provided without warranty of any kind, express or implied.
+//
+//  usage: eclipse02 <red> <green> <blue> <rows> <columns>
+//
+
+#include <stdio.h>
+#include <string.h>
+#include "plugin.h"
+
+// the process image routines work like this:
+// 
+// two pointers (src and src2) access the pixels in the input image
+// src controls the output of the smaller grids, src2 controls the tinting from
+// the upper-left corner of the point in the image that the grid is supposed to represent.
+//
+// the grid dimensions are computed by the size of the input image and are used to define 
+// the size of each pixel in the grid (which is why some row and columns combinations
+// leave orphaned pixels on the edges).
+// the loop goes like this:
+//
+// do each row {
+//    do each column {
+//       get the 'tint pixel' for that frame;
+//
+//       do the height within each meta-frame {
+//          do the width within each meta-frame {
+//             output the pixels for each frame, tinting it;
+//          }
+//       }
+//    }
+// }
+//
+//
+
+void perform_effect(struct frame f, struct args a)  // color tints color
+{
+	printf("Using eclipse02 as effect does nothing!\n");
+}
+
+void perform_copy(struct frame f1, struct frame f2, struct args a)
+{
+	short i, i1, j, j1, r, c, src1[2], w, h;
+	short rows, columns, rowstep, colstep, rowoffset, coloffset;
+	byte red, green, blue, check, r1, g1, b1;
+	byte bits = f1.pixelformat/8;
+	byte redpix, greenpix, bluepix;	// the color values
+	pixel16 *pix2_16, *pix1_16;
+	pixel24 *pix2_24, *pix1_24;
+	pixel32 *pix2_32, *pix1_32;
+	char *t;
+
+	w = f1.width<f2.width ? f1.width : f2.width;
+	h = f1.height<f2.height ? f1.height : f2.height;
+
+	// get r g b and fuzzy params
+	if(!a.s) return;
+	red = atoi(a.s);
+	if(!(t = strstr(a.s, " "))) return;
+	green = atoi(t+1);
+	if(!(t = strstr(t+1, " "))) return;
+	blue = atoi(t+1);
+	if(!(t = strstr(t+1, " "))) return;
+	rows = atoi(t+1);
+	if(!(t = strstr(t+1, " "))) return;
+	columns = atoi(t+1);
+
+
+	rowstep = (h / rows) + .5;
+	colstep = (w / columns) + .5;
+	// printf("red is %ld green is %ld blue is %ld", red, green, blue);
+
+	if ( rows > (h * .1) )
+		rowoffset = rows - (h * .1);
+	else
+		rowoffset = 1;
+    
+	if ( columns > (w * .1) )
+		coloffset = columns - (w * .1);
+	else
+		coloffset = 1;
+        
+
+	for(r = 0; r <= ( rows + rowoffset ); r++ ) 
+	{
+		for(i = 0, i1 = ( r * rowstep ); i < h; i += rows, i1++) 
+		{
+			for( c = 0; c <= columns + coloffset; c++ ) 
+			{
+				switch(f1.pixelformat)
+				{
+					case 16:
+						src1[0] = c * colstep;
+						src1[1] = r * rowstep;
+						pix1_16 = scanline16(f1, src1[1]);
+						r1 = r16(pix1_16[src1[0]]);
+						g1 = g16(pix1_16[src1[0]]);
+						b1 = b16(pix1_16[src1[0]]);
+
+						for(j = 0, j1 = c * colstep; j < w; j += columns, j1++)
+						{
+							if ( j1 >= w )
+							goto dink;
+
+							if ( i1 >= h )
+							goto yoink;
+
+							pix2_16 = scanline16(f2, i1);
+							redpix = r16(pix2_16[j1]) + r1 + red;
+							greenpix = g16(pix2_16[j1]) + g1 + green;
+							bluepix = b16(pix2_16[j1]) + b1 + blue;
+
+							pix2_16[j1] = rgbtocolor16(redpix, greenpix, bluepix);
+						}
+						break;
+					case 24:
+						src1[0] = c * colstep;
+						src1[1] = r * rowstep;
+						pix1_24 = scanline24(f1, src1[1]);
+						r1 = r24(pix1_24[src1[0]]);
+						g1 = g24(pix1_24[src1[0]]);
+						b1 = b24(pix1_24[src1[0]]);
+
+						for(j = 0, j1 = c * colstep; j < w; j += columns, j1++)
+						{
+							if ( j1 >= w )
+							goto dink;
+
+							if ( i1 >= h )
+							goto yoink;
+
+							pix2_24 = scanline24(f2, i1);
+							redpix = r24(pix2_24[j1]) + r1 + red;
+							greenpix = g24(pix2_24[j1]) + g1 + green;
+							bluepix = b24(pix2_24[j1]) + b1 + blue;
+
+							pix2_24[j1] = rgbtocolor24(redpix, greenpix, bluepix);
+						}
+						break;
+					case 32:
+						src1[0] = c * colstep;
+						src1[1] = r * rowstep;
+						pix1_32 = scanline32(f1, src1[1]);
+						r1 = r32(pix1_32[src1[0]]);
+						g1 = g32(pix1_32[src1[0]]);
+						b1 = b32(pix1_32[src1[0]]);
+
+						for(j = 0, j1 = c * colstep; j < w; j += columns, j1++)
+						{
+							if ( j1 >= w )
+							goto dink;
+
+							if ( i1 >= h )
+							goto yoink;
+
+							pix2_32 = scanline32(f2, i1);
+							redpix = r32(pix2_32[j1]) + r1 + red;
+							greenpix = g32(pix2_32[j1]) + g1 + green;
+							bluepix = b32(pix2_32[j1]) + b1 + blue;
+
+							pix2_32[j1] = rgbtocolor32(redpix, greenpix, bluepix);
+						}
+						break;
+				}
+			}
+			dink:
+			;
+		}
+	}
+ 	yoink:
+ 	;
+}