glyph_imager 0.0.3

data/vendor/ttf-ruby-0.1/tools/README

@@ -0,0 +1,44 @@
+This directory
+==============
+
+This directory (tools/) contains tools based upon TTF/Ruby.
+
+Note: TTF/Ruby does not need to be installed if you run those tools from 
+this directory.
+
+ttfdump
+=======
+
+ttfdump is a command-line tool to extract informations about a font.
+
+$ ruby ttfdump file.ttf # Display a summary about the font
+$ ruby ttfdump file.ttf table # Display informations related to table table
+$ ruby ttfdump file.ttf all # Display all informations (very verbose!)
+
+ttfsubset
+=========
+
+ttfsubset is a tool which from a font and an input file generates a subset from
+this font containing only characters in the input file. Maybe useful to embed a
+lighter version of a font in a document or in an embedded system.
+
+$ ruby ttfsubset file.ttf < input_file.txt
+
+ttfcairoglyphviewer
+===================
+
+ttfcairoglyphviewer renders a selected glyph using Ruby/GTK, Rcairo and
+TTF/Ruby. It also displays markers for corner points, curve control points, and
+implicit points.
+
+$ ruby ttfcairoglyphviewer file.ttf -g glyph_id 
+$ ruby ttfcairoglyphviewer file.ttf -c a_character
+
+ttfglyph2svg
+============
+
+ttfglyph2svg prints to stdout a selected glyph in SVG format.
+
+$ ruby ttfglyph2svg file.ttf -g glyph_id 
+$ ruby ttfglyph2svg file.ttf -c a_character
+

data/vendor/ttf-ruby-0.1/tools/ttfcairoglyphviewer

