extract_curves 0.0.1-mswin32

data/ruby_libs/pav/pix/contour/carp_calc.rb

@@ -0,0 +1,212 @@
+require 'pav/pix'
+require 'pav/pix/subpix'
+
+module PPix
+
+class ContourCarpetCalc
+	def self.subpix_situ8_unpack(situ)
+		res = Array.new(8, 0)
+		pos = 0
+		while situ > 0
+			res[pos] = situ % 3
+			pos += 1
+			situ /= 3
+		end
+		res
+	end
+	
+	def self.subpix_situ8p_unpack(situ)
+		res = Array.new(9, 0)
+		res[-1] = 1
+		pos = 0
+		while situ > 0
+			res[pos] = situ % 3
+			pos += 1
+			situ /= 3
+		end
+		res
+	end
+	
+	def self.subpix_situ8_pack(situ_arr)
+		#$PDbgLog.sig_call(self)
+		res = 0; order = 1
+		for ngb_id in situ_arr
+			res += order * ngb_id
+			order *= 3
+		end
+		#$PDbgLog.sig_return(situ_arr.inspect + ": 0x%x" % res)
+		res
+	end
+	
+	def self.situ_subpix_goable_to(situ, sub_n, subpix_class, border_id)
+		situ_arr = self.subpix_situ8p_unpack(situ)
+		subpix_class::SUB_N_BORDER[sub_n].detect { |bordn_spec|
+			situ_arr[Xy::ADJ8_ID2SPEC[PixbufPix.adj8_xy_id(
+				bordn_spec.x, bordn_spec.y)][1]] == border_id
+		}
+	end
+	
+	def self.subpix_situ_neighbs(situ, sub_n, subpix_class, border_id)
+		#$PDbgLog.sig_call(self)
+		situ_arr = self.subpix_situ8p_unpack(situ)
+		#$PDbgLog.print_msg("situ=#{"0x%x" % situ}, sub_n=#{sub_n
+		#  }, subpix_class=#{subpix_class.name}, border_id=#{border_id
+		#  }; situ_arr=#{situ_arr.inspect}: ")
+		res = []
+		subpix_class::SUB_N_NEIGHBS[sub_n].each_with_index {|ngb_spec,i|
+		  if situ_arr[Xy::ADJ8_ID2SPEC[PixbufPix.adj8_xy_id(
+				x=ngb_spec.x, y=ngb_spec.y)][1]] == 1 &&
+		  subpix_class::SUB_N_BORDER[ngb_spec.sub_n].detect{|bordn_spec|
+			  situ_arr[Xy::ADJ8_ID2SPEC[PixbufPix.adj8_xy_id(
+				x+bordn_spec.x, y+bordn_spec.y)][1]]==border_id
+		  }
+			res[i/2] = ngb_spec
+		  end
+		}
+		#$PDbgLog.sig_return(res.inspect)
+		res
+	end
+	
+	def self.subpix_situ_path(situ, sub_n_0, subpix_class, external)
+		#$PDbgLog.sig_call(self)
+	#	$PDbgLog.print_msg "situ=%x, sub_n_0=#{sub_n_0}, subpix_class=#{
+	#		subpix_class.name}, external=#{external}: " % situ
+		border_id = external ? 2 : 0
+		if sub_n_0 >= subpix_class::SUB_N_NEIGHBS.length-1
+			ngbs = self.subpix_situ_neighbs(situ, sub_n_0,
+				subpix_class, border_id)
+			unless (n = ngbs.detect {|ngb| ngb})
+				#$PDbgLog.sig_return('Empty.')
+				return []
+			end
+		else
+			unless self.situ_subpix_goable_to(situ, sub_n_0,
+			subpix_class, border_id)
+				#$PDbgLog.sig_return('[]')
+				return []
+			end
+			n = SubXy.new(0, 0, sub_n_0)
+		end
+		res = [prev_n = n]
+		ngbs0 = self.subpix_situ_neighbs(situ, n.sub_n, subpix_class,
+			border_id)
+		n = ngbs0[0]
+		while n
+			res.unshift(n)
+			break if n.y != 0 || n.x != 0
+			ngbs = self.subpix_situ_neighbs(situ, n.sub_n,
+				subpix_class, border_id)
+			tmp = n
+			n = ngbs.first == prev_n ? ngbs.last : ngbs.first
+			if res.include?(n)
+				#$PDbgLog.sig_return(res.inspect)
+				return res
+			end
+			prev_n = tmp
+		end
+		prev_n = res.last
+		n = ngbs0[1]
+		#$PDbgLog.puts_msg "half1: " + res.inspect + ": "
+		#$PDbgLog.puts_msg "prev_n=#{prev_n}, n=#{n}: "
+		#$PDbgLog.puts_msg "res.include?(n): #{res.include?(n)}"
+		while n && !res.include?(n)
+			res << n
+			break if n.y != 0 || n.x != 0
+			ngbs = self.subpix_situ_neighbs(situ, n.sub_n,
+				subpix_class, border_id)
+			#$PDbgLog.puts_msg "ngbs: #{ngbs.inspect}"
+			tmp = n
+			n = ngbs.first == prev_n ? ngbs.last : ngbs.first
+			prev_n = tmp
+		end
+		#$PDbgLog.sig_return(res.inspect)
+		res
+	end
+	
+	def self.subpix_path_border_dirs8_id(path, subpix_class)
+		res = 0
+		for ngb_spec in path
+			subpix_class::SUB_N_BORDER[ngb_spec.sub_n].each { |n|
+			  res |= Xy::ADJ8_ID2SPEC.at(PixbufPix.
+			    adj8_xy_id(n.x, n.y)).at(2) if n.y != 0 || n.x != 0
+			}
+		end
+		res
+	end
+	
+	def self.subpix_pix_path_normalize(path, subpix_class)
+		res = path.collect { |spec| spec.sub_n }
+		cyc = subpix_class::SUB_N_NEIGHBS.length-1
+		if res.length > 1 && res.first == (res.last + 1) % cyc
+			i_min = min_sub_n = 1.0/0.0
+			res.each_with_index { |sub_n, i|
+				if sub_n < min_sub_n
+					min_sub_n = sub_n; i_min = i
+				end
+			}
+			tmp = []
+			res.each_index {|i| tmp << res[(i+i_min) % res.length] }
+			res = tmp
+		end
+		res
+	end
+	
+	ContourPathLm = Struct.new("ContourPathLm", #:sub_n_path,
+		:entry, :exit, :border_dirs8_id, :path_horiz_cnt,
+		:path_vert_cnt)
+	
+	def self.get_id2lm(subpix_class, external, c_path_lms={})
+	  $PDbgLog.sig_call(self)
+	  $PDbgLog.new_progr
+	  $PDbgLog.progr.show_as = "/ situations"
+	  $PDbgLog.progr.total_progr_units = 3**8
+	  res =
+	  (0...3**8).collect { |situ8|
+	    $PDbgLog.progr.progr_units = situ8
+	    sub_n_lms = Array.new(subpix_class::SUB_N_NEIGHBS.length, nil)
+	    (0...subpix_class::SUB_N_NEIGHBS.length).each { |sub_n_0|
+		path = self.subpix_situ_path(situ8, sub_n_0, subpix_class,
+			external)
+		if path[0] && (path[0].y != 0 || path[0].x != 0)
+			p_entry = path.shift
+		else
+			p_entry = nil
+		end
+		if path.last && (path.last.y != 0 || path.last.x != 0)
+			p_exit = path.pop
+		else
+			p_exit = nil
+		end
+		path_lm = ContourPathLm.new(
+		  #self.subpix_pix_path_normalize(path, subpix_class),
+		  p_entry, p_exit,
+		  self.subpix_path_border_dirs8_id(path, subpix_class),
+		  path.find_all{|spec| subpix_class.horizontal?(spec.sub_n)}.
+		  	length,
+		  path.find_all{|spec| subpix_class.vertical?(spec.sub_n)}.
+		  	length)
+		path_lm = c_path_lms.include?(path_lm) ? c_path_lms[path_lm] :
+			(c_path_lms[path_lm] = path_lm)
+		path.each { |spec| sub_n = spec.sub_n
+		  if sub_n_lms[sub_n]
+		    if sub_n_lms[sub_n] != path_lm
+			raise "Conflicting path elements for #{subpix_class.name
+				}, #{external ? 'ex' : 'in'}ternal, situ8=#{
+				situ8}, sub_n=#{sub_n} from sub_n_0=#{sub_n_0
+				}: #{sub_n_lms[sub_n]} vs. #{path_lm}!"
+		    end
+		  else
+			sub_n_lms[sub_n] = path_lm
+		  end
+		}
+		sub_n_lms[sub_n_0] = path_lm
+	    }
+	    sub_n_lms
+	  }
+	  $PDbgLog.progr.progr_units += 1
+	  $PDbgLog.sig_return(' done.')
+	  res
+	end
+end
+
+end

data/ruby_libs/pav/pix/contour/situations.rb

@@ -0,0 +1,21 @@
+require 'pav/pav_find'
+require 'pav/string/ext'
+require 'pav/pix/contour/carp_calc'
+
+module PPix
+
+class ContourCarpetCalc
+	PavFind.pfind($:) { |path|
+	  if path.ends_with('pav/pix/contour/situations.dmp')
+	    open(path, 'r') { |file|
+		CONTOUR_PATH_EXTERNAL_SITU8_ID2LM,
+		CONTOUR_PATH_INTERNAL_SITU8_ID2LM,
+		CONTOUR_PATH_EXTERNAL_SITU4_ID2LM,
+		CONTOUR_PATH_INTERNAL_SITU4_ID2LM = *Marshal.load(file)
+	    }
+	    break
+	  end
+	}
+end
+
+end