texplay 0.2.800 → 0.2.900

data/ext/texplay/utils.h

@@ -1,145 +1,151 @@
-#ifndef GUARD_UTILS_H
-#define GUARD_UTILS_H
-
-
-/* for use with get_image_local, and set_image_local */
-#define DRAW_OFFSET 0
-#define LAZY_BOUNDS 1
-#define IMAGE_COLOR 2
-#define USER_DEFAULTS 3 
-
-/* shared global */
-extern const rgba not_a_color_v;
-
-/* color and pixel related functions */
-rgba find_color_from_string(char * try_color);
-bool cmp_color(rgba color1, rgba color2);
-void color_copy(float * source, float * dest);
-rgba get_pixel_color(texture_info * tex, int x, int y) ;
-float* get_pixel_data(texture_info * tex, int x, int y);
-void set_pixel_color(rgba * pixel_color, texture_info * tex, int x, int y);
-void zero_color(float * tex);
-bool not_a_color(rgba color1);
-bool is_a_color(rgba color1);
-VALUE convert_rgba_to_rb_color(rgba * pix);
-rgba convert_rb_color_to_rgba(VALUE cval);
-
-VALUE save_rgba_to_image_local_color(VALUE image, rgba color);
-rgba convert_image_local_color_to_rgba(VALUE image);
-
-
-/* string/symbol related functions */
-char* lowercase(char*);
-char* sym2string(VALUE);
-VALUE string2sym(char*);
-
-/* is it a hash? */
-bool is_a_hash(VALUE try_hash);
-
-/* is an array? */
-bool is_an_array(VALUE try_array);
-
-/* is a num? */
-bool is_a_num(VALUE try_num);
-
-/* helpful C wrapper for rb_hash_aref */
-VALUE get_from_hash(VALUE hash, char * sym);
-
-/* a wrapper for rb_hash_aset */
-VALUE set_hash_value(VALUE hash, char * sym, VALUE val);
-
-/* a wrapper for rb_hash_delete */
-VALUE delete_from_hash(VALUE hash, char * sym);
-
-/* does the hash key 'sym' map to value 'val'? */
-bool hash_value_is(VALUE hash, char * sym, VALUE val);
-
-/* determine whether (1) hash is a T_HASH (2) the sym exists in the hash */
-bool has_optional_hash_arg(VALUE hash, char * sym);
-
-
-/* helpful C wrapper for rb_array_store */
-VALUE set_array_value(VALUE array, int index, VALUE val);
-
-/* helpful C wrapper for rb_array_entry */
-VALUE get_from_array(VALUE array, int index);
-
-/* set the lazy_bounds ivar for an image */
-VALUE set_ivar_array(VALUE obj, char * ivar, int argc, ...);
-
-/* initialize lazy_bounds */
-void init_lazy_bounds(VALUE image);
-
-/* initialize the image_local var array */
-VALUE init_image_local(VALUE image);
-
-/* return an image local variable */
-VALUE get_image_local(VALUE image, int name);
-
-/* set an image local variable */
-void set_image_local(VALUE image, int name, VALUE val);
-
-/* error checking functions */
-void check_mask(VALUE mask);
-
-void check_image(VALUE image);
-
-/* is try_image a Gosu::Image ? */
-bool is_gosu_image(VALUE try_image);
-
-
-/* make boundaries sane */
-void constrain_boundaries(int * x0, int * y0, int * x1, int * y1, int width, int height);
-
-/* line clipping */
-void cohen_sutherland_clip (int * x0, int * y0,int * x1, int * y1, int xmin, int ymin,
-                            int xmax, int ymax);
-
-/* check if point is bound by rect and inner thickness */
-bool bound_by_rect_and_inner(int x, int y, int x0, int y0, int x1, int y1, int inner);
-
-/* check if point is bound by rect */
-bool bound_by_rect(int x, int y, int x0, int y0, int x1, int y1);
-
-/* calculate the array offset for a given pixel */
-int calc_pixel_offset(texture_info * tex, int x, int y);
-
-/* calculate the array offset for a given pixel in an action context */
-int calc_pixel_offset_for_action(action_struct * cur, texture_info * tex, int x, int y);
-
-/* return a pointer to a new texture */
-float* allocate_texture(int width, int height);
-
-/* other function prototypes, get info for a texture */
-void get_texture_info(VALUE image, texture_info * tex);
-
-/* ensure gl_tex_info returns non nil */
-VALUE check_for_texture_info(VALUE image);
-
-/* responsible for syncing a subimage to gl */
-void sync_to_gl(int tex_name, int x_offset, int y_offset, int width, int height, void * sub);
-
-/* create a subtexture and sync to gl */
-void create_subtexture_and_sync_to_gl(image_bounds * img_bounds, texture_info * tex);
-
-float * get_image_chunk(texture_info * tex, int xmin, int ymin, int xmax, int ymax);
-
-rgba get_pixel_color_from_chunk(float * chunk, int width, int height, int x, int y);
-
-/* from Texture.cpp in Gosu Graphics folder */
-unsigned max_quad_size(void);
-
-/* point utils */
-bool is_a_point(VALUE try_point);
-VALUE point_x(VALUE point);
-VALUE point_y(VALUE point);
-
-/* mathematical utils, used by bezier curves */
-double power(float base, int exp);
-unsigned fact(int n);
-unsigned comb(int n, int k);
-unsigned perm(int n, int r);
-
-double bernstein(int n, int k, float u);
-
-#endif
+#ifndef GUARD_UTILS_H
+#define GUARD_UTILS_H
+
+
+/* for use with get_image_local, and set_image_local */
+#define DRAW_OFFSET 0
+#define LAZY_BOUNDS 1
+#define IMAGE_COLOR 2
+#define USER_DEFAULTS 3 
+
+/* shared global */
+extern const rgba not_a_color_v;
+
+/* color and pixel related functions */
+rgba find_color_from_string(char * try_color);
+bool cmp_color(rgba color1, rgba color2);
+void color_copy(float * source, float * dest);
+rgba get_pixel_color(texture_info * tex, int x, int y) ;
+float* get_pixel_data(texture_info * tex, int x, int y);
+void set_pixel_color(rgba * pixel_color, texture_info * tex, int x, int y);
+void zero_color(float * tex);
+bool not_a_color(rgba color1);
+bool is_a_color(rgba color1);
+VALUE convert_rgba_to_rb_color(rgba * pix);
+rgba convert_rb_color_to_rgba(VALUE cval);
+bool is_gosu_color(VALUE try_color);
+bool is_rb_raw_color(VALUE cval);
+bool not_rb_raw_color(VALUE cval);
+rgba convert_gosu_to_rgba_color(VALUE gcolor);
+VALUE convert_rgba_to_gosu_color(rgba * pix);
+
+
+VALUE save_rgba_to_image_local_color(VALUE image, rgba color);
+rgba convert_image_local_color_to_rgba(VALUE image);
+
+
+/* string/symbol related functions */
+char* lowercase(char*);
+char* sym2string(VALUE);
+VALUE string2sym(char*);
+
+/* is it a hash? */
+bool is_a_hash(VALUE try_hash);
+
+/* is an array? */
+bool is_an_array(VALUE try_array);
+
+/* is a num? */
+bool is_a_num(VALUE try_num);
+
+/* helpful C wrapper for rb_hash_aref */
+VALUE get_from_hash(VALUE hash, char * sym);
+
+/* a wrapper for rb_hash_aset */
+VALUE set_hash_value(VALUE hash, char * sym, VALUE val);
+
+/* a wrapper for rb_hash_delete */
+VALUE delete_from_hash(VALUE hash, char * sym);
+
+/* does the hash key 'sym' map to value 'val'? */
+bool hash_value_is(VALUE hash, char * sym, VALUE val);
+
+/* determine whether (1) hash is a T_HASH (2) the sym exists in the hash */
+bool has_optional_hash_arg(VALUE hash, char * sym);
+
+
+/* helpful C wrapper for rb_array_store */
+VALUE set_array_value(VALUE array, int index, VALUE val);
+
+/* helpful C wrapper for rb_array_entry */
+VALUE get_from_array(VALUE array, int index);
+
+/* set the lazy_bounds ivar for an image */
+VALUE set_ivar_array(VALUE obj, char * ivar, int argc, ...);
+
+/* initialize lazy_bounds */
+void init_lazy_bounds(VALUE image);
+
+/* initialize the image_local var array */
+VALUE init_image_local(VALUE image);
+
+/* return an image local variable */
+VALUE get_image_local(VALUE image, int name);
+
+/* set an image local variable */
+void set_image_local(VALUE image, int name, VALUE val);
+
+/* error checking functions */
+void check_mask(VALUE mask);
+
+void check_image(VALUE image);
+
+/* is try_image a Gosu::Image ? */
+bool is_gosu_image(VALUE try_image);
+
+
+/* make boundaries sane */
+void constrain_boundaries(int * x0, int * y0, int * x1, int * y1, int width, int height);
+
+/* line clipping */
+void cohen_sutherland_clip (int * x0, int * y0,int * x1, int * y1, int xmin, int ymin,
+                            int xmax, int ymax);
+
+/* check if point is bound by rect and inner thickness */
+bool bound_by_rect_and_inner(int x, int y, int x0, int y0, int x1, int y1, int inner);
+
+/* check if point is bound by rect */
+bool bound_by_rect(int x, int y, int x0, int y0, int x1, int y1);
+
+/* calculate the array offset for a given pixel */
+int calc_pixel_offset(texture_info * tex, int x, int y);
+
+/* calculate the array offset for a given pixel in an action context */
+int calc_pixel_offset_for_action(action_struct * cur, texture_info * tex, int x, int y);
+
+/* return a pointer to a new texture */
+float* allocate_texture(int width, int height);
+
+/* other function prototypes, get info for a texture */
+void get_texture_info(VALUE image, texture_info * tex);
+
+/* ensure gl_tex_info returns non nil */
+VALUE check_for_texture_info(VALUE image);
+
+/* responsible for syncing a subimage to gl */
+void sync_to_gl(int tex_name, int x_offset, int y_offset, int width, int height, void * sub);
+
+/* create a subtexture and sync to gl */
+void create_subtexture_and_sync_to_gl(image_bounds * img_bounds, texture_info * tex);
+
+float * get_image_chunk(texture_info * tex, int xmin, int ymin, int xmax, int ymax);
+
+rgba get_pixel_color_from_chunk(float * chunk, int width, int height, int x, int y);
+
+/* from Texture.cpp in Gosu Graphics folder */
+unsigned max_quad_size(void);
+
+/* point utils */
+bool is_a_point(VALUE try_point);
+VALUE point_x(VALUE point);
+VALUE point_y(VALUE point);
+
+/* mathematical utils, used by bezier curves */
+double power(float base, int exp);
+unsigned fact(int n);
+unsigned comb(int n, int k);
+unsigned perm(int n, int r);
+
+double bernstein(int n, int k, float u);
+
+#endif

