alphatau 0.1.0

data/ext/alphatau/native/sdl/src/video/SDL_rect_c.h

@@ -0,0 +1,25 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../SDL_internal.h"
+
+extern SDL_bool SDL_GetSpanEnclosingRect(int width, int height, int numrects, const SDL_Rect * rects, SDL_Rect *span);
+
+/* vi: set ts=4 sw=4 expandtab: */

data/ext/alphatau/native/sdl/src/video/SDL_shape.c

@@ -0,0 +1,309 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../SDL_internal.h"
+
+#include "SDL.h"
+#include "SDL_assert.h"
+#include "SDL_video.h"
+#include "SDL_sysvideo.h"
+#include "SDL_pixels.h"
+#include "SDL_surface.h"
+#include "SDL_shape.h"
+#include "SDL_shape_internals.h"
+
+SDL_Window*
+SDL_CreateShapedWindow(const char *title,unsigned int x,unsigned int y,unsigned int w,unsigned int h,Uint32 flags)
+{
+    SDL_Window *result = NULL;
+    result = SDL_CreateWindow(title,-1000,-1000,w,h,(flags | SDL_WINDOW_BORDERLESS) & (~SDL_WINDOW_FULLSCREEN) & (~SDL_WINDOW_RESIZABLE) /* & (~SDL_WINDOW_SHOWN) */);
+    if(result != NULL) {
+        if (SDL_GetVideoDevice()->shape_driver.CreateShaper == NULL) {
+            SDL_DestroyWindow(result);
+            return NULL;
+        }
+        result->shaper = SDL_GetVideoDevice()->shape_driver.CreateShaper(result);
+        if(result->shaper != NULL) {
+            result->shaper->userx = x;
+            result->shaper->usery = y;
+            result->shaper->mode.mode = ShapeModeDefault;
+            result->shaper->mode.parameters.binarizationCutoff = 1;
+            result->shaper->hasshape = SDL_FALSE;
+            return result;
+        }
+        else {
+            SDL_DestroyWindow(result);
+            return NULL;
+        }
+    }
+    else
+        return NULL;
+}
+
+SDL_bool
+SDL_IsShapedWindow(const SDL_Window *window)
+{
+    if(window == NULL)
+        return SDL_FALSE;
+    else
+        return (SDL_bool)(window->shaper != NULL);
+}
+
+/* REQUIRES that bitmap point to a w-by-h bitmap with ppb pixels-per-byte. */
+void
+SDL_CalculateShapeBitmap(SDL_WindowShapeMode mode,SDL_Surface *shape,Uint8* bitmap,Uint8 ppb)
+{
+    int x = 0;
+    int y = 0;
+    Uint8 r = 0,g = 0,b = 0,alpha = 0;
+    Uint8* pixel = NULL;
+    Uint32 pixel_value = 0,mask_value = 0;
+    int bytes_per_scanline = (shape->w + (ppb - 1)) / ppb;
+    Uint8 *bitmap_scanline;
+    SDL_Color key;
+    if(SDL_MUSTLOCK(shape))
+        SDL_LockSurface(shape);
+    for(y = 0;y<shape->h;y++) {
+        bitmap_scanline = bitmap + y * bytes_per_scanline;
+        for(x=0;x<shape->w;x++) {
+            alpha = 0;
+            pixel_value = 0;
+            pixel = (Uint8 *)(shape->pixels) + (y*shape->pitch) + (x*shape->format->BytesPerPixel);
+            switch(shape->format->BytesPerPixel) {
+                case(1):
+                    pixel_value = *(Uint8*)pixel;
+                    break;
+                case(2):
+                    pixel_value = *(Uint16*)pixel;
+                    break;
+                case(3):
+                    pixel_value = *(Uint32*)pixel & (~shape->format->Amask);
+                    break;
+                case(4):
+                    pixel_value = *(Uint32*)pixel;
+                    break;
+            }
+            SDL_GetRGBA(pixel_value,shape->format,&r,&g,&b,&alpha);
+            switch(mode.mode) {
+                case(ShapeModeDefault):
+                    mask_value = (alpha >= 1 ? 1 : 0);
+                    break;
+                case(ShapeModeBinarizeAlpha):
+                    mask_value = (alpha >= mode.parameters.binarizationCutoff ? 1 : 0);
+                    break;
+                case(ShapeModeReverseBinarizeAlpha):
+                    mask_value = (alpha <= mode.parameters.binarizationCutoff ? 1 : 0);
+                    break;
+                case(ShapeModeColorKey):
+                    key = mode.parameters.colorKey;
+                    mask_value = ((key.r != r || key.g != g || key.b != b) ? 1 : 0);
+                    break;
+            }
+            bitmap_scanline[x / ppb] |= mask_value << (x % ppb);
+        }
+    }
+    if(SDL_MUSTLOCK(shape))
+        SDL_UnlockSurface(shape);
+}
+
+static SDL_ShapeTree*
+RecursivelyCalculateShapeTree(SDL_WindowShapeMode mode,SDL_Surface* mask,SDL_Rect dimensions) {
+    int x = 0,y = 0;
+    Uint8* pixel = NULL;
+    Uint32 pixel_value = 0;
+    Uint8 r = 0,g = 0,b = 0,a = 0;
+    SDL_bool pixel_opaque = SDL_FALSE;
+    int last_opaque = -1;
+    SDL_Color key;
+    SDL_ShapeTree* result = (SDL_ShapeTree*)SDL_malloc(sizeof(SDL_ShapeTree));
+    SDL_Rect next = {0,0,0,0};
+
+    for(y=dimensions.y;y<dimensions.y + dimensions.h;y++) {
+        for(x=dimensions.x;x<dimensions.x + dimensions.w;x++) {
+            pixel_value = 0;
+            pixel = (Uint8 *)(mask->pixels) + (y*mask->pitch) + (x*mask->format->BytesPerPixel);
+            switch(mask->format->BytesPerPixel) {
+                case(1):
+                    pixel_value = *(Uint8*)pixel;
+                    break;
+                case(2):
+                    pixel_value = *(Uint16*)pixel;
+                    break;
+                case(3):
+                    pixel_value = *(Uint32*)pixel & (~mask->format->Amask);
+                    break;
+                case(4):
+                    pixel_value = *(Uint32*)pixel;
+                    break;
+            }
+            SDL_GetRGBA(pixel_value,mask->format,&r,&g,&b,&a);
+            switch(mode.mode) {
+                case(ShapeModeDefault):
+                    pixel_opaque = (a >= 1 ? SDL_TRUE : SDL_FALSE);
+                    break;
+                case(ShapeModeBinarizeAlpha):
+                    pixel_opaque = (a >= mode.parameters.binarizationCutoff ? SDL_TRUE : SDL_FALSE);
+                    break;
+                case(ShapeModeReverseBinarizeAlpha):
+                    pixel_opaque = (a <= mode.parameters.binarizationCutoff ? SDL_TRUE : SDL_FALSE);
+                    break;
+                case(ShapeModeColorKey):
+                    key = mode.parameters.colorKey;
+                    pixel_opaque = ((key.r != r || key.g != g || key.b != b) ? SDL_TRUE : SDL_FALSE);
+                    break;
+            }
+            if(last_opaque == -1)
+                last_opaque = pixel_opaque;
+            if(last_opaque != pixel_opaque) {
+                const int halfwidth = dimensions.w / 2;
+                const int halfheight = dimensions.h / 2;
+
+                result->kind = QuadShape;
+
+                next.x = dimensions.x;
+                next.y = dimensions.y;
+                next.w = halfwidth;
+                next.h = halfheight;
+                result->data.children.upleft = (struct SDL_ShapeTree *)RecursivelyCalculateShapeTree(mode,mask,next);
+
+                next.x = dimensions.x + halfwidth;
+                next.w = dimensions.w - halfwidth;
+                result->data.children.upright = (struct SDL_ShapeTree *)RecursivelyCalculateShapeTree(mode,mask,next);
+
+                next.x = dimensions.x;
+                next.w = halfwidth;
+                next.y = dimensions.y + halfheight;
+                next.h = dimensions.h - halfheight;
+                result->data.children.downleft = (struct SDL_ShapeTree *)RecursivelyCalculateShapeTree(mode,mask,next);
+
+                next.x = dimensions.x + halfwidth;
+                next.w = dimensions.w - halfwidth;
+                result->data.children.downright = (struct SDL_ShapeTree *)RecursivelyCalculateShapeTree(mode,mask,next);
+
+                return result;
+            }
+        }
+    }
+
+
+    /* If we never recursed, all the pixels in this quadrant have the same "value". */
+    result->kind = (last_opaque == SDL_TRUE ? OpaqueShape : TransparentShape);
+    result->data.shape = dimensions;
+    return result;
+}
+
+SDL_ShapeTree*
+SDL_CalculateShapeTree(SDL_WindowShapeMode mode,SDL_Surface* shape)
+{
+    SDL_Rect dimensions;
+    SDL_ShapeTree* result = NULL;
+
+    dimensions.x = 0;
+    dimensions.y = 0;
+    dimensions.w = shape->w;
+    dimensions.h = shape->h;
+
+    if(SDL_MUSTLOCK(shape))
+        SDL_LockSurface(shape);
+    result = RecursivelyCalculateShapeTree(mode,shape,dimensions);
+    if(SDL_MUSTLOCK(shape))
+        SDL_UnlockSurface(shape);
+    return result;
+}
+
+void
+SDL_TraverseShapeTree(SDL_ShapeTree *tree,SDL_TraversalFunction function,void* closure)
+{
+    SDL_assert(tree != NULL);
+    if(tree->kind == QuadShape) {
+        SDL_TraverseShapeTree((SDL_ShapeTree *)tree->data.children.upleft,function,closure);
+        SDL_TraverseShapeTree((SDL_ShapeTree *)tree->data.children.upright,function,closure);
+        SDL_TraverseShapeTree((SDL_ShapeTree *)tree->data.children.downleft,function,closure);
+        SDL_TraverseShapeTree((SDL_ShapeTree *)tree->data.children.downright,function,closure);
+    }
+    else
+        function(tree,closure);
+}
+
+void
+SDL_FreeShapeTree(SDL_ShapeTree** shape_tree)
+{
+    if((*shape_tree)->kind == QuadShape) {
+        SDL_FreeShapeTree((SDL_ShapeTree **)(char*)&(*shape_tree)->data.children.upleft);
+        SDL_FreeShapeTree((SDL_ShapeTree **)(char*)&(*shape_tree)->data.children.upright);
+        SDL_FreeShapeTree((SDL_ShapeTree **)(char*)&(*shape_tree)->data.children.downleft);
+        SDL_FreeShapeTree((SDL_ShapeTree **)(char*)&(*shape_tree)->data.children.downright);
+    }
+    SDL_free(*shape_tree);
+    *shape_tree = NULL;
+}
+
+int
+SDL_SetWindowShape(SDL_Window *window,SDL_Surface *shape,SDL_WindowShapeMode *shape_mode)
+{
+    int result;
+    if(window == NULL || !SDL_IsShapedWindow(window))
+        /* The window given was not a shapeable window. */
+        return SDL_NONSHAPEABLE_WINDOW;
+    if(shape == NULL)
+        /* Invalid shape argument. */
+        return SDL_INVALID_SHAPE_ARGUMENT;
+
+    if(shape_mode != NULL)
+        window->shaper->mode = *shape_mode;
+    result = SDL_GetVideoDevice()->shape_driver.SetWindowShape(window->shaper,shape,shape_mode);
+    window->shaper->hasshape = SDL_TRUE;
+    if(window->shaper->userx != 0 && window->shaper->usery != 0) {
+        SDL_SetWindowPosition(window,window->shaper->userx,window->shaper->usery);
+        window->shaper->userx = 0;
+        window->shaper->usery = 0;
+    }
+    return result;
+}
+
+static SDL_bool
+SDL_WindowHasAShape(SDL_Window *window)
+{
+    if (window == NULL || !SDL_IsShapedWindow(window))
+        return SDL_FALSE;
+    return window->shaper->hasshape;
+}
+
+int
+SDL_GetShapedWindowMode(SDL_Window *window,SDL_WindowShapeMode *shape_mode)
+{
+    if(window != NULL && SDL_IsShapedWindow(window)) {
+        if(shape_mode == NULL) {
+            if(SDL_WindowHasAShape(window))
+                /* The window given has a shape. */
+                return 0;
+            else
+                /* The window given is shapeable but lacks a shape. */
+                return SDL_WINDOW_LACKS_SHAPE;
+        }
+        else {
+            *shape_mode = window->shaper->mode;
+            return 0;
+        }
+    }
+    else
+        /* The window given is not a valid shapeable window. */
+        return SDL_NONSHAPEABLE_WINDOW;
+}

