mork 0.0.1 → 0.0.2

data/spec/mork/mimage_list_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+
+module Mork
+  describe MimageList do
+    before(:all) do
+      tpg = sample_img(:two_pages)
+      @mlist = MimageList.new(tpg.filename)
+    end
+    
+    describe ".new" do
+      it "should raise an error unless called with a string" do
+        lambda {
+          MimageList.new(666)
+        }.should raise_error
+      end
+    end
+    
+    describe "[]" do
+      it "should return the 1st mimage in the stack" do
+        @mlist[0].should be_a(Mimage)
+      end
+      
+      it "should return the last mimage in the stack" do
+        @mlist[1].should be_a(Mimage)
+      end
+    end
+    
+    describe "each" do
+      it "should loop over all images" do
+        @mlist.each do |m|
+          puts m.inspect
+          m.should be_a(Mimage)
+        end
+      end
+    end
+  end
+end

data/spec/mork/mimage_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+
+module Mork
+  describe Mimage do
+    let(:smp) { sample_img(:sample01) }
+    let(:mim) { Mimage.new(smp.filename) }
+    
+    describe ".new" do
+      it "should create a Mimage from a string pointing to an existing bitmap file" do
+        mim.should be_a(Mimage)
+      end
+      it "should create a Mimage from an existing Magick::ImageList object" do
+        i = Magick::ImageList.new smp.filename
+        Mimage.new(i).should be_a(Mimage)
+      end
+      it "should create a Mimage from an existing Magick::Image object" do
+        i = Magick::ImageList.new smp.filename
+        Mimage.new(i.first).should be_a(Mimage)
+      end
+      it "should raise an error if called with a fixnum" do
+        lambda { Mimage.new 1 }.should raise_error
+      end
+    end
+    
+    describe "#crop" do
+      it "should return a Mimage" do
+        mim.crop({x: 0, y: 0, w: 10, h: 10}).should be_a(Mimage)
+      end
+      it "should return a Mimage of the correct width" do
+        i = mim.crop({x: 0, y: 0, w: 20, h: 10})
+        i.width.should == 20
+      end
+      it "should return a Mimage of the correct height" do
+        i = mim.crop({x: 0, y: 0, w: 10, h: 10})
+        i.height.should == 10
+      end
+    end
+    
+    describe "#crop!" do
+      it "should reduce the Mimage to the correct width" do
+        mim.crop!({x: 0, y: 0, w: 20, h: 10}).width.should == 20
+      end
+      it "should reduce the Mimage to the correct height" do
+        mim.crop!({x: 0, y: 0, w: 20, h: 10}).height.should == 10
+      end
+    end
+  end
+end

data/spec/mork/npatch_spec.rb

@@ -0,0 +1,52 @@
+require 'spec_helper'
+
+module Mork
+  describe NPatch do
+    let(:rgm) { sample_img(:reg_mark) }
+    let(:mim) { Mimage.new(rgm.filename) }
+    
+    describe ".new" do
+      it "should create an NPatch" do
+        NPatch.new(mim).should be_an(NPatch)
+      end
+    end
+    
+    describe "#dark_centroid" do
+      it "should return the correct X" do
+        x, y = NPatch.new(mim).dark_centroid
+        x.should == rgm.info["centroid_x"]
+      end
+      
+      it "should return the correct Y" do
+        x, y = NPatch.new(mim).dark_centroid
+        y.should == rgm.info["centroid_y"]
+      end
+    end
+  end
+end
+
+# describe "#dark_centroid_on" do
+#   it "returns the actual xy offset of the tl registration mark" do
+#     x, y = mim.dark_centroid_on({x: 0, y: 0, w: 180, h: 180})
+#     x.should be_within(2).of(smp.reg_marks["tl_x"])
+#     y.should be_within(2).of(smp.reg_marks["tl_y"])
+#   end
+#   
+#   it "returns the actual xy offset of the tr registration mark" do
+#     x, y = mim.dark_centroid_on({x: smp.width-180, y: 0, w: 180, h: 180})
+#     x.should be_within(2).of(smp.reg_marks["tr_x"])
+#     y.should be_within(2).of(smp.reg_marks["tr_y"])
+#   end
+#   
+#   it "returns the actual xy offset of the br registration mark" do
+#     x, y = mim.dark_centroid_on({x: smp.width-180, y: smp.height-180, w: 180, h: 180})
+#     x.should be_within(2).of(smp.reg_marks["br_x"])
+#     y.should be_within(2).of(smp.reg_marks["br_y"])
+#   end
+#   
+#   it "returns the actual xy offset of the bl registration mark" do
+#     x, y = mim.dark_centroid_on({x: 0, y: smp.height-180, w: 180, h: 180})
+#     x.should be_within(2).of(smp.reg_marks["bl_x"])
+#     y.should be_within(2).of(smp.reg_marks["bl_y"])
+#   end
+# end