@@ -0,0 +1,229 @@
+# ttfcairoglyphviewer
+# Copyright (C) 2006  Mathieu Blondel
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+$LOAD_PATH.unshift("../lib/")
+
+require 'gtk2'
+require 'cairo'
+require 'ttf'
+
+class Cairo::Context
+
+    def draw_square(x, y)
+        rectangle(x-10, y-10, 20, 20)
+        set_source_rgb(255.0, 0.0, 0.0)
+        fill_preserve
+        set_line_join(Cairo::LINE_JOIN_ROUND)
+        set_line_width(1)       
+        stroke
+    end
+
+    def draw_circle(x, y)
+        arc(x, y, 10, 0, 2 * Math::PI)
+        fill_preserve
+        set_line_join(Cairo::LINE_JOIN_ROUND)
+        set_line_width(1)       
+        stroke
+    end
+
+    def draw_blue_circle(x, y)
+        set_source_rgb(0.0, 0.0, 255.0)
+        draw_circle(x, y)
+    end
+
+    def draw_green_circle(x, y)
+        set_source_rgb(0.0, 255.0, 0)
+        draw_circle(x, y)
+    end
+
+    def draw_markers(glyph)
+        i = 0
+        points = glyph.points
+        start_new_contour = true
+        while i < points.length                  
+            if start_new_contour
+                # The -y is needed because the directions of the y-axis
+                # with SVG and TrueType are opposed.
+                draw_square(points[i].abs_x, -(points[i].abs_y))
+                first_point = points[i]
+            end
+        
+            if points[i].end_of_contour?
+                close_path
+                start_new_contour = true
+                i += 1
+            else
+                if points[i].on_curve? and points[i + 1].on_curve?             
+                    draw_square(points[i + 1].abs_x, -(points[i + 1].abs_y))
+                    
+                    i += 1
+                else
+                    if points[i + 1].end_of_contour?
+                        # Close the contour
+                        draw_blue_circle(points[i + 1].abs_x, 
+                                      -(points[i + 1].abs_y))
+                        i += 1           
+                    elsif points[i + 2].on_curve?
+                        draw_blue_circle(points[i + 1].abs_x,
+                                      -(points[i + 1].abs_y))
+                    
+                        draw_square(points[i + 2].abs_x,
+                                    -(points[i + 2].abs_y))
+                        i += 2
+                    else
+                        # This is an implied on-curve point
+                        impl_x = (points[i + 2].abs_x - points[i + 1].abs_x) / 2
+                        impl_x += points[i + 1].abs_x
+                        impl_y = (points[i + 2].abs_y - points[i + 1].abs_y) / 2
+                        impl_y += points[i + 1].abs_y
+        
+                        draw_blue_circle(points[i + 1].abs_x,
+                                         -(points[i + 1].abs_y))
+                        draw_green_circle(impl_x, -(impl_y))
+                        i += 1                
+                    end
+                end
+        
+                start_new_contour = false
+            end
+        
+        end
+    end
+
+    def max_y(glyph)
+        max_y = 0
+        glyph.points.each do |pnt|
+            max_y = pnt.abs_y if pnt.abs_y > max_y
+        end
+        max_y
+    end
+
+    def draw_simple_glyph(glyph)
+        set_source_rgba(1.0, 1.0, 1.0)
+        paint
+        points = glyph.points
+        
+        start_new_contour = true
+        i = 0
+
+        scale(0.25, 0.25)
+        translate(0, max_y(glyph) + 20)
+
+
+        # Obviously this could be optimized because almost the same
+        # while loop is used twice but I had troubles to draw markers
+        # and paths at the same time. FIXME!
+        while i < points.length                  
+            if start_new_contour
+                # The -y is needed because the directions of the y-axis
+                # with SVG and TrueType are opposed.
+                move_to(points[i].abs_x, -(points[i].abs_y))
+                first_point = points[i]
+            end
+        
+            if points[i].end_of_contour?
+                close_path
+                start_new_contour = true
+                i += 1
+            else
+                if points[i].on_curve? and points[i + 1].on_curve?             
+                    line_to(points[i + 1].abs_x, -(points[i + 1].abs_y))
+                    
+                    i += 1
+                else
+                    if points[i + 1].end_of_contour?
+                        # Close the contour
+                        quad_to(points[i + 1].abs_x, 
+                                      -(points[i + 1].abs_y),
+                                      first_point.abs_x,
+                                      -(first_point.abs_y))
+                        i += 1           
+                    elsif points[i + 2].on_curve?
+                        quad_to(points[i + 1].abs_x,
+                                      -(points[i + 1].abs_y),
+                                       points[i + 2].abs_x,
+                                       -(points[i + 2].abs_y))
+                        i += 2
+                    else
+                        # This is an implied on-curve point
+                        impl_x = (points[i + 2].abs_x - points[i + 1].abs_x) / 2
+                        impl_x += points[i + 1].abs_x
+                        impl_y = (points[i + 2].abs_y - points[i + 1].abs_y) / 2
+                        impl_y += points[i + 1].abs_y
+        
+                        quad_to(points[i + 1].abs_x,
+                                      -(points[i + 1].abs_y),
+                                      impl_x,
+                                      -(impl_y))
+                        i += 1                
+                    end
+                end
+        
+                start_new_contour = false
+            end
+        
+        end
+        
+        set_source_rgb(0.0, 0.0, 0.0)
+        #fill_preserve
+        set_line_join(Cairo::LINE_JOIN_MITER)
+        set_line_width(4)
+        
+        stroke
+
+        draw_markers(glyph)
+    end
+end
+
+font = Font::TTF::File.new(ARGV[0])
+
+enc_tbl = font.get_table(:cmap).encoding_tables.find do |t|
+    t.class == Font::TTF::Table::Cmap::EncodingTable4
+end
+
+if ARGV[1] == "-g"
+    offs = font.get_table(:loca).glyph_offsets[ARGV[2].to_i]
+    glyph = font.get_table(:glyf).get_glyph_at_offset(offs)
+elsif ARGV[1] == "-c"
+    char_code = ARGV[2].unpack("U")[0]
+    glyph = enc_tbl.get_glyph_for_unicode(char_code)
+else
+    exit!
+end
+
+if glyph.composite?
+   puts "Composite glyph not supported yet"
+   exit! 
+end
+
+Gtk.init
+w = Gtk::Window.new.add(vb = Gtk::VBox.new)
+vb.add(da = Gtk::DrawingArea.new)
+da.set_size_request(300, 300)
+
+da.signal_connect("expose-event") do |widget, event|
+    cr = widget.window.create_cairo_context
+    cr.draw_simple_glyph(glyph)
+end
+
+w.show_all
+
+w.signal_connect("delete-event") do
+    Gtk.main_quit
+end
+
+Gtk.main

data/vendor/ttf-ruby-0.1/tools/ttfdump