data/ext/alphatau/native/sdl/src/video/SDL_shape_internals.h

@@ -0,0 +1,69 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../SDL_internal.h"
+
+#ifndef SDL_shape_internals_h_
+#define SDL_shape_internals_h_
+
+#include "SDL_rect.h"
+#include "SDL_shape.h"
+#include "SDL_surface.h"
+
+#include "begin_code.h"
+/* Set up for C function definitions, even when using C++ */
+#ifdef __cplusplus
+/* *INDENT-OFF* */
+extern "C" {
+/* *INDENT-ON* */
+#endif
+
+typedef struct {
+	struct SDL_ShapeTree *upleft,*upright,*downleft,*downright;
+} SDL_QuadTreeChildren;
+
+typedef union {
+	SDL_QuadTreeChildren children;
+	SDL_Rect shape;
+} SDL_ShapeUnion;
+
+typedef enum { QuadShape,TransparentShape,OpaqueShape } SDL_ShapeKind;
+
+typedef struct {
+	SDL_ShapeKind kind;
+	SDL_ShapeUnion data;
+} SDL_ShapeTree;
+	
+typedef void(*SDL_TraversalFunction)(SDL_ShapeTree*,void*);
+
+extern void SDL_CalculateShapeBitmap(SDL_WindowShapeMode mode,SDL_Surface *shape,Uint8* bitmap,Uint8 ppb);
+extern SDL_ShapeTree* SDL_CalculateShapeTree(SDL_WindowShapeMode mode,SDL_Surface* shape);
+extern void SDL_TraverseShapeTree(SDL_ShapeTree *tree,SDL_TraversalFunction function,void* closure);
+extern void SDL_FreeShapeTree(SDL_ShapeTree** shape_tree);
+
+/* Ends C function definitions when using C++ */
+#ifdef __cplusplus
+/* *INDENT-OFF* */
+}
+/* *INDENT-ON* */
+#endif
+#include "close_code.h"
+
+#endif