data/spec/mork/report_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+module Mork
+  describe Report do
+    let(:smp) { sample_img(:sample01) }
+
+    describe ".new" do
+      it "should create a Report" do
+        Report.new(smp.filename).should be_a(Report)
+      end
+    end
+  end
+end

data/spec/mork/sheet_pdf_spec.rb

@@ -0,0 +1,34 @@
+require 'spec_helper'
+
+module Mork
+  describe SheetPDF do
+    it "should create a basic pdf" do
+      info = {
+        code: 18446744073709551615,
+        choices: [5] * 100,
+        header: {
+          name: "Bertini Giuseppe VR123456",
+          title: "Esame di Fondamenti Morfologici e Funzionali della Vita",
+          code:  "119.27",
+          date: "18 gennaio 2013"
+        }
+      }
+      s = SheetPDF.new(Grid.new(:default), info)
+      s.save("tmp/f1.pdf")
+
+      info = {
+        code: 283764283738,
+        choices: [5] * 100,
+        header: {
+          name: "Francesco Gagliardi VR765432",
+          title: "Esame di Fondamenti Morfologici e Funzionali della Vita",
+          code:  "119.28",
+          date: "18 gennaio 2013"
+        }
+      }
+      s = SheetPDF.new(Grid.new(:default), info)
+      s.save("tmp/f2.pdf")
+    end
+  end
+end
+

data/spec/mork/sheet_spec.rb

