1 files changed, 565 insertions, 0 deletions

diff --git a/modules/mod_draw/mod_draw.c b/modules/mod_draw/mod_draw.c
new file mode 100644
index 0000000..3ddd3f9
--- /dev/null
+++ b/modules/mod_draw/mod_draw.c
@@ -0,0 +1,565 @@
+/*
+ *  Copyright © 2006-2016 SplinterGU (Fenix/Bennugd)
+ *  Copyright © 2002-2006 Fenix Team (Fenix)
+ *  Copyright © 1999-2002 José Luis Cebrián Pagüe (Fenix)
+ *
+ *  This file is part of Bennu - Game Development
+ *
+ *  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 <string.h>
+
+#include <math.h>
+#include <stdlib.h>
+
+#include "bgddl.h"
+#include "dlvaracc.h"
+
+#include "libgrbase.h"
+#include "libblit.h"
+#include "librender.h"
+#include "libdraw.h"
+
+/* --------------------------------------------------------------------------- */
+
+/* Dibujo de primitivas */
+#define DRAWOBJ_LINE        1
+#define DRAWOBJ_RECT        2
+#define DRAWOBJ_BOX         3
+#define DRAWOBJ_CIRCLE      4
+#define DRAWOBJ_FCIRCLE     5
+#define DRAWOBJ_CURVE       6
+
+typedef struct _drawing_object
+{
+    int type;
+    int x1;
+    int y1;
+    int x2;
+    int y2;
+    int x3;
+    int y3;
+    int x4;
+    int y4;
+    int level;
+
+    /* Private */
+    int color8;
+    int color16;
+    int color32;
+    int id;
+
+    struct _drawing_object * prev;
+    struct _drawing_object * next;
+}
+DRAWING_OBJECT;
+
+/* --------------------------------------------------------------------------- */
+
+static DRAWING_OBJECT * drawing_objects = NULL;
+
+static GRAPH * drawing_graph = NULL;
+static int drawing_z = -512 ;
+
+/* --------------------------------------------------------------------------- */
+
+/*
+ *  FUNCTION : _moddraw_object_info
+ *
+ *  Internal function used to return information about a primitive object
+ *
+ *  PARAMS :
+ *      dr          Drawing object
+ *      bbox        Pointer to a REGION to be filled with the bounding box
+ *
+ *  RETURN VALUE :
+ *      1 if the primitive changed since last frame
+ *
+ */
+
+static int _moddraw_object_info( DRAWING_OBJECT * dr, REGION * clip, int * z, int * drawme )
+{
+    REGION newclip;
+    int minx, miny, maxx, maxy;
+
+    * drawme = 1;
+
+    switch ( dr->type )
+    {
+        case DRAWOBJ_CIRCLE:
+        case DRAWOBJ_FCIRCLE:
+            newclip.x = dr->x1 - dr->x2;
+            newclip.y = dr->y1 - dr->x2;
+            newclip.x2 = dr->x1 + dr->x2;
+            newclip.y2 = dr->y1 + dr->x2;
+            break;
+
+        case DRAWOBJ_CURVE:
+            newclip.x = dr->x1;
+            newclip.y = dr->y1;
+            newclip.x2 = dr->x4;
+            newclip.y2 = dr->y4;
+            break;
+
+        default:
+            newclip.x = dr->x1;
+            newclip.y = dr->y1;
+            newclip.x2 = dr->x2;
+            newclip.y2 = dr->y2;
+            break;
+    }
+
+    minx = newclip.x;
+    miny = newclip.y;
+    maxx = newclip.x2;
+    maxy = newclip.y2;
+
+    if ( minx > maxx )
+    {
+        minx = newclip.x2;
+        maxx = newclip.x;
+    }
+
+    if ( miny > maxy )
+    {
+        miny = newclip.y2;
+        maxy = newclip.y;
+    }
+
+    newclip.x = minx;
+    newclip.y = miny;
+    newclip.x2 = maxx;
+    newclip.y2 = maxy;
+
+    if (
+        newclip.x != clip->x || newclip.y != clip->y ||
+        newclip.x2 != clip->x2 || newclip.y2 != clip->y2 )
+    {
+        * clip = newclip;
+        return 0;
+    }
+
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+/*
+ *  FUNCTION : _moddraw_object_draw
+ *
+ *  Internal function used to draw a primitive object
+ *
+ *  PARAMS :
+ *      dr          Drawing object
+ *
+ *  RETURN VALUE :
+ *      None
+ *
+ */
+
+static void _moddraw_object_draw( DRAWING_OBJECT * dr, REGION * clip )
+{
+    int b8 = pixel_color8;
+    int b16 = pixel_color16;
+    int b32 = pixel_color32;
+
+    pixel_color8 = dr->color8;
+    pixel_color16 = dr->color16;
+    pixel_color32 = dr->color32;
+
+    if ( pixel_alpha != 255 ) gr_setalpha( pixel_alpha );
+
+    switch ( dr->type )
+    {
+        case DRAWOBJ_LINE:
+            draw_line( scrbitmap, clip, dr->x1, dr->y1, dr->x2 - dr->x1, dr->y2 - dr->y1 );
+            break;
+
+        case DRAWOBJ_RECT:
+            draw_rectangle( scrbitmap, clip, dr->x1, dr->y1, dr->x2 - dr->x1, dr->y2 - dr->y1 ) ;
+            break;
+
+        case DRAWOBJ_BOX:
+            draw_box( scrbitmap, clip, dr->x1, dr->y1, dr->x2 - dr->x1, dr->y2 - dr->y1 ) ;
+            break;
+
+        case DRAWOBJ_CIRCLE:
+            draw_circle( scrbitmap, clip, dr->x1, dr->y1, dr->x2 );
+            break;
+
+        case DRAWOBJ_FCIRCLE:
+            draw_fcircle( scrbitmap, clip, dr->x1, dr->y1, dr->x2 );
+            break;
+
+        case DRAWOBJ_CURVE:
+            draw_bezier( scrbitmap, clip, dr->x1, dr->y1, dr->x2, dr->y2,  dr->x3,  dr->y3,  dr->x4,  dr->y4,  dr->level );
+            break;
+    }
+
+    pixel_color8 = b8;
+    pixel_color16 = b16;
+    pixel_color32 = b32;
+}
+
+/* --------------------------------------------------------------------------- */
+/*
+ *  FUNCTION : _moddraw_object_new
+ *
+ *  Create a new on-screen drawing object
+ *
+ *  PARAMS :
+ *      drawing         Object type and coordinates
+ *      z               Z Coordinate
+ *
+ *  RETURN VALUE :
+ *      An integer identifier, representing the new object, or -1 if error
+ *
+ */
+
+static int _moddraw_object_new( DRAWING_OBJECT * dr, int z )
+{
+    if ( !dr ) return -1;
+
+    /* Fill the struct and register the new object */
+
+    if ( drawing_objects ) drawing_objects->prev = dr ;
+
+    dr->prev = NULL;
+    dr->next = drawing_objects;
+    dr->color8 = pixel_color8;
+    dr->color16 = pixel_color16;
+    dr->color32 = pixel_color32;
+
+    dr->id = gr_new_object( z, _moddraw_object_info, _moddraw_object_draw, dr );
+
+    drawing_objects = dr;
+
+    return ( int ) dr;
+}
+
+/* --------------------------------------------------------------------------- */
+/*
+ *  FUNCTION : _moddraw_object_destroy
+ *
+ *  Destroy a new on-screen drawing object
+ *
+ *  PARAMS :
+ *      id              Object id returned by _moddraw_object_new
+ *                      or 0 to destroy every object
+ *
+ *  RETURN VALUE :
+ *      None
+ *
+ */
+
+static void _moddraw_object_destroy( int id )
+{
+    DRAWING_OBJECT * dr = ( DRAWING_OBJECT * ) id, * next;
+    int destroyall = 0;
+
+    if ( !dr )
+    {
+        dr = drawing_objects;
+        destroyall = 1;
+    }
+
+    while ( dr )
+    {
+        next = dr->next;
+
+        if ( dr->next ) dr->next->prev = dr->prev;
+        if ( dr->prev ) dr->prev->next = dr->next;
+
+        gr_destroy_object( dr->id );
+
+        if ( drawing_objects == dr ) drawing_objects = dr->next;
+
+        free( dr );
+
+        if ( !destroyall ) break;
+
+        dr = next;
+    }
+}
+
+/* --------------------------------------------------------------------------- */
+/*
+ *  FUNCTION : _moddraw_object_move
+ *
+ *  Move an on-screen drawing object to a new coordinates,
+ *  relative to the first point in the primitive
+ *
+ *  PARAMS :
+ *      id              Object id returned by _moddraw_object_new
+ *      x, y            New coordinates
+ *
+ *  RETURN VALUE :
+ *      None
+ *
+ */
+
+static void _moddraw_object_move( int id, int x, int y )
+{
+    DRAWING_OBJECT * dr = ( DRAWING_OBJECT * ) id;
+
+    if ( dr )
+    {
+        int incx = x - dr->x1;
+        int incy = y - dr->y1;
+
+        dr->x1 += incx;
+        dr->y1 += incy;
+
+        if ( dr->type == DRAWOBJ_CIRCLE || dr->type == DRAWOBJ_FCIRCLE ) return ;
+
+        dr->x2 += incx;
+        dr->y2 += incy;
+        dr->x3 += incx;
+        dr->y3 += incy;
+        dr->x4 += incx;
+        dr->y4 += incy;
+    }
+}
+
+/* --------------------------------------------------------------------------- */
+/* Exportable functions                                                        */
+
+static int moddraw_drawing_map( INSTANCE * my, int * params )
+{
+    drawing_graph = bitmap_get( params[ 0 ], params[ 1 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_drawing_at( INSTANCE * my, int * params )
+{
+    drawing_graph = NULL;
+    drawing_z = params[ 0 ];
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_drawing_stipple( INSTANCE * my, int * params )
+{
+    drawing_stipple = params[ 0 ];
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_delete_drawing( INSTANCE * my, int * params )
+{
+    _moddraw_object_destroy( params[ 0 ] );
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_move_drawing( INSTANCE * my, int * params )
+{
+    _moddraw_object_move( params[ 0 ], params[ 1 ], params[ 2 ] );
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_drawing_color( INSTANCE * my, int * params )
+{
+    gr_setcolor( params[ 0 ] );
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_drawing_alpha( INSTANCE * my, int * params )
+{
+    gr_setalpha( params[ 0 ] );
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_box( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_BOX;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        dr->y2 = params[ 3 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_box( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ] - params[ 0 ], params[ 3 ] - params[ 1 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_rect( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_RECT;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        dr->y2 = params[ 3 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_rectangle( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ] - params[ 0 ], params[ 3 ] - params[ 1 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_line( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_LINE;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        dr->y2 = params[ 3 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_line( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ] - params[ 0 ], params[ 3 ] - params[ 1 ] );
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_circle( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_CIRCLE;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_circle( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_fcircle( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_FCIRCLE;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_fcircle( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_bezier( INSTANCE * my, int * params )
+{
+    if ( !drawing_graph )
+    {
+        DRAWING_OBJECT * dr = malloc( sizeof( DRAWING_OBJECT ) );
+
+        dr->type = DRAWOBJ_CURVE;
+        dr->x1 = params[ 0 ];
+        dr->y1 = params[ 1 ];
+        dr->x2 = params[ 2 ];
+        dr->y2 = params[ 3 ];
+        dr->x3 = params[ 4 ];
+        dr->y3 = params[ 5 ];
+        dr->x4 = params[ 6 ];
+        dr->y4 = params[ 7 ];
+        dr->level = params[ 8 ];
+        return _moddraw_object_new( dr, drawing_z );
+    }
+
+    draw_bezier( drawing_graph, 0, params[ 0 ], params[ 1 ], params[ 2 ], params[ 3 ], params[ 4 ], params[ 5 ], params[ 6 ], params[ 7 ], params[ 8 ] );
+    return 1;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_get_pixel( INSTANCE * my, int * params )
+{
+    return gr_get_pixel( background, params[ 0 ], params[ 1 ] ) ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_put_pixel( INSTANCE * my, int * params )
+{
+    gr_put_pixel( background, params[ 0 ], params[ 1 ], params[ 2 ] ) ;
+    return 1 ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_map_get_pixel( INSTANCE * my, int * params )
+{
+    GRAPH * map = bitmap_get( params[ 0 ], params[ 1 ] ) ;
+    if ( !map ) return -1;
+    return gr_get_pixel( map, params[ 2 ], params[ 3 ] ) ;
+}
+
+/* --------------------------------------------------------------------------- */
+
+static int moddraw_map_put_pixel( INSTANCE * my, int * params )
+{
+    GRAPH * map = bitmap_get( params[ 0 ], params[ 1 ] ) ;
+    if ( !map ) return 0 ;
+    gr_put_pixel( map, params[ 2 ], params[ 3 ], params[ 4 ] ) ;
+    return 1 ;
+}
+
+/* ----------------------------------------------------------------- */
+/* exports                                                           */
+/* ----------------------------------------------------------------- */
+
+#include "mod_draw_exports.h"
+
+/* ----------------------------------------------------------------- */