data/ext/alphatau/native/sdl/src/video/SDL_stretch.c

@@ -0,0 +1,353 @@
+/*
+  Simple DirectMedia Layer
+  Copyright (C) 1997-2018 Sam Lantinga <slouken@libsdl.org>
+
+  This software is provided 'as-is', without any express or implied
+  warranty.  In no event will the authors be held liable for any damages
+  arising from the use of this software.
+
+  Permission is granted to anyone to use this software for any purpose,
+  including commercial applications, and to alter it and redistribute it
+  freely, subject to the following restrictions:
+
+  1. The origin of this software must not be misrepresented; you must not
+     claim that you wrote the original software. If you use this software
+     in a product, an acknowledgment in the product documentation would be
+     appreciated but is not required.
+  2. Altered source versions must be plainly marked as such, and must not be
+     misrepresented as being the original software.
+  3. This notice may not be removed or altered from any source distribution.
+*/
+#include "../SDL_internal.h"
+
+/* This a stretch blit implementation based on ideas given to me by
+   Tomasz Cejner - thanks! :)
+
+   April 27, 2000 - Sam Lantinga
+*/
+
+#include "SDL_video.h"
+#include "SDL_blit.h"
+
+/* This isn't ready for general consumption yet - it should be folded
+   into the general blitting mechanism.
+*/
+
+#if ((defined(_MSC_VER) && defined(_M_IX86))    || \
+     (defined(__WATCOMC__) && defined(__386__)) || \
+     (defined(__GNUC__) && defined(__i386__))) && SDL_ASSEMBLY_ROUTINES
+/* There's a bug with gcc 4.4.1 and -O2 where srcp doesn't get the correct
+ * value after the first scanline.  FIXME? */
+/* #define USE_ASM_STRETCH */
+#endif
+
+#ifdef USE_ASM_STRETCH
+
+#ifdef HAVE_MPROTECT
+#include <sys/types.h>
+#include <sys/mman.h>
+#endif
+#ifdef __GNUC__
+#define PAGE_ALIGNED __attribute__((__aligned__(4096)))
+#else
+#define PAGE_ALIGNED
+#endif
+
+#if defined(_M_IX86) || defined(__i386__) || defined(__386__)
+#define PREFIX16    0x66
+#define STORE_BYTE  0xAA
+#define STORE_WORD  0xAB
+#define LOAD_BYTE   0xAC
+#define LOAD_WORD   0xAD
+#define RETURN      0xC3
+#else
+#error Need assembly opcodes for this architecture
+#endif
+
+static unsigned char copy_row[4096] PAGE_ALIGNED;
+
+static int
+generate_rowbytes(int src_w, int dst_w, int bpp)
+{
+    static struct
+    {
+        int bpp;
+        int src_w;
+        int dst_w;
+        int status;
+    } last;
+
+    int i;
+    int pos, inc;
+    unsigned char *eip, *fence;
+    unsigned char load, store;
+
+    /* See if we need to regenerate the copy buffer */
+    if ((src_w == last.src_w) && (dst_w == last.dst_w) && (bpp == last.bpp)) {
+        return (last.status);
+    }
+    last.bpp = bpp;
+    last.src_w = src_w;
+    last.dst_w = dst_w;
+    last.status = -1;
+
+    switch (bpp) {
+    case 1:
+        load = LOAD_BYTE;
+        store = STORE_BYTE;
+        break;
+    case 2:
+    case 4:
+        load = LOAD_WORD;
+        store = STORE_WORD;
+        break;
+    default:
+        return SDL_SetError("ASM stretch of %d bytes isn't supported", bpp);
+    }
+#ifdef HAVE_MPROTECT
+    /* Make the code writeable */
+    if (mprotect(copy_row, sizeof(copy_row), PROT_READ | PROT_WRITE) < 0) {
+        return SDL_SetError("Couldn't make copy buffer writeable");
+    }
+#endif
+    pos = 0x10000;
+    inc = (src_w << 16) / dst_w;
+    eip = copy_row;
+    fence = copy_row + sizeof(copy_row)-2;
+    for (i = 0; i < dst_w; ++i) {
+        while (pos >= 0x10000L) {
+            if (eip == fence) {
+                return -1;
+            }
+            if (bpp == 2) {
+                *eip++ = PREFIX16;
+            }
+            *eip++ = load;
+            pos -= 0x10000L;
+        }
+        if (eip == fence) {
+            return -1;
+        }
+        if (bpp == 2) {
+            *eip++ = PREFIX16;
+        }
+        *eip++ = store;
+        pos += inc;
+    }
+    *eip++ = RETURN;
+
+#ifdef HAVE_MPROTECT
+    /* Make the code executable but not writeable */
+    if (mprotect(copy_row, sizeof(copy_row), PROT_READ | PROT_EXEC) < 0) {
+        return SDL_SetError("Couldn't make copy buffer executable");
+    }
+#endif
+    last.status = 0;
+    return (0);
+}
+
+#endif /* USE_ASM_STRETCH */
+
+#define DEFINE_COPY_ROW(name, type)         \
+static void name(type *src, int src_w, type *dst, int dst_w)    \
+{                                           \
+    int i;                                  \
+    int pos, inc;                           \
+    type pixel = 0;                         \
+                                            \
+    pos = 0x10000;                          \
+    inc = (src_w << 16) / dst_w;            \
+    for ( i=dst_w; i>0; --i ) {             \
+        while ( pos >= 0x10000L ) {         \
+            pixel = *src++;                 \
+            pos -= 0x10000L;                \
+        }                                   \
+        *dst++ = pixel;                     \
+        pos += inc;                         \
+    }                                       \
+}
+/* *INDENT-OFF* */
+DEFINE_COPY_ROW(copy_row1, Uint8)
+DEFINE_COPY_ROW(copy_row2, Uint16)
+DEFINE_COPY_ROW(copy_row4, Uint32)
+/* *INDENT-ON* */
+
+/* The ASM code doesn't handle 24-bpp stretch blits */
+static void
+copy_row3(Uint8 * src, int src_w, Uint8 * dst, int dst_w)
+{
+    int i;
+    int pos, inc;
+    Uint8 pixel[3] = { 0, 0, 0 };
+
+    pos = 0x10000;
+    inc = (src_w << 16) / dst_w;
+    for (i = dst_w; i > 0; --i) {
+        while (pos >= 0x10000L) {
+            pixel[0] = *src++;
+            pixel[1] = *src++;
+            pixel[2] = *src++;
+            pos -= 0x10000L;
+        }
+        *dst++ = pixel[0];
+        *dst++ = pixel[1];
+        *dst++ = pixel[2];
+        pos += inc;
+    }
+}
+
+/* Perform a stretch blit between two surfaces of the same format.
+   NOTE:  This function is not safe to call from multiple threads!
+*/
+int
+SDL_SoftStretch(SDL_Surface * src, const SDL_Rect * srcrect,
+                SDL_Surface * dst, const SDL_Rect * dstrect)
+{
+    int src_locked;
+    int dst_locked;
+    int pos, inc;
+    int dst_maxrow;
+    int src_row, dst_row;
+    Uint8 *srcp = NULL;
+    Uint8 *dstp;
+    SDL_Rect full_src;
+    SDL_Rect full_dst;
+#ifdef USE_ASM_STRETCH
+    SDL_bool use_asm = SDL_TRUE;
+#ifdef __GNUC__
+    int u1, u2;
+#endif
+#endif /* USE_ASM_STRETCH */
+    const int bpp = dst->format->BytesPerPixel;
+
+    if (src->format->format != dst->format->format) {
+        return SDL_SetError("Only works with same format surfaces");
+    }
+
+    /* Verify the blit rectangles */
+    if (srcrect) {
+        if ((srcrect->x < 0) || (srcrect->y < 0) ||
+            ((srcrect->x + srcrect->w) > src->w) ||
+            ((srcrect->y + srcrect->h) > src->h)) {
+            return SDL_SetError("Invalid source blit rectangle");
+        }
+    } else {
+        full_src.x = 0;
+        full_src.y = 0;
+        full_src.w = src->w;
+        full_src.h = src->h;
+        srcrect = &full_src;
+    }
+    if (dstrect) {
+        if ((dstrect->x < 0) || (dstrect->y < 0) ||
+            ((dstrect->x + dstrect->w) > dst->w) ||
+            ((dstrect->y + dstrect->h) > dst->h)) {
+            return SDL_SetError("Invalid destination blit rectangle");
+        }
+    } else {
+        full_dst.x = 0;
+        full_dst.y = 0;
+        full_dst.w = dst->w;
+        full_dst.h = dst->h;
+        dstrect = &full_dst;
+    }
+
+    /* Lock the destination if it's in hardware */
+    dst_locked = 0;
+    if (SDL_MUSTLOCK(dst)) {
+        if (SDL_LockSurface(dst) < 0) {
+            return SDL_SetError("Unable to lock destination surface");
+        }
+        dst_locked = 1;
+    }
+    /* Lock the source if it's in hardware */
+    src_locked = 0;
+    if (SDL_MUSTLOCK(src)) {
+        if (SDL_LockSurface(src) < 0) {
+            if (dst_locked) {
+                SDL_UnlockSurface(dst);
+            }
+            return SDL_SetError("Unable to lock source surface");
+        }
+        src_locked = 1;
+    }
+
+    /* Set up the data... */
+    pos = 0x10000;
+    inc = (srcrect->h << 16) / dstrect->h;
+    src_row = srcrect->y;
+    dst_row = dstrect->y;
+
+#ifdef USE_ASM_STRETCH
+    /* Write the opcodes for this stretch */
+    if ((bpp == 3) || (generate_rowbytes(srcrect->w, dstrect->w, bpp) < 0)) {
+        use_asm = SDL_FALSE;
+    }
+#endif
+
+    /* Perform the stretch blit */
+    for (dst_maxrow = dst_row + dstrect->h; dst_row < dst_maxrow; ++dst_row) {
+        dstp = (Uint8 *) dst->pixels + (dst_row * dst->pitch)
+            + (dstrect->x * bpp);
+        while (pos >= 0x10000L) {
+            srcp = (Uint8 *) src->pixels + (src_row * src->pitch)
+                + (srcrect->x * bpp);
+            ++src_row;
+            pos -= 0x10000L;
+        }
+#ifdef USE_ASM_STRETCH
+        if (use_asm) {
+#ifdef __GNUC__
+            __asm__ __volatile__("call *%4":"=&D"(u1), "=&S"(u2)
+                                 :"0"(dstp), "1"(srcp), "r"(copy_row)
+                                 :"memory");
+#elif defined(_MSC_VER) || defined(__WATCOMC__)
+            /* *INDENT-OFF* */
+            {
+                void *code = copy_row;
+                __asm {
+                    push edi
+                    push esi
+                    mov edi, dstp
+                    mov esi, srcp
+                    call dword ptr code
+                    pop esi
+                    pop edi
+                }
+            }
+            /* *INDENT-ON* */
+#else
+#error Need inline assembly for this compiler
+#endif
+        } else
+#endif
+            switch (bpp) {
+            case 1:
+                copy_row1(srcp, srcrect->w, dstp, dstrect->w);
+                break;
+            case 2:
+                copy_row2((Uint16 *) srcp, srcrect->w,
+                          (Uint16 *) dstp, dstrect->w);
+                break;
+            case 3:
+                copy_row3(srcp, srcrect->w, dstp, dstrect->w);
+                break;
+            case 4:
+                copy_row4((Uint32 *) srcp, srcrect->w,
+                          (Uint32 *) dstp, dstrect->w);
+                break;
+            }
+        pos += inc;
+    }
+
+    /* We need to unlock the surfaces if they're locked */
+    if (dst_locked) {
+        SDL_UnlockSurface(dst);
+    }
+    if (src_locked) {
+        SDL_UnlockSurface(src);
+    }
+    return (0);
+}
+
+/* vi: set ts=4 sw=4 expandtab: */