@@ -0,0 +1,149 @@
+require 'spec_helper'
+
+module Mork
+  describe Sheet do
+    context "describing marked choices" do
+      before(:all) do
+        fn = sample_img(:sample01).filename
+        @sheet = Sheet.new(fn, Grid.new)
+      end
+
+      describe "#marked?" do
+        it "should return true for a darkened choice" do
+          @sheet.marked?(0,0).should be_true
+        end
+
+        it "should return false for a blank choice" do
+          @sheet.marked?(0,1).should be_false
+        end
+
+        it "prints the average whiteness of the first 40 sets of choices" do
+          40.times do |q|
+            t = (0..4).collect do |c|
+              @sheet.send(:shade_of, q, c).round
+            end
+            puts "#{q+1}: #{t.join(" ")}"
+          end
+        end
+      end
+
+      describe "#mark_array" do
+        it "should return an array of marked choices for each of the first 5 questions" do
+          @sheet.mark_array(5).should == [[0], [1], [2], [3], [4]]
+        end
+
+        it "should return an array of marked choices for the specified question set" do
+          @sheet.mark_array([0, 1, 15, 16, 31]).should == [[0], [1], [0], [1], []]
+        end
+
+        it "should return an array of @grid.max_questions length if called without arguments" do
+          @sheet.mark_array.length.should == 160
+        end
+      end
+
+      describe "#mark_logical_array" do
+        it "should return an array of booleans for each of the first questions" do
+          @sheet.mark_logical_array(5).should == [
+            [true, false, false, false, false],
+            [false, true, false, false, false],
+            [false, false, true, false, false],
+            [false, false, false, true, false],
+            [false, false, false, false, true],
+          ]
+        end
+      end
+    end    
+    context "describing sheet codes" do
+      before(:all) do
+        @smp  = sample_img(:code_sample)
+        @cshe = Sheet.new(@smp.filename, Grid.new)
+      end
+
+      describe "#dark_code_bit_shade" do
+        it "should be less than a certain amount" do
+          v = @cshe.dark_code_bit_shade
+          v.should < @cshe.send(:dark_threshold)
+        end
+      end
+
+      describe "#light_code_bit_shade" do
+        it "should be more than a certain amount" do
+          v = @cshe.light_code_bit_shade
+          v.should > @cshe.send(:dark_threshold)
+        end
+
+      end
+
+      describe "#code_string" do
+        it "should read the bit string" do
+          @cshe.code_string.should == @smp.code_string
+        end
+      end
+
+      describe "#code" do
+        it "should read the bit string and return the integer code" do
+          @cshe.code.should == @smp.code_int
+        end
+      end
+
+    end
+    context "highlighting stuff" do
+      it "should highlight all high bits in red" do
+        smp = sample_img(:code_sample) 
+        s = Sheet.new(smp.filename, Grid.new)
+        CODE_BITS.times do |i|
+          if smp.code_int[i] == 1
+            s.highlight_code_bit i
+          end
+        end
+        s.write "tmp/bits.pdf"
+      end
+
+      it "should highlight the dark calibration bit" do
+        fn = sample_img(:code_sample).filename
+        s = Sheet.new(fn, Grid.new)
+        s.highlight_dark_calibration_bit
+        s.write "tmp/dark_bit.pdf"
+      end
+      it "should highlight the light calibration bit" do
+        fn = sample_img(:code_sample).filename
+        s = Sheet.new(fn, Grid.new)
+        s.highlight_light_calibration_bit
+        s.write "tmp/light_bit.pdf"
+      end
+    end
+
+    context "multi-page pdf" do
+      before(:all) do
+        @smp = sample_img(:two_pages)
+        @mlist = MimageList.new(@smp.filename)
+      end
+
+      describe "reading the codes" do
+        it "should read the right code for the first page" do
+          s = Sheet.new(@mlist[0], Grid.new)
+          s.code.should == 18446744073709551615
+        end
+        it "should read the right code for the second page" do
+          s = Sheet.new(@mlist[1], Grid.new)
+          s.code.should == 283764283738
+        end
+      end
+      
+      describe "getting the answers" do
+        it "should read the correct choices for the first page" do
+          s = Sheet.new(@mlist[0], Grid.new)
+          s.marked?( 0, 0).should be_true
+          s.marked?( 0, 1).should be_false
+          s.marked?(15, 3).should be_false
+          s.marked?(15, 4).should be_true
+        end
+        
+        it "should read the correct choices for the second page" do
+          s = Sheet.new(@mlist[1], Grid.new)
+          s.mark_array(15).should == [[0], [1], [2], [3], [4], [0], [1], [2, 3], [4], [1, 2, 3], [0], [1], [2], [3], [4]]
+        end
+      end
+    end
+  end
+end

data/spec/samples/code_sample.pdf

