texplay 0.2.983pre2-i386-mingw32 → 0.3.0-i386-mingw32

data/ext/texplay/graphics_utils.h

@@ -0,0 +1,22 @@
+#ifndef GUARD_GRAPHICS_UTILS_H
+#define GUARD_GRAPHICS_UTILS_H
+
+void update_lazy_bounds(action_struct * cur, texture_info * tex);
+void update_bounds(action_struct * cur, int xmin, int ymin, int xmax, int ymax);
+void set_local_bounds(action_struct * cur, int xmin, int ymin, int xmax, int ymax, texture_info * tex);
+
+void draw_prologue(action_struct * cur, texture_info * tex, int xmin, int ymin, int xmax, int ymax, VALUE * hash_arg,   
+                                                                      sync sync_mode, bool primary, action_struct ** payload_ptr);
+void draw_epilogue(action_struct * cur, texture_info * tex, bool primary);
+
+void set_pixel_color_with_style(action_struct * payload, texture_info * tex, int x, int y);
+void set_pixel_color(rgba * pixel_color, texture_info * tex, int x, int y);
+
+rgba get_pixel_color_from_chunk(float * chunk, int width, int height, int x, int y);
+rgba get_pixel_color(texture_info * tex, int x, int y);
+float* get_pixel_data(texture_info * tex, int x, int y);
+
+/* create a blank gosu image of width and height */
+VALUE create_image(VALUE window, int width, int height);
+
+#endif

data/ext/texplay/object2module.c