@@ -0,0 +1,396 @@
+# ttfdump
+# Copyright (C) 2006  Mathieu Blondel
+# 
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+# 
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
+
+$LOAD_PATH.unshift("../lib/")
+
+require 'ttf'
+require 'pp'
+
+def title_box(title)
+    puts ""
+    bar = "-" * (title.length + 4)
+    puts bar
+    puts "  " + title
+    puts "#{bar}\n\n"
+end
+
+def define(title, definition)    
+    if definition.class == Float
+        puts "%s: %d" % [title, definition]
+    elsif definition.kind_of? Array
+        puts(title + ": " + definition.join(", "))
+    else
+        puts(title + ": " + definition.to_s)       
+    end
+end
+
+def define_methods(obj, methods=nil)
+    methods = obj.class.instance_methods(false) if methods.nil?
+    methods = methods.find_all { |m| m !~ /=$/ and m != "dump" }
+    methods.sort.each do |meth|
+        define(meth, obj.send(meth))
+    end
+end
+
+def usage
+    puts "Usage:"
+    puts "ttfdump ttf_file [table]"
+    puts "Ex: ttfdump font.ttf name"
+end
+
+if ARGV.length == 0 or ["h", "-h", "help", "--help"].include? ARGV[0]
+    usage
+    exit!
+else 
+    ttf = Font::TTF::File.new(ARGV[0])
+end
+
+if ARGV.length == 1 or (ARGV.length == 2 and ARGV[1] == "all")
+    # General Informations 
+    title_box("General informations")
+    define("File dumped", ARGV[0]) 
+    
+    
+    define("Version", ttf.version)
+    if ttf.tables_include? :name
+        name = ttf.get_table(:name)
+
+        fontname = name.name_records.find do |nr|
+        [Font::TTF::Table::Name::NameRecord::UNIQUE_FONT_IDENTIFIER,
+        Font::TTF::Table::Name::NameRecord::FONT_FAMILY_NAME,
+        Font::TTF::Table::Name::NameRecord::FULL_FONT_NAME,
+        Font::TTF::Table::Name::NameRecord::POSTSCRIPT_NAME].include? \
+            nr.name_id and (nr.unicode? or nr.roman?)
+        end
+
+        define("Font Name", fontname.utf8_str) unless fontname.nil?
+
+        fontcopyright = name.name_records.find do |nr|
+            nr.name_id == Font::TTF::Table::Name::NameRecord::COPYRIGHT_NOTICE \
+            and (nr.unicode? or nr.roman?)
+        end        
+
+        define("Copyright", fontcopyright.utf8_str) unless fontcopyright.nil?
+    end
+    define("Number of tables", ttf.table_list.length)
+    define("Tables", "")
+    ttf.table_list.each_with_index do |key, i|
+        val = ttf.tables_infos[key.to_sym]
+        puts "%2u. %4s - checksum = 0x%08x, offset = 0x%08x, len = %9u \n" % \
+            [i, key, val[:checksum], val[:offset], val[:len]]
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "cmap" or ARGV[1] == "all") and
+   ttf.tables_include? :cmap
+    # Cmap
+    title_box("Character to Glyph mapping (cmap) table")
+    cmap = ttf.get_table(:cmap)
+    define("Version", cmap.version)
+    define("Number of encoding tables", cmap.encoding_tables.length)
+    define("Encoding tables summary", "")
+    tables = cmap.encoding_tables
+    tables.each_with_index do |tbl, i|
+        puts  "%2u. format = %2u offset = 0x%08x, len = %d" % 
+            [i, tbl.format, tbl.offset_from_table, tbl.len]
+    end
+    puts ""
+
+    tables.each_with_index do |tbl, i|
+        define("Encoding table", i)
+        define("Format", tbl.format)
+        define("Platform ID", tbl.platform_id)
+        define("Encoding ID", tbl.encoding_id)
+        define("Unicode?", tbl.unicode?)
+        define("Offset from table", "0x%08x" % tbl.offset_from_table)
+        define("Length", tbl.len)
+    
+
+        if tbl.format == 0
+            define("Version", tbl.version)
+            puts ""
+            tbl.glyph_id_array.each_with_index do |glyph_index, char_code|
+                puts "Char %d -> Glyph Index %d" % [char_code, glyph_index]
+            end
+        elsif tbl.format == 4
+            define("Version", tbl.version)
+            define("Segment count", tbl.segments.length)
+            define("Search range", tbl.search_range)
+            define("Entry selector", tbl.entry_selector)
+            define("Range shift", tbl.range_shift)
+            puts ""
+            tbl.segments.length.times do |i|
+                puts \
+"Segment %4d. start = %d, end = %d, delta = %d, range = %d" %
+    [i, tbl.start_count_array[i], tbl.end_count_array[i],
+     tbl.id_delta_array[i], tbl.id_range_offset_array[i]]
+            end
+            puts ""
+            if tbl.glyph_index_array.length > 0
+                define("Number of glyph indices", tbl.glyph_index_array.length) 
+                tbl.glyph_index_array.each_with_index do |glyph_index, i|
+                    puts "glyph_index_array[%d] = %d" % [i, glyph_index]
+                end
+            end
+            tbl.segments.each_with_index do |seg, i|
+                puts "Segment #{i.to_s}"
+                seg.keys.sort.each do |char_code|
+                    glyph_index = seg[char_code]
+                    puts "Char %d (%s) (%s)-> Glyph index %d" % \
+                        [char_code, "0x%08x" % char_code, [char_code].pack("U"),
+                         glyph_index]
+                end
+                puts ""
+            end
+        end
+        puts ""
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "cvt" or ARGV[1] == "all") and
+   ttf.tables_include? :cvt
+    # Cvt
+    title_box("Control Value table (cvt)")
+    cvt = ttf.get_table(:cvt)
+    cvt.instructions.each_with_index do |inst, i|
+        puts "Instruction %d: %d" % [i, inst]
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "gasp" or ARGV[1] == "all") and
+   ttf.tables_include? :gasp
+    # gasp
+    title_box("Grid-fitting and scan-conversion procedure (gasp)")
+    gasp = ttf.get_table(:gasp)
+    gasp.gasp_ranges.each_with_index do |gr, i|
+        define("Gasp range", i)
+        define("Range max ppem", gr.range_max_ppem)
+        define("Range gasp behavior", gr.range_gasp_behavior)
+        puts ""
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "glyf" or ARGV[1] == "all") and
+   ttf.tables_include? :glyf
+    # glyf
+    title_box("Glyph data (glyf)")
+    glyf = ttf.get_table(:glyf)
+    i = 0
+    glyf.each_glyph do |glyph| 
+        define("Glyph index", i)
+        define("Glyph type", glyph.class.to_s)
+        if glyph.simple?
+            methods = glyph.class.instance_methods(false) + \
+                      glyph.class.superclass.instance_methods(false)
+            define_methods(glyph, methods)
+        else
+            methods = glyph.class.superclass.instance_methods(false)
+            define_methods(glyph, methods)
+            print("Glyph components: ")
+            pp glyph.components
+        end
+        puts ""
+        i += 1
+    end
+end
+
+if ARGV.length == 4 and ARGV[1] == "glyf" and
+   ttf.tables_include? :glyf
+    # glyf
+    title_box("Glyph data (glyf)")
+    glyf = ttf.get_table(:glyf)
+
+    enc_tbl = ttf.get_table(:cmap).encoding_tables.find do |t|
+        t.class == Font::TTF::Table::Cmap::EncodingTable4
+    end
+
+    if ARGV[2] == "-g"
+        offs = ttf.get_table(:loca).glyph_offsets[ARGV[3].to_i]
+        glyph = glyf.get_glyph_at_offset(offs)
+    elsif ARGV[2] == "-c"
+        char_code = ARGV[3].unpack("U")[0]
+        glyph = enc_tbl.get_glyph_for_unicode(char_code)
+    elsif ARGV[2] == "-o"
+        glyph = glyf.get_glyph_at_offset(ARGV[3].hex)
+    else
+        exit!
+    end
+
+    define("Glyph type", glyph.class.to_s)
+    if glyph.simple?
+        methods = glyph.class.instance_methods(false) + \
+                    glyph.class.superclass.instance_methods(false)
+        define_methods(glyph, methods)
+    else
+        methods = glyph.class.superclass.instance_methods(false)
+        define_methods(glyph, methods)
+        print("Glyph components: ")
+        pp glyph.components
+    end
+    puts ""
+end
+
+if ARGV.length == 2 and (ARGV[1] == "head" or ARGV[1] == "all") and
+   ttf.tables_include? :head
+    # Head
+    title_box("Head table")
+    head = ttf.get_table(:head)
+    define_methods(head)
+end
+
+if ARGV.length == 2 and (ARGV[1] == "hhea" or ARGV[1] == "all") and
+   ttf.tables_include? :hhea
+    # Hhea
+    title_box("Horizontal header table")
+    hhea = ttf.get_table(:hhea)
+    methods = ["version", "ascender", "descender", "line_gap",
+               "advance_width_max", "min_left_side_bearing",
+               "min_right_side_bearing", "x_max_extent",
+               "caret_slope_rise", "caret_slope_run",
+               "metric_data_format", "number_of_hmetrics"]
+    define_methods(hhea, methods)
+end
+
+if ARGV.length == 2 and (ARGV[1] == "hmtx" or ARGV[1] == "all") and
+   ttf.tables_include? :hmtx
+    # Hmtx
+    title_box("Horizontal metrics table")
+    hmtx = ttf.get_table(:hmtx)
+    hmetrics = hmtx.hmetrics
+    define("Number of Hmetrics", hmetrics.length)
+
+    define("Hmetrics", "")
+    hmetrics.each_with_index do |hmetric, i|
+        puts "%2u. advanced width = %5u, left side bearing = %5d" % \
+             [i, hmetric[0], hmetric[1]]
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "kern" or ARGV[1] == "all") and
+   ttf.tables_include? :kern
+    # Kern
+    title_box("Kerning (kern)")
+    kern = ttf.get_table(:kern)
+    kern.subtables.each do |subtbl|    
+        if subtbl.format == 0
+            subtbl.kerning_pairs.each do |kp|
+                puts "left = %5d, right = %5d, value = %5d" % \
+                    [kp.left, kp.right, kp.value]
+            end
+        end
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "loca" or ARGV[1] == "all") and
+   ttf.tables_include? :loca
+    # Loca
+    title_box("Index to location table (loca)")
+    loca = ttf.get_table(:loca)
+    loca.glyph_offsets.each_with_index do |off, i|
+        puts "Glyph index %6d -> Offset 0x%08x" % [i, off]
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "maxp" or ARGV[1] == "all") and
+   ttf.tables_include? :maxp
+    # Maxp
+    title_box("Max Profile table")
+    maxp = ttf.get_table(:maxp)
+    define_methods(maxp)
+end
+
+if ARGV.length == 2 and (ARGV[1] == "name" or ARGV[1] == "all") and
+   ttf.tables_include? :name
+    # Name
+    title_box("Name table")
+    name = ttf.get_table(:name)
+    define("Number of name records", name.name_records.length)
+    name.name_records.each_with_index do |nr, i|
+        define("Name record number", i)    
+        define("Platform id", "%d (%s)" % [nr.platform_id,
+        Font::TTF::Encodings::Platform::ID2NAME[nr.platform_id]])
+   
+        if nr.platform_id == \
+            Font::TTF::Encodings::Platform::MICROSOFT
+            define("Encoding id", "%d (%s)" % [nr.encoding_id,          
+Font::TTF::Encodings::MicrosoftEncoding::ID2NAME[nr.encoding_id]])
+        elsif nr.platform_id == \
+            Font::TTF::Encodings::Platform::MACINTOSH
+            define("Encoding id", "%d (%s)" % [nr.encoding_id,          
+Font::TTF::Encodings::MacintoshEncoding::ID2NAME[nr.encoding_id]])
+        end
+
+        define("Language id", nr.language_id)    
+        define("Name id",  "%d (%s)" % [nr.name_id,
+        Font::TTF::Table::Name::NameRecord::ID2NAME[nr.name_id]])    
+        define("String length", nr.to_s.length)    
+        define("String offset", nr.str_offset)    
+        define("String value", nr.utf8_str)
+        puts ""
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "os2" or ARGV[1] == "all") and
+   ttf.tables_include? :"OS/2"
+    # Post
+    title_box("OS/2 and Windows metrics")
+    os2 = ttf.get_table(:"OS/2")
+    define_methods(os2)
+end
+
+if ARGV.length == 2 and (ARGV[1] == "post" or ARGV[1] == "all") and
+   ttf.tables_include? :post
+    # Post
+    title_box("Postscript (post)")
+    post = ttf.get_table(:post)
+    methods = %w[format_type italic_angle underline_position
+                 underline_thickness is_fixed_pitch 
+                 min_mem_type_42 max_mem_type_42
+                 min_mem_type_1 max_mem_type_1]
+    define_methods(post, methods)
+    post.names.each_with_index do |name, i|
+        puts "Glyph %6d: %s (postscript id: %d)" % [i, name.str, name.id]
+    end
+end
+
+if ARGV.length == 2 and (ARGV[1] == "vhea" or ARGV[1] == "all") and
+   ttf.tables_include? :vhea
+    # Vhea
+    title_box("Vertical header table")
+    vhea = ttf.get_table(:vhea)
+    methods = ["version", "ascender", "descender", "line_gap",
+               "advance_height_max", "min_top_side_bearing",
+               "min_bottom_side_bearing", "y_max_extent",
+               "caret_slope_rise", "caret_slope_run",
+               "metric_data_format", "number_of_vmetrics"]
+    define_methods(vhea, methods)
+end
+
+if ARGV.length == 2 and (ARGV[1] == "vmtx" or ARGV[1] == "all") and
+   ttf.tables_include? :vmtx
+    # Vmtx
+    title_box("Vertical metrics table")
+    vmtx = ttf.get_table(:vmtx)
+    vmetrics = vmtx.vmetrics
+    define("Number of Vmetrics", vmetrics.length)
+
+    define("Vmetrics", "")
+    vmetrics.each_with_index do |vmetric, i|
+        puts "%2u. advanced width = %5u, top side bearing = %5d" % \
+             [i, vmetric[0], vmetric[1]]
+    end
+end