@@ -0,0 +1,85 @@
+%PDF-1.3
+%����
+1 0 obj
+<< /Creator <feff0050007200610077006e>
+/Producer <feff0050007200610077006e>
+>>
+endobj
+2 0 obj
+<< /Type /Catalog
+/Pages 3 0 R
+>>
+endobj
+3 0 obj
+<< /Type /Pages
+/Count 1
+/Kids [5 0 R]
+>>
+endobj
+4 0 obj
+<< /Length 1109
+>>
+stream
+q
+28.346 21.260 m
+28.346 25.174 25.174 28.346 21.260 28.346 c
+17.346 28.346 14.173 25.174 14.173 21.260 c
+14.173 17.346 17.346 14.173 21.260 14.173 c
+25.174 14.173 28.346 17.346 28.346 21.260 c
+21.260 21.260 m
+28.346 820.630 m
+28.346 824.544 25.174 827.717 21.260 827.717 c
+17.346 827.717 14.173 824.544 14.173 820.630 c
+14.173 816.716 17.346 813.543 21.260 813.543 c
+25.174 813.543 28.346 816.716 28.346 820.630 c
+21.260 820.630 m
+581.102 820.630 m
+581.102 824.544 577.930 827.717 574.016 827.717 c
+570.102 827.717 566.929 824.544 566.929 820.630 c
+566.929 816.716 570.102 813.543 574.016 813.543 c
+577.930 813.543 581.102 816.716 581.102 820.630 c
+574.016 820.630 m
+581.102 21.260 m
+581.102 25.174 577.930 28.346 574.016 28.346 c
+570.102 28.346 566.929 25.174 566.929 21.260 c
+566.929 17.346 570.102 14.173 574.016 14.173 c
+577.930 14.173 581.102 17.346 581.102 21.260 c
+574.016 21.260 m
+f
+42.520 14.173 5.669 14.173 re
+49.606 14.173 5.669 14.173 re
+77.953 14.173 5.669 14.173 re
+92.126 14.173 5.669 14.173 re
+120.472 14.173 5.669 14.173 re
+127.559 14.173 5.669 14.173 re
+134.646 14.173 5.669 14.173 re
+f
+Q
+
+endstream
+endobj
+5 0 obj
+<< /Type /Page
+/Parent 3 0 R
+/MediaBox [0 0 595.2755905511815 841.889763779528]
+/Contents 4 0 R
+/Resources << /ProcSet [/PDF /Text /ImageB /ImageC /ImageI]
+>>
+>>
+endobj
+xref
+0 6
+0000000000 65535 f 
+0000000015 00000 n 
+0000000109 00000 n 
+0000000158 00000 n 
+0000000215 00000 n 
+0000001376 00000 n 
+trailer
+<< /Size 6
+/Root 2 0 R
+/Info 1 0 R
+>>
+startxref
+1553
+%%EOF

data/spec/samples/code_zero.pdf

@@ -0,0 +1,79 @@
+%PDF-1.3
+%����
+1 0 obj
+<< /Creator <feff0050007200610077006e>
+/Producer <feff0050007200610077006e>
+>>
+endobj
+2 0 obj
+<< /Type /Catalog
+/Pages 3 0 R
+>>
+endobj
+3 0 obj
+<< /Type /Pages
+/Count 1
+/Kids [5 0 R]
+>>
+endobj
+4 0 obj
+<< /Length 926
+>>
+stream
+q
+28.346 21.260 m
+28.346 25.174 25.174 28.346 21.260 28.346 c
+17.346 28.346 14.173 25.174 14.173 21.260 c
+14.173 17.346 17.346 14.173 21.260 14.173 c
+25.174 14.173 28.346 17.346 28.346 21.260 c
+21.260 21.260 m
+28.346 820.630 m
+28.346 824.544 25.174 827.717 21.260 827.717 c
+17.346 827.717 14.173 824.544 14.173 820.630 c
+14.173 816.716 17.346 813.543 21.260 813.543 c
+25.174 813.543 28.346 816.716 28.346 820.630 c
+21.260 820.630 m
+581.102 820.630 m
+581.102 824.544 577.930 827.717 574.016 827.717 c
+570.102 827.717 566.929 824.544 566.929 820.630 c
+566.929 816.716 570.102 813.543 574.016 813.543 c
+577.930 813.543 581.102 816.716 581.102 820.630 c
+574.016 820.630 m
+581.102 21.260 m
+581.102 25.174 577.930 28.346 574.016 28.346 c
+570.102 28.346 566.929 25.174 566.929 21.260 c
+566.929 17.346 570.102 14.173 574.016 14.173 c
+577.930 14.173 581.102 17.346 581.102 21.260 c
+574.016 21.260 m
+f
+42.520 14.173 5.669 14.173 re
+f
+Q
+
+endstream
+endobj
+5 0 obj
+<< /Type /Page
+/Parent 3 0 R
+/MediaBox [0 0 595.2755905511815 841.889763779528]
+/Contents 4 0 R
+/Resources << /ProcSet [/PDF /Text /ImageB /ImageC /ImageI]
+>>
+>>
+endobj
+xref
+0 6
+0000000000 65535 f 
+0000000015 00000 n 
+0000000109 00000 n 
+0000000158 00000 n 
+0000000215 00000 n 
+0000001192 00000 n 
+trailer
+<< /Size 6
+/Root 2 0 R
+/Info 1 0 R
+>>
+startxref
+1369
+%%EOF