thinreports 0.6.0.pre3

data/lib/thinreports/generator/pdf/document/graphics.rb

@@ -0,0 +1,42 @@
+# coding: utf-8
+
+module ThinReports
+  module Generator
+    
+    # @private
+    module Pdf::Graphics
+      
+      BASE_LINE_WIDTH = 0.9
+      
+    private
+
+      # Change the default graphic states defined by Prawn.
+      def setup_custom_graphic_states
+        pdf.line_width(BASE_LINE_WIDTH)
+      end
+      
+      # @param [Numeric] width
+      def line_width(width)
+        pdf.line_width(width * BASE_LINE_WIDTH)
+      end
+      
+      # Delegate to Prawn::Document#save_graphic_state
+      # @see Prawn::Document#save_graphics_state
+      def save_graphics_state
+        pdf.save_graphics_state
+      end
+      
+      # Delegate to Prawn::Document#restore_graphic_state
+      # @see Prawn::Document#restore_graphics_state
+      def restore_graphics_state
+        pdf.restore_graphics_state
+      end
+    end
+    
+  end
+end
+
+require 'thinreports/generator/pdf/document/graphics/attributes'
+require 'thinreports/generator/pdf/document/graphics/basic'
+require 'thinreports/generator/pdf/document/graphics/image'
+require 'thinreports/generator/pdf/document/graphics/text'

data/lib/thinreports/generator/pdf/document/graphics/attributes.rb

@@ -0,0 +1,92 @@
+# coding: utf-8
+
+module ThinReports
+  module Generator
+    
+    module Pdf::Graphics
+      # @param [Hash] svg_attrs
+      # @yield [attrs]
+      # @yieldparam [Hash] attrs
+      # @return [Hash]
+      def common_graphic_attrs(svg_attrs, &block)
+        attrs = {:stroke       => svg_attrs['stroke'],
+                 :stroke_width => svg_attrs['stroke-width'],
+                 :fill         => svg_attrs['fill']}
+        
+        # Set 0 to stroke_width if stroke_opacity is '0'.
+        if svg_attrs['stroke-opacity'] == '0'
+          attrs[:stroke_width] = 0
+        end
+        
+        # Setting for stroke dash.
+        if (dash = svg_attrs['stroke-dasharray']) && dash != 'none'
+          attrs[:stroke_dash] = dash.split(',')
+        end
+        block.call(attrs) if block_given?
+        attrs
+      end
+      
+      # @param [Hash] svg_attrs
+      # @yield [attrs]
+      # @yieldparam [Hash] attrs
+      # @return [Hash]
+      def common_text_attrs(svg_attrs, &block)
+        attrs = {:font   => default_family_if_missing(svg_attrs['font-family']),
+                 :size   => svg_attrs['font-size'],
+                 :color  => svg_attrs['fill'],
+                 :align  => text_align(svg_attrs['text-anchor']),
+                 :styles => font_styles(svg_attrs)}
+        # Letter Spacing.
+        if space = svg_attrs['letter-spacing']
+          attrs[:letter_spacing] = space unless space == 'normal'
+        end
+        block.call(attrs) if block_given?
+        attrs
+      end
+      
+      # @param [Hash] svg_attrs
+      # @return [Array<Symbol>]
+      def font_styles(svg_attrs)
+        styles = []
+        styles << :bold   if svg_attrs['font-weight'] == 'bold'
+        styles << :italic if svg_attrs['font-style'] == 'italic'
+        
+        if (deco = svg_attrs['text-decoration']) && deco != 'none'
+          deco = deco.split(' ')
+          styles << :underline     if deco.include?('underline')
+          styles << :strikethrough if deco.include?('line-through')
+        end
+        styles
+      end
+      
+      # @param [String] svg_align
+      # @return [Symbol]
+      def text_align(svg_align)
+        case svg_align
+        when 'start'  then :left
+        when 'middle' then :center
+        when 'end'    then :right
+        else :left
+        end
+      end
+      
+      # @param [String] svg_valign
+      # @return [Symbol]
+      def text_valign(svg_valign)
+        case svg_valign
+        when 'top'    then :top
+        when 'center' then :center
+        when 'bottom' then :bottom
+        else :top
+        end
+      end
+      
+      # @param [String] xlink
+      # @return [String]
+      def extract_base64_string(xlink)
+        xlink.sub(%r{^data:image/[a-z]+?;base64,}, '')
+      end
+    end
+    
+  end
+end

data/lib/thinreports/generator/pdf/document/graphics/basic.rb

