extract_curves 0.0.1-i586-linux

data/ruby_libs/pav/numeric/ext.rb

@@ -0,0 +1,13 @@
+class Numeric
+	def scaled_floor(toler)
+		(sc = self / toler).finite? ? sc.floor * toler : self
+	end
+	
+	def scaled_ceil(toler)
+		(sc = self / toler).finite? ? sc.ceil * toler : self
+	end
+	
+	def scaled_round(toler)
+		(sc = self / toler).finite? ? sc.round * toler : self
+	end
+end

data/ruby_libs/pav/pav_find.rb

@@ -0,0 +1,90 @@
+# From Ruby's Find module:
+module PavFind
+  def self.pfind_follow_symlinks(paths)
+    paths = paths.collect{|d| d.dup}
+    while file = paths.shift
+      catch(:prune) do
+        next unless File.exist? file
+	yield file.dup.taint
+	begin
+	  if File.directory?(file) then
+	    d = Dir.open(file)
+	    begin
+	      for f in d
+		next if f == "." or f == ".."
+		if File::ALT_SEPARATOR and
+		file =~ /^(?:[\/\\]|[A-Za-z]:[\/\\]?)$/ then
+		  f = file + f
+		elsif file == "/" then
+		  f = "/" + f
+		else
+		  f = File.join(file, f)
+		end
+		paths.unshift f.untaint
+	      end
+	    ensure
+	      d.close
+	    end
+	  end
+	rescue Errno::ENOENT, Errno::EACCES
+	end
+      end
+    end
+  end
+  
+  def self.pfind_no_follow_symlinks(paths)
+    paths = paths.collect{|d| d.dup}
+    while file = paths.shift
+      catch(:prune) do
+        next unless File.exist? file
+	yield file.dup.taint
+	begin
+	  if File.lstat(file).directory? then
+	    d = Dir.open(file)
+	    begin
+	      for f in d
+		next if f == "." or f == ".."
+		if File::ALT_SEPARATOR and
+		file =~ /^(?:[\/\\]|[A-Za-z]:[\/\\]?)$/ then
+		  f = file + f
+		elsif file == "/" then
+		  f = "/" + f
+		else
+		  f = File.join(file, f)
+		end
+		paths.unshift f.untaint
+	      end
+	    ensure
+	      d.close
+	    end
+	  end
+	rescue Errno::ENOENT, Errno::EACCES
+	end
+      end
+    end
+  end
+  
+  def self.pfind(paths, follow_symlinks=true, entry_visit_once=true, &block)
+  	if follow_symlinks
+	  if entry_visit_once
+		visited = {}
+		self.pfind_follow_symlinks(paths) { |path|
+			if visited.include?(path)
+				self.prune
+			else
+				yield(path)
+				visited[path] = true
+			end
+		}
+	  else
+		self.pfind_follow_symlinks(paths, &block)
+	  end
+	else
+		self.pfind_no_follow_symlinks(paths, &block)
+	end
+  end
+  
+  def self.prune
+	throw :prune
+  end
+end

data/ruby_libs/pav/pix/CVS/Entries

@@ -0,0 +1,11 @@
+/aapix.rb/1.1.1.1/Tue Nov 15 17:32:14 2005//
+/blob.rb/1.1.1.1/Tue Nov 15 17:32:14 2005//
+/circle.rb/1.1.1.1/Tue Nov 15 17:32:14 2005//
+/contour.rb/1.1.1.1/Tue Nov 15 17:32:16 2005//
+/curve.rb/1.1.1.1/Tue Nov 15 17:32:15 2005//
+/img_obj.rb/1.1.1.1/Tue Nov 15 17:32:14 2005//
+/node.rb/1.1.1.1/Tue Nov 15 17:32:16 2005//
+/node_grp.rb/1.1.1.1/Tue Nov 15 17:32:13 2005//
+/shaved_core.rb/1.1.1.1/Tue Nov 15 17:32:13 2005//
+/subpix.rb/1.1.1.1/Tue Nov 15 17:32:16 2005//
+D/contour////

