extract_curves 0.0.1

data/ruby_libs/pav/icons/prev_pressed.xpm

@@ -0,0 +1,144 @@
+/* XPM */
+static char * prev_pressed_xpm[] = {
+"24 24 117 2",
+"  	c None",
+". 	c #777777",
+"+ 	c #5F5F5F",
+"@ 	c #7E7E7E",
+"# 	c #7C7C7C",
+"$ 	c #757575",
+"% 	c #616161",
+"& 	c #575757",
+"* 	c #696969",
+"= 	c #898989",
+"- 	c #565656",
+"; 	c #838383",
+"> 	c #626262",
+", 	c #686868",
+"' 	c #9E9E9E",
+") 	c #818181",
+"! 	c #848484",
+"~ 	c #737373",
+"{ 	c #6A6A6A",
+"] 	c #787878",
+"^ 	c #7D7D7D",
+"/ 	c #909090",
+"( 	c #8C8C8C",
+"_ 	c #878787",
+": 	c #646464",
+"< 	c #6E6E6E",
+"[ 	c #8A8A8A",
+"} 	c #868686",
+"| 	c #9A9A9A",
+"1 	c #929292",
+"2 	c #808080",
+"3 	c #7B7B7B",
+"4 	c #7F7F7F",
+"5 	c #888888",
+"6 	c #9C9C9C",
+"7 	c #A3A3A3",
+"8 	c #B7B7B7",
+"9 	c #7A7A7A",
+"0 	c #A0A0A0",
+"a 	c #A6A6A6",
+"b 	c #999999",
+"c 	c #C0C0C0",
+"d 	c #8F8F8F",
+"e 	c #767676",
+"f 	c #B0B0B0",
+"g 	c #B5B5B5",
+"h 	c #B8B8B8",
+"i 	c #939393",
+"j 	c #B2B2B2",
+"k 	c #C2C2C2",
+"l 	c #C8C8C8",
+"m 	c #B9B9B9",
+"n 	c #ADADAD",
+"o 	c #CFCFCF",
+"p 	c #BBBBBB",
+"q 	c #6D6D6D",
+"r 	c #8D8D8D",
+"s 	c #676767",
+"t 	c #989898",
+"u 	c #8E8E8E",
+"v 	c #797979",
+"w 	c #AAAAAA",
+"x 	c #969696",
+"y 	c #707070",
+"z 	c #5A5A5A",
+"A 	c #858585",
+"B 	c #9F9F9F",
+"C 	c #585858",
+"D 	c #363636",
+"E 	c #0F0F0F",
+"F 	c #111111",
+"G 	c #464646",
+"H 	c #424242",
+"I 	c #505050",
+"J 	c #747474",
+"K 	c #919191",
+"L 	c #959595",
+"M 	c #3F3F3F",
+"N 	c #3A3A3A",
+"O 	c #5D5D5D",
+"P 	c #5B5B5B",
+"Q 	c #949494",
+"R 	c #535353",
+"S 	c #2B2B2B",
+"T 	c #2C2C2C",
+"U 	c #242424",
+"V 	c #373737",
+"W 	c #232323",
+"X 	c #3B3B3B",
+"Y 	c #2F2F2F",
+"Z 	c #252525",
+"` 	c #343434",
+" .	c #1F1F1F",
+"..	c #222222",
+"+.	c #606060",
+"@.	c #828282",
+"#.	c #323232",
+"$.	c #6B6B6B",
+"%.	c #272727",
+"&.	c #5C5C5C",
+"*.	c #434343",
+"=.	c #656565",
+"-.	c #6C6C6C",
+";.	c #666666",
+">.	c #8B8B8B",
+",.	c #A2A2A2",
+"'.	c #ABABAB",
+").	c #9B9B9B",
+"!.	c #555555",
+"~.	c #636363",
+"{.	c #979797",
+"].	c #ACACAC",
+"^.	c #515151",
+"/.	c #525252",
+"(.	c #CDCDCD",
+"_.	c #A9A9A9",
+":.	c #A8A8A8",
+"                                              . ",
+"                                          + @ # ",
+"                                      $ % & * = ",
+"                                  - % @ ; > , ' ",
+"                              $ ) ! ~ { . ] ] = ",
+"                          ^ / ( @ _ ] : < ! [ } ",
+"                      / | 1 2 3 ; 4 4 ^ @ 5 [ @ ",
+"                  4 6 | @ 7 8 9 ) ^ ) @ ; 0 a _ ",
+"              ] _ b c d e ! f = @ @ e = g h i 3 ",
+"          j k g l m ) d ~ # e j a n c o p } q 3 ",
+"      ) r | d 2 s 3 @ 9 t u ^ v b w m f x ; y z ",
+"  A B ! C D E F G H I $ J K L ( < M N C O & z P ",
+"  Q K R S T U V W X ~ R _ ! A Y Z ` V  ...+.u @.",
+"      #.H ] ; @ $.z ..s . * %.&.A @ 9 s *.N P @ ",
+"          [ } J A @.C R ^ q & 4 y ; ; y : =.< 9 ",
+"              = ; } } -.{ ;.9 ! ) @ @ u 1 y : ; ",
+"                  ~ } >.1 ] @ ) } ] ! K A 4 ! 2 ",
+"                      ,.= '.).2 2 [ d ; @ u x [ ",
+"                          d / !.~.J . 3 {.].t ] ",
+"                              3 I ^./.v p (._.u ",
+"                                  :./ >.B ).; # ",
+"                                      ( e . @.r ",
+"                                          -.e e ",
+"                                                "};

