texplay 0.3.5 → 0.4

data/ext/texplay/utils.h

@@ -1,153 +1,153 @@
-#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);
-bool cmp_color_with_tolerance(rgba color1, rgba color2, float tolerance);
-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 gosu_color_class();
-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
+#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);
+bool cmp_color_with_tolerance(rgba color1, rgba color2, float tolerance);
+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 gosu_color_class();
+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,164 +1,147 @@
-# 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
+# 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|
+  @turtle_pos.x = x
+  @turtle_pos.y = y
+end
+
+TexPlay::create_macro(:move_rel) do |dx, dy|
+  @turtle_pos.x += dx
+  @turtle_pos.y += dy
+end
+
+TexPlay::create_macro(:line_to) do |x, y, *other|
+  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|
+  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|
+  @turtle_angle = a
+end
+
+TexPlay::create_macro(:turn) do |da|
+  @turtle_angle += da
+end
+
+TexPlay::create_macro(:forward) do |dist, *other|
+  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|
+  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