X-Git-Url: http://git.asbjorn.biz/?a=blobdiff_plain;f=spec%2Fspec_helper.rb;h=bbfe1a5ff26739e6ad08d05af6c9be93c212ff0c;hb=9188f342f67f399dbb7857dd1970ab44a8c24138;hp=78a25b306893f48dce1ce9f64f6ca770462587c4;hpb=649ac0b90eedb21df0232ca5d0705e006dec511c;p=swftools.git

diff --git a/spec/spec_helper.rb b/spec/spec_helper.rb
index 78a25b3..bbfe1a5 100644
--- a/spec/spec_helper.rb
+++ b/spec/spec_helper.rb
@@ -41,16 +41,21 @@ class ConversionFailed < Exception
 end
 
 class Area
-    def initialize(x1,y1,x2,y2,data)
-	@x1,@y1,@x2,@y2 = x1,y1,x2,y2
-	@rgb = Array.new(data.size/3) do |i| data.slice(i*3,3) end
+    def initialize(x1,y1,x2,y2,file)
+	@x1,@y1,@x2,@y2,@file = x1,y1,x2,y2,file
     end
     def should_be_plain_colored
+	@rgb = @file.get_area(@x1,@y1,@x2,@y2) unless @rgb
 	@rgb.minmax == [@rgb[0],@rgb[0]] or raise AreaError.new(self,"is not plain colored")
     end
     def should_not_be_plain_colored
+	@rgb = @file.get_area(@x1,@y1,@x2,@y2) unless @rgb
 	@rgb.minmax != [@rgb[0],@rgb[0]] or raise AreaError.new(self,"is plain colored")
     end
+    def should_contain_text(text)
+	text2 = @file.get_text(@x1,@y1,@x2,@y2) 
+	text2 == text or raise AreaError.new(self, "doesn't contain text \"#{text}\" (found: \"#{text2}\")")
+    end
     def to_s
 	"(#{@x1},#{@y1},#{@x2},#{@y2})"
     end
@@ -75,7 +80,7 @@ class Pixel
 	gray2 = pixel.rgb.inject(0) {|sum,e| sum+e}
 	gray1 > gray2 or raise PixelError.new(self,"is not brighter than",pixel)
     end
-    def should_be_less_bright_than(pixel)
+    def should_be_darker_than(pixel)
 	gray1 = @rgb.inject(0) {|sum,e| sum+e}
 	gray2 = pixel.rgb.inject(0) {|sum,e| sum+e}
 	gray1 < gray2 or raise PixelError.new(self,"is not less bright than",pixel)
@@ -87,40 +92,66 @@ class Pixel
 	"(#{@x},#{@y})"
     end
 end
+
+$tempfiles = []
+Kernel.at_exit do
+    $tempfiles.each do |file|
+	`rm -f #{file}`
+    end
+end
+
 class DocFile
     def initialize(filename, page)
 	@filename = filename
 	@page = page
     end
-    def load()
+    def convert()
+	return if @swfname
 	@swfname = @filename.gsub(/.pdf$/i,"")+".swf"
+	$tempfiles += [@swfname]
+	`pdfinfo #{@filename}` =~ /Page size:\s*([0-9]+) x ([0-9]+) pts/
+	width,height = $1,$2
+	dpi = (72.0 * 612 / width.to_i).to_i
+	output = `pdf2swf --flatten -s zoom=#{dpi} -p #{@page} #{@filename} -o #{@swfname} 2>&1`
+	#output = `pdf2swf -s zoom=#{dpi} --flatten -p #{@page} #{@filename} -o #{@swfname} 2>&1`
+	raise ConversionFailed.new(output,@swfname) unless File.exists?(@swfname)
+    end
+    def render()
+	return if @img
+	convert()
 	@pngname = @filename.gsub(/.pdf$/i,"")+".png"
 	begin
-	    output = `pdf2swf --flatten -p #{@page} #{@filename} -o #{@swfname} 2>&1`
-	    raise ConversionFailed.new(output,@swfname) unless File.exists?(@swfname)
 	    output = `swfrender --legacy #{@swfname} -o #{@pngname} 2>&1`
 	    raise ConversionFailed.new(output,@pngname) unless File.exists?(@pngname)
 	    @img = Magick::Image.read(@pngname).first
 	ensure
-	    `rm -f #{@swfname}`
 	    `rm -f #{@pngname}`
 	end
     end
-    def area_at(x1,y1,x2,y2)
-	self.load()
+    def get_text(x1,y1,x2,y2)
+	self.convert()
+	#puts "swfstrings -x #{x1} -y #{y1} -W #{x2-x1} -H #{y2-y1} #{@swfname}"
+	#puts `swfstrings -x #{x1} -y #{y1} -W #{x2-x1} -H #{y2-y1} #{@swfname}`
+	`swfstrings -x #{x1} -y #{y1} -W #{x2-x1} -H #{y2-y1} #{@swfname}`.chomp
+    end
+    def get_area(x1,y1,x2,y2)
+	self.render()
 	data = @img.export_pixels(x1, y1, x2-x1, y2-y1, "RGB")
-	return Area.new(x1,y1,x2,y2,data)
+	Array.new(data.size/3) do |i| data.slice(i*3,3) end
+    end
+    def area_at(x1,y1,x2,y2)
+	return Area.new(x1,y1,x2,y2,self)
     end
     def width()
-	self.load()
+	self.render()
 	return @img.columns
     end
     def height()
-	self.load()
+	self.render()
 	return @img.rows
     end
     def pixel_at(x,y)
-	self.load()
+	self.render()
 	data = @img.export_pixels(x, y, 1, 1, "RGB")
 	return Pixel.new(x,y,data)
     end