@@ -0,0 +1,171 @@
+/* object2module.c */
+/* (C) John Mair 2009
+ * This program is distributed under the terms of the MIT License
+ *                                                                */
+
+#include <ruby.h>
+#include "compat.h"
+
+#ifdef RUBY_19
+# include <ruby/st.h>
+#else
+# include <st.h>
+#endif
+
+/* class creation. from class.c in 1.9.1 */
+#ifdef RUBY_19
+static VALUE
+class_alloc(VALUE flags, VALUE klass)
+{
+    rb_classext_t *ext = ALLOC(rb_classext_t);
+    NEWOBJ(obj, struct RClass);
+    OBJSETUP(obj, klass, flags);
+    obj->ptr = ext;
+    RCLASS_IV_TBL(obj) = 0;
+    RCLASS_M_TBL(obj) = 0;
+    RCLASS_SUPER(obj) = 0;
+    RCLASS_IV_INDEX_TBL(obj) = 0;
+    return (VALUE)obj;
+}
+#endif
+
+/* a modified version of include_class_new from class.c */
+static VALUE
+j_class_new(VALUE module, VALUE sup)
+{
+
+#ifdef RUBY_19
+    VALUE klass = class_alloc(T_ICLASS, rb_cClass);
+#else
+    NEWOBJ(klass, struct RClass);
+    OBJSETUP(klass, rb_cClass, T_ICLASS);
+#endif
+
+    if (BUILTIN_TYPE(module) == T_ICLASS) {
+        module = KLASS_OF(module);
+    }
+
+    if (!RCLASS_IV_TBL(module)) {
+
+        RCLASS_IV_TBL(module) = (struct st_table *)st_init_numtable();
+    }
+
+    /* assign iv_tbl, m_tbl and super */
+    RCLASS_IV_TBL(klass) = RCLASS_IV_TBL(module);
+    RCLASS_SUPER(klass) = sup;
+    if(TYPE(module) != T_OBJECT) {
+
+        RCLASS_M_TBL(klass) = RCLASS_M_TBL(module);
+    }
+    else {
+        RCLASS_M_TBL(klass) = RCLASS_M_TBL(CLASS_OF(module));
+    }
+
+    /* */
+
+    if (TYPE(module) == T_ICLASS) {
+        KLASS_OF(klass) = KLASS_OF(module);
+    }
+    else {
+        KLASS_OF(klass) = module;
+    }
+
+    if(TYPE(module) != T_OBJECT) {
+        OBJ_INFECT(klass, module);
+        OBJ_INFECT(klass, sup);
+    }
+    return (VALUE)klass;
+}
+
+VALUE
+rb_to_module(VALUE self)
+{
+    VALUE rclass, chain_start, jcur, klass;
+
+    switch(BUILTIN_TYPE(self)) {
+    case T_MODULE:
+        return self;
+    case T_CLASS:
+        klass = self;
+        break;
+    case T_OBJECT:
+    default:
+        klass = rb_singleton_class(self);            
+    }
+            
+    chain_start = j_class_new(klass, rb_cObject);
+
+    KLASS_OF(chain_start) = rb_cModule;
+    RBASIC(chain_start)->flags = T_MODULE;
+
+    jcur = chain_start;
+    for(rclass = RCLASS_SUPER(klass); rclass != rb_cObject;
+        rclass = RCLASS_SUPER(rclass)) {
+                
+        RCLASS_SUPER(jcur) = j_class_new(rclass, rb_cObject);
+        jcur = RCLASS_SUPER(jcur);
+    }
+
+    RCLASS_SUPER(jcur) = (VALUE)NULL;
+
+    return chain_start;
+}
+
+VALUE
+rb_reset_tbls(VALUE self)
+{
+    RCLASS_IV_TBL(self) = (struct st_table *) 0;
+    RCLASS_M_TBL(self) = (struct st_table *) st_init_numtable();
+    return Qnil;
+}
+
+/* cannot simply forward to gen_include as need to invoke 'extended' hook */
+VALUE
+rb_gen_extend(int argc, VALUE * argv, VALUE self)
+{
+    int i;
+
+    if (argc == 0) rb_raise(rb_eArgError, "wrong number of arguments (0 for 1)");
+    
+    rb_singleton_class(self);
+
+    for(i = 0; i < argc; i++) {
+        VALUE mod = rb_to_module(argv[i]); 
+        rb_funcall(mod, rb_intern("extend_object"), 1, self);
+        rb_funcall(mod, rb_intern("extended"), 1, self);
+        
+        /* only redirect if argv[i] is not a module */
+        if(argv[i] != mod) rb_reset_tbls(mod);
+    }
+
+    return self;
+}
+
+VALUE
+rb_gen_include(int argc, VALUE * argv, VALUE self)
+{
+    int i;
+
+    if (argc == 0) rb_raise(rb_eArgError, "wrong number of arguments (0 for 1)");
+
+    for(i = 0; i < argc; i++) {
+        VALUE mod = rb_to_module(argv[i]); 
+        rb_funcall(mod, rb_intern("append_features"), 1, self);
+        rb_funcall(mod, rb_intern("included"), 1, self);
+        
+        if(argv[i] != mod) rb_reset_tbls(mod);       
+    }
+
+    return self;
+}
+ 
+
+void Init_object2module()
+{
+
+    rb_define_method(rb_cObject, "to_module", rb_to_module , 0);
+    rb_define_method(rb_cObject, "gen_extend", rb_gen_extend, -1);
+    rb_define_method(rb_cModule, "gen_include", rb_gen_include, -1);
+    rb_define_method(rb_cModule, "reset_tbls", rb_reset_tbls, 0);
+}
+

data/ext/texplay/object2module.h

@@ -0,0 +1,11 @@
+/* object2module.h */
+
+#ifndef GUARD_OBJECT2MODULE_H
+#define GUARD_OBJECT2MODULE_H
+        
+VALUE rb_gen_include(int argc, VALUE * argv, VALUE self);
+VALUE rb_gen_extend(int argc, VALUE * argv, VALUE self);
+VALUE rb_to_module(VALUE self);
+VALUE rb_reset_tbls(VALUE self);
+
+#endif

data/ext/texplay/texplay.c