data/lib/texplay-contrib.rb

@@ -1,171 +1,171 @@
-begin
-    require 'rubygems'
-rescue LoadError
-end
-
-require 'texplay'
-
-# to bring in String#each_char for 1.8
-if RUBY_VERSION =~ /1.8/
-    require 'jcode'
-end
-
-# setup will be executed straight after Gosu::Image instantiation
-TexPlay::on_setup do
-    @turtle_pos = TexPlay::TPPoint.new(width / 2, height / 2 )
-    @turtle_angle = 0
-end
-
-
-TexPlay::create_macro(:move_to) do |x, y|
-    capture { 
-        @turtle_pos.x = x
-        @turtle_pos.y = y
-    }
-end
-
-TexPlay::create_macro(:move_rel) do |dx, dy|
-    capture { 
-        @turtle_pos.x += dx
-        @turtle_pos.y += dy
-    }
-end
-
-TexPlay::create_macro(:line_to) do |x, y, *other|
-    capture { 
-        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
-
-        @turtle_pos.x, @turtle_pos.y = x, y
-    }
-end
-
-TexPlay::create_macro(:line_rel) do |dx, dy, *other|
-    capture { 
-        x = @turtle_pos.x + dx
-        y = @turtle_pos.y + dy
-
-        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
-
-        @turtle_pos.x, @turtle_pos.y = x, y
-    }
-end
-
-TexPlay::create_macro(:turn_to) do |a|
-    capture {
-        @turtle_angle = a
-    }
-end
-
-TexPlay::create_macro(:turn) do |da|
-    capture { 
-        @turtle_angle += da
-    }
-end
-
-TexPlay::create_macro(:forward) do |dist, *other|
-    capture {
-        visible = other.shift
-
-        radians_per_degree = 0.0174532925199433
-
-        x = @turtle_pos.x + dist * Math::cos(radians_per_degree * @turtle_angle)
-        y = @turtle_pos.y + dist * Math::sin(radians_per_degree * @turtle_angle)
-
-        if(visible) then
-            line_to(x, y, *other)
-        else
-            move_to(x, y)
-        end
-    }
-end
-
-# L-System code
-# adding LSystem class to TexPlay module
-class TexPlay::LSystem
-    def initialize(&block)
-        @rules = {}
-        
-        instance_eval(&block) if block
-    end
-    
-    def rule(new_rule)
-        @rules.merge!(new_rule)
-    end
-
-    def atom(new_atom)
-        @atom = new_atom
-    end
-
-    def angle(new_angle=nil)
-        return @angle if !new_angle
-        @angle = new_angle
-    end
-
-    def produce_string(order)
-        order = order[:order]
-        string = @atom.dup
-        
-        order.times do
-            i = 0
-            while(i < string.length)
-                sub = @rules[string[i, 1]]
-                
-                string[i] = sub if sub
-                
-                i += sub ? sub.length : 1
-            end
-        end
-        
-        string
-    end
-end
-
-# L-System macro
-TexPlay::create_macro(:lsystem) do |x, y, system, options|
-    capture {
-        theta = system.angle
-        turtle_stack = []
-        move_to(x, y)
-        line_length = options[:line_length] || 1
-        
-        system.produce_string(options).each_char do |v|
-                      
-            case v
-            when "F"
-                forward(line_length, true)
-            when "+"
-                turn(theta)
-            when "-"
-                turn(-theta)
-            when "["
-                turtle_stack.push([@turtle_pos.dup, @turtle_angle])
-            when "]"
-                @turtle_pos, @turtle_angle = turtle_stack.pop
-            end
-        end
-    }
-end
-
-# Scaling
-# uses nearest-neighbour
-TexPlay::create_macro(:splice_and_scale) do |img, cx, cy, *options|
-    options = options.first ? options.first : {}
-
-    options = {
-        :color_control => proc do |c1, c2, x, y|
-            factor = options[:factor] || 1
-            factor_x = options[:factor_x] || factor
-            factor_y = options[:factor_y] || factor
-
-            x = factor_x * (x - cx) + cx
-            y = factor_y * (y - cy) + cy
-           
-            rect x, y, x + factor_x, y + factor_y, :color => c2, :fill => true
-            :none
-        end
-    }.merge!(options)
-   
-    splice img, cx, cy, options
-
-    self
-end
+begin
+    require 'rubygems'
+rescue LoadError
+end
+
+require 'texplay'
+
+# to bring in String#each_char for 1.8
+if RUBY_VERSION =~ /1.8/
+    require 'jcode'
+end
+
+# setup will be executed straight after Gosu::Image instantiation
+TexPlay::on_setup do
+    @turtle_pos = TexPlay::TPPoint.new(width / 2, height / 2 )
+    @turtle_angle = 0
+end
+
+
+TexPlay::create_macro(:move_to) do |x, y|
+    capture { 
+        @turtle_pos.x = x
+        @turtle_pos.y = y
+    }
+end
+
+TexPlay::create_macro(:move_rel) do |dx, dy|
+    capture { 
+        @turtle_pos.x += dx
+        @turtle_pos.y += dy
+    }
+end
+
+TexPlay::create_macro(:line_to) do |x, y, *other|
+    capture { 
+        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
+
+        @turtle_pos.x, @turtle_pos.y = x, y
+    }
+end
+
+TexPlay::create_macro(:line_rel) do |dx, dy, *other|
+    capture { 
+        x = @turtle_pos.x + dx
+        y = @turtle_pos.y + dy
+
+        line(@turtle_pos.x, @turtle_pos.y, x, y, *other)
+
+        @turtle_pos.x, @turtle_pos.y = x, y
+    }
+end
+
+TexPlay::create_macro(:turn_to) do |a|
+    capture {
+        @turtle_angle = a
+    }
+end
+
+TexPlay::create_macro(:turn) do |da|
+    capture { 
+        @turtle_angle += da
+    }
+end
+
+TexPlay::create_macro(:forward) do |dist, *other|
+    capture {
+        visible = other.shift
+
+        radians_per_degree = 0.0174532925199433
+
+        x = @turtle_pos.x + dist * Math::cos(radians_per_degree * @turtle_angle)
+        y = @turtle_pos.y + dist * Math::sin(radians_per_degree * @turtle_angle)
+
+        if(visible) then
+            line_to(x, y, *other)
+        else
+            move_to(x, y)
+        end
+    }
+end
+
+# L-System code
+# adding LSystem class to TexPlay module
+class TexPlay::LSystem
+    def initialize(&block)
+        @rules = {}
+        
+        instance_eval(&block) if block
+    end
+    
+    def rule(new_rule)
+        @rules.merge!(new_rule)
+    end
+
+    def atom(new_atom)
+        @atom = new_atom
+    end
+
+    def angle(new_angle=nil)
+        return @angle if !new_angle
+        @angle = new_angle
+    end
+
+    def produce_string(order)
+        order = order[:order]
+        string = @atom.dup
+        
+        order.times do
+            i = 0
+            while(i < string.length)
+                sub = @rules[string[i, 1]]
+                
+                string[i] = sub if sub
+                
+                i += sub ? sub.length : 1
+            end
+        end
+        
+        string
+    end
+end
+
+# L-System macro
+TexPlay::create_macro(:lsystem) do |x, y, system, options|
+    capture {
+        theta = system.angle
+        turtle_stack = []
+        move_to(x, y)
+        line_length = options[:line_length] || 1
+        
+        system.produce_string(options).each_char do |v|
+                      
+            case v
+            when "F"
+                forward(line_length, true)
+            when "+"
+                turn(theta)
+            when "-"
+                turn(-theta)
+            when "["
+                turtle_stack.push([@turtle_pos.dup, @turtle_angle])
+            when "]"
+                @turtle_pos, @turtle_angle = turtle_stack.pop
+            end
+        end
+    }
+end
+
+# Scaling
+# uses nearest-neighbour
+TexPlay::create_macro(:splice_and_scale) do |img, cx, cy, *options|
+    options = options.first ? options.first : {}
+
+    options = {
+        :color_control => proc do |c1, c2, x, y|
+            factor = options[:factor] || 1
+            factor_x = options[:factor_x] || factor
+            factor_y = options[:factor_y] || factor
+
+            x = factor_x * (x - cx) + cx
+            y = factor_y * (y - cy) + cy
+           
+            rect x, y, x + factor_x, y + factor_y, :color => c2, :fill => true
+            :none
+        end
+    }.merge!(options)
+   
+    splice img, cx, cy, options
+
+    self
+end