extract_curves 0.0.1

data/ruby_libs/pav/floatsio.rb

@@ -0,0 +1,53 @@
+class FloatsInp
+	@@float_pat = Regexp.compile(/[+-]?(?:[0-9]+[.]?[0-9]*|[0-9]*[.]?[0-9]+)(?:[eE]?[0-9]*[.]?[0-9]*|)/)
+	
+	attr_reader :io, :rec_buf
+	
+	def initialize(*args)
+		@rec_buf = []
+		if args[0].kind_of?(IO)
+			@io = args[0]
+		else
+			@io = File.new(*args)
+		end
+	end
+	
+	def method_missing(id, *args, &block)
+		@io.send(id, *args, &block)
+	end
+	
+	def get_float
+		if @rec_buf.empty? && (ln = self.gets)
+			ln.scan(@@float_pat) { |f| @rec_buf << f.to_f }
+		end
+		@rec_buf.shift
+	end
+	
+	def each_float
+		while (f = self.get_float)
+			yield(f)
+		end
+	end
+	
+	def get_rec
+		if @rec_buf.empty?
+			return nil unless (ln = self.gets)
+			ln.scan(@@float_pat) { |f| @rec_buf << f.to_f }
+		end
+		res = @rec_buf
+		@rec_buf = []
+		res
+	end
+	
+	def each_rec
+		while (rec = self.get_rec)
+			yield(rec)
+		end
+	end
+	
+	def read_recs
+		res = []
+		self.each_rec { |rec| res << rec }
+		res
+	end
+end

data/ruby_libs/pav/generator_cache.rb

@@ -0,0 +1,165 @@
+#require 'generator'
+
+class GeneratorCacheArr < Array
+	def initialize(gen_spec=nil)
+		if !gen_spec
+			@gen_func = Proc.new
+		elsif gen_spec.kind_of?(Proc) || gen_spec.kind_of?(Method)
+			@gen_func = gen_spec
+		else
+			@gen_func = gen_spec.method("each")
+		end
+		@end = false
+		@next_lm = nil
+		super()
+		self.rewind
+	end
+	
+	def end?
+		@end
+	end
+	
+	def next?
+		!@end
+	end
+	
+	def rewind
+		callcc { |@ret|
+			@gen_func.call { |lm|
+				callcc { |@next_lm| @ret.call }
+				self << lm
+			}
+			@end = true
+			@next_lm = proc {
+				raise EOFError, "no more elements available" }
+			@ret.call
+		}
+		self.clear
+	end
+	
+	def next
+		callcc { |@ret| @next_lm.call }
+		self.last
+	end
+	
+	def current
+		self.last
+	end
+	
+	def index
+		self.length - 1
+	end
+	
+	def cache_upto(last_i)
+		if last_i
+			self.length.upto(last_i) {
+				return if @end
+				self.next
+			}
+		else
+			while !@end
+				self.next
+			end
+		end
+	end
+	
+	def [](*args)
+		if args.length == 1
+			i = args[0]
+			if i.kind_of? Range
+				if i.first < 0
+					last_i = nil
+				elsif i.last >= i.first
+					last_i = i.last + (i.exclude_end? ? 0:1)
+				else
+					if i.last + (i.exclude_end? ? 0:-1) < 0
+						last_i = nil
+					else
+						last_i = i.first
+					end
+				end
+			elsif i.kind_of? Array
+				last_i = i.max
+			elsif i.kind_of? Integer
+				if i < 0
+					last_i = nil
+				else
+					last_i = i
+				end
+			else
+				raise ArgumentError,
+					"Wrong single argument: #{i.inspect}"
+			end
+		elsif args.length == 2
+			last_i = args[0] + args[1] - 1
+		else
+			raise ArgumentError,
+				"Wrong numbef of arguments: #{args.inspect}"
+		end
+		self.cache_upto(last_i)
+		super(*args)
+	end
+end
+
+=begin
+class GeneratorCacheArr < Generator
+	def initialize(*args, &block)
+		@arr = []
+		super(*args, &block)
+	end
+	
+	def cache_upto(last_i)
+		if last_i
+			self.index.upto(last_i) {
+				return if self.end?
+				@arr << self.next
+			}
+		else
+			while !self.end?
+				@arr << self.next
+			end
+		end
+	end
+	
+	def [](*args)
+		if args.length == 1
+			i = args[0]
+			if i.kind_of? Range
+				if i.first < 0
+					last_i = nil
+				elsif i.last >= i.first
+					last_i = i.last + (i.exclude_end? ? 0:1)
+				else
+					if i.last + (i.exclude_end? ? 0:-1) < 0
+						last_i = nil
+					else
+						last_i = i.first
+					end
+				end
+			elsif i.kind_of? Array
+				last_i = i.max
+			elsif i.kind_of? Integer
+				if i < 0
+					last_i = -i-1
+				else
+					last_i = i
+				end
+			else
+				raise ArgumentError,
+					"Wrong single argument: #{i.inspect}"
+			end
+		elsif args.length == 2
+			last_i = args[0] + args[1] - 1
+		else
+			raise ArgumentError,
+				"Wrong numbef of arguments: #{args.inspect}"
+		end
+		self.cache_upto(last_i)
+		@arr[*args]
+	end
+	
+	def []=(*args)
+		@arr.[]=(*args)
+	end
+end
+=end