data/ruby_libs/pav/icons/vnext.xpm

@@ -0,0 +1,29 @@
+/* XPM */
+static char * vnext_xpm[] = {
+"24 24 2 1",
+" 	c None",
+".	c #000000",
+" .......................",
+" ...................... ",
+" ...................... ",
+"  ....................  ",
+"  ....................  ",
+"   ..................   ",
+"   ..................   ",
+"    ................    ",
+"    ................    ",
+"     ..............     ",
+"     ..............     ",
+"      ............      ",
+"      ............      ",
+"       ..........       ",
+"       ..........       ",
+"        ........        ",
+"        ........        ",
+"         ......         ",
+"         ......         ",
+"          ....          ",
+"          ....          ",
+"           ..           ",
+"           ..           ",
+"                        "};

data/ruby_libs/pav/icons/vprev.xpm

@@ -0,0 +1,29 @@
+/* XPM */
+static char * vprev_xpm[] = {
+"24 24 2 1",
+" 	c None",
+".	c #000000",
+"                        ",
+"           ..           ",
+"           ..           ",
+"          ....          ",
+"          ....          ",
+"         ......         ",
+"         ......         ",
+"        ........        ",
+"        ........        ",
+"       ..........       ",
+"       ..........       ",
+"      ............      ",
+"      ............      ",
+"     ..............     ",
+"     ..............     ",
+"    ................    ",
+"    ................    ",
+"   ..................   ",
+"   ..................   ",
+"  ....................  ",
+"  ....................  ",
+" ...................... ",
+" ...................... ",
+" ......................."};

data/ruby_libs/pav/numeric/CVS/Entries

@@ -0,0 +1,2 @@
+/ext.rb/1.1.1.1/Tue Nov 15 17:32:40 2005//
+D

data/ruby_libs/pav/numeric/CVS/Repository

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

data/ruby_libs/pav/numeric/CVS/Root

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

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.rb

