- added TODO

[packages/tk.git] / tk-pil.patch

--- tk8.0-8.0.5.orig/generic/tkImgBmap.c	Mon Sep 14 13:23:12 1998
+++ tk8.0-8.0.5/generic/tkImgBmap.c	Fri Nov 27 17:07:29 1998
@@ -479,6 +479,21 @@
     char *data = NULL;
     Tcl_DString buffer;
 
+/* ==================================================================== */
+/* The pilbitmap booster patch -- patch section                         */
+/* ==================================================================== */
+
+    char *PILGetBitmapData();
+
+    if (string) {
+        /* Is this a PIL bitmap reference? */
+        data = PILGetBitmapData(string, widthPtr, heightPtr, hotXPtr, hotYPtr);
+        if (data)
+            return data;
+    }
+
+/* ==================================================================== */
+
     pi.string = string;
     if (string == NULL) {
         if ((interp != NULL) && Tcl_IsSafe(interp)) {
@@ -1066,3 +1081,95 @@
 	return buffer;
     }
 }
+
+/* ==================================================================== */
+/* The pilbitmap booster patch -- code section                          */
+/* ==================================================================== */
+
+/* Imaging declaration boldly copied from Imaging.h (!) */
+
+typedef struct ImagingInstance *Imaging; /* a.k.a. ImagingImage :-) */
+
+typedef unsigned char UINT8;
+/*typedef int INT32;*/
+
+struct ImagingInstance {
+
+    /* Format */
+    char mode[4+1];     /* Band names ("1", "L", "P", "RGB", "RGBA", "CMYK") */
+    int type;           /* Always 0 in this version */
+    int depth;          /* Always 8 in this version */
+    int bands;          /* Number of bands (1, 3, or 4) */
+    int xsize;          /* Image dimension. */
+    int ysize;
+
+    /* Colour palette (for "P" images only) */
+    void* palette;
+
+    /* Data pointers */
+    UINT8 **image8;     /* Set for 8-bit image (pixelsize=1). */
+    INT32 **image32;    /* Set for 32-bit image (pixelsize=4). */
+
+    /* Internals */
+    char **image;       /* Actual raster data. */
+    char *block;        /* Set if data is allocated in a single block. */
+
+    int pixelsize;      /* Size of a pixel, in bytes (1 or 4) */
+    int linesize;       /* Size of a line, in bytes (xsize * pixelsize) */
+
+    /* Virtual methods */
+    void (*im_delete)(Imaging *);
+
+};
+
+/* The pilbitmap booster patch allows you to pass PIL images to the
+   Tk bitmap decoder.  Passing images this way is much more efficient
+   than using the "tobitmap" method. */
+
+char *
+PILGetBitmapData(string, widthPtr, heightPtr, hotXPtr, hotYPtr)
+    char *string;
+    int *widthPtr, *heightPtr;
+    int *hotXPtr, *hotYPtr;
+{
+    char* data;
+    char* p;
+    int y;
+    Imaging im;
+
+    if (strncmp(string, "PIL:", 4) != 0)
+        return NULL;
+
+    im = (Imaging) atol(string + 4);
+
+    if (strcmp(im->mode, "1") != 0 && strcmp(im->mode, "L") != 0)
+        return NULL;
+
+    data = p = (char *) ckalloc((unsigned) ((im->xsize+7)/8) * im->ysize);
+
+    for (y = 0; y < im->ysize; y++) {
+        char* in = im->image8[y];
+        int i, m, b;
+        b = 0; m = 1;
+        for (i = 0; i < im->xsize; i++) {
+            if (in[i] != 0)
+                b |= m;
+            m <<= 1;
+            if (m == 256){
+                *p++ = b;
+                b = 0; m = 1;
+            }
+        }
+        if (m != 1)
+            *p++ = b;
+    }
+
+    *widthPtr = im->xsize;
+    *heightPtr = im->ysize;
+    *hotXPtr = -1;
+    *hotYPtr = -1;
+
+    return data;
+}
+
+/* ==================================================================== */