data/ruby_libs/pav/gtk/CVS/Entries

@@ -0,0 +1,4 @@
+/button.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/icons.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+/toolbar.rb/1.1.1.1/Tue Nov 15 17:32:12 2005//
+D

data/ruby_libs/pav/gtk/CVS/Repository

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

data/ruby_libs/pav/gtk/CVS/Root

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

data/ruby_libs/pav/gtk/button.rb

@@ -0,0 +1,130 @@
+require 'gtk2'
+require 'pav/gtk/icons'
+
+module PGtk
+
+class Button < Gtk::Viewport
+	attr_reader :content, :content_hover, :content_pressed, :hovered,
+		:pressed, :show_box, :hide_box
+	attr_accessor :left_click_proc, :middle_click_proc,
+		:right_click_proc
+	
+	def initialize(cont_spec=nil, w_cont_hover=nil, h_cont_hover=nil,
+	cont_hover=nil, cont_pressed=nil, &left_click_proc)
+		if cont_pressed
+			@content = PGtk.stock_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_image_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+			@content_pressed = PGtk.stock_image_of_size(
+				cont_pressed, w_cont_hover, h_cont_hover)
+		elsif cont_hover
+			@content = PGtk.stock_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = PGtk.stock_image_of_size(cont_hover,
+				w_cont_hover, h_cont_hover)
+		elsif h_cont_hover
+		  if w_cont_hover.kind_of?(Integer)
+			@content = PGtk.stock_image_of_size(cont_spec,
+				w_cont_hover, h_cont_hover)
+			@content_hover = nil
+		  else
+			@content = Gtk::Image.new(cont_spec, h_cont_hover)
+			@content_hover = Gtk::Image.new(w_cont_hover,
+				h_cont_hover)
+		  end
+		elsif w_cont_hover
+		  if w_cont_hover.kind_of?(Symbol)
+			@content = Gtk::Image.new(cont_spec,
+				Gtk::IconSize::BUTTON)
+			@content_hover = Gtk::Image.new(w_cont_hover,
+				Gtk::IconSize::BUTTON)
+		  else
+			@content = Gtk::Image.new(cont_spec, w_cont_hover)
+			@content_hover = nil
+		  end
+		elsif cont_spec
+			@content = Gtk::Image.new(cont_spec,
+				Gtk::IconSize::BUTTON)
+			@content_hover = nil
+		end
+		@left_click_proc = left_click_proc if block_given?
+		super(nil, nil)
+		@show_box = Gtk::HBox.new(false, 1)
+		@hide_box = Gtk::HBox.new(false, 1)
+		self << @show_box
+		@show_box.pack_start(@content, true, true) if @content
+		@hide_box.pack_start(@content_hover, true, true) if
+			@content_hover
+		@hide_box.pack_start(@content_pressed, true, true) if
+			@content_pressed
+		self.events |=	Gdk::Event::BUTTON_RELEASE_MASK |
+				Gdk::Event::BUTTON_PRESS_MASK |
+				Gdk::Event::ENTER_NOTIFY_MASK |
+				Gdk::Event::LEAVE_NOTIFY_MASK
+		self.shadow_type = Gtk::SHADOW_OUT
+		self.signal_connect('button_press_event') { |wgt, ev|
+			@pressed = ev.button
+			if [@left_click_proc, @middle_click_proc,
+			 @right_click_proc].at(@pressed-1) &&
+			@content_pressed
+			 	tmp=(@content_hover ? @content_hover : @content)
+				tmp.reparent(@hide_box)
+				tmp.hide
+				@content_pressed.reparent(@show_box)
+				@content_pressed.show
+			end
+			false
+		}
+		self.signal_connect('button_release_event') { |wgt, ev|
+			@pressed = nil
+			if @content_pressed
+				@content_pressed.reparent(@hide_box)
+				@content_pressed.hide
+			 	tmp=(@content_hover ? @content_hover : @content)
+				tmp.reparent(@show_box)
+				tmp.show
+			end
+			if @hovered &&(tmp=[@left_click_proc,@middle_click_proc,
+			@right_click_proc].at(ev.button-1))
+				tmp.call(wgt, ev)
+			else
+				false
+			end
+		}
+		self.signal_connect('enter_notify_event') { |wgt, ev|
+			@hovered = true
+			if @pressed && [@left_click_proc, @middle_click_proc,
+			 @right_click_proc].at(@pressed-1) &&
+			@content_pressed
+				@content.reparent(@hide_box)
+				@content.hide
+				@content_pressed.reparent(@show_box)
+				@content_pressed.show
+			elsif @content_hover
+				@content.reparent(@hide_box)
+				@content.hide
+				@content_hover.reparent(@show_box)
+				@content_hover.show
+			end
+			false
+		}
+		self.signal_connect('leave_notify_event') { |wgt, ev|
+			@hovered = false
+			if @pressed
+				@content_pressed.reparent(@hide_box)
+				@content_pressed.hide
+				@content_hover.reparent(@hide_box)
+				@content_hover.hide
+			elsif @content_hover
+				@content_hover.reparent(@hide_box)
+				@content_hover.hide
+			end
+			@content.reparent(@show_box)
+			@content.show
+			false
+		}
+	end
+end
+
+end