@@ -0,0 +1,402 @@
+require 'gtk2'
+require 'sync'
+require 'observer'
+require 'pav/sub_arr'
+require 'pav/attr_cache'
+require 'pav/string/ext'
+
+begin
+ require 'pav/pav'
+rescue LoadError
+
+module PPix
+
+class Xy
+	attr_accessor :x, :y
+	
+	def initialize(x, y)
+		@x = x
+		@y = y
+	end
+	
+	def coords_to_s
+		"(#{@x}, #{@y})"
+	end
+end
+
+class Xy
+	ADJACENT4 = [Xy.new(1, 0), Xy.new(0, 1), Xy.new(-1, 0), Xy.new(0, -1)]
+	ADJACENT8 = ADJACENT4 + [Xy.new(1,1), Xy.new(-1,1),
+					Xy.new(-1,-1), Xy.new(1, -1)]
+end
+
+class PixbufPix < Xy
+	include AttrCache
+	
+	attr_reader :pixbuf, :x, :y, :color_id, :yx
+	
+	def self.rgb_to_hsv(r, g, b)
+		# From the colorsys module of Python 2.4:
+		maxc = [r, g, b].max
+		minc = [r, g, b].min
+		v = maxc
+		return [0.0, 0.0, v] if minc == maxc
+		s = (maxc-minc) / maxc
+		rc = (maxc-r) / (maxc-minc)
+		gc = (maxc-g) / (maxc-minc)
+		bc = (maxc-b) / (maxc-minc)
+		if r == maxc then h = bc-gc
+		elsif g == maxc then h = 2.0+rc-bc
+		else h = 4.0+gc-rc; end
+		h = (h/6.0) % 1.0
+		[h, s, v]
+	end
+	
+	def initialize(pixbuf, x, y)
+		@pixbuf = pixbuf
+		@x = x
+		@y = y
+		@yx = [y, x]
+		#@pixbuf.add_observer(PixbufObserver.new(self))
+	end
+	
+	def color_id
+		#$PDbgLog.sig_call(self); c =
+		@pixbuf.pixels[@pixbuf.ofs0 + @y*@pixbuf.rowstride +
+			@x*@pixbuf.pix_length, @pixbuf.pix_length]
+		#$PDbgLog.sig_return("#{self.coords_to_s}: #{c.unpack("H*")}")
+		#c
+	end
+	
+	def color_rgb
+		#$PDbgLog.sig_call(self)
+		cid = self.color_id; clen = @pixbuf.sample_length
+		#res =
+		[cid[0,clen].bits_to_i, cid[clen, clen].bits_to_i,
+			cid[2*clen, clen].bits_to_i]
+		#$PDbgLog.sig_return("color_id=#{cid.inspect}: #{res.inspect}")
+		#res
+	end
+	
+	def color_hsv
+		r, g, b = *self.color_rgb
+		c_max = Float((1 << @pixbuf.bits_per_sample) - 1)
+		PixbufPix.rgb_to_hsv(r/c_max, g/c_max, b/c_max)
+	end
+	
+	def virtual?
+		@x < 0 || @x >= @pixbuf.picture_width || @y < 0 ||
+		@y >= @pixbuf.picture_height
+	end
+	
+	def border?(adjacents = ADJACENT8)
+		clr = self.color_id
+		for adj in adjacents
+			x, y = @x + adj.x, @y + adj.y
+			return true if x < 0 || x >= @pixbuf.picture_width ||
+				y < 0 || y >= @pixbuf.picture_height
+			return true if @pixbuf.get_pix(x, y).color_id != clr
+		end
+		false
+	end
+	
+	def border8?
+		self.border?
+	end
+	
+	def border4?
+		self.border?(ADJACENT4)
+	end
+	
+	def adj(adjacents = ADJACENT8)
+		res = []
+		for adj in adjacents
+			if (x=@x+adj.x) >= 0 && x < @pixbuf.picture_width &&
+			(y=@y+adj.y) >= 0 && y < @pixbuf.picture_height
+				res << @pixbuf[y][x]
+			end
+		end
+		res
+	end
+	
+	def adj8
+		self.adj
+	end
+	
+	def adj4
+		self.adj(ADJACENT4)
+	end
+	
+	def adj_cocolor(adjacents = ADJACENT8)
+		clr = self.color_id
+		res = []
+		adjacents.each { |adj| x, y = @x + adj.x, @y + adj.y
+			if x >= 0 && x < @pixbuf.picture_width && y >= 0 &&
+			y < @pixbuf.picture_height
+				pix = @pixbuf.get_pix(x, y)
+				res << pix if pix.color_id == clr
+			end
+		}
+		res
+	end
+	
+	def adj_cocolor8
+		self.adj_cocolor
+	end
+	
+	def adj_cocolor4
+		self.adj_cocolor(ADJACENT4)
+	end
+	
+	def adj_fuzzy_rgb_cocolor(adjacents=ADJACENT8, r_toler=10, g_toler=10,
+	b_toler=10)
+		r, g, b = *self.color_rgb
+		w = @pixbuf.picture_width; h = @pixbuf.picture_height
+		res = []
+		adjacents.each { |adj| x = @x + adj.x; y = @y + adj.y
+		  if x >= 0 && x < w && y >= 0 && y < h
+			ra, ga, ba = *(apix = @pixbuf.get_pix(x,y)).color_rgb
+			res << apix if (ra - r).abs <= r_toler &&
+				(ga - g).abs <= g_toler &&
+				(ba - b).abs <= b_toler
+		  end
+		}
+		res
+	end
+	
+	def adj_fuzzy_hsv_cocolor(adjacents=ADJACENT8, h_toler=0.1, s_toler=0.1,
+	v_toler=0.1)
+		h, s, v = *self.color_hsv
+		w = @pixbuf.picture_width; hgt = @pixbuf.picture_height
+		res = []
+		adjacents.each { |adj| x = @x + adj.x; y = @y + adj.y
+		  if x >= 0 && x < w && y >= 0 && y < hgt
+			ha, sa, va = *(apix = @pixbuf.get_pix(x,y)).color_hsv
+			res << apix if (ha - h).abs <= h_toler &&
+				(sa - s).abs <= s_toler &&
+				(va - v).abs <= v_toler
+		  end
+		}
+		res
+	end
+	
+	#cache_attr! :color_id, :color_rgb
+	#freeze_cache_attr! :border8?, :border4?, :adj8, :adj4, :adj_cocolor8,
+	#	:adj_cocolor4, :adj_border_cocolor8_4, :color_hsv
+	
+	def color_id=(val)
+		@pixbuf.set_pix(@x, @y, val)
+	end
+	
+	def hash
+		#@x.hash + @y.hash + @pixbuf.hash
+		#self.yx.hash
+		@y * @pixbuf.width + @x
+	end
+end
+
+class Pixbuf #< Gdk::Pixbuf
+	#include Sync_m
+	
+	attr_accessor :border_width, :ofs0, :picture_width, :picture_height
+	attr_reader :pix_length, :sample_length
+	
+	def initialize(*args)
+		unless args.length==1 && (@under=args[0]).kind_of?(Gdk::Pixbuf)
+			@under = Gdk::Pixbuf.new(*args)
+		end
+		@virtual_pix = {}
+		@sample_length = self.bits_per_sample / 8
+		@pix_length = self.n_channels * @sample_length
+		@picture_width = self.width
+		@picture_height = self.height
+		@border_width = 0
+		@ofs0 = 0
+	end
+	
+	def method_missing(id, *args, &block)
+		@under.send(id, *args, &block)
+	end
+	
+	def get_pix(x, y)
+		if x < 0 || y < 0 || x >= @picture_width || y >= @picture_height
+			tmp = @virtual_pix[[y, x]]
+			return tmp if tmp
+			return (@virtual_pix[[y, x]] = PixbufPix.new(self,x,y))
+		end
+	end
+	
+	def set_pix(x, y, clr)
+		if x < 0
+			if x < -self.width
+				return nil
+			else	x = self.width+x end
+		else
+			if x >= self.width
+				return nil
+			end
+		end
+		if y < 0
+			if y < -self.height
+				return nil
+			else	y = self.height+y end
+		else
+			if y >= self.height
+				return nil
+			end
+		end
+		ofs = y*@rowstride + x*@pix_length
+		self.synchronize {
+			self.changed( c = (@pixels[ofs,@pix_length]==
+				(@pixels[ofs,@pix_length]=clr)) )
+			if c
+			  self.notify_observers(self, "set_pix",[x,y,clr],nil)
+			  pix.update(self, "set_pix",[x,y,clr],nil) if
+			  	@scanlines[y] && (pix = @scanlines[y].pixels[x])
+			end
+		}
+	end
+	
+	def dup
+		Pixbuf.new(@pixels.dup, @width, @height, @n_channels,
+			@rowstride)
+	end
+	
+	def add_border(width)
+		res_pb = Gdk::Pixbuf.new(self.colorspace, self.has_alpha?,
+			self.bits_per_sample, self.width+2*width,
+			self.height+2*width)
+		res_pb.scale!(@under, width, width,
+			self.width+width, self.height+width, width, width,
+			1, 1, Gdk::Pixbuf::INTERP_NEAREST)
+		res_pb = Pixbuf.new(res_pb)
+		res_pb.picture_width = self.picture_width
+		res_pb.picture_height = self.picture_height
+		res_pb.border_width = self.border_width + width
+		res_pb
+	end
+	
+	def scaled(kx, ky, x, y, width, height)
+		res_pb = Gdk::Pixbuf.new(self.colorspace, self.has_alpha?,
+			self.bits_per_sample, width, height)
+		res_pb.scale!(@under, 0, 0, width, height, -x, -y, kx, ky,
+			Gdk::Pixbuf::INTERP_NEAREST)
+		res_pb
+	end
+	
+	def dup
+		res = Pixbuf.new(@under.dup)
+		res.picture_width = self.picture_width
+		res.picture_height = self.picture_height
+		res.ofs0 = self.ofs0
+		res.border_width = self.border_width
+		res
+	end
+	
+	def <=>(other)
+		return leg if (leg = @width <=> other.width) != 0
+		return leg if (leg = @height <=> other.height) != 0
+		return leg if (leg = @pix_length <=> other.pix_length) != 0
+		self.object_id <=> other.object_id
+		#@pixels <=> other.pixels
+	end
+	
+	#cache_attr! :pixels
+end
+
+end # module PPix
+
+end # require 'pav/pav'
+
+module PPix
+
+class Xy
+	include Comparable
+	
+	ADJ8_CCW_ORDER = [Xy.new(1,-1), Xy.new(0,-1), Xy.new(-1,-1),
+	  Xy.new(-1,0), Xy.new(-1,1), Xy.new(0,1), Xy.new(1,1), Xy.new(1,0)]
+	
+	ADJ4_CCW_ORDER = (0...4).collect {|i| ADJ8_CCW_ORDER[2*i+1] }
+	
+	def neighb8?(pix)
+		dx = (self.x - pix.x).abs; dy = (self.y - pix.y).abs
+		dx < 2 && dy < 2
+	end
+	
+	def neighb4?(pix)
+		dx = (self.x - pix.x).abs; dy = (self.y - pix.y).abs
+		(dx < 2 && dy == 0) || (dy < 2 && dx == 0)
+	end
+	
+	def self.path_to_s(path)
+		path.collect { |xy| xy.coords_to_s }.join(' ')
+	end
+	
+	def <=>(other)
+		self.yx <=> other.yx
+	end
+	
+	def hash
+		self.yx.hash
+	end
+	
+	def eql?(xy)
+		self.yx == xy.yx
+	end
+end
+
+module MPixbufPix
+	def adj_border_cocolor(adjacents = ADJACENT8, border_adj = ADJACENT4)
+		self.adj(adjacents).find_all { |pix| pix.border?(border_adj) }
+	end
+	
+	def adj_border_cocolor8_4
+		self.adj_border_cocolor
+	end
+	
+	def adj_border_cocolor4_8
+		self.adj_border_cocolor(ADJACENT4, ADJACENT8)
+	end
+	
+	def end_pt_excl_yx_set?(excl_set)
+		self.adj8.find_all { |pix| !excl_set.include?(pix.yx) }.length<2
+	end
+	
+	def end_pt_incl_set?(incl_set)
+		self.adj8.find_all { |pix| incl_set.include?(pix) }.length < 2
+	end
+	
+	#def to_s
+	#	self.class.name + self.coords_to_s 
+	#end
+end
+
+class Xy
+	def adj8_get_i(adj)
+		x = adj.x - self.x; y = adj.y - self.y
+		Xy::ADJ8_CCW_ORDER.each_with_index{ |a,i|
+			return i if a.y == y && a.x == x }
+		nil
+	end
+	
+	def self.adj8_xy_id(dx, dy)
+		((dy + 1) << 2) | (dx + 1)
+	end
+	
+	tmp1 = []
+	ADJ8_CCW_ORDER.each_with_index { |a,i| tmp1[self.adj8_xy_id(a.x,a.y)] = 
+		[a, i, 1<<i] }
+	tmp1[self.adj8_xy_id(0,0)] = [nil, 8, 0]
+	ADJ8_ID2SPEC = tmp1
+	
+	def adj8_situation_id(neighbs)
+		res = 0
+		for ngb in neighbs
+			res |= Xy::ADJ8_ID2SPEC.at(PixbufPix.adj8_xy_id(
+				ngb.x - self.x, ngb.y - self.y)).at(2)
+		end
+		res
+	end
+end
+
+end