data/ruby_libs/pav/pix/CVS/Repository

@@ -0,0 +1 @@
+extract-curves/ruby_libs/pav/pix

data/ruby_libs/pav/pix/CVS/Root

@@ -0,0 +1 @@
+:ext:pavpen@rubyforge.org:/var/cvs/extract-curves

data/ruby_libs/pav/pix/aapix.rb

@@ -0,0 +1,378 @@
+require 'pav/pix'
+require 'pav/numeric/ext'
+
+module PPix
+
+class Xy
+	def a_eql?(pix, eps=2e-10)
+		(self.ay - pix.ay).abs < eps && (self.ax - pix.ax).abs < eps
+	end
+	
+	alias_method :ax, :x
+	alias_method :ay, :y
+	alias_method :eql?, :a_eql?
+	
+	def a_neighb8?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		dx <= 1.0+eps && dy <= 1.0+eps
+	end
+	
+	def a_neighb4?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		(dx <= 1.0+eps && dy < eps) || (dy <= 1.0+eps && dx < eps)
+	end
+	
+	def a_close_neighb?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		(dx <= 0.5+eps && dy <= 0.5+eps)
+	end
+	
+	def semi_neighb8?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		dx <= 1.5+eps && dy <= 1.5+eps
+	end
+	
+	def semi_neighb4?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		(dx <= 1.5+eps && dy < eps) || (dy <= 1.5+eps && dx < eps)
+	end
+	
+	def semi_close_neighb?(pix, eps=2e-10)
+		dx = (self.ax - pix.ax).abs; dy = (self.ay - pix.ay).abs
+		(dx <= 0.5-eps && dy <= 0.5-eps)
+	end
+	
+	def a_yx(eps=1e-10)
+		[self.ay.scaled_round(eps), self.ax.scaled_round(eps)]
+	end
+	
+	def a_leg(pix)
+		leg = (self.ay <=> pix.ay)
+		return leg if leg != 0
+		self.ax <=> pix.ax
+	end
+end
+
+class AaXy < Xy
+	attr_reader :ax, :ay
+	
+	def self.a_yx(x, y, eps=1e-10)
+		[y.scaled_round(eps), x.scaled_round(eps)]
+	end
+	
+	def initialize(ax, ay)
+		@ax = ax; @ay = ay
+		super(@ax.round, @ay.round)
+	end
+	
+	def a_eql?(pix, eps=1e-10)
+		(@ay - pix.ay).abs < eps && (@ax - pix.ax).abs < eps
+	end
+	
+	def hash
+		self.a_yx.hash
+	end
+	
+	alias_method :eql?, :a_eql?
+	
+	def to_s
+		"(#{@ax}, #{@ay})"
+	end
+	
+	alias_method :coords_to_s, :to_s
+end
+
+class AaPix < AaXy
+	include MPixbufPix
+	
+	def initialize(pixbuf, ax, ay)
+		@pixbuf = pixbuf
+		super(ax, ay)
+	end
+	
+	def dup_aapix
+		AaPix.new(@pixbuf, self.ax, self.ay)
+	end
+end
+
+class AaXyCancelI < AaXy
+	attr_accessor :cancel, :semi_adj8_i, :semi_adj8_idxs
+	
+	def initialize(ax, ay, cancel, semi_adj8_i, semi_adj8_idxs)
+		@cancel = cancel
+		@semi_adj8_i = semi_adj8_i
+		@semi_adj8_idxs = semi_adj8_idxs
+		super(ax, ay)
+	end
+end
+
+class AaXy
+	ADJ8_SEMI_ADJ8_SPEC = [
+	 AaXyCancelI.new(   0,-0.5, [ 1,17,18], 3, [15,0, 1, 2, 3, 4, 5, 6, 7]),
+	 AaXyCancelI.new(   0,  -1,         [], 3, [1, 2, 3, 4, 5]),
+	 AaXyCancelI.new(-0.5,   0, [ 3,19,20], 7, [3, 4, 5, 6, 7, 8, 9,10,11]),
+	 AaXyCancelI.new(  -1,   0,         [], 7, [5, 6, 7, 8, 9]),
+	 AaXyCancelI.new(   0, 0.5, [ 5,21,22],11, [7, 8, 9,10,11,12,13,14,15]),
+	 AaXyCancelI.new(   0,   1,         [],11, [9,10,11,12,13]),
+	 AaXyCancelI.new( 0.5,   0, [ 7,23,16],15, [11,12,13,14,15,0, 1, 2, 3]),
+	 AaXyCancelI.new(   1,   0,         [],15, [13,14,15,0, 1]),
+	 AaXyCancelI.new( 0.5,-0.5, [ 9,16,17], 1, [15,0, 1, 2, 3]),
+	 AaXyCancelI.new(   1,  -1,         [], 1, [0, 1, 2]),
+	 AaXyCancelI.new(-0.5,-0.5, [11,18,19], 5, [3, 4, 5, 6, 7]),
+	 AaXyCancelI.new(  -1,  -1,         [], 5, [4, 5, 6]),
+	 AaXyCancelI.new(-0.5, 0.5, [13,20,21], 9, [7, 8, 9,10,11]),
+	 AaXyCancelI.new(  -1,   1,         [], 9, [8, 9,10]),
+	 AaXyCancelI.new( 0.5, 0.5, [15,22,23],13, [11,12,13,14,15]),
+	 AaXyCancelI.new(   1,   1,         [],13, [12,13,14]),
+	 AaXyCancelI.new(   1,-0.5,         [], 0, [15,0, 1, 2]),
+	 AaXyCancelI.new( 0.5,  -1,         [], 2, [0, 1, 2, 3]),
+	 AaXyCancelI.new(-0.5,  -1,         [], 4, [3, 4, 5, 6]),
+	 AaXyCancelI.new(  -1,-0.5,         [], 6, [4, 5, 6, 7]),
+	 AaXyCancelI.new(  -1, 0.5,         [], 8, [7, 8, 9,10]),
+	 AaXyCancelI.new(-0.5,   1,         [],10, [8, 9,10,11]),
+	 AaXyCancelI.new( 0.5,   1,         [],12, [11,12,13,14]),
+	 AaXyCancelI.new(   1, 0.5,         [],14, [12,13,14,15]),
+	]
+	
+	tmp1 = []; 16.times { tmp1 << [] }
+	ADJ8_SEMI_ADJ8_SPEC.each { |a| tmp1[a.semi_adj8_i] << a }
+	tmp2 = []
+	tmp1.each { |m| tmp2 << m.first }; tmp1.each { |m| tmp2 << m.last }
+	SEMI_ADJ8 = tmp2
+	
+	def self.semi_neighbs8_contig_arr_get_segs(arr)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "ngbs: #{(0...arr.length).find_all { |i|
+		#  arr[i]}.join(" ")}: "
+		end_i = -1
+		while !arr[end_i]
+			end_i -= 1
+			if end_i < -15
+				#$PDbgLog.sig_return('Empty.')
+				return []
+			end
+		end
+		end_i += 17
+		#$PDbgLog.print_msg "end_i=#{end_i} "
+		start_p = 0
+		start_p += 1 while !arr[start_p]
+		#$PDbgLog.print_msg "start_p=#{start_p} "
+		if start_p >= end_i
+			#$PDbgLog.sig_return("[[#{start_p}, #{start_p+1}]]")
+		  	return [[start_p, start_p+1]]
+		end
+		res = []
+		i = start_p + 1
+		loop do
+			i += 1 while arr[i]
+			res << [start_p, i]
+			break if i >= end_i
+			i += 1 while !arr[i]
+			start_p = i
+		end
+		if res.length > 1 && res[0][0] % 16 == res.last[1] % 16
+			len = res.last[1] - res.last[0]
+			res[0][0] -= len
+			res.pop
+		end
+		#$PDbgLog.sig_return(res.inspect)
+		res
+	end
+	
+	def self.semi_neighbs8_arr_get_segs(ngbs)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "ngbs: #{(0...ngbs.length).find_all { |i|
+		#	ngbs[i]}.join(" ")}: "
+		end_p = start_p = -1
+		if ngbs[start_p]
+			while ngbs[end_p += 1] || end_p % 4 < 3
+				if end_p + 1 >= 16
+					#$PDbgLog.sig_return('whole circle.')
+					return [[0, 0]]
+				end
+			end
+			while ngbs[start_p-=1] || start_p % 4 < 3
+			end
+			end_i = 16 + start_p
+			start_p += 1
+			start_p += 1 while !ngbs[start_p]
+			end_p -= 1 while !ngbs[end_p-1]
+			res = [[start_p, end_p]]
+		else
+			res = []
+			end_i = 15
+		end
+		loop do
+			start_p = end_p + 1
+			while !ngbs[start_p]
+				start_p += 1
+				if start_p >= end_i
+					#$PDbgLog.sig_return(res.inspect)
+					return res
+				end
+			end
+			end_p = start_p + 1
+			end_p += 1 while (ngbs[end_p] || end_p % 4 < 3) &&
+				end_p < end_i
+			end_p -= 1 while !ngbs[end_p-1]
+			res << [start_p, end_p]
+		end
+	end
+	
+	def self.semi_neighbs8_with_arr_get_segs(arr, ngbs)
+		$PDbgLog.sig_call(self)
+		$PDbgLog.print_msg "ngbs: #{(0...arr.length).find_all { |i|
+		  arr[i]}.collect{|i|ngbs[arr[i]].coords_to_s+"[#{i}]"}.join(" "
+		  )}: "	#"
+		end_i = -1
+		while !arr[end_i]
+			end_i -= 1
+			if end_i < -15
+				$PDbgLog.sig_return('Empty.')
+				return []
+			end
+		end
+		end_i += 16
+		$PDbgLog.print_msg "end_i=#{end_i} "
+		start_p = 0
+		start_p += 1 while !arr[start_p]
+		$PDbgLog.print_msg "start_p=#{start_p} "
+		if start_p >= end_i
+			$PDbgLog.sig_return("[[#{start_p}, #{start_p+1}]]")
+		  	return [[start_p, start_p+1]]
+		end
+		last_pix = ngbs[arr[start_p]]
+		res = []
+		end_p = i = start_p
+		loop do
+			i += 1
+			i += 1 while !arr[i]
+			$PDbgLog.print_msg "i=#{i} "
+			if last_pix.a_neighb8?(ngbs[arr[i]])
+				if (end_p = i) >= end_i
+				  if res.empty?
+				#    if arr.compact.length > 2 && ngbs[arr[
+				#    start_p]].a_neighb8?(ngbs[arr[i]])
+				#	$PDbgLog.print_msg("Full circle ")
+				#	res << [0, 0]
+				#    else
+					res << [start_p, end_p+1]
+				#    end
+				  elsif ngbs[arr[res[0][0]]].a_neighb8?(
+				  ngbs[arr[i]])
+					res[0][0] = start_p - 16
+				  else
+				  	res << [start_p, end_p+1]
+				  end
+				  $PDbgLog.sig_return(res.inspect)
+				  return res
+				end
+			else
+			  $PDbgLog.puts_msg "seg[#{start_p},#{end_p+1})"
+			  res << [start_p, end_p+1]
+			  if i >= end_i
+				if ngbs[arr[res[0][0]]].neighb8?(ngbs[arr[i]])
+					res[0][0] = i - 16
+				else
+					res << [i, i+1]
+				end
+				$PDbgLog.sig_return(res.inspect)
+				return res
+			  end
+			  start_p = i
+			  last_pix = ngbs[arr[start_p]]
+			end
+			last_pix = ngbs[arr[i]]
+		end
+	end
+end
+
+class Xy
+	def semi_neighbs8_arr(neighbs)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg self.coords_to_s + ", neighbs: #{PixbufPix.
+		#	path_to_s(neighbs)}: "
+		warn("#{self.class.name}.semi_neighbs8_arr: " +
+		  "Non-neighbors given to #{self.coords_to_s}: #{PixbufPix.
+		  path_to_s(neighbs)}") if neighbs.detect { |a|
+			!a.a_neighb8?(self) }
+		res = Array.new(16)
+		ranks = Array.new(16, 100)
+		neighbs.each_with_index { |ngb, ngb_i|
+			ax = (ngb.ax - self.ax).scaled_round(0.5)
+			ay = (ngb.ay - self.ay).scaled_round(0.5)
+			AaXy::ADJ8_SEMI_ADJ8_SPEC.each_with_index{|spec,rk|
+				if ay == spec.ay && ax == spec.ax
+				  if ranks[spec.semi_adj8_i] > rk
+					res[spec.semi_adj8_i] = ngb_i
+					ranks[spec.semi_adj8_i] = rk
+				  end
+				  break
+				end
+			}
+		}
+		#$PDbgLog.sig_return(res.inspect)
+		res
+	end
+	
+	def semi_neighbs8_contig_arr(neighbs)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg self.coords_to_s + ", neighbs: #{Xy.
+		#	path_to_s(neighbs)}: "
+		warn("#{self.class.name}.semi_neighbs8_contig_arr: " +
+		  "Non-neighbors given to #{self.coords_to_s}: #{PixbufPix.
+		  path_to_s(neighbs)}") if neighbs.detect { |a|
+			!a.semi_neighb8?(self) }
+		res = Array.new(16)
+		ranks = Array.new(16, 100)
+		neighbs.each_with_index { |ngb, ngb_i|
+			ax = (ngb.ax - self.ax).scaled_round(0.5)
+			ay = (ngb.ay - self.ay).scaled_round(0.5)
+			AaXy::ADJ8_SEMI_ADJ8_SPEC.each_with_index{|spec,rk|
+			  if ay == spec.ay && ax == spec.ax
+			    spec.semi_adj8_idxs.each { |semi_adj8_i|
+			      if ranks[semi_adj8_i] > rk
+				res[semi_adj8_i] = ngb_i
+				ranks[semi_adj8_i] = rk
+			      end
+			    }
+			    break
+			  end
+			}
+		}
+		#$PDbgLog.sig_return(res.inspect)
+		res
+	end
+end
+
+module MPixbufPix
+	def adj8_semi_adj8_each
+		#$PDbgLog.sig_call(self)
+		pixbuf = self.pixbuf; ax = self.ax; ay = self.ay
+		#$PDbgLog.print_msg self.to_s + ",ax=#{ax},ay=#{ay}: "
+		cancelled = []
+		AaXy::ADJ8_SEMI_ADJ8_SPEC.each_with_index { |a, ai|
+			next if cancelled[ai]
+			if yield(AaPix.new(pixbuf, ax+a.ax, ay+a.ay))
+				a.cancel.each { |cnc| cancelled[cnc] = true }
+			end
+		}
+		#$PDbgLog.sig_return('done.')
+	end
+	
+	def semi_adj8_incl_set_each(incl_set)
+		i = -1
+		self.adj8_semi_adj8_each { |ngb|
+			i += 1
+			if incl_set.include?(ngb)
+				yield(ngb, AaXy::ADJ8_SEMI_ADJ8_SPEC.at(i).
+					semi_adj8_i)
+				true
+			else
+				false
+			end
+		}
+	end
+end
+
+end