data/ruby_libs/pav/gtk/icons.rb

@@ -0,0 +1,87 @@
+require 'gtk2'
+require 'pav/pav_find'
+require 'pav/string/ext'
+
+module PGtk
+
+pgtk_symbs = [[:"pgtk-handle", 'Handle', 'alt_handle.xpm'],
+	[:"pgtk-handle-hover", 'Handle', 'alt_handle_hover.xpm'],
+	[:"pgtk-handle-pressed", 'Handle', 'alt_handle_pressed.xpm'],
+	[:"pgtk-previous", 'Previous', 'prev.xpm'],
+	[:"pgtk-previous-hover", 'Previous', 'prev_hover.xpm'],
+	[:"pgtk-previous-pressed", 'Previous', 'prev_pressed.xpm'],
+	[:"pgtk-next", 'Next', 'next.xpm'],
+	[:"pgtk-next-hover", 'Next', 'next_hover.xpm'],
+	[:"pgtk-next-pressed", 'Next', 'next_pressed.xpm'],
+	[:"pgtk-vertical-previous", 'Vertical previous', 'vprev.xpm'],
+	[:"pgtk-vertical-next", 'Vertical next', 'vnext.xpm']]
+pgtk_symbs.each { |s| Gtk::Stock.add(s[0], s[1]) }
+ifactory = Gtk::IconFactory.new
+ifactory.add_default
+pb_handle = pb_vhandle = nil
+found_cnt = 0
+PavFind.pfind($:) { |path|
+  pgtk_symbs.each { |s|
+	if path.ends_with("pav/icons/" + s[2]) && !s[3]
+		s[3] = Gdk::Pixbuf.new(path)
+		break if (found_cnt += 1) >= pgtk_symbs.length
+	end
+  }
+  break if found_cnt >= pgtk_symbs.length
+}
+pgtk_symbs.each { |s| ifactory.add(s[0].to_s, Gtk::IconSet.new(s[3])) }
+
+@icon_cache = {}
+
+def self.find_icon_file(fpath)
+	PavFind.pfind($:) { |path|
+		return path if path.ends_with(fpath)
+	}
+end
+
+def self.stock_image_of_size(stock_id, w, h)
+	if (tmp = @icon_cache[[stock_id, w, h]])
+		tmp.kind_of?(Gdk::Pixbuf) ?  Gtk::Image.new(tmp) :
+			Gtk::Image.new(stock_id, tmp)
+	end
+	icon_set = Gtk::IconFactory.lookup_default(stock_id.to_s) ||
+		Gtk::IcontFactory.lookup_default("gtk-missing-image")
+	max_size = nil
+	max_sz = [0,0]
+	found_size = nil
+	icon_set.sizes.each { |size|
+		if (sz=Gtk::IconSize.lookup(size)) == [w, h]
+			found_size = size
+		end
+		if sz[0]*sz[1] > max_sz[0]*max_sz[1]
+			max_size = size
+			max_sz = Gtk::IconSize.lookup(max_size)
+		end
+	}
+	if found_size
+		@icon_cache[[stock_id, w, h]] = found_size
+		Gtk::Image.new(stock_id, found_size)
+	else
+		wd = Gtk::Window.new
+		pb=wd.render_icon(stock_id,max_size,stock_id.to_s+":#{w}x#{h}").
+			scale(w, h, Gdk::Pixbuf::INTERP_BILINEAR)
+		wd.destroy
+		@icon_cache[[stock_id, w, h]] = pb
+		Gtk::Image.new(pb)
+	end
+end
+
+def self.stock_icon_btn_of_size(window, stock_id, w, h)
+	res = Gtk::Button.new << self.stock_image_of_size(stock_id, w-10, h-10)
+	res.set_size_request(w, h)
+	res
+end
+
+def self.stock_icon_tool_btn_of_size(window, stock_id, w, h)
+	res = Gtk::ToolButton.new("")
+	res.icon_widget = self.stock_image_of_size(stock_id, w-10, h-10)
+	res.set_size_request(w, h)
+	res
+end
+	
+end