@@ -0,0 +1,216 @@
+/* texplay.c, light-weight alternative to rmagick for ruby */
+/* (C) John Mair 2009
+ * This program is distributed under the terms of the MIT License
+ *                                                                */
+
+#include <ruby.h>
+#include <stdio.h>
+#include <time.h>
+#include "texplay.h"
+#include "actions.h"
+#include "utils.h"
+#include "bindings.h"
+#include "object2module.h"
+#include "gen_eval.h"
+#ifdef __APPLE__
+# include <glut.h>
+#else
+# include <GL/glut.h>
+#endif
+
+
+/* setup ruby bindings */
+
+/** constructor for TPPoint class **/
+static VALUE m_init_TPPoint(int argc, VALUE * argv, VALUE self);
+static void monkey_patch_gosu(void);
+static VALUE gosu_window(void);
+
+void
+Init_texplay() {
+
+  VALUE jm_Module = rb_define_module("TexPlay");
+  VALUE TPPoint = rb_define_class_under(jm_Module, "TPPoint", rb_cObject);
+
+  /** define basic point class TPPoint **/
+  rb_attr(TPPoint, rb_intern("x"), 1, 1, Qtrue);
+  rb_attr(TPPoint, rb_intern("y"), 1, 1, Qtrue);
+  rb_define_method(TPPoint, "initialize", m_init_TPPoint, -1);
+  /** end of TPPoint definition **/
+
+  /* TexPlay methods */
+  rb_define_method(jm_Module, "paint", m_paint, -1);
+  rb_define_method(jm_Module, "get_pixel", m_getpixel, -1);
+  rb_define_method(jm_Module, "circle", m_circle, -1);
+  rb_define_method(jm_Module, "line", m_line, -1);
+  rb_define_method(jm_Module, "rect", m_rect, -1);
+  rb_define_method(jm_Module, "pixel", m_pixel, -1);
+  rb_define_method(jm_Module, "fill", m_flood_fill, -1);
+  rb_define_method(jm_Module, "bezier", m_bezier, -1);
+  rb_define_method(jm_Module, "polyline", m_polyline, -1);
+  rb_define_method(jm_Module, "ngon", m_ngon, -1);
+    
+  rb_define_method(jm_Module, "splice", m_splice, -1);
+    
+  rb_define_method(jm_Module, "color", m_color, -1);
+  rb_define_method(jm_Module, "offset", m_offset, -1);
+  rb_define_method(jm_Module, "method_missing", m_missing, -1);
+  rb_define_method(jm_Module, "quad_cached?", m_quad_cached, 0);
+
+  rb_define_method(jm_Module, "each", m_each, -1);
+    
+  /* needs to be updated, not yet done **/
+  /* rb_define_method(jm_Module, "bitmask", m_bitmask, -1); */
+  /* rb_define_method(jm_Module, "leftshift", m_lshift, -1); */
+  /* rb_define_method(jm_Module, "rightshift", m_rshift, -1); */
+  /* rb_define_method(jm_Module, "[]=", m_special_pixel, -1); */
+
+  rb_define_method(jm_Module, "dup", m_dup_image, 0);
+  rb_define_method(jm_Module, "clone", m_clone_image, 0);
+  rb_define_method(jm_Module, "to_blob", m_to_blob, 0);
+  rb_define_method(jm_Module, "force_sync", m_force_sync, 1);
+  rb_define_method(jm_Module, "set_options", m_user_set_options, 1);
+  rb_define_method(jm_Module, "get_options", m_get_options, 0);
+  rb_define_method(jm_Module, "delete_options", m_user_delete_options, 0);
+
+  rb_define_method(jm_Module, "refresh_cache", m_cache_refresh, 0);
+    
+  /* a constant containing the sidelength of largest allowable quad */
+  rb_define_const(jm_Module, "TP_MAX_QUAD_SIZE", INT2FIX(max_quad_size() - 2));
+
+  /* singleton method for creating & removing macros */
+  rb_define_singleton_method(jm_Module, "create_macro", M_create_macro, 1);
+  rb_define_singleton_method(jm_Module, "remove_macro", M_remove_macro, 1);
+  rb_define_singleton_method(jm_Module, "refresh_cache_all", M_refresh_cache_all, 0);
+  /* rb_define_singleton_method(jm_Module, "create_blank_image", M_create_blank, 3); */
+
+  /** aliases; must be made on singleton class because we're using class methods **/
+  rb_define_method(jm_Module, "box", m_rect, -1);
+  rb_define_method(jm_Module, "colour", m_color, -1);
+  rb_define_method(jm_Module, "composite", m_splice, -1);
+  rb_define_method(jm_Module, "set_pixel", m_pixel, -1);
+  rb_define_method(jm_Module, "[]", m_getpixel, -1);
+  rb_define_method(jm_Module, "cache", m_cache_refresh, 0);
+  /** end of aliases **/
+
+  /** associated with gen_eval **/
+  rb_define_method(rb_cObject, "gen_eval", rb_gen_eval, -1);
+  rb_define_method(rb_cObject, "capture", rb_capture, 0);
+    
+  rb_define_method(rb_cObject, "to_module", rb_to_module , 0);
+  rb_define_method(rb_cObject, "reset_tbls", rb_reset_tbls , 0);
+  rb_define_method(rb_cObject, "gen_extend", rb_gen_extend, -1);
+  rb_define_method(rb_cModule, "gen_include", rb_gen_include, -1);
+
+  rb_define_alias(rb_cObject, "gen_eval_with", "gen_eval");
+  /** end of gen_eval defs **/
+
+
+  /** basic setup **/
+
+  /* seed the random number generator */
+  srand(time(NULL));
+
+  monkey_patch_gosu();
+  /** end basic setup **/
+}
+
+/** constructor for TPPoint class **/
+static VALUE
+m_init_TPPoint(int argc, VALUE * argv, VALUE self)
+{
+  if(argc == 0) {
+    rb_iv_set(self, "@x", INT2FIX(0));
+    rb_iv_set(self, "@y", INT2FIX(0));
+  }
+  else if(argc == 2){
+    if(is_a_num(argv[0]) && is_a_num(argv[1])) {
+      rb_iv_set(self, "@x", argv[0]);
+      rb_iv_set(self, "@y", argv[1]);
+    }
+    else
+      rb_raise(rb_eArgError, "must provide two numbers");
+  }
+  else
+    rb_raise(rb_eArgError, "please provide x and y args only");
+
+  return Qnil;
+    
+}
+/** end constructor for TPPoint **/
+
+
+static VALUE
+gosu_window_to_blob(VALUE self, VALUE rb_x, VALUE rb_y, VALUE rb_width, VALUE rb_height)
+{
+  int x = FIX2INT(rb_x);
+  int y = FIX2INT(rb_y);
+  int width = FIX2INT(rb_width);
+  int height = FIX2INT(rb_height);
+  int window_height = FIX2INT(rb_funcall(self, rb_intern("height"), 0));
+
+  VALUE blob = rb_str_new(NULL, 4 * width * height);
+    
+  rb_funcall(self, rb_intern("flush"), 0);
+  glFinish();
+    
+  glReadPixels(x, y, width, window_height - y, GL_RGBA,
+               GL_UNSIGNED_BYTE, RSTRING_PTR(blob));
+    
+  return blob;
+}
+
+static VALUE
+gosu_window_to_texture(VALUE self, VALUE rb_tex_name, VALUE rb_xoffset, VALUE rb_yoffset,
+                       VALUE rb_x, VALUE rb_y, VALUE rb_width, VALUE rb_height)
+{
+
+  int tex_name = FIX2INT(rb_tex_name);
+  int xoffset = FIX2INT(rb_xoffset);
+  int yoffset = FIX2INT(rb_yoffset);
+  int x = FIX2INT(rb_x);
+  int y = FIX2INT(rb_y);
+  int width = FIX2INT(rb_width);
+  int height = FIX2INT(rb_height);
+    
+  rb_funcall(self, rb_intern("flush"), 0);
+  glFinish();
+
+  glEnable(GL_TEXTURE_2D);
+  glBindTexture(GL_TEXTURE_2D, tex_name);
+  
+  glCopyTexSubImage2D(GL_TEXTURE_2D, 0, xoffset, yoffset, x, y, width, height);
+  glDisable(GL_TEXTURE_2D);  
+  
+  return Qnil;
+}
+
+
+static void
+monkey_patch_gosu(void)
+{
+  rb_define_method(gosu_window(), "to_blob", gosu_window_to_blob, 4);
+  rb_define_method(gosu_window(), "to_texture", gosu_window_to_texture, 7);
+}    
+
+static VALUE
+gosu_window(void)
+{
+  static VALUE GosuWindow = 0;
+
+  if (!GosuWindow) {
+    VALUE Gosu = rb_const_get(rb_cObject, rb_intern("Gosu"));
+    GosuWindow = rb_const_get(Gosu, rb_intern("Window"));
+  }
+
+  return GosuWindow;
+}
+    
+
+  
+                                  
+                                  
+
+
+
+

