metapost-erb 0.0.1

data/README

@@ -0,0 +1,15 @@
+= Metapost-erb
+
+A simple tool to turn erb templates into metapost files, run the metapost, and open the resulting files in Preview.
+
+Also includes some support libraries to help make drawing grids and charts easier.
+
+NB: when I say easier, I mean easier given I know ruby much better than I know metapost. There are probably elegant ways of doing this stuff in metapost itself.
+
+Usage:
+metapost-erb filenameoferb.erb
+
+
+This software is (c) 2010 Green on Black Ltd and distributed under the open source MIT [http://www.opensource.org/licenses/mit-license.php] licence. (See LICENCE for the wording).
+
+

data/bin/metapost-erb

@@ -0,0 +1,44 @@
+#!/usr/bin/ruby
+
+require 'erb'
+require_relative '../lib/metapost-erb'
+
+metapost_command = 'mpost'
+
+puts "Loading template '#{ARGV[0]}'"
+template = IO.readlines(ARGV[0]).join
+
+template_directory = File.dirname(File.expand_path(ARGV[0]))
+
+support_library = File.basename(ARGV[0],'.*')
+support_module = support_library.split(/[^a-zA-Z0-9]/).map { |w| w.capitalize }.join
+metapost_name = ARGV[1] || (File.basename(ARGV[0],'.*') + '.mp')
+log_file_name = (File.basename(ARGV[1] || ARGV[0],'.*') + '.log')
+
+begin
+  puts "Trying to load supporting library #{support_library} with module #{support_module} "
+  require File.join(template_directory,support_library)
+  include eval(support_module)
+rescue LoadError => e
+  puts e
+  puts "No support library #{support_library} found"
+end
+
+puts "Compiling template"
+erb = ERB.new(template)
+metapost = erb.result(binding)
+  
+puts "Writing metapost to #{metapost_name}"
+File.open(metapost_name,'w') do |f|
+  puts metapost
+  f.puts metapost
+end
+
+puts "Running metapost"
+puts `#{metapost_command} -interaction=nonstopmode #{metapost_name}`
+
+puts "Opening files"
+logfile = IO.readlines(log_file_name).join
+logfile[/files? written:(.*)/m,1].split(/.. /).map(&:strip).each do |output|
+  `open #{output}`
+end

data/examples/terrestrial-carbon-stocks.erb

@@ -0,0 +1,99 @@
+%  Estimates of terrestrial carbon stocks from IPCC TAR 3 ("The Carbon Cycle and Atmospheric Carbon Dioxide") Table 3.2
+<%= credits %>
+<% 
+x_axis_unit_label = "btex Area $10^9$ ha etex"
+x_axis_range = (0..15)
+x_minor_grid_step = 1
+x_major_grid_step = 5
+
+case y_units = ARGV[1] || 'ktCO2e'
+  when 'ktCO2e'
+    y_axis_unit_label = "btex Carbon density (ktCO$_{2}$e/ha) etex"
+    y_axis_range = (0..3)
+    y_minor_grid_step = 0.1
+    y_major_grid_step = 1
+    y_axis_conversion = lambda { |c| c * (44.0/12.0)/1000.0  }
+    comparison_label = "100 GtCO$_{2}$e (c. 2 years of man-made emissions)"
+  when 'tC'
+    y_axis_unit_label = "btex Carbon density (tC/ha) etex"
+    y_axis_range = (0..800)
+    y_minor_grid_step = 10
+    y_major_grid_step = 100
+    y_axis_conversion = lambda { |c| c } # No conversion
+    comparison_label = "10 GtC (c. 1 year of man-made emissions)"    
+  end
+%>
+
+input boxes
+input TEX
+prologues:=3;
+outputtemplate := "%j-%3c.eps";
+beginfig(1);
+
+  % Define the scaling and axes
+  chart_width := 10 cm;
+  chart_height := 10cm;
+  xunit := (chart_width / <%= x_axis_range.max %>);
+  yunit := (chart_height / <%= y_axis_range.max %> );
+  
+  % Define colours
+  % Grid
+  color minor_grid_color; minor_grid_color = 0.95 white;
+  color major_grid_color; major_grid_color = 0.85 white;
+  color grid_label_color; grid_label_color = black;
+
+  % Stacks
+  color outer_box_color; outer_box_color = 0.3 white;
+  color soil_color; soil_color = (1,0.5,0.1);
+  color plant_color; plant_color = (0,1.0,0);
+  color soil_label_color; soil_label_color = soil_color * 0.9;
+  color plant_label_color; plant_label_color = plant_color * 0.5;
+  
+  % Comparator
+  color comparator_box_color; comparator_box_color = black;
+  
+  % Draw the grid lines
+  <%= grid_lines x_axis_range.step(x_minor_grid_step), y_axis_range.step(y_minor_grid_step), 'minor_grid_color' %>
+  <%= grid_lines x_axis_range.step(x_major_grid_step), y_axis_range.step(y_major_grid_step), 'major_grid_color' %>
+  
+  % Draw the grid labels
+  <%= grid_labels x_axis_range.step(x_major_grid_step), y_axis_range.step(y_major_grid_step), 'grid_label_color' %>
+  
+  % Draw the axes labels
+  label.llft( <%= x_axis_unit_label %>, (<%= x_axis_range.max %> xunit,-0.5cm) );
+  label.llft( <%= y_axis_unit_label %> rotated 90, (-0.75cm, <%= y_axis_range.max %> yunit) );
+  
+  % Draw the stacks
+  <%= 
+  chart ['soil_color','plant_color'] do
+    stack 'Wetlands'                            ,0.35   ,[ 643,43 ].map(&y_axis_conversion)
+    stack 'Boreal forests'                      ,1.37   ,[ 344,64 ].map(&y_axis_conversion) 
+    stack 'Tropical forests'                    ,1.76   ,[ 123,120].map(&y_axis_conversion)
+    stack 'Temperate grasslands \& shrublands'  ,1.25   ,[ 236,7  ].map(&y_axis_conversion)  
+    stack 'Temperate forests'                   ,1.04   ,[ 96 ,57 ].map(&y_axis_conversion)
+    stack 'Tropical savannas \& grasslands'     ,2.25   ,[ 117,29 ].map(&y_axis_conversion) 
+    stack 'Tundra'                              ,0.95   ,[ 127,6  ].map(&y_axis_conversion)  
+    stack 'Croplands'                           ,1.60   ,[ 80 ,2  ].map(&y_axis_conversion)
+    stack 'Deserts and semi deserts'            ,4.55   ,[ 42 ,2  ].map(&y_axis_conversion)
+    
+    stacks.each do |stack_name,boxes|
+      box_draw "draw #{boxes.first}.sw--#{boxes.last}.nw--#{boxes.last}.ne--#{boxes.first}.se--cycle withcolor outer_box_color"
+      label_box boxes.last, stack_name, :n, 'outer_box_color'
+    end
+
+    label_box stacks['Deserts and semi deserts'].first, "in first 1m of soil", :e, 'soil_label_color'
+    label_box stacks['Deserts and semi deserts'].last, "in plants", :e, 'plant_label_color'
+  end 
+  %>
+  
+  % Comparison
+  boxit.comparator();
+  comparator.sw = (<%= x_axis_range.max-x_minor_grid_step %> xunit, <%= y_axis_range.max-y_minor_grid_step %>  yunit);
+  comparator.ne = (<%= x_axis_range.max %> xunit, <%= y_axis_range.max %>  yunit);
+  draw bpath(comparator) withcolor comparator_box_color;
+  fill bpath(comparator) withcolor 0.9*white+0.1*comparator_box_color;
+  <%= label_box 'comparator', comparison_label, :e %>
+
+endfig;
+
+end;

data/examples/terrestrial-carbon-stocks.rb

@@ -0,0 +1,9 @@
+module TerrestrialCarbonStocks
+  include MetaPost
+  include Grid
+  include Stacks
+  
+  def credits
+    "% This image was created by Tom Counsell, with improvements by David MacKay, based on underlying data from the IPCC"
+  end
+end

data/lib/metapost-erb.rb

@@ -0,0 +1,156 @@
+module MetaPost
+  module Standard    
+  
+    def layers
+      @layers ||= []
+    end
+    
+    def draw_on_layer(layer,*strings) 
+      layers[layer] ||= []
+      layers[layer] << strings.flatten.join
+    end
+  
+    def write!
+      result = layers.flatten.join(";\n  ") + ";\n  "
+      layers.clear
+      result
+    end
+  
+    def x(value)
+      "#{value} xunit"
+    end
+  
+    def y(value)
+      "#{value} yunit"
+    end
+  
+    def labels
+      @labels ||= []
+    end
+  
+    def draw_labels
+      labels.join(";\n")+";\n"
+    end
+  
+    def v(*names)
+      name = names.join
+      @variables ||= {}
+      return @variables[name] if @variables.has_key?(name)
+      variable_name = name.gsub(/[^a-zA-Z0-9]/,'')
+      variable_name.succ! while @variables.has_value?(variable_name)
+      @variables[name] = variable_name
+      variable_name
+    end  
+  end
+
+
+  module Grid
+    include Standard
+  
+    def grid_lines(x_values,y_values = x_values,colour = 'grid')
+      x_values = x_values.to_a
+      y_values = y_values.to_a
+      x_min, x_max = x_values.min, x_values.max
+      y_min, y_max = y_values.min, y_values.max
+
+      x_values.each do |x_value|
+        grid_line   "draw (#{x x_value}, #{y y_min})--(#{x x_value}, #{y y_max}) withcolor #{colour}"
+      end
+
+      y_values.each do |y_value|
+        grid_line   "draw (#{x x_min}, #{y y_value})--(#{x x_max}, #{y y_value}) withcolor #{colour}"
+      end
+
+      write!
+    end
+  
+    def grid_labels(x_values,y_values = nil,colour = 'black')
+      if x_values
+        x_values.each do |x_value|
+          grid_label  "label.bot(btex #{x_value} etex, (#{x x_value},0)) withcolor #{colour}"
+        end
+      end
+    
+      if y_values
+        y_values.each do |y_value|
+          grid_label  "label.lft(btex #{y_value} etex, (0,#{y y_value})) withcolor #{colour}"
+        end
+      end
+    
+      write!
+    end
+  
+    def grid_line(string)
+      draw_on_layer 0, string
+    end
+  
+    def grid_label(string)
+      draw_on_layer 1, string
+    end
+  end
+  
+  module Stacks
+    include Standard
+    attr_accessor :default_stack_colours
+    attr_accessor :stacks
+    attr_accessor :stack_sw_x
+  
+    def stack(stack_name, width, heights, pen_color = self.default_stack_colours, fill_color = nil)
+      self.stacks ||= {}
+      self.stacks[stack_name] = []
+      self.stack_sw_x ||= 0
+      heights = [heights] unless heights.is_a?(Array)
+      pen_color = Array.new(heights.size,pen_color) unless pen_color.is_a?(Array)
+      fill_color = pen_color.map { |pen| "0.75*white+0.25*(#{pen})" } unless fill_color
+      fill_color = Array.new(heights.size,fill_color) unless fill_color.is_a?(Array)
+      result = []
+      height = 0
+      heights.each.with_index do |box_height,i|
+        self.stacks[stack_name] << box_name = "#{v(stack_name)}[#{i}]"
+        box_definition "boxit.#{box_name}()"
+        box_position   "#{box_name}.sw = (#{x @stack_sw_x}, #{y height})"
+        box_position   "#{box_name}.ne = (#{x(@stack_sw_x + width)}, #{y height + box_height})"
+        height = height + box_height
+        box_draw       "fill bpath(#{box_name}) withcolor #{fill_color[i]}"
+        box_draw       "draw bpath(#{box_name}) withcolor #{pen_color[i]}"
+      end    
+      self.stack_sw_x = self.stack_sw_x + width
+    end
+  
+    def chart(default_stack_colours, &block)
+      self.stacks = nil
+      self.stack_sw_x = nil
+      self.default_stack_colours = default_stack_colours
+      block.call
+      write!
+    end
+  
+    def label_box(box_name,text,corner = :n, colour = "black", rotation = nil, offset = nil, label_position = nil)
+      rotation ||= {'ne' => '45', 'n' => '45'}[corner.to_s]
+      offset ||= {'ne' => "(0.5 cm, 0.5 cm)", 'n' => "(0.5 cm,0.5 cm)", 'e' => "(0.5 cm, 0 cm)"}[corner.to_s]
+      label_position ||= {'ne' => 'urt', 'e' => 'rt', 'n' => 'urt' }[corner.to_s]
+
+      anchor = "#{box_name}.#{corner}"
+      box_label arrow = "draw (#{anchor} shifted #{offset})..(#{anchor} shifted (#{offset}/10)) withcolor #{colour}"
+      box_label text = "label.#{label_position}( btex #{text} etex #{rotation && "rotated #{rotation}"}, (#{anchor} shifted #{offset}) ) withcolor #{colour}"
+      arrow + ";\n" + text + ";\n"
+    end
+  
+    def box_definition(string)
+      draw_on_layer 0, string
+    end
+  
+    def box_position(string)
+      draw_on_layer 1, string
+    end
+  
+    def box_draw(string)
+      draw_on_layer 2, string
+    end
+  
+    def box_label(string)
+      draw_on_layer 3, string
+    end
+    
+  end
+end

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification 
+name: metapost-erb
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Thomas Counsell, Green on Black Ltd
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-08-13 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: metapost-erb@greenonblack.com
+executables: 
+- metapost-erb
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- README
+- lib/metapost-erb.rb
+- bin/metapost-erb
+- examples/terrestrial-carbon-stocks.erb
+- examples/terrestrial-carbon-stocks.rb
+has_rdoc: true
+homepage: http://github.com/tamc/metapost-erb
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ~>
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 9
+      - 1
+      version: 1.9.1
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Helps to programatically create metapost files, making use of erb templates
+test_files: []
+