extract_curves 0.0.1-i586-linux

data/ruby_libs/pav/pix/curve.rb

@@ -0,0 +1,1508 @@
+require 'set'
+require 'pav/pix'
+require 'pav/set'
+require 'pav/search'
+require 'pav/sub_arr'
+require 'pav/pix/aapix'
+require 'pav/pix/subpix'
+require 'pav/pix/contour'
+require 'pav/pix/img_obj'
+require 'pav/pix/node_grp'
+
+module PPix
+
+class Blob
+	self.img_obj_add_to_sub_objs :curve_carpet
+	
+	def curve_carpet(multiple_curves=false)
+		return @curve_carp if @curve_carp
+		$PDbgLog.sig_call(self)
+		@curve_carp = CurveCarpet.new(self, multiple_curves)
+		$PDbgLog.sig_return
+		@curve_carp
+	end
+	
+	def delete_curve_carpet
+		@curve_carp = nil
+	end
+end
+
+class LoopSegs < Array
+	attr_reader :lp, :prev_segs_i, :prev_lp_i
+	
+	def initialize(lp)
+		@lp = lp
+		super()
+		self.rewind
+	end
+	
+	def rewind
+		@prev_segs_i = 0
+		if self.empty?
+			@prev_lp_i = 0
+		else
+			@prev_lp_i = self[0][0]
+		end
+	end
+	
+	def append_seg(ofs_from_last_start, len)
+		self << [ofs_from_last_start, len]
+	end
+	
+	def extend_seg_to(seg_i, seg_start_i, end_i)
+		j = seg_i
+		j_i = seg_start_i
+		while j + 1 < self.length && j_i + self[j+1][0] <= end_i
+			j += 1
+			j_i += self[j][0] 
+		end
+		if tmp = j_i + self[j][1] > end_i then end_i = tmp; end
+		self[seg_i][1] = end_i - seg_start_i
+		self[seg_i+1..j] = nil
+	end
+	
+	def subtract_seg(start_i, end_i)
+		#$PDbgLog.sig_call(self)
+		seg_i, lp_i = *self.cpix_i_get_seg_i_start(start_i)
+		#$PDbgLog.print_msg "#{start_i}..#{end_i}: seg_i=#{seg_i
+		#	}, lp_i=#{lp_i}; "
+		if seg_i >= 0
+			if start_i <= lp_i
+			  if end_i+1 < lp_i + self[seg_i][1]
+				len_ch = end_i+1 - lp_i
+				self[seg_i][0] += len_ch
+				self[seg_i][1] -= len_ch
+				@prev_segs_i = seg_i
+				@prev_lp_i = end_i+1
+				#$PDbgLog.sig_return(".")
+				return
+			  else
+			  	lp_i -= self[seg_i][0]
+			  end
+			elsif end_i+1 < lp_i + self[seg_i][1]
+				self[seg_i+1, 0] = [[end_i+1 - lp_i,
+					lp_i + self[seg_i][1] - end_i]]
+				self[seg_i][1] = start_i-lp_i
+				@prev_segs_i = seg_i
+				@prev_lp_i = lp_i
+				#$PDbgLog.sig_return(".")
+				return
+			else
+				self[seg_i][1] = start_i-lp_i
+				seg_i += 1
+			end
+		else
+			seg_i = -seg_i-1
+		end
+		@prev_segs_i = seg_i-1
+		@prev_lp_i = lp_i
+		if (j = seg_i) >= self.length
+			#$PDbgLog.sig_return(".")
+			return
+		end
+		j_i = lp_i + self[seg_i][0]
+		#$PDbgLog.print_msg "j=#{j}, j_i=#{j_i}; "
+		while j+1 < self.length && j_i + self[j+1][0] < end_i
+			j += 1; j_i += self[j][0]
+		end
+		#$PDbgLog.print_msg "j=#{j}, j_i=#{j_i}; "
+		if j_i + self[j][1] > end_i+1
+			self[j][0] = end_i - lp_i
+			self[j][1] -= end_i - j_i
+			self[j+1][0] -= end_i - j_i if j+1 < self.length
+		else
+			j += 1
+			self[j][0] = j_i + self[j][0] - lp_i if j < self.length
+		end
+		self[seg_i...j] = nil
+		#$PDbgLog.sig_return(".")
+	end
+	
+	def each_seg_with_index
+		lp_i = 0
+		self.each_with_index { |seg, seg_i| lp_i += seg[0]
+			yield(SubArr.new(@lp, lp_i, lp_i+seg[1]), seg_i)
+		}
+	end
+	
+	def each_abs_seg
+		lp_i = 0
+		self.each { |seg| lp_i += seg[0]; yield(lp_i, lp_i + seg[1]) }
+	end
+	
+	def map_cpix!(cpix_i, maps_to)
+		#$PDbgLog.sig_call(self)
+		len_ch = maps_to.length - 1
+		#$PDbgLog.puts_msg "(#{cpix_i}) len_ch=#{len_ch} in #{self.to_s(
+		#	0, true)}"
+		self.rewind if @prev_lp_i > cpix_i
+		if @prev_segs_i >= self.length || @prev_segs_i < 0
+			self.rewind
+			if @prev_segs_i >= self.length
+				warn "LoopSegs.map_cpix!: BUG: @prev_segs_i(=#{
+				 @prev_segs_i}) >= self.length(=#{self.length})"
+				#$PDbgLog.sig_return
+				return
+			end
+		end
+		loop do
+			if @prev_lp_i > cpix_i
+				#$PDbgLog.puts_msg "Mapped pixel out of " +
+				#  "LoopSegs: #{self.segs_to_s(2)}"
+				#$PDbgLog.sig_return
+				return
+			end
+			break if @prev_lp_i + self[@prev_segs_i][1] > cpix_i
+			@prev_segs_i += 1
+			if @prev_segs_i >= self.length
+				#$PDbgLog.puts_msg "Mapped pixel out of " +
+				#  "LoopSegs: #{self.segs_to_s(2)}"
+				self.rewind
+				#$PDbgLog.sig_return
+				return
+			end
+			@prev_lp_i += self[@prev_segs_i][0]
+		end
+		lp_i = @prev_lp_i
+		segs_i = @prev_segs_i
+		while lp_i <= cpix_i
+			if lp_i + self[segs_i][1] > cpix_i &&
+			(self[segs_i][1] += len_ch) < 1
+				self[segs_i][0] -= 1 if lp_i >= @lp.length
+				self[segs_i][1] += 1
+			end
+			segs_i += 1
+			break if segs_i >= self.length
+			lp_i += self[segs_i][0]
+		end
+		self[segs_i][0] += len_ch if segs_i < self.length
+		#$PDbgLog.puts_msg "Segs: #{self.segs_to_s(2)}"
+		#$PDbgLog.sig_return
+	end
+	
+	def cpix_i_get_seg_i_start(cpix_i)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "(#{cpix_i}) in #{self.to_s(0, true)}"
+		if @prev_lp_i > cpix_i || @prev_segs_i >= self.length ||
+		@prev_segs_i < 0
+			self.rewind
+			if @prev_segs_i >= self.length || @prev_lp_i > cpix_i
+				#$PDbgLog.sig_return
+				return [-1, 0]
+			end
+		end
+		loop do
+			break if @prev_lp_i + self[@prev_segs_i][1] > cpix_i
+			if @prev_segs_i+1 >= self.length
+				#$PDbgLog.sig_return
+				return [-@prev_segs_i-2, @prev_lp_i]
+			end
+			if @prev_lp_i + self[@prev_segs_i+1][0] > cpix_i
+				#$PDbgLog.sig_return
+				return [-@prev_segs_i-2, @prev_lp_i]
+			end
+			@prev_segs_i += 1; @prev_lp_i += self[@prev_segs_i][0]
+		end
+		#$PDbgLog.sig_return
+		[@prev_segs_i, @prev_lp_i]
+	end
+	
+	def segs_to_s(detail_lev=3)
+		case detail_lev
+		  when 0 then self.length.to_s
+		  when 1 then self.collect{|seg| seg.inspect}.join(" ")
+		  when 2 then segs = ""
+		  	self.each_abs_seg { |s, e| segs << "#{s}...#{e}, " }
+			segs[-2,2] = "" if segs.length > 1
+			segs
+		  when 3 then segs = ""
+		  	self.each_abs_seg { |s, e| segs << "#{s}..#{e-1}, " }
+			segs[-2,2] = "" if segs.length > 1
+			segs
+		  else
+			segs = ""
+			self.each_seg_with_index { |pixs, seg_i|
+				segs << self[seg_i].inspect << ": " <<
+					PixbufPix.path_to_s(pixs) << "; "
+			}
+			segs[-2,2] = "" if segs.length > 1
+			segs
+		end
+	end
+	
+	def lp_to_s(repr_id=1)
+		case repr_id
+			when 0 then idmem = @lp.object_id &
+					( (1 << (8*@lp.object_id.size)) - 1 )
+				"0x%x" % idmem
+			when 1 then lp = "#{@lp.length} element"
+				lp += "s" if @lp.length != 1
+				lp
+			else
+				PixbufPix.path_to_s(@lp)
+		end
+	end
+	
+	def to_s(expand_segs=3, expand_loop=1)
+		"<#{self.class.name}: @lp: #{self.lp_to_s(expand_loop)
+		  }; segs: #{self.segs_to_s(expand_segs)}>"
+	end
+	
+	def inspect(expand_segs=3, expand_loop=1)
+		"<#{self.class.name}: @lp: #{self.lp_to_s(expand_loop)
+		  }, @prev_segs_i=#{@prev_segs_i}, @prev_lp_i=#{@prev_lp_i.
+		  inspect}; segs: #{self.segs_to_s(expand_segs)}>"
+	end
+end
+
+class AaPix
+	attr_accessor :border_dirs8_id, :subpix_path_dir
+end
+
+class AaPixWithPrevs < AaPix
+	attr_reader :prevs
+	
+	def initialize(pixbuf, ax, ay)
+		super(pixbuf, ax, ay)
+		@prevs = Set.new
+	end
+	
+	def tree_to_pp_s(indent_str='', indent_step='  ')
+		next_indent_str = indent_str + indent_step
+		res = indent_str + self.coords_to_s + ':' +
+		  (@prevs.to_a.first.kind_of?(AaPixWithPrevs) ? "\n" : ' ') +
+		  @prevs.collect{|pix| pix.kind_of?(AaPixWithPrevs) ?
+		    pix.tree_to_pp_s(next_indent_str, indent_step) :
+		    pix.inspect + "\n"
+		  }.to_s
+	end
+end
+
+class BlobLoopCalc
+	attr_accessor :map_loop_end_i, :excl_set, :start_lp
+	attr_reader :blob, :lp, :prevs, :loop_segs, :not_done_pix_segs,
+		:layer_set, :blob_id
+	
+	def initialize(blob, lp)
+		@blob = blob
+		@lp = lp.class.new
+		lp.each_with_index { |pix, pix_i|
+			pp = AaPixWithPrevs.new(pix.pixbuf, pix.ax, pix.ay)
+			pp.subpix_path_dir = pix.subpix_path_dir
+			pp.border_dirs8_id = pix.border_dirs8_id
+			pp.prevs << pix_i
+			@lp << pp
+		}
+		@start_lp = @lp
+		@excl_set = {}
+		@layer_set = {}; @lp.each { |pix| @layer_set[pix] = true }
+		@path_cache = {}
+		@tail = []
+		@neighbs = []
+		@next_lp = lp.class.new
+		@next_prevs = []
+		@prev_layer_set = {}
+		@map_loop_meth = self.method("map_loop_without_segs!")
+		@pixbuf = @blob.pixbuf
+		@blob_id = @blob.blob_id
+	end
+	
+	def pix_map_into(pix,res, excl_set, prev_cpix, next_cpix, path_cache={},
+	tail=[], neighbs=[])
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "excl_set: #{PixbufPix.yx_path_to_s(
+		#	excl_set.keys.sort)}; "
+		#$PDbgLog.print_msg "#{pix.coords_to_s} prev_cpix#{prev_cpix.
+		#	coords_to_s}, next_cpix#{next_cpix.coords_to_s}: "
+		if prev_cpix.y == next_cpix.y && prev_cpix.x == next_cpix.x
+		#  $PDbgLog.print_msg "blob neighbs.: #{PixbufPix.path_to_s(
+		#	@blobpix.pix_neighbs(pix)}: "
+			if @blob.pix_neighbs(pix).detect { |p|
+			  !excl_set.include?(p.yx) && p.y != prev_cpix.y &&
+			  p.x != prev_cpix.x && p.y != next_cpix.y &&
+			  p.x != next_cpix.x
+			}
+				#$PDbgLog.sig_return("")
+				return []
+			else
+				#$PDbgLog.sig_return("nil")
+				return nil
+			end
+		end
+		pixbuf = @blob.pixbuf
+		blob_id = @blob.blob_id
+		if prev_cpix.virtual? || next_cpix.virtual? ||
+		!pixbuf.blob_id_at?(prev_cpix.x, prev_cpix.y, blob_id) ||
+		!pixbuf.blob_id_at?(next_cpix.x, next_cpix.y, blob_id)
+		  get_neighbs_proc = proc { |cpix, ngb_res|
+			#$PDbgLog.sig_call(self)
+		  #	$PDbgLog.print_msg "get ngbs proc #{cpix.coords_to_s}: "
+			ngb_res.clear
+			PixbufPix::ADJACENT8.each { |adj|
+			 p = pixbuf.get_pix(cpix.x+adj.x, cpix.y+adj.y)
+			 ngb_res << p if p.yx != pix.yx &&
+			  !excl_set.include?(p.yx) &&
+			  (p.yx == next_cpix.yx ||
+			    (pixbuf.blob_id_at?(p.x, p.y, blob_id) &&
+			     ((adj4 = p.adj4).length < 4 ||
+			      adj4.detect { |px| excl_set.include?(px.yx) ||
+			  	px.yx == pix.yx ||
+				!pixbuf.blob_id_at?(px.x, px.y, blob_id)
+			      }))
+			  )
+			}
+			#$PDbgLog.sig_return(PixbufPix.path_to_s(ngb_res))
+			ngb_res
+		  }
+		else
+		  get_neighbs_proc = proc { |cpix, ngb_res|
+			#$PDbgLog.sig_call(self)
+		  #	$PDbgLog.print_msg "get ngbs proc #{cpix.coords_to_s}: "
+			ngb_res.clear
+			@blob.pix_neighbs(cpix).each { |p|
+			 ngb_res << p if
+			  p.yx != pix.yx && !excl_set.include?(p.yx) &&
+			  ((adj4 = p.adj4).length < 4 ||
+			   adj4.detect { |px| excl_set.include?(px.yx) ||
+			  	px.yx == pix.yx ||
+				!pixbuf.blob_id_at?(px.x, px.y, blob_id)
+			   })
+			}
+			#$PDbgLog.sig_return(PixbufPix.path_to_s(ngb_res))
+			ngb_res
+		  }
+		end
+		if (res=prev_cpix.find_shortest_pix_path_into(res, next_cpix, 7,
+		path_cache, tail, neighbs, &get_neighbs_proc))
+			res.pop
+		end
+		#$PDbgLog.sig_return(res ? PixbufPix.path_to_s(res) : "nil")
+		res
+	end
+	
+	def add_loop_segs
+		@loop_segs = LoopSegs.new(@lp) unless @loop_segs
+		@map_loop_meth = self.method("map_loop_with_segs!")
+	end
+	
+	def map_loop_without_segs!(start_i, end_i)
+		$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "start_i=#{start_i}, end_i=#{end_i} in #{
+		#	@lp.length} pixel#{@lp.length==1 ? "" : "s"}: #{
+		#	PixbufPix.path_to_s(@lp)}"
+		next_px = nil
+		mapped_a_pix = false
+		i = start_i - 1
+		#nil_seq_i0 = nil_seq_end_i = 0
+		to = []
+		while (i+=1) < end_i
+			cpix = @lp[i]
+			if next_px && cpix != next_px
+			  $PDbgLog.print_msg "i=#{i}, cpix#{cpix.coords_to_s
+				}, next_px#{next_px.coords_to_s}, start_i=#{
+				start_i}, end_i=#{end_i}); @lp.length=#{@lp.
+				length}; "
+			  $PDbgLog.print_msg "@lp: #{PixbufPix.path_to_s(@lp)} "
+			end
+			unless self.pix_map_into(cpix, to, @excl_set,
+			@lp.at(i-1), next_px=@lp.at((i+1) % @lp.length),
+			@path_cache, @tail, @neighbs)
+				#if i - nil_seq_end_i < 2
+				#	nil_seq_end_i += 1
+				#elsif nil_seq_end_i - nil_seq_i0 > 25
+				#	@not_done_pix_segs.subtract_seg(
+				#		nil_seq_i0, nil_seq_end_i)
+				#else
+				#	nil_seq_start_i = nil_seq_end_i = i
+				#end
+				next
+			end
+			@lp[i,1] = to
+			new_i = i + to.length - 1
+			end_i += to.length - 1
+			@excl_set[cpix.yx] = true
+			#@not_done_pix_segs.map_cpix!(i, to)
+			#map_proc.call(cpix, i, to)
+			if to.empty? && @lp.length > 1 &&
+			@lp[i-1].y == @lp[lp_i=i % @lp.length].y &&
+			@lp[i-1].x == @lp[lp_i].x
+				@lp[lp_i,1] = nil
+				#@not_done_pix_segs.map_cpix!(i, to)
+				#map_proc.call(@lp[lp_i-1], i, [])
+				end_i -= 1
+				next_px = @lp[i % @lp.length]
+			end
+			i = new_i
+			mapped_a_pix = true
+		end
+		#@not_done_pix_segs.subtract_seg(nil_seq_i0, nil_seq_end_i) if
+		#	nil_seq_end_i - nil_seq_i0 > 25
+		$PDbgLog.sig_return
+		mapped_a_pix
+	end
+	
+	def map_loop_with_segs!(start_i, end_i)
+		$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "start_i=#{start_i}, end_i=#{end_i} in #{
+		#	@lp.length} pixel#{@lp.length==1 ? "" : "s"}: #{
+		#	PixbufPix.path_to_s(@lp)}"
+		next_px = nil
+		mapped_a_pix = false
+		i = start_i - 1
+		#nil_seq_i0 = nil_seq_end_i = 0
+		to = []
+		while (i+=1) < end_i
+			cpix = @lp[i]
+			if next_px && cpix != next_px
+			  $PDbgLog.print_msg "i=#{i}, cpix#{cpix.coords_to_s
+				}, next_px#{next_px.coords_to_s}, start_i=#{
+				start_i}, end_i=#{end_i}); @lp.length=#{@lp.
+				length}; "
+			  $PDbgLog.print_msg "@lp: #{PixbufPix.path_to_s(@lp)} "
+			end
+			unless self.pix_map_into(cpix, to, @excl_set,
+			@lp.at(i-1), next_px=@lp.at((i+1) % @lp.length),
+			@path_cache, @tail, @neighbs)
+				#if i - nil_seq_end_i < 2
+				#	nil_seq_end_i += 1
+				#elsif nil_seq_end_i - nil_seq_i0 > 25
+				#	@not_done_pix_segs.subtract_seg(
+				#		nil_seq_i0, nil_seq_end_i)
+				#else
+				#	nil_seq_start_i = nil_seq_end_i = i
+				#end
+				next
+			end
+			@lp[i,1] = to
+			new_i = i + to.length - 1
+			end_i += to.length - 1
+			@excl_set[cpix.yx] = true
+			#@not_done_pix_segs.map_cpix!(i, to)
+			@loop_segs.map_cpix!(i, to)
+			if to.empty? && @lp.length > 1 &&
+			@lp[i-1].y == @lp[lp_i=i % @lp.length].y &&
+			@lp[i-1].x == @lp[lp_i].x
+				@lp[lp_i,1] = nil
+				#@not_done_pix_segs.map_cpix!(i, to)
+				@loop_segs.map_cpix!(i, [])
+				end_i -= 1
+				next_px = @lp[i % @lp.length]
+			end
+			i = new_i
+			mapped_a_pix = true
+		end
+		#@not_done_pix_segs.subtract_seg(nil_seq_i0, nil_seq_end_i) if
+		#	nil_seq_end_i - nil_seq_i0 > 25
+		$PDbgLog.sig_return
+		mapped_a_pix
+	end
+	
+	def map_loop!(start_i, end_i)
+		return @map_loop_meth.call(start_i, end_i)
+		#$PDbgLog.sig_call(self)
+		seg_i,lp_i = *@not_done_pix_segs.cpix_i_get_seg_i_start(start_i)
+		#$PDbgLog.print_msg "#{start_i}...#{end_i}: seg_i=#{seg_i
+		#	}, lp_i=#{lp_i}. "
+		if seg_i < 0
+			seg_i = -seg_i-1
+			if seg_i >= @not_done_pix_segs.length
+				#$PDbgLog.sig_return
+				return
+			end
+			lp_i += @not_done_pix_segs[seg_i][0]
+		end
+		mapped_a_pix = false
+		while lp_i < end_i
+			start_i = lp_i if lp_i > start_i
+			mapped_a_pix = true if @map_loop_meth.call(start_i,
+				lp_i + @not_done_pix_segs[seg_i][1])
+			break if (seg_i += 1) >= @not_done_pix_segs.length
+			lp_i += @not_done_pix_segs[seg_i]
+		end
+		#$PDbgLog.sig_return
+		mapped_a_pix
+	end
+	
+	def map_loop_segments!
+		$PDbgLog.sig_call(self)
+		$PDbgLog.print_msg "#{@loop_segs.length} segment#{@loop_segs.
+			length == 1 ?  "" : "s"}: "
+		$PDbgLog.new_progr
+		$PDbgLog.progr.total_progr_units = @blob.length
+		if @blob.external_contours
+			$PDbgLog.progr.total_progr_units += @lp.length
+		end
+		$PDbgLog.progr.show_as = "/ pixel#{@blob.length==1 ? "" : "s"}"
+		mapped_a_pix = true
+		while mapped_a_pix
+		  mapped_a_pix = false
+		  lp_start_i = @loop_segs[0][0]
+		  @loop_segs.each_abs_seg { |start_i, end_i|
+		    #$PDbgLog.print_msg "lp_start_i=#{lp_start_i}; Segment [#{
+		    #	start_i}; #{end_i}) " #; @lp: #{PixbufPix.path_to_s(@lp)
+			#} -> "
+		    if end_i > lp_start_i
+		  	mapped_a_pix = true if self.map_loop!(
+				[lp_start_i, start_i].max, end_i)
+			lp_start_i = end_i
+		    end
+		    #$PDbgLog.puts_msg "Segment [#{start_i}; #{end_i}); Loop: #{
+		#	PixbufPix.path_to_s(@lp)}"
+		    $PDbgLog.progr.progr_units = excl_set.length
+		  }
+		end
+		$PDbgLog.sig_return(" done.")
+	end
+end
+
+class BlobLoopCalc
+	def self.situation8_id_lms(id)
+		[id & 0b111, (id>>3) & 0b111, id >> 6]
+	end
+	
+	def self.situation8_path(start_p, end_p, adj8_s, dir=+1)
+		path = []
+		pos = start_p + dir
+		if dir == 1
+			i_ofs = -1
+		else
+			i_ofs = (start_p == end_p ? 7 : 6)
+		end
+		while (pos % 8) != end_p
+			if adj8_s[pos-start_p+i_ofs] == 0 && (pos % 2 == 1 ||
+			(!path.empty? && adj8_s[path[-1]-start_p+i_ofs] == 0))
+			  if start_p == end_p
+			    d = (start_p % 2 == 0 ? 1 : 2)
+			    if (-d..d).detect { |i| adj8_s[i] == 1 }
+				return []
+			    else
+				return nil
+			    end
+			  else
+				return nil
+			  end
+			end
+			if path.length > 0 && path[-1] % 2 == 0
+				path[-1] = pos
+			else
+				path << pos
+			end
+			pos += dir
+		end
+		if !path.empty? && path[-1] % 2 == 0
+			if path.length > 1
+				path.pop
+			elsif adj8_s[path[-1]-start_p+i_ofs] == 0
+				return nil
+			end
+		end
+		path.collect{|i| PixbufPix::ADJ8_CCW_ORDER.at(i % 8)}
+	end
+	
+	PIX_SITUS8_4_PATHS = (0...(1 << 13)).collect { |sit_id|
+		start_p, end_p, adj8_s = self.situation8_id_lms(sit_id)
+		i_path = self.situation8_path(start_p, end_p, adj8_s, +1)
+		d_path = self.situation8_path(start_p, end_p, adj8_s, -1)
+		if i_path
+		  if d_path
+		  	[i_path, d_path]
+		  else
+			i_path
+		  end
+		elsif d_path
+			d_path
+		else
+			nil
+		end
+	}
+	
+	def pix_adj8(pix)
+		pix.adj8.find_all { |px| !@excl_set.include?(px.a_yx) }
+	end
+	
+	def pix_adj8_s(pix)
+		res = 0
+		width=pix.pixbuf.picture_width; height=pix.pixbuf.picture_height
+		b = 1
+		PixbufPix::ADJ8_CCW_ORDER.each { |adj|
+			x = pix.x + adj.x; y = pix.y + adj.y
+			if x >= 0 && x < width && y >= 0 && y < height
+				res |= b
+			end
+			b = (b << 1)
+		}
+		res
+	end
+	
+	def xy_mappable_to(x, y)
+		#$PDbgLog.sig_call(self)
+		#res =
+		x >= 0 && x < @pixbuf.picture_width && y >= 0 &&
+		  y < @pixbuf.picture_height && !@excl_set.include?(
+		  AaPix.a_yx(x, y)) && @pixbuf.blob_id_at?(x, y, @blob_id)
+		#$PDbgLog.sig_return("(#{x}, #{y}): #{res.inspect}")
+		#res
+	end
+	
+	def pix_prev_next_situation8_id(pix, prev_p, next_p)
+		#$PDbgLog.sig_call(self)
+		if !pix.a_neighb8?(prev_p,0.51) || !pix.a_neighb8?(next_p, 0.51)
+			warn("#{self.class.name}.pix_prev_next_situation8_id: "+
+			  "BUG: Pixels not contiguous: pix#{pix.coords_to_s
+			  }, prev_p#{prev_p.coords_to_s}, next_p#{next_p.
+			  coords_to_s}")
+		end
+		x_p = (prev_p.ax - pix.ax).round; y_p = (prev_p.ay-pix.ay).round
+		x_n = (next_p.ax - pix.ax).round; y_n = (next_p.ay-pix.ay).round
+		if x_p > 1 then x_p = 1; elsif x_p < -1 then x_p = -1; end
+		if y_p > 1 then y_p = 1; elsif y_p < -1 then y_p = -1; end
+		if x_n > 1 then x_n = 1; elsif x_n < -1 then x_n = -1; end
+		if y_n > 1 then y_n = 1; elsif y_n < -1 then y_n = -1; end
+		if (x_p.abs < 1 && y_p.abs < 1) || (x_n.abs < 1 && y_n.abs < 1)
+			warn("#{self.class.name}.pix_prev_next_situation8_id: "+
+			  "BUG: Two subsequent pix in loop are the same: pix#{
+			   pix.coords_to_s}, prev_p#{prev_p.coords_to_s
+			   }, next_p#{next_p.coords_to_s}")
+		end
+	#	$PDbgLog.print_msg "pix#{pix.coords_to_s}, prev_p#{prev_p.
+	#		coords_to_s}, next_p#{next_p.coords_to_s}"+#"; x_p=#{x_p
+	#		}, y_p=#{y_p}; x_n=#{x_n}, y_n=#{y_n}"
+		#$PDbgLog.print_msg ": "
+		i_p = i_n = nil
+		b = 1
+		adj8_s = 0
+		Xy::ADJ8_CCW_ORDER.each_with_index{ |a,i|
+			if a.y == y_p && a.x == x_p
+				i_p = i
+				i_n = i if a.y == y_n && a.x == x_n
+				adj8_s <<= 6 - (i - (i_n ? 1 : 0))
+				b = 1
+			elsif a.y == y_n && a.x == x_n
+				i_n = i
+			else
+				x = pix.ax + a.x; y = pix.ay + a.y
+				if a.x < 0
+				  x = x.ceil
+				  if a.y < 0 then y = y.ceil
+					flag = self.xy_mappable_to(x, y)
+				  elsif a.y > 0 then y = y.floor
+					flag = self.xy_mappable_to(x, y)
+				  else
+					flag = self.xy_mappable_to(x, y.floor)&&
+						self.xy_mappable_to(x, y.ceil)
+				  end
+				elsif a.x > 0
+				  x = x.floor
+				  if a.y < 0 then y = y.ceil
+					flag = self.xy_mappable_to(x, y)
+				  elsif a.y > 0 then y = y.floor
+					flag = self.xy_mappable_to(x, y)
+				  else
+					flag = self.xy_mappable_to(x, y.floor)&&
+						self.xy_mappable_to(x, y.ceil)
+				  end
+				elsif a.y < 0
+					y = y.ceil
+					flag = self.xy_mappable_to(x.floor, y)&&
+						self.xy_mappable_to(x.ceil, y)
+				elsif a.y > 0
+					y = y.floor
+					flag = self.xy_mappable_to(x.floor, y)&&
+						self.xy_mappable_to(x.ceil, y)
+				elsif a.y == 0
+					flag = self.xy_mappable_to(x.floor,
+					  y.floor) &&
+					  self.xy_mappable_to(x.floor,y.ceil) &&
+					  self.xy_mappable_to(x.ceil,y.floor) &&
+					  self.xy_mappable_to(x.ceil,y.ceil)
+				end
+				adj8_s |= b if flag
+				#$PDbgLog.print_msg "(#{pix.ax+a.x}, #{
+				#	pix.ay+a.y})[#{i}]: #{flag} "
+				b = (b << 1)
+			end
+		}
+		#$PDbgLog.print_msg "i_p=#{i_p.inspect}, i_n=#{i_n.inspect}: "
+		#res =
+		i_p | (i_n << 3) | (adj8_s << 6)
+		#$PDbgLog.sig_return("%b" % res)
+		#res
+	end
+	
+	def pix_map8_4_into(pix, prev_p, next_p, res_prev_p, res=[[], []])
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg pix.coords_to_s + (pix.border_dirs8_id ?
+		#	"+border_dirs8_id=%b" % pix.border_dirs8_id : '') +
+		#	(pix.subpix_path_dir ? "+subpix_path_dir=" +
+		#	pix.subpix_path_dir.inspect : '') +
+		#	", prev_p#{prev_p.coords_to_s}, next_p#{next_p.
+		#	coords_to_s}: "
+		#$PDbgLog.print_msg "res_prev_p#{res_prev_p ?
+		#	res_prev_p.coords_to_s : "=" + res_prev_p.inspect}: "
+		if pix.y != pix.ay || pix.x != pix.ax
+			res[0].clear
+			res[0] << pix
+			#$PDbgLog.sig_return('self')
+			return res[0]
+		end
+		situ_id = self.pix_prev_next_situation8_id(pix, prev_p, next_p)
+		#$PDbgLog.print_msg "situ.: %b " % situ_id
+		if (paths = BlobLoopCalc::PIX_SITUS8_4_PATHS.at(situ_id))
+		  if paths[0].kind_of?(Array)
+			res[0].clear; res[1].clear
+			paths[0].each{|a| res[0] << AaPixWithPrevs.new(@pixbuf,
+				pix.x + a.x, pix.y + a.y) }
+			paths[1].each{|a| res[1] << AaPixWithPrevs.new(@pixbuf,
+				pix.x + a.x, pix.y + a.y) }
+			#$PDbgLog.puts_msg "paths: 0: #{PixbufPix.path_to_s(
+			#  res[0])}, 1: #{PixbufPix.path_to_s(res[1])}"
+			if !res_prev_p
+			  if pix.subpix_path_dir == -1
+			#	$PDbgLog.sig_return("1: " + PixbufPix.path_to_s(
+			#		res[1]))
+				res[1]
+			  else
+			#	$PDbgLog.sig_return("0: " + PixbufPix.path_to_s(
+			#		res[0]))
+				res[0]
+			  end
+			elsif !res[0].empty? &&
+			!res_prev_p.a_neighb8?(res[0][0])
+				if !(res[1]).empty? &&
+				!res_prev_p.neighb8?(res[1][0])
+					res[1].clear
+					res[1] << pix
+				end
+			#	$PDbgLog.sig_return("1: " + PixbufPix.path_to_s(
+			#		res[1]))
+				res[1]
+			elsif pix.subpix_path_dir == -1 &&
+			(res[1].empty? || res_prev_p.a_neighb8?(res[1][0]))
+			#	$PDbgLog.sig_return("1: " + PixbufPix.path_to_s(
+			#		res[1]))
+				res[1]
+			else
+			#	$PDbgLog.sig_return("0: " + PixbufPix.path_to_s(
+			#		res[0]))
+				res[0]
+			end
+		  else
+			res[0].clear
+			paths.each{|a| res[0] << AaPixWithPrevs.new(@pixbuf,
+				pix.x + a.x, pix.y + a.y) }
+			if res_prev_p && !res[0].empty? &&
+			!res_prev_p.neighb8?(res[0][0])
+				res[0].clear
+				res[0] << pix
+			end
+			#$PDbgLog.sig_return(PixbufPix.path_to_s(res[0]))
+			res[0]
+		  end
+		else
+			res[0].clear
+			res[0] << pix
+			#$PDbgLog.sig_return('self')
+			res[0]
+		end
+	end
+	
+	def pix_trace_min_seg(pix)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "#{pix.coords_to_s}: "
+		while !(p_prevs = pix.prevs.to_a).detect{|p| !p.kind_of?(AaPix)}
+			ngbs_arr = pix.semi_neighbs8_contig_arr(p_prevs)
+			if (segs = AaXy.semi_neighbs8_contig_arr_get_segs(
+			ngbs_arr)).empty?
+				pix = p_prevs.first
+				next
+			end
+			p_next_i = ngbs_arr[segs[0][0]]
+			pix = p_prevs[p_next_i]
+		end
+		#$PDbgLog.sig_return(p_prevs)
+		p_prevs.detect { |p| p.kind_of?(Integer) }
+	end
+	
+	def pix_trace_max_seg(pix)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "#{pix.coords_to_s}: "
+		while !(p_prevs = pix.prevs.to_a).detect{|p| !p.kind_of?(AaPix)}
+			ngbs_arr = pix.semi_neighbs8_contig_arr(p_prevs)
+			if (segs = AaXy.semi_neighbs8_contig_arr_get_segs(
+			ngbs_arr)).empty?
+				pix = p_prevs.first
+				next
+			end
+			p_next_i = ngbs_arr[segs.last[1] - 1]
+			pix = p_prevs[p_next_i]
+		end
+		#$PDbgLog.sig_return(p_prevs)
+		p_prevs.detect { |p| p.kind_of?(Integer) }
+	end
+	
+	def pix_trace_mid_seg(pix, p_prevs, i_err)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg "pix#{pix.coords_to_s} "
+		path = [pix]
+		i_mid = 0; seg = [0, 0]
+		pixbuf = pix.pixbuf
+		while !p_prevs.detect { |p| !p.kind_of?(AaPixWithPrevs) }
+			ngbs_arr = pix.semi_neighbs8_contig_arr(p_prevs)
+			#$PDbgLog.print_msg "prevs: #{Xy.path_to_s(
+			#  p_prevs)}, i_err=#{i_err}; "
+			unless (segs=AaXy.semi_neighbs8_contig_arr_get_segs(
+			ngbs_arr)).empty?
+				seg = [segs.first[0], segs.last[1]]
+				p_i_mid = Float(seg[0] + seg[1]-1 - i_err) / 2.0
+				i_mid = p_i_mid.round
+				#$PDbgLog.print_msg "ngbs_arr=#{ngbs_arr.inspect
+				#  }, segs=#{segs.inspect}, seg=#{seg.inspect
+				#  }, p_i_mid=#{p_i_mid}, i_mid=#{i_mid}; "
+				if i_mid >= seg[1]
+					i_mid = seg[1]-1
+				elsif i_mid < seg[0]
+					i_mid = seg[0]
+				end
+				#$PDbgLog.print_msg "i_mid=#{i_mid}; "
+				i_err = p_i_mid - i_mid
+				a = AaXy::SEMI_ADJ8[16 + i_mid % 16]
+				pix = AaPix.new(pixbuf, pix.ax+a.ax,pix.ay+a.ay)
+			end
+			next_prevs = []
+			p_prevs.each { |px|
+			  if pix.a_eql?(px)
+				next_prevs = px.prevs.to_a; break
+			  elsif pix.a_close_neighb?(px) &&
+			  !path[-1].a_close_neighb?(px)
+			  	next_prevs << px; next
+			  end
+			  px.prevs.each { |t_pix|
+				next unless t_pix.kind_of?(AaPixWithPrevs)
+				if pix.a_neighb8?(t_pix) && !path[-1].
+				semi_close_neighb?(t_pix)
+					next_prevs << t_pix
+				end
+			  }
+			}
+			if next_prevs.empty?
+			  if ngbs_arr[i_mid]
+				p_next_i = ngbs_arr[i_mid]
+			  else
+			    d = 1
+			    loop do
+			      if i_mid - d < seg[0]
+				p_next_i = ngbs_arr[i_mid = seg[0]]; break
+			      elsif i_mid+d >= seg[1]
+				p_next_i = ngbs_arr[i_mid = seg[1]-1]; break
+			      elsif i_mid - d >= seg[0] && ngbs_arr[i_mid-d]
+				p_next_i = ngbs_arr[i_mid = i_mid-d]; break
+			      elsif ngbs_arr[i_mid+d]
+				p_next_i = ngbs_arr[i_mid = i_mid+d]; break
+			      end
+			      d += 1
+			    end
+			  end
+			  p_next_i = 0 unless p_next_i
+			  pix = p_prevs[p_next_i]
+			  next_prevs = pix.prevs.to_a
+			end
+			p_prevs = next_prevs
+			if path.length > 1 && path[-2].a_neighb8?(pix)
+				path[-1] = pix
+			else
+				path << pix
+			end
+			#$PDbgLog.print_msg "pix#{pix.coords_to_s} "
+		end
+		#$PDbgLog.sig_return(p_prevs)
+		[p_prevs.detect {|p| p.kind_of?(Integer)}, path]
+	end
+	
+	def pix_trace_seg(pix, pix_prevs, ngbs_arr, seg_i_0, seg_i_end)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "pix#{pix.coords_to_s},pix_prevs: #{Xy.
+		#	path_to_s(pix_prevs)}, seg_i_0=#{seg_i_0}, seg_i_end=#{
+		#	seg_i_end}"
+		p_min_next_i = ngbs_arr[seg_i_0]
+		p_max_next_i = ngbs_arr[seg_i_end-1]
+		p_i_mid = Float(seg_i_0 + seg_i_end-1) / 2.0
+		i_mid = p_i_mid.round
+		if i_mid >= seg_i_end
+			i_mid = seg_i_end-1
+		elsif i_mid < seg_i_0
+			i_mid = seg_i_0
+		end
+		a = AaXy::SEMI_ADJ8[16 + i_mid % 16]
+		mid_pix = AaPix.new(pix.pixbuf, pix.ax+a.ax, pix.ay+a.ay)
+	#	$PDbgLog.puts_msg "i_mid=#{i_mid},mid_pix#{mid_pix.coords_to_s}"
+		p_mid_next_prevs = []
+		pix_prevs.each { |px|
+			if mid_pix.a_eql?(px)
+				p_mid_next_prevs = px.prevs.to_a; break
+			elsif mid_pix.a_close_neighb?(px) &&
+			!pix.a_close_neighb?(px)
+				p_mid_next_prevs << px; next
+			end
+			#$PDbgLog.print_msg "px#{px.coords_to_s} "
+			px.prevs.each_with_index { |t_pix, t_i|
+				next unless t_pix.kind_of?(AaPixWithPrevs)
+				#$PDbgLog.print_msg "t_pix#{t_pix.coords_to_s} "
+				if mid_pix.a_neighb8?(t_pix) && !pix.
+				semi_close_neighb?(t_pix)
+					p_mid_next_prevs << t_pix
+				end
+			}
+		}
+		#$PDbgLog.puts_msg "p_mid_next_prevs: #{p_mid_next_prevs.
+		#	join(' ')}"
+		if p_mid_next_prevs.empty?
+			if ngbs_arr[i_mid]
+				p_next_i = ngbs_arr[i_mid]
+			else
+			   d = 1
+			   loop do
+			     if i_mid - d < seg_i_0
+				p_next_i = ngbs_arr[i_mid = seg[0]]; break
+			     elsif i_mid+d >= seg_i_end
+				p_next_i = ngbs_arr[i_mid = seg[1]-1]; break
+			     elsif i_mid - d >= seg_i_0 && ngbs_arr[i_mid-d]
+				p_next_i = ngbs_arr[i_mid = i_mid-d]; break
+			     elsif ngbs_arr[i_mid+d]
+				p_next_i = ngbs_arr[i_mid = i_mid+d]; break
+			     end
+			     d += 1
+			   end
+			end
+			p_next_i = 0 unless p_next_i
+			mid_pix = pix_prevs[p_next_i]
+			p_mid_next_prevs = pix_prevs[p_next_i].prevs.to_a
+		end
+		#$PDbgLog.sig_return
+		[self.pix_trace_min_seg(pix_prevs[p_min_next_i]),
+		 self.pix_trace_mid_seg(mid_pix,p_mid_next_prevs,p_i_mid-i_mid),
+		 self.pix_trace_max_seg(pix_prevs[p_max_next_i])]
+	end
+	
+	def lp_add_pix(pix, old_pix, prev_lp_i)
+		#$PDbgLog.sig_call(self)
+		if pix != old_pix && @prev_layer_set.include?(pix)
+			new_pix = AaPixWithPrevs.new(pix.pixbuf,
+				(Float(pix.x)+old_pix.x)/2.0,
+				(Float(pix.y)+old_pix.y)/2.0)
+		else
+			new_pix = pix
+		end
+		#$PDbgLog.print_msg "pix#{pix.coords_to_s}, old_pix#{old_pix.
+		#	coords_to_s}, prev_lp_i=#{prev_lp_i}, new_pix#{new_pix.
+		#	coords_to_s}: " #+ "\n"
+		#$PDbgLog.puts_msg "@next_lp: #{PixbufPix.path_to_s(@next_lp)}"
+		if @next_lp[-1] && @next_lp[-1].a_eql?(new_pix)
+		    @layer_set[new_pix] = @next_lp.length-1
+		    if new_pix.a_eql?(old_pix)
+			@next_lp[-1].prevs.merge(old_pix.prevs)
+		    else
+		    	@next_lp[-1].prevs << old_pix
+		    end
+		else
+		    if new_pix.a_eql?(old_pix)
+		    	new_pix.prevs.merge(old_pix.prevs)
+		    else
+		    	new_pix.prevs << old_pix
+		    end
+		    @layer_set[new_pix] = @next_lp.length
+		    @next_lp << new_pix
+		end
+		if @next_lp[-2] && !@next_lp[-2].neighb8?(@next_lp[-1])
+		    warn("#{self.class.name}.lp_add_pix: Uncontiguous loop: #{
+		      PixbufPix.path_to_s(@next_lp[-3,3])
+		      } from #{PixbufPix.path_to_s(@lp[prev_lp_i-3,6])}")
+		end
+		#$PDbgLog.sig_return
+		new_pix
+	end
+	
+	def lp_optimize_out_4neighbs(lp)
+		return lp if lp.length < 3
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "lp: #{Xy.path_to_s(lp)}"
+		i = 0
+		while i < lp.length
+			p0 = lp.at(i-1)
+			p1 = lp.at(i)
+			p2 = lp.at((i+1) % lp.length)
+			#$PDbgLog.print_msg "p0#{p0.coords_to_s}->p1#{
+			#  p1.coords_to_s}[#{i}],p2#{p2.coords_to_s}: "
+			if p1.a_neighb4?(p0) && p1.a_neighb4?(p2) &&
+			p0.a_neighb8?(p2) && !p0.a_close_neighb?(p2)
+				#$PDbgLog.puts "delete #{i}"
+				lp.delete_at(i)
+				break if lp.length < 3
+			else
+				i += 1
+				#$PDbgLog.puts "."
+			end
+		end
+		#$PDbgLog.sig_return
+	end
+	
+	def next_layer!(i_p_map1=[[], []], i_p_map2=[[], []])
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.puts_msg "@lp (#{@lp.length}): #{Xy.path_to_s(@lp)}"
+		#$PDbgLog.puts_msg "@lp (#{@lp.length}): #{@lp.inspect}"
+		if @lp.length < 3
+			#$PDbgLog.sig_return(false)
+			return false
+		end
+		@next_lp.clear
+		tmp = @layer_set
+		@layer_set = @prev_layer_set
+		@prev_layer_set = tmp
+		@layer_set.clear
+		mapped_a_pix = false
+		p0 = @lp[-3]
+		p1 = @lp[i1=-2]
+		p2 = @lp[i2=-1]
+		p3 = @lp[0]
+		i3 = 0
+		p1_map = self.pix_map8_4_into(p1, p0, p2, nil, i_p_map1)
+		while i3 < @lp.length
+			while (p2_map=self.pix_map8_4_into(p2,p1,p3, p1_map[-1],
+			i_p_map2)).empty? && i3 + 1 < @lp.length
+			  #$PDbgLog.print_msg "Gobble p2: p0#{p0.coords_to_s
+			  #  }, p1#{p1.coords_to_s}[#{i1}], p2#{p2.coords_to_s
+			  #  }[#{i2}], p3#{p3.coords_to_s}[#{i3}]: "
+			  begin
+			  	if i3 + 1 >= @lp.length
+					break
+				end
+				if p1 == p2
+					p1.prevs.merge(p2.prevs)
+				else
+					p1.prevs << p2
+				end
+				@lp.at(i3).prevs << p2
+				i2 = i3; i3 += 1
+				p2 = p3; p3 = @lp.at(i3)
+				#$PDbgLog.print_msg "p2#{p2.coords_to_s}[#{i2
+				#    }], p3#{p3.coords_to_s}[#{i3}]; "
+			  end while p1==p2 || (p2_map=self.pix_map8_4_into(p2,
+			  p1, p3, p1_map[-1], i_p_map2)).empty?
+			  if p1 == p2
+			  	p1_map.clear; break
+			  end
+			  p1_map << p1 if (p1_map = self.pix_map8_4_into(p1, p0,
+			  	p2, @next_lp[-1], i_p_map1)).empty?
+			  mapped_a_pix = true
+			end
+			#$PDbgLog.puts_msg "p0#{p0.coords_to_s}->p1#{p1.
+			#    coords_to_s}[#{i1}]->p2#{p2.coords_to_s}[#{i2
+			#    }], p3#{p3.coords_to_s}[#{i3}]: #{Xy.path_to_s(
+			#    p1_map)}"
+			p1_map.each { |pix| mapped_a_pix = true if
+				!self.lp_add_pix(pix, p1, i1).a_eql?(p1)
+			  #$PDbgLog.print_msg @next_lp[-1].tree_to_pp_s
+			}
+			p1_map = p2_map
+			tmp = i_p_map2; i_p_map2 = i_p_map1; i_p_map1 = tmp
+			i1 = i2; i2 = i3; i3 += 1
+			p0 = p1; p1 = p2; p2 = p3; p3 = @lp.at(i3)
+		end
+		if mapped_a_pix
+			#$PDbgLog.puts_msg "@next_lp (#{@next_lp.length}): #{
+			#	Xy.path_to_s(@next_lp)}"
+			while @next_lp.length > 1 &&
+			@next_lp[-1].a_eql?(@next_lp[0])
+				@next_lp[0].prevs.merge(@next_lp[-1].prevs)
+				@next_lp.pop
+			end
+			tmp = @lp
+			@lp = @next_lp
+			@next_lp = tmp
+			@prev_layer_set.each_key { |p_map|
+				@excl_set[p_map.a_yx] = true unless
+					@layer_set.include?(p_map) }
+			#$PDbgLog.puts_msg "@layer_set: #{Xy.path_to_s(
+			#	@layer_set.keys.to_a.sort)}"
+			#$PDbgLog.puts_msg "@excl_set (#{@excl_set.length}): #{
+			#  Xy.yx_path_to_s(@excl_set.keys.to_a.sort)}"
+			#$PDbgLog.puts_msg "@lp (#{@lp.length}): #{Xy.path_to_s(
+			#  @lp)}"
+			#$PDbgLog.sig_return(true)
+			true
+		else
+			#$PDbgLog.puts_msg "@lp (#{@lp.length}): #{Xy.path_to_s(
+			#  @lp)}"
+		#	$PDbgLog.puts_msg @lp.collect {|pix| pix.tree_to_pp_s }.
+		#		join("\n")
+			self.lp_optimize_out_4neighbs(@lp)
+			#$PDbgLog.puts_msg "@excl_set (#{@excl_set.length}): #{
+			#  Xy.yx_path_to_s(@excl_set.keys.to_a.sort)}"
+			#$PDbgLog.puts_msg "@lp (#{@lp.length}): #{Xy.path_to_s(
+			#  @lp)}"
+		#	$PDbgLog.puts_msg @lp.collect {|pix| pix.tree_to_pp_s }.
+		#		join("\n")
+			#$PDbgLog.puts_msg @lp.collect {|pix| pix.inspect}.join(
+			#	"\n")
+			#$PDbgLog.sig_return(false)
+			false
+		end
+	end
+	
+	def self.pix_in_curve_blob?(pix, blob_id)
+		!pix.virtual? && (pix.a_yx != pix.yx || pix.pixbuf.blob_id_at?(
+			pix.x, pix.y, blob_id))
+	end
+	
+	def self.pix_neighbs_add(pix_neighbs, pix, neighb, blob_id)
+		#$PDbgLog.sig_call(self)
+		#$PDbgLog.print_msg pix.coords_to_s + ": " + neighb.coords_to_s
+		if pix_neighbs.include?(pix.a_yx)
+			unless (dest=pix_neighbs[pix.a_yx]).
+			detect { |m| m.a_eql?(neighb) }
+				dest << neighb
+			end
+		else
+			pix_neighbs[pix.a_yx] = [neighb]
+		end
+	#	$PDbgLog.sig_return(' = ' + Xy.path_to_s(pix_neighbs[pix.a_yx]))
+	end
+	
+	def self.loop_calcs_mid_ln_segs!(calcs, pix_neighbs)
+		$PDbgLog.sig_call(self)
+		pixbuf = calcs[0].lp[0].pixbuf
+		excl_set = calcs[0].excl_set
+		calcs.each { |calc| calc.start_lp = calc.lp.dup
+			calc.excl_set = excl_set }
+		active_calcs = calcs.dup
+		$PDbgLog.print_msg "Skeletonizing: "
+		$PDbgLog.new_progr
+		blob = calcs[0].blob
+		$PDbgLog.progr.total_progr_units = blob.length
+		if blob.external_contours
+		  calcs.each { |calc|
+			$PDbgLog.progr.total_progr_units += calc.lp.length }
+		end
+		$PDbgLog.progr.show_as = "/ pixel#{$PDbgLog.progr.
+			total_progr_units==1 ? "" : "s"}"
+		i_p_map = [[], []]
+		c_i = -1
+		while !active_calcs.empty?
+			c_i = 0
+			while c_i < active_calcs.length
+		  		if active_calcs[c_i].next_layer!(i_p_map)
+				  c_i += 1
+				else
+				  active_calcs.delete_at(c_i)
+				end
+				$PDbgLog.progr.progr_units = excl_set.length
+			end
+		end
+		$PDbgLog.puts_msg " done."
+		core = Set.new
+		core_debris = []
+		prevs = {}
+		blob_id = calcs[0].blob_id
+		if pix_neighbs
+			calcs.each { |calc| next if (lp = calc.lp).length < 2
+			  #$PDbgLog.puts_msg "lp: #{Xy.path_to_s(lp)}"
+			  if lp.length == 2
+				p0, p1 = *lp
+				self.pix_neighbs_add(pix_neighbs, p0.dup_aapix,
+					p1.dup_aapix, blob_id)
+				self.pix_neighbs_add(pix_neighbs, p1.dup_aapix,
+					p0.dup_aapix, blob_id)
+				next
+			  end
+			  p0 = lp[-2]; p1 = lp[-1]
+			  lp.each { |p2|
+				self.pix_neighbs_add(pix_neighbs, p1.dup_aapix,
+					p0.dup_aapix, blob_id)
+				self.pix_neighbs_add(pix_neighbs, p1.dup_aapix,
+					p2.dup_aapix, blob_id)
+				p0 = p1; p1 = p2
+			  }
+			}
+		end
+		calcs.each { |calc| calc.lp.each_with_index { |pix, pix_i|
+			core << AaPix.new(pix.pixbuf, pix.ax, pix.ay) if
+				self.pix_in_curve_blob?(pix, blob_id)
+			if prevs.include?(pix.a_yx)
+			  known_calc = false
+			  prevs[pix.a_yx].each { |prc|
+				next unless prc[1].equal?(calc)
+				p_prevs = prc[0]
+				p_prevs.merge(pix.prevs)
+				known_calc = true
+				break
+			  }
+			  prevs[pix.a_yx] << [pix.prevs.dup, calc] unless
+			  	known_calc
+			else
+				prevs[pix.a_yx] = [[pix.prevs.dup, calc]]
+			end
+		}}
+		#$PDbgLog.puts_msg "Core: #{Xy.path_to_s(core.to_a.sort)}"
+		neg_segs = {}
+		core.each { |pix|
+		  ngb = ngb_p = nil
+		  p_end_pt = true
+		  pix.semi_adj8_incl_set_each(core) { |t_ngb, s_adj8_i|
+		  	if ngb
+			  p_end_pt = false; break
+			else
+			  ngb = t_ngb; ngb_p = s_adj8_i
+			end
+		  }
+		  if p_end_pt
+		    warn("#{self.class.name}.loop_calcs_mid_ln_segs!: End " +
+		      "point#{pix.coords_to_s} resulting from many loops!") if
+		      prevs[pix.a_yx].length > 1
+		    p_prevs, p_calc = *(prevs[pix.a_yx][0])
+		    $PDbgLog.puts_msg "End point #{pix.coords_to_s}: from #{
+		    	Xy.path_to_s(p_prevs)}"
+		    ngbs_arr = pix.semi_neighbs8_contig_arr(p_prevs)
+		    if !(p_segs=AaXy.semi_neighbs8_contig_arr_get_segs(
+		    ngbs_arr)).empty? && (p_segs != [[0, 16]] || ngb )
+		      if p_segs == [[0, 16]]
+		#	$PDbgLog.puts_msg "ngb#{ngb.coords_to_s} ngb_p=#{ngb_p}"
+			p_segs = [[ngb_p-15, ngb_p]]
+		      end
+		      p_segs.each { |seg|
+			p_ends = p_calc.pix_trace_seg(pix,p_prevs.to_a,ngbs_arr,
+				seg.first, seg.last)
+			s_mid, mid_pix = *p_ends[1]
+		  	neg_segs[p_calc.start_lp] = [] unless neg_segs.include?(
+				p_calc.start_lp)
+			s_0 = p_ends[0]
+			s_0 -= p_calc.start_lp.length if s_0 > s_mid
+			s_end = p_ends[2]
+			s_end += p_calc.start_lp.length if s_end < s_mid
+			neg_segs[p_calc.start_lp] << [(s_0+s_mid)/2,
+				(s_end+s_mid)/2]
+			i = 0
+			while i < mid_pix.length
+			  break unless self.pix_in_curve_blob?(
+			  	mid_pix.at(i), blob_id)
+			  i += 1
+			end
+			mid_pix[i, mid_pix.length-i] = nil
+			core_debris.concat(mid_pix)
+		#	$PDbgLog.puts_msg "mid_pix left: "+Xy.path_to_s(mid_pix)
+			if pix_neighbs && !mid_pix.empty?
+			 self.pix_neighbs_add(pix_neighbs,pix,mid_pix[0],
+			 	blob_id)
+			 self.pix_neighbs_add(pix_neighbs,mid_pix[0],pix,
+			 	blob_id)
+			 if mid_pix.length > 1
+			  self.pix_neighbs_add(pix_neighbs,mid_pix[-2],
+			  	mid_pix[-1], blob_id)
+			  self.pix_neighbs_add(pix_neighbs,mid_pix[-1],
+			  	mid_pix[-2], blob_id)
+			  p0 = pix; p1 = mid_pix[0]
+			  for i in 1...mid_pix.length
+			    p2 = mid_pix[i]
+			    self.pix_neighbs_add(pix_neighbs,p1,p0,blob_id)
+			    self.pix_neighbs_add(pix_neighbs,p1,p2,blob_id)
+			    p0 = p1; p1 = p2
+			  end
+			 end
+			end
+		      }
+		    end
+		  end
+		}
+		core_debris.each { |pix| core << pix }
+		segs = []
+		neg_segs.each_pair { |lp, n_segs|
+			n_segs.sort! { |a,b| (a[0] % lp.length) <=>
+				(b[0] % lp.length) }
+			for seg_i in 0...n_segs.length
+				i_0 = n_segs[seg_i-1][1]
+				i_end = n_segs[seg_i][0]
+				i_0 -= lp.length while i_0 > i_end
+				#$PDbgLog.print_msg "seg[#{i_0}; #{i_end}] "
+				segs << ImageObject.new(lp, i_0, i_end)
+			end
+		}
+		#$PDbgLog.puts_msg "pix_neighbs: {#{pix_neighbs.keys.to_a.sort.
+		#  collect{|k| "(#{k[1]}, #{k[0]}): [" + PixbufPix.path_to_s(
+		#  pix_neighbs[k].to_a)}.join("]; ")}}" if pix_neighbs # "
+		$PDbgLog.sig_return
+		[core, segs]
+	end
+end
+
+class ContourLoop
+	attr_accessor :blob_lp_calc
+	
+	self.img_obj_add_sub_obj :next_layer
+	
+	def next_layer
+		return nil unless self.blob
+		self.blob_lp_calc = BlobLoopCalc.new(self.blob, self.dup) unless
+			self.blob_lp_calc
+		self.blob_lp_calc.next_layer!
+		ctr_lp = self.blob_lp_calc.lp.dup
+		ctr_lp.blob = self.blob
+		ctr_lp.blob_lp_calc = self.blob_lp_calc
+		ctr_lp
+	end
+end
+
+class ContourLoopCarpet
+	self.img_obj_add_sub_obj :next_layer
+end
+
+class Curve < ImageObject
+	attr_reader :curve_carpet, :segments, :set, :min_lp_grps,
+		:min_lp_grp_terminals, :pix_neighbs_proc
+	
+	self.img_obj_add_sub_obj :segments
+	
+	def initialize(curve_carp, segments, pix_neighbs=nil)
+		@curve_carpet = curve_carp
+		@segments = segments
+		if pix_neighbs
+		  @pix_neighbs_proc = proc { |pix| pix_neighbs[pix.a_yx] }
+		else
+		  @pix_neighbs_proc = proc { |pix| ngbs = []
+		    #$PDbgLog.sig_call(self)
+		    #$PDbgLog.print_msg "ngbs:"+pix.coords_to_s + ": "
+		    pix.adj8_semi_adj8_each { |ngb|
+		      #$PDbgLog.print_msg "ngb#{ngb.coords_to_s} "
+		      if self.set.include?(ngb)
+		  	ngbs << ngb; true; else false; end }
+		    #$PDbgLog.sig_return(PixbufPix.path_to_s(ngbs))
+		    ngbs
+		  }
+		end
+		@set = SortedArrSet.new(self) { |a,b| a.a_yx <=> b.a_yx }
+		@min_lp_grps = []
+		@min_lp_grp_terminals = []
+		@pix_mapping2end_pt = {}
+		@pix_mapping2body_pt = {}
+		@pix_nodes = {}
+		super()
+	end
+	
+	def pixbuf
+		@curve_carpet.blob.pixbuf
+	end
+end
+
+class CurveCarpet < ImageObject
+	attr_reader :blob, :curves, :multiple_curves, :pix_neighbs_from_curve
+	
+	self.img_obj_add_sub_obj :curves
+	
+	def initialize(blob, multiple_curves=false, pix_neighbs_from_curve=true)
+		$PDbgLog.sig_call(self)
+		@blob = blob
+		@multiple_curves = multiple_curves
+		@pix_neighbs_from_curve = pix_neighbs_from_curve
+		@curves = []
+		super()
+		self.rebuild
+		$PDbgLog.sig_return
+	end
+	
+	def rebuild
+		$PDbgLog.sig_call(self)
+		loop_calcs = []
+		pix_neighbs = @pix_neighbs_from_curve ? Hash.new([]) : nil
+		@curves.clear
+		if @multiple_curves
+		  @blob.contour_carpets.each { |ctr| ctr.loops.each { |lp|
+			loop_calcs << BlobLoopCalc.new(@blob,lp[0,lp.length]) }}
+		  core, segs = *BlobLoopCalc.loop_calcs_mid_ln_segs!(loop_calcs,
+		  	pix_neighbs)
+		  visited = Set.new
+		  tail = []
+		  while !core.empty?
+		  	pix = nil; core.each { |pix| break }
+			@curves << (curve=Curve.new(self,c_segs=[],pix_neighbs))
+			curve << pix
+			c_set = curve.img_obj_ayx_set
+			tail << pix
+			while !tail.empty?
+				pix = tail.pop
+				ngbs = pix.adj8.find_all{|px| core.include?(px)}
+				for ngb in ngbs
+				  unless c_set.include?(ngb.a_yx)
+					tail << ngb
+					curve << ngb
+				 	c_set << ngb.a_yx
+				  end
+				end
+			end
+			curve.sort! { |a,b| a.a_leg(b) }
+			curve.each { |pix| core.delete(pix) }
+			i = 0
+			while i < segs.length
+				seg = segs.at(i)
+				if c_set.include?(seg.first.a_yx)
+					warn(self.class.name + ".rebuild: " +
+					  "Segment goes across curves!") unless
+					  c_set.include?(seg.last.a_yx)
+					c_segs << seg
+					segs.delete_at(i)
+				else
+					i += 1
+				end
+			end
+		  end
+		  warn(self.class.name + ".rebuild: Unclaimed segments (#{segs.
+		  	length})!") unless segs.empty?
+		else
+		  @blob.contour_carpets.each { |ctr| lp = ctr.loop_carpet
+			loop_calcs << BlobLoopCalc.new(@blob, lp[0,lp.length]) }
+		  core, segs = *BlobLoopCalc.loop_calcs_mid_ln_segs!(loop_calcs,
+		  	pix_neighbs)
+		  @curves << (curve = Curve.new(self, segs, pix_neighbs))
+		  core.each { |pix| curve << pix }
+		  curve.sort! { |a,b| a.a_leg(b) }
+		end
+		self.clear
+		core.each { |pix| self << pix }
+		$PDbgLog.sig_return("#{@curves.length} curve#{@curves.length ==
+			1 ? "" : "s" }")
+	end
+end
+
+class Curve
+	def pix_maps_to_end_pt?(pix)
+		@pix_mapping2end_pt[pix.a_yx]
+	end
+	
+	def pix_maps_to_end_pt(pix, val)
+		@pix_mapping2end_pt[pix.a_yx] = val
+	end
+	
+	def pix_maps_to_body_pt?(pix)
+		@pix_mapping2body_pt[pix.a_yx]
+	end
+	
+	def pix_maps_to_body_pt(pix, val)
+		@pix_mapping2body_pt[pix.a_yx] = val
+	end
+	
+	def pix_end_pt?(pix, incl_set)
+		pix.adj8.find_all { |px| incl_set.include?(px.yx) }.length < 2
+	end
+	
+	def pix_node(pix)
+		tmp = @pix_nodes[pix.a_yx]
+		return tmp if tmp
+		pix_conns = pix.connections(&@pix_neighbs_proc)
+		node = @pix_nodes[pix.a_yx] = AaXyNode.new(pix.ax, pix.ay,
+		  conns = [])
+		pix_conns.each { |pixs|
+			cn = NodeConn.new(self.pix_node(pixs.last), pixs.length)
+			cn.path = XyPath.new([pix] + pixs)
+			conns << cn
+		}
+		node
+	end
+end
+
+end