data/ext/texplay/texplay.h

@@ -0,0 +1,148 @@
+/* texplay.h (C) John Mair 2008 
+ * This program is distributed under the terms of the MIT License
+ *   
+ *            
+ *                                                   */
+
+#ifndef GUARD_TEXPLAY_H
+#define GUARD_TEXPLAY_H
+
+#include <ruby.h>
+
+/* #defines */
+#define OOB_VAL 9999
+#define XMAX_OOB OOB_VAL
+#define YMAX_OOB OOB_VAL
+#define XMIN_OOB -OOB_VAL
+#define YMIN_OOB -OOB_VAL
+#define RGBA_LIST_SIZE 100
+#define PI 3.14159265358979
+
+/* macros */
+#define SWAP(X, Y)  {(X) ^= (Y); (Y) ^= (X); (X) ^= (Y);} 
+#define ROUND(X) (int)((X) + 0.5)
+#define ARY_SIZE(X) sizeof(X) / sizeof(*X)
+#define SGN(X) ((X) >= 0 ? 1 : -1)
+#define MAX(X, Y) ((X) > (Y)) ? (X) :(Y)
+#define MIN(X, Y) ((X) < (Y)) ? (X) : (Y)
+#define ABS(X) ((X) >= 0 ? (X) : -(X))
+
+/* enums */
+typedef enum e_bool {
+    false, true
+} bool;
+
+typedef enum e_color {
+    red, green, blue, alpha
+} color_t;
+
+typedef enum e_sync_mode {
+    lazy_sync, eager_sync, no_sync
+} sync;
+
+
+typedef enum {
+  clear, copy, noop,
+  set, copy_inverted,
+  invert, and_reverse, and,
+  or, nand, nor, xor,
+  equiv, and_inverted,
+  or_inverted, additive,
+  multiply, screen, overlay,
+  darken, lighten, color_dodge,
+  color_burn, hard_light, soft_light,
+  difference, exclusion
+} draw_mode;
+
+/* structs */
+typedef struct s_rgba {
+  float red, green, blue, alpha;
+} rgba;
+
+typedef struct {
+  rgba colors[RGBA_LIST_SIZE];
+  int size;
+} rgba_list;  
+
+
+/* stores image data */
+typedef struct {
+    int width, height;    
+    float top, left;    
+    int tname;
+    float * td_array;
+    int yincr, firstpixel;
+    int x_offset, y_offset;
+    VALUE image;
+} texture_info;
+
+
+/* convenience macro */
+#define IMAGE_BOUNDS(X) ((image_bounds *) (X))
+typedef struct {
+    int xmin;
+    int ymin;
+    int xmax;
+    int ymax;
+} image_bounds;
+
+
+typedef struct action_struct {
+    int xmin, ymin, xmax, ymax;
+    sync sync_mode;
+
+    /* pointer to associated texture */
+    /* a bit of a kludge having this here
+       since it's only being used by convert_image_local_color_to_rgba */
+    texture_info * tex;
+    
+    VALUE hash_arg;
+
+    /* action color */
+    rgba color;
+
+    /* pen data */
+    struct {
+
+        /* color control, dynamic */
+        bool has_color_control_proc;
+        VALUE color_control_proc;
+        int color_control_arity;
+
+        /* color control, static */
+        bool has_color_control_transform;
+        rgba color_mult;
+        rgba color_add;
+
+        /* texture fill */
+        bool has_source_texture;
+        texture_info source_tex;
+
+        /* lerp */
+        bool has_lerp;
+        float lerp;
+
+        /* alpha blend */
+        bool alpha_blend;
+
+        /* drawing mode */
+        bool has_drawing_mode;
+        draw_mode drawing_mode;
+
+        /* tolerance */
+        bool has_tolerance;
+        float tolerance;
+
+        /* color selection */
+        bool has_color_select;
+        rgba_list source_select;
+        rgba_list source_ignore;
+        rgba_list dest_select;
+        rgba_list dest_ignore;
+      
+    } pen;
+
+} action_struct;
+
+
+#endif