@@ -0,0 +1,132 @@
+# coding: utf-8
+
+module ThinReports
+  module Generator
+    
+    module Pdf::Graphics
+      # @param [Numeric, String] x1
+      # @param [Numeric, String] y1
+      # @param [Numeric, String] x2
+      # @param [Numeric, String] y2
+      # @param [Hash] attrs ({})
+      # @option attrs [String] :stroke
+      # @option attrs [Numeric, String] :stroke_width
+      # @option attrs [Array<Integer, String>] :stroke_dash
+      def line(x1, y1, x2, y2, attrs = {})
+        with_graphic_styles(attrs) do
+          pdf.line(pos(x1, y1), pos(x2, y2))
+        end
+      end
+      
+      # @param [Numeric, String] x
+      # @param [Numeric, String] y
+      # @param [Numeric, String] w width
+      # @param [Numeric, String] h height
+      # @param [Hash] attrs ({})
+      # @option attrs [Integer, String] :radius
+      # @option attrs [String] :stroke
+      # @option attrs [Numeric, String] :stroke_width
+      # @option attrs [Array<Integer, String>] :stroke_dash
+      # @option attrs [String] :fill
+      def rect(x, y, w, h, attrs = {})
+        w, h   = s2f(w, h)
+        radius = s2f(attrs[:radius])
+        
+        with_graphic_styles(attrs) do
+          if radius && !radius.zero?
+            pdf.rounded_rectangle(pos(x, y), w, h, radius)
+          else
+            pdf.rectangle(pos(x, y), w, h)
+          end
+        end
+      end
+      
+      # @param [Numeric, String] x center-x
+      # @param [Numeric, String] y center-y
+      # @param [Numeric, String] rx
+      # @param [Numeric, String] ry
+      # @param [Hash] attrs ({})
+      # @option attrs [String] :stroke
+      # @option attrs [Numeric, String] :stroke_width
+      # @option attrs [Array<Integer, String>] :stroke_dash
+      # @option attrs [String] :fill
+      def ellipse(x, y, rx, ry, attrs = {})
+        rx, ry = s2f(rx, ry)
+        
+        with_graphic_styles(attrs) do
+          pdf.ellipse(pos(x, y), rx, ry)
+        end
+      end
+      
+    private
+      
+      # @param [Hash] attrs
+      def with_graphic_styles(attrs, &block)
+        stroke = build_stroke_styles(attrs)
+        fill   = build_fill_styles(attrs)
+        
+        # Do not draw if no colors given.
+        return unless fill || stroke
+        
+        save_graphics_state
+
+        # Apply stroke-dashed.
+        if stroke && stroke[:dash]
+          length, space = stroke[:dash]
+          pdf.dash(length, :space => space)
+        end
+        
+        case
+        # Draw with fill and stroke.
+        when fill && stroke
+          pdf.fill_and_stroke {
+            line_width(stroke[:width])
+            pdf.fill_color(fill[:color])
+            pdf.stroke_color(stroke[:color])
+            block.call
+          }
+        # Draw only with fill.
+        when fill
+          pdf.fill {
+            pdf.fill_color(fill[:color])
+            block.call
+          }
+        # Draw only with stroke.
+        when stroke
+          pdf.stroke {
+            line_width(stroke[:width])
+            pdf.stroke_color(stroke[:color])
+            block.call
+          }
+        end
+        
+        restore_graphics_state
+      end      
+      
+      # @param [Hash] styles
+      # @return [Hash, nil]
+      def build_stroke_styles(styles)
+        color = styles[:stroke]
+        width = styles[:stroke_width]
+        
+        if color && color != 'none' && width && width != 0
+          {:color => parse_color(color),
+           :width => s2f(width),
+           :dash  => s2f(*styles[:stroke_dash])}
+        end
+      end
+      
+      # @param [Hash] styles
+      # @return [Hash, nil]
+      def build_fill_styles(styles)
+        color = styles[:fill]
+        
+        if color && color != 'none'
+          {:color => parse_color(color)}
+        end
+      end      
+      
+    end
+    
+  end
+end

data/lib/thinreports/generator/pdf/document/graphics/image.rb

@@ -0,0 +1,51 @@
+# coding: utf-8
+
+require 'tempfile'
+require 'base64'
+
+module ThinReports
+  module Generator
+    
+    module Pdf::Graphics
+      # @param [String] filename
+      # @param [Numeric, Strng] x
+      # @param [Numeric, Strng] y
+      # @param [Numeric, Strng] w
+      # @param [Numeric, Strng] h
+      def image(filename, x, y, w, h)
+        w, h = s2f(w, h)
+        pdf.image(filename, :at => pos(x, y), :width  => w, :height => h)
+      end
+      
+      # @param [String] base64
+      # @param x, y, w, h (see #image)
+      def base64image(base64, x, y, w, h)
+        image = create_temp_imagefile(base64)
+        image(image.path, x, y, w, h)
+      end
+      
+    private
+      
+      def clean_temp_images
+        temp_image_registry.each {|tmp| tmp.unlink }
+      end
+      
+      def temp_image_registry
+        @temp_image_registry ||= []
+      end
+      
+      # @param [String] base64
+      # @return [Tempfile]
+      def create_temp_imagefile(base64)
+        file = Tempfile.new('trg-tmp-img')
+        file.binmode
+        file.write(Base64.decode64(base64))
+        temp_image_registry << file
+        file
+      ensure
+        file.close
+      end      
+    end
+    
+  end
+end

