texplay 0.2.1-x86-mswin32-60

data/src/gen_eval.h

@@ -0,0 +1,20 @@
+/* gen_eval.h */
+
+#ifndef GUARD_GEN_EVAL_H
+#define GUARD_GEN_EVAL_H
+
+#include <ruby.h>
+
+VALUE rb_gen_eval(int argc, VALUE * argv, VALUE self);
+VALUE rb_capture(VALUE self);
+VALUE retrieve_hidden_self(VALUE duped_context);
+void set_hidden_self(VALUE duped_context, VALUE hidden_self);
+
+/* change self to hidden self if __hidden_self__ defined */
+#define ADJUST_SELF(X)                                                    \
+  do {                                                                    \
+      if(!NIL_P(retrieve_hidden_self((X))))                               \
+          (X) = retrieve_hidden_self((X));                                \
+  } while(0)
+        
+#endif

data/src/mkmf.log

@@ -0,0 +1,18 @@
+have_library: checking for main() in glut32.lib... -------------------- yes
+
+"cl -nologo -Feconftest -I. -Ic:/ruby/lib/ruby/1.8/i386-mswin32 -I. -Ic:/ruby/lib/ruby/1.8/i386-mswin32  -MD -Zi -O2b2xg- -G6 conftest.c   msvcrt-ruby18-static.lib glut32.lib  oldnames.lib user32.lib advapi32.lib shell32.lib ws2_32.lib   -link    -libpath:"." -libpath:"c:/ruby/lib" -stack:0x2000000"
+conftest.c
+checked program was:
+/* begin */
+1: #define WIN32_LEAN_AND_MEAN
+2: #define WIN32
+3: #include <winsock2.h>
+4: #include <windows.h>
+5: 
+6: /*top*/
+7: int main() { return 0; }
+8: int t() { void ((*volatile p)()); p = (void ((*)()))main; return 0; }
+/* end */
+
+--------------------
+

data/src/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/src/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/src/texplay.c

@@ -0,0 +1,136 @@
+/* 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"
+
+/* setup ruby bindings */
+
+/** constructor for TPPoint class **/
+static VALUE m_init_TPPoint(int argc, VALUE * argv, VALUE self);
+
+void
+Init_ctexplay() {
+
+    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, "clear", m_clear, -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, "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()));
+
+    /* 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, 2);
+    /** 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));
+
+    /** 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 **/
+
+    
+
+
+
+

data/src/texplay.h

@@ -0,0 +1,107 @@
+/* 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 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;
+
+/* structs */
+typedef struct s_rgba {
+    float red, green, blue, alpha;
+} rgba;
+
+/* 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 */
+        VALUE color_control_proc;
+        bool has_color_control_proc;
+        int color_control_arity;
+
+        /* color control, static */
+        bool has_color_control_transform;
+        rgba color_mult;
+        rgba color_add;
+
+        /* texture fill */
+        texture_info source_tex;
+        bool has_source_texture;
+
+        /* alpha blend */
+        bool alpha_blend;
+    } pen;
+
+} action_struct;
+
+
+#endif