data/lib/thinreports/generator/pdf/document/graphics/text.rb

@@ -0,0 +1,130 @@
+# coding: utf-8
+
+module ThinReports
+  module Generator
+    
+    module Pdf::Graphics
+      # @param [String] content
+      # @param [Numeric, String] x
+      # @param [Numeric, String] y
+      # @param [Numeric, String] w
+      # @param [Numeric, String] h
+      # @param [Hash] attrs ({})
+      # @option attrs [String] :font
+      # @option attrs [Numeric, String] :size
+      # @option attrs [String] :color
+      # @option attrs [Array<:bold, :italic, :underline, :strikethrough>]
+      #   :styles (nil)
+      # @option attrs [:left, :center, :right] :align (:left)
+      # @option attrs [:top, :center, :bottom] :valign (:top)
+      # @option attrs [Numeric, String] :line_height The total height of an text line.
+      # @option attrs [Numeric, String] :letter_spacing
+      def text_box(content, x, y, w, h, attrs = {})
+        w, h = s2f(w, h)
+        with_text_styles(attrs) do |built_attrs, font_styles|
+          pdf.formatted_text_box([{:text   => text_without_line_wrap(content),
+                                   :styles => font_styles}],
+                                 built_attrs.merge(:at     => pos(x, y),
+                                                   :width  => w,
+                                                   :height => h))
+        end
+      end
+      
+      # @see #text_box
+      def text(content, x, y, w, h, attrs = {})
+        # Set the :overflow property to :shirink_to_fit.
+        text_box(content, x, y, w, h, attrs.merge(:overflow => :shrink_to_fit))
+      end
+      
+    private
+      
+      # @param attrs (see #text)
+      # @yield [built_attrs, font_styles]
+      # @yieldparam [Hash] built_attrs The finalized attributes.
+      # @yieldparam [Array] font_styles The finalized styles.
+      def with_text_styles(attrs, &block)
+        # When no color is given, do not draw.
+        return unless attrs.key?(:color) && attrs[:color] != 'none'
+        
+        save_graphics_state
+        
+        fontinfo = {:name  => attrs.delete(:font).to_s,
+                    :color => parse_color(attrs.delete(:color)),
+                    :size  => s2f(attrs.delete(:size))}
+        
+        # Add the specified value to :leading option.
+        if line_height = attrs.delete(:line_height)
+          attrs[:leading] = text_line_leading(s2f(line_height),
+                                              :name => fontinfo[:name],
+                                              :size => fontinfo[:size])
+        end
+        
+        # Set the :character_spacing option.
+        if space = attrs.delete(:letter_spacing)
+          attrs[:character_spacing] = s2f(space)
+        end
+        
+        # Or... with_font_styles(attrs, fontinfo, &block)
+        with_font_styles(attrs, fontinfo) do |modified_attrs, styles|
+          block.call(modified_attrs, styles)
+        end
+        
+        restore_graphics_state
+      end
+      
+      # @param [Numeric] line_height
+      # @param [Hash] font
+      # @option font [String] :name Name of font.
+      # @option font [Numeric] :size Size of font.
+      # @return [Numeric]
+      def text_line_leading(line_height, font)
+        line_height - pdf.font(font[:name], :size => font[:size]).height
+      end
+      
+      # @param [String] content
+      # @return [String]
+      def text_without_line_wrap(content)
+        content.gsub(/ /, Prawn::Text::NBSP)
+      end
+      
+      # @param [Hash] attrs
+      # @param [Hash] font
+      # @option font [String] :color
+      # @option font [Numeric] :size
+      # @option font [String] :name
+      # @yield [attributes, styles]
+      # @yieldparam [Hash] modified_attrs
+      # @yieldparam [Array] styles
+      def with_font_styles(attrs, font, &block)
+        # Building font styles.
+        if styles = attrs.delete(:styles)
+          manual, styles = styles.partition do |style|
+            [:bold, :italic].include?(style) && !font_has_style?(font[:name], style)
+          end
+        end
+        
+        # Emulate bold style.
+        if manual.include?(:bold)
+          pdf.stroke_color(font[:color])
+          pdf.line_width(font[:size] * 0.025)
+          
+          # Change rendering mode to :fill_stroke.
+          attrs[:mode] = :fill_stroke
+        end
+        
+        # Emulate italic style.
+        if manual.include?(:italic)
+          # FIXME
+          # pdf.transformation_matrix(1, 0, 0.26, 1, 0, 0)
+        end
+        
+        pdf.font(font[:name], :size => font[:size]) do
+          pdf.fill_color(font[:color])
+          block.call(attrs, styles || [])
+        end
+      end      
+      
+    end
+    
+  end
+end