diagrammatron 0.2.2 → 0.4.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: e75d5bdc504a1706dcfe0d3c120f4c49a4024076ebd42b5bcd5b151d127bd7f9
-  data.tar.gz: 9872615f7842209b32b9402cb77a0071194ea5fa4478d5a26521d2f5c20787da
+  metadata.gz: 32bd6ca5ad8db808b0b6c921ee0efe5b8e1a6befe4e535636f16ff98a22de139
+  data.tar.gz: c00027483fc54a9fab024c1e42a4e10e27b797e52e3a9217319a50542926a894
 SHA512:
-  metadata.gz: d820b1d922dbd336ed795eec477c34ec43508edd731142be9c5144dd9d00efdad1745d47fc586d2af6c1a65cd743024de6da440f413868bcd680e5384e839cac
-  data.tar.gz: 709c2a401cee6f107faba0f86cc18025016b0b9c99d35f8f48959bc63721bf7b67d7fe45374df3a971eff73fdfd9266cda3c20e3b7ed672a44e7f590c3a87e1e
+  metadata.gz: 7723bc76dfd7463a864319421074d8c17357f6c88a309efd81919c165ad836f876d48e062bf618b45e2b7fe779b1c564afaedfa6b105ae1fee9f84e5f52003d5
+  data.tar.gz: ed23e22fd6476e33afb4360cce23cefb0373dbd2c763611d9f61d0a20a283fe2dcd7a4bac6f137d628020db86819aacdea6387c889e5821a3ed4b958a5a2a736

data/bin/diagrammatron-edges

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'set'
@@ -68,7 +68,7 @@ def work_copy(src, quiet)
       next
     end
     label = node['label']
-    if label2idx.key?(label) && edge_nodes.key?(label)
+    if label2idx.key?(label) && edge_nodes.member?(label)
       aargh "Edge-referred label used twice: #{label}"
       errors = true
     end
@@ -109,7 +109,8 @@ def edge_subsets(work)
 end
 
 Segment = Struct.new(:vertical, :cc, :range, :edge_index, :at_node, :segment_index, :offset) do
-  def direction(s) # To decreasing or increasing coordinates.
+  # To decreasing or increasing coordinates.
+  def direction(s)
     return 0 if s.nil?
     if segment_index < s.segment_index
       (cc < s.range[1]) ? 1 : -1
@@ -119,7 +120,7 @@ Segment = Struct.new(:vertical, :cc, :range, :edge_index, :at_node, :segment_ind
   end
 
   def over_other_node(work, node_subset)
-    ck, rk = vertical ? [:xo, :yo] : [:yo, :xo]
+    ck, rk = vertical ? %i[xo yo] : %i[yo xo]
     i0, i1 = (range[0] < range[1]) ? [0, 1] : [1, 0]
     node_subset.each do |n|
       node = work[:nodes][n]
@@ -172,8 +173,7 @@ def segment(x0, y0, x1, y1)
   Segment.new(vert, cc, range, 0, [false, false], 0)
 end
 
-Connection = Struct.new(:node_index, :side_index) do
-end
+Connection = Struct.new(:node_index, :side_index)
 
 $paths = {}
 Path = Struct.new(:edge_index, :ends, :segments, :id, :crosses, :steps) do
@@ -424,63 +424,111 @@ def segment_order(a, b)
     return d unless d.zero?
     d = a[2].range.min <=> b[2].range.min
     return d unless d.zero?
-  when 1 # From top left, down, bottom right: -|_
-    d = a[2].range.min <=> b[2].range.min # Guesstimate for DFS.
+  when 1 # Top left, vertical, bottom right: -|_
+    d = a[2].range.min <=> b[2].range.min # Ascend on minimum.
+    return d unless d.zero?
+    d = a[2].length <=> b[2].length # Ascend on length.
     return d unless d.zero?
   when 2 # From top right, down, bottom left: _|-
-    d = a[2].range.min <=> b[2].range.min # Guesstimate for DFS.
+    d = a[2].range.max <=> b[2].range.max # Descend on maximum.
     return -d unless d.zero?
-  when 3 # Descending on length, range maximum. |=
-    d = b[2].length <=> a[2].length
-    return d unless d.zero?
-    d = b[2].range.max <=> a[2].range.max
+    d = a[2].length <=> b[2].length # Ascend on length.
     return d unless d.zero?
+  when 3 # Descending on length, range maximum. |=
+    d = a[2].length <=> b[2].length
+    return -d unless d.zero?
+    d = a[2].range.max <=> b[2].range.max
+    return -d unless d.zero?
   end
   a[0].edge_index <=> b[0].edge_index
 end
 
-GapState = Struct.new(:order, :count) do
+GapState = Struct.new(:order, :cross_count, :lut) do
   def fitness(segments, k)
+    table = lut[k]
     crossings = 0
-    s = segments[k]
-    prev = (s[1] == 1) ? s[2].range.max : s[2].range.min
     order.each do |n|
-      placed = segments[n]
-      if placed[2].range.min <= prev && prev <= placed[2].range.max
-        crossings += 1
-      end
-      v = (placed[1] == 1) ? placed[2].range.min : placed[2].range.max
-      if s[2].range.min <= v && v <= s[2].range.max
-        crossings += 1
-      end
+      crossings += table[n]
     end
-    count + crossings
+    cross_count + crossings
   end
 end
 
-def depth_first_search(segments, state, best)
-  if state.order.size < segments.size
-    segments.each_index do |k|
-      next if state.order.include? k
-      c = state.fitness(segments, k)
-      next if (best.nil? ? c + 1 : best.count) <= c
-      state.order.push(k)
-      best = depth_first_search(segments, GapState.new(state.order, c), best)
-      state.order.pop
+def candidate_compare(a, b)
+  d = a[1] <=> b[1]
+  return d unless d == 0
+  a[0] <=> b[0]
+end
+
+def candidate_order(lut, used)
+  # Compute crossing sums for all remaining segments among themselves.
+  cands = []
+  lut.keys.each do |k|
+    next if used.include? k
+    total = 0
+    lut.each_pair do |idx, v|
+      total += v[k] unless used.include? idx
     end
-  else
-    best = GapState.new(state.order.clone, state.count)
+    cands.push([k, total])
+  end
+  cands.sort! { |a, b| candidate_compare(a, b) }
+  cands.map { |a| a[0] }
+end
+
+def depth_first_search(segments, state, best)
+  if state.order.size == segments.size
+    $stderr.puts state.order.join(', '), state.cross_count
+    return GapState.new(state.order.clone, state.cross_count, state.lut)
+  end
+  cands = candidate_order(state.lut, state.order)
+  cands.each do |k|
+    c = state.fitness(segments, k)
+    next if (best.nil? ? c + 1 : best.cross_count) <= c
+    state.order.push(k)
+    best = depth_first_search(segments, GapState.new(state.order, c, state.lut), best)
+    state.order.pop
   end
   best
 end
 
-def zigzag_order(segments)
+def zigzag_order(from_right_up_to_left, from_left_up_to_right)
+  # Interleave the two sets.
+  out = []
+  from_right_up_to_left.each { |x| out.push x }
+  from_left_up_to_right.each { |x| out.push x }
+  return out
   return segments if segments.size < 2
   # DFS. Fitness is how many end segments cross the placed segments.
   # Sort so that those that cross least when at start are first and vice versa.
-  best = nil
+  lut = {}
   segments.each_index do |k|
-    best = depth_first_search(segments, GapState.new([ k ], 0), best)
+    crossings = Hash.new(0)
+    lut[k] = crossings
+    s = segments[k]
+    prev = (s[1] == 1) ? s[2].range.max : s[2].range.min
+    segments.each_index do |n|
+      next if k == n
+      other = segments[n]
+      if other[2].range.min <= prev && prev <= other[2].range.max
+        crossings[n] = crossings[n] + 1
+      end
+      v = (other[1] == 1) ? other[2].range.min : other[2].range.max
+      if s[2].range.min <= v && v <= s[2].range.max
+        crossings[n] = crossings[n] + 1
+      end
+    end
+  end
+  $stderr.puts segments.size, lut
+  # Could take all crossings for k, sort, sum up to get minimum fitness for
+  # used set size N ignoring what set has. Since real fitness can not be
+  # lower, once minimal sum + cross_count exceeds best, we can not use that
+  # segment in any later position and can cut off search.
+  # Add to GapState after lut.
+  # Also, coult set time budget for single search and terminate search.
+  best = nil
+  cands = candidate_order(lut, [])
+  cands.each do |k|
+    best = depth_first_search(segments, GapState.new([ k ], 0, lut), best)
   end
   out = []
   best.order.each do |k|
@@ -526,6 +574,7 @@ def group_stacked_offsets(group)
     group[k][0].offset = k + 1
   end
   return group.size
+%q(
   # This produces narrower gaps but they may be less clear.
   prev = group[0]
   prev[0].offset = 1
@@ -535,6 +584,7 @@ def group_stacked_offsets(group)
     prev = g
   end
   prev[0].offset
+)
 end
 
 def direct_range(paths)
@@ -549,7 +599,7 @@ def offsets(conn, paths, direct_ranges)
   dlow = [ here[0], opposite[0] ].max
   dhigh = [ here[2] - here[1], opposite[2] - opposite[1] ].max - 1
   d = dlow + here[1] - here[0] + dhigh + 1
-  low, high, size = here
+  low, high, _size = here
   offsets = []
   (0...low).each do |k|
     offsets.push(Rational((k + 1) * dlow, (d + 1) * low))
@@ -589,7 +639,7 @@ end
 def place_edges(work)
   subsets = edge_subsets(work)
   subsets.each_pair do |sid, subset|
-    full = Hash.new
+    full = {}
     subset.each do |edge_index|
       link = work[:edges][edge_index][:between]
       full[edge_index] = candidates(
@@ -651,7 +701,7 @@ def place_edges(work)
     chosen.each_value do |p|
       (1...(p.segments.size - 1)).each do |k|
         # Middle segments always have surrounding segments.
-        s, before, after, sb, sa = p.segment_directions(k)
+        s, below, above, sb, sa = p.segment_directions(k)
         so = s.clone # More accurate info on actual range with end offsets.
         if so.range[0] < so.range[1]
           so.range[0] += sb.offset unless sb.offset.nil?
@@ -660,7 +710,7 @@ def place_edges(work)
           so.range[0] += sb.offset.nil? ? 0.9999 : sb.offset
           so.range[1] += sa.offset unless sa.offset.nil?
         end
-        group = (before.negative? ? 0 : 1) + (after.negative? ? 0 : 2)
+        group = (below.negative? ? 0 : 1) + (above.negative? ? 0 : 2)
         d = gaps[s.vertical]
         d[s.cc] = d.fetch(s.cc, []).push([ s, group, so ])
       end
@@ -670,7 +720,7 @@ def place_edges(work)
         gap.sort! { |a, b| segment_order(a, b) }
         gleft = gap.select { |a| a[1].zero? }
         gright = gap.select { |a| a[1] == 3 }
-        gmiddle = zigzag_order(gap.select { |a| a[1] == 1 || a[1] == 2 })
+        gmiddle = zigzag_order(gap.select() { |a| a[1] == 1 }, gap.select() { |a| a[1] == 2 })
         gmiddle.each do |s|
           s[1] = 1
         end
@@ -826,20 +876,7 @@ Input YAML file is expected to be the output of diagrammatron-nodes.
 
   place_edges(work)
   prepare_output(doc, work)
-  begin
-    d = YAML.dump(doc, line_width: 1000000)
-    if output.nil?
-      $stdout.puts d
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts d
-      end
-    end
-  rescue StandardError => e
-    return aargh("#{e}\nFailed to write output: #{output || 'stdout'}", 4)
-  end
-  0
+  dump_result(output, YAML.dump(doc, line_width: 1_000_000), 4)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-get

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'pathname'
 
@@ -16,7 +16,6 @@ def template(name = nil)
 end
 
 def main
-  input = nil
   output = nil
   parser = OptionParser.new do |opts|
     opts.summary_indent = '  '
@@ -48,6 +47,7 @@ Given a name of a included file, saves it to --output.
       next if name.start_with? '.'
       $stdout.puts name
     end
+    return 0
   elsif ARGV.size > 1
     return aargh('You can give only one content-file name.', 1)
   end
@@ -59,19 +59,7 @@ Given a name of a included file, saves it to --output.
   rescue StandardError => e
     return aargh("#{e}\nFailed to read #{ARGV.first}", 3)
   end
-  begin
-    if output.nil?
-      $stdout.puts src
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts src
-      end
-    end
-  rescue StandardError => e
-    return aargh([ e, "Failed to write output: #{output || 'stdout'}" ], 4)
-  end
-  0
+  dump_result(output, src, 4)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-nodes

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'set'
@@ -312,7 +312,7 @@ def work_copy(src, quiet)
       next
     end
     label = node['label']
-    if label2idx.key?(label) && edge_nodes.key?(label)
+    if label2idx.key?(label) && edge_nodes.member?(label)
       aargh "Edge-referred label used twice: #{label}"
       errors = true
     end
@@ -420,20 +420,7 @@ The 'sid' indicates the sub-diagram consisting of connected nodes.
 
   algo.call(work)
   prepare_output(doc, work)
-  begin
-    d = YAML.dump(doc, line_width: 1000000)
-    if output.nil?
-      $stdout.puts d
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts d
-      end
-    end
-  rescue StandardError => e
-    return aargh("#{e}\nFailed to write output: #{output || 'stdout'}", 4)
-  end
-  0
+  dump_result(output, YAML.dump(doc, line_width: 1_000_000), 4)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-place

@@ -1,17 +1,17 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'set'
 require 'pathname'
 
-def info(msg, return_value = nil, loud = false)
-  $stderr.puts(msg) unless $QUIET && !loud
+def info(msg, return_value = nil)
+  $stderr.puts(msg) unless $QUIET
   return_value
 end
 
@@ -310,7 +310,7 @@ def pre_search_bounding_boxes(work)
 end
 
 def shift(work, sid, dx, dy)
-  [ :edges, :nodes ].each do |kind|
+  %i[edges nodes].each do |kind|
     work[kind].fetch(sid, []).each do |item|
       item.shift(dx, dy)
     end
@@ -402,16 +402,16 @@ do not overlap.
     begin
       whratio = Float($W2HRATIO)
       if whratio <= 0
-        return info("Ratio must be greater than zero: #{$W2HRATIO}", 1, true)
+        return aargh("Ratio must be greater than zero: #{$W2HRATIO}", 1)
       end
       $W2HRATIO = whratio
     rescue StandardError
-      return info("Ratio parameter not a number: #{$W2HRATIO}", 1, true)
+      return aargh("Ratio parameter not a number: #{$W2HRATIO}", 1)
     end
   end
 
   unless $algorithms.key? algo
-    return info("Unrecognized algorithm: #{algo}", 2, true)
+    return aargh("Unrecognized algorithm: #{algo}", 2)
   end
   algo = $algorithms[algo]
 
@@ -422,25 +422,12 @@ do not overlap.
     work = work_copy(doc)
     return 3 if work.nil?
   rescue StandardError
-    return info('Error processing input.', 3, true)
+    return aargh('Error processing input.', 3)
   end
 
   algo.call(work)
   prepare_output(doc, work)
-  begin
-    d = YAML.dump(doc, line_width: 1000000)
-    if output.nil?
-      $stdout.puts d
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts d
-      end
-    end
-  rescue StandardError => e
-    return info("#{e}\nFailed to write output: #{output || 'stdout'}", 4, true)
-  end
-  0
+  dump_result(output, YAML.dump(doc, line_width: 1_000_000), 4)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-prune

@@ -4,7 +4,7 @@
 # Copyright © 2021 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'set'
@@ -98,20 +98,7 @@ removed or kept depending on options. Edges to removed nodes are removed.
     return aargh('Error processing input.', 3)
   end
 
-  begin
-    d = YAML.dump(doc, line_width: 1000000)
-    if output.nil?
-      $stdout.puts d
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts d
-      end
-    end
-  rescue StandardError => e
-    return aargh("#{e}\nFailed to write output: #{output || 'stdout'}", 4)
-  end
-  0
+  dump_result(output, YAML.dump(doc, line_width: 1_000_000), 4)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-render

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'erb'
@@ -76,113 +76,120 @@ def separate_coordinates(doc)
   [ xcoords, ycoords, ckd2count ]
 end
 
-class FontInfo
-  attr_reader :descender, :max_ascend, :ascender, :cap_height, :line_spacing, :width, :size
-
-  def initialize(template)
-    font = template.fetch('defaults', {}).fetch('font', { 'font_size' => 16 })
-    @cap_height = font.fetch('cap_height', 0.8 * font.fetch('font_size', 16))
-    @ascender = font.fetch('ascender', @cap_height)
-    @max_ascend = [ @cap_height, @ascender ].max
-    @descender = font.fetch('descender', 0.25 * @max_ascend)
-    @size = font.fetch('font_size', @max_ascend + @descender)
-    @line_spacing = font.fetch('line_spacing', 0.2 * @max_ascend)
-    @width = font.fetch('width', 0.5 * @size)
+class Styles
+  def base_styles(m, styles, group)
+    d = styles.dig(group, 'default') || {}
+    m['default'] = m.fetch('default', {}).merge(d)
+    styles.fetch(group, {}).each_pair do |name, values|
+      s = d.clone
+      s.merge!(values) unless name == 'default'
+      m[name] = m.fetch(name, {}).merge(s)
+    end
+    m
+  end
+
+  def initialize(template_styles, diagram_styles)
+    @n = base_styles(base_styles({}, template_styles, 'node'), diagram_styles, 'node')
+    @e = base_styles(base_styles({}, template_styles, 'edge'), diagram_styles, 'edge')
+    @d = base_styles(base_styles({}, template_styles, 'diagram'), diagram_styles, 'diagram')
+  end
+
+  def fill(mapping, type_name, item)
+    styles = item.fetch('style', [ 'default' ])
+    styles = [ styles ] unless styles.is_a?(Array)
+    s = {}
+    styles.each do |name|
+      ns = mapping.fetch(name, nil)
+      raise "No such #{type_name} style: #{name} in #{mapping.keys.join(', ')}" if ns.nil?
+      s.merge! ns
+    end
+    # Keep values specified explicitly.
+    item.merge!(s) {|key, existing, from_template| existing }
   end
-end
 
-class Defaults
-  attr_reader :width_key, :height_key, :width_margin, :height_margin, :edge_gap
-  attr_reader :font
-
-  def initialize(template)
-    defaults = template.fetch('defaults', {})
-    @width_key = defaults.fetch('width_key', 'w')
-    @height_key = defaults.fetch('height_key', 'h')
-    @width_margin = defaults.fetch('width_margin', 10)
-    @height_margin = defaults.fetch('height_margin', 10)
-    @edge_gap = defaults.fetch('edge_gap', 20)
-    @font = FontInfo.new(template)
+  def apply_node_styles(node)
+    fill(@n, 'node', node)
+  end
+
+  def apply_edge_styles(edge)
+    fill(@e, 'edge', edge)
+  end
+
+  def apply_diagram_styles(diagram)
+    fill(@d, 'diagram', diagram)
   end
 end
 
 class SizeEstimation
-  attr_accessor :node, :template, :ckd2count, :defaults
+  attr_accessor :node, :ckd2count, :doc
 
-  def initialize(template, ckd2count, defaults)
+  def initialize(ckd2count, doc)
     @node = nil
-    @template = template
     @ckd2count = ckd2count
-    @defaults = defaults
+    @doc = doc
   end
 
-  def get_binding
+  def exposed_binding
     binding
   end
 
-  def get_default(key, default_value = nil)
-    @template.fetch('defaults', {}).fetch(key, default_value)
-  end
-
   def max_edges(key, edge_gap)
     c = [ @node['xo'], @node['yo'], key, -1 ]
     count = @ckd2count[c]
     c[3] = 1
     count = [ count, @ckd2count[c] ].max
     return 0 if count < 2
-    (count - 1) * (edge_gap || @defaults.edge_gap)
+    (count - 1) * edge_gap
   end
 
-  def default_size(width_scale = nil, height_scale = nil, line_spacing = nil,
-      width_margin = nil, height_margin = nil, edge_gap = nil)
-    lines = @node.fetch('label', '').split("\n")
-    w = 2 * (width_margin || @defaults.width_margin) +
-      (width_scale || @default.font.width) * (lines.map &(:size)).max
-    @node[@defaults.width_key] = [ w, max_edges('xo', edge_gap) ].max
-    h = 2 * (height_margin || @defaults.height_margin) +
-      (height_scale || @defaults.font.size) * lines.size +
-      (line_spacing || @defaults.font.line_spacing) * (lines.size - 1)
-    @node[@defaults.height_key] = [ h, max_edges('yo', edge_gap) ].max
+  # font_size is the actual size.
+  # font_width, font_height, font_line_spacing are [0, 1] size scaling factors.
+  # width_margin, height_margin are in same units as fonti, space inside node.
+  # edge_gap is minimum space between edges at any node side.
+  def default_size(font_size, font_width, font_height, font_line_spacing,
+      width_margin, height_margin, edge_gap)
+    lines = @node['text']
+    w = 2 * width_margin + font_width * font_size * (lines.map &(:size)).max
+    @node['w'] = [ w, max_edges('xo', edge_gap) ].max
+    h = 2 * height_margin + font_height * font_size * lines.size +
+      font_line_spacing * font_size * (lines.size - 1)
+    @node['h'] = [ h, max_edges('yo', edge_gap) ].max
   end
 end
 
-def estimate_sizes(doc, template, ckd2count, defaults)
-  $render = SizeEstimation.new(template, ckd2count, defaults)
-  sizes = template.fetch('sizes', {})
-  defaults = template.fetch('defaults', {})
+def estimate_sizes(doc, ckd2count)
+  $render = SizeEstimation.new(ckd2count, doc)
   doc['nodes'].each do |node|
     $render.node = node
+    label = node.fetch('label', 'unnamed')
     style = node.fetch('style', 'default')
-    code = sizes.fetch(style, defaults.fetch('size', 
-      %(raise NotImplementedError, "No size estimator for style: #{style}")))
-    if sizes.key? code
-      code = sizes.fetch(code)
-    end
+    code = node.fetch('size_estimator',
+      %(raise NotImplementedError, "No size estimator for style: #{style}"))
     code = code.join("\n") if code.is_a? Array
     begin
-      eval(code, $render.get_binding)
+      eval(code, $render.exposed_binding)
     rescue StandardError => e
-      return aargh("Size estimate style #{style} node #{node.fetch('label', 'unnamed')} error #{e}", false)
+      return aargh("Size estimate style #{style} node #{label} error #{e}", false)
     end
   end
   $render = nil
   true
 end
 
-def maxima(doc, defaults)
+def maxima(doc)
   xmax = Hash.new(0)
   ymax = Hash.new(0)
   doc.fetch('nodes', []).each do |node|
-    xmax[node['xo']] = [ node[defaults.width_key], xmax[node['xo']] ].max
-    ymax[node['yo']] = [ node[defaults.height_key], ymax[node['yo']] ].max
+    xmax[node['xo']] = [ node['w'], xmax[node['xo']] ].max
+    ymax[node['yo']] = [ node['h'], ymax[node['yo']] ].max
   end
   [ xmax, ymax ]
 end
 
-def apply_maxima(doc, xmax, ymax, defaults)
+def apply_maxima(doc, xmax, ymax)
   doc.fetch('nodes', []).each do |node|
-    node[defaults.width_key] = xmax[node['xo']]
-    node[defaults.height_key] = ymax[node['yo']]
+    node['w'] = xmax[node['xo']]
+    node['h'] = ymax[node['yo']]
   end
 end
 
@@ -197,8 +204,8 @@ def parallel_edge_step_minima(coords)
   c2m
 end
 
-def remap_coordinates(coords, cmax, c2min, defaults)
-  c = defaults.edge_gap
+def remap_coordinates(coords, cmax, c2min, edge_gap)
+  c = edge_gap
   gap = 0 # How much space all edge segments need.
   zero_after_decrease = false
   prev_dir = -2
@@ -207,20 +214,20 @@ def remap_coordinates(coords, cmax, c2min, defaults)
     case coord.direction
     when -1
       c += gap if -1 < prev_dir
-      gap = defaults.edge_gap
+      gap = edge_gap
       coord.object[coord.key] = c
     when 0
-      gap = defaults.edge_gap / c2min[coord.integer]
+      gap = edge_gap / c2min[coord.integer]
       if zero_after_decrease
         # Edge segment is at same range as nodes.
         coord.object[coord.key] = c + coord.fraction * cmax[coord.integer]
       else
         coord.object[coord.key] =
-          c + defaults.edge_gap * coord.fraction / c2min[coord.integer]
+          c + (edge_gap * coord.fraction) / c2min[coord.integer]
       end
     when 1
-      gap = defaults.edge_gap
-      c += cmax[coord.integer] unless 1 == prev_dir
+      gap = edge_gap
+      c += cmax[coord.integer] unless prev_dir == 1
       coord.object[coord.key] = c
       zero_after_decrease = false
     end
@@ -229,28 +236,23 @@ def remap_coordinates(coords, cmax, c2min, defaults)
 end
 
 class Render
-  attr_accessor :doc, :template, :defaults
+  attr_accessor :doc, :template
 
-  def initialize(doc, template, defaults)
+  def initialize(doc, template)
     @doc = doc
     @template = template
-    @defaults = defaults
   end
 
-  def get_binding
+  def exposed_binding
     binding
   end
 
-  def get_default(key, default_value = nil)
-    @template.fetch('defaults', {}).fetch(key, default_value)
-  end
-
   def dimensions
     w = 0
     h = 0
     @doc.fetch('nodes', []).each do |node|
-      w = [ w, node['xo'] + node[@defaults.width_key] ].max
-      h = [ h, node['yo'] + node[@defaults.height_key] ].max
+      w = [ w, node['xo'] + node['w'] ].max
+      h = [ h, node['yo'] + node['h'] ].max
     end
     @doc.fetch('edges', []).each do |edge|
       path = edge.fetch('path', nil)
@@ -264,9 +266,9 @@ class Render
   end
 end
 
-def apply(doc, template, defaults)
-  $render = Render.new(doc, template, defaults)
-  out = ERB.new(template.fetch('template', '')).result($render.get_binding)
+def apply(doc, template)
+  $render = Render.new(doc, template)
+  out = ERB.new(template.fetch('template', '')).result($render.exposed_binding)
   $render = nil
   out
 end
@@ -275,6 +277,7 @@ def main
   template = nil
   input = nil
   output = nil
+  styles = nil
   parser = OptionParser.new do |opts|
     opts.summary_indent = '  '
     opts.summary_width = 20
@@ -314,42 +317,37 @@ Output is the file produced by the erb-template.
       return aargh("Key #{key} base-64 decoding failed to key #{nk}", 2)
     end
   end
-  defaults = Defaults.new(template)
 
   doc = load_source(input)
   return 2 if doc.nil?
 
+  styles = Styles.new(template.fetch('styles', {}), doc.fetch('styles', {}))
+  doc.fetch('nodes', []).each do |node|
+    styles.apply_node_styles(node)
+    node['text'] = node.fetch('text', node.fetch('label', '')).split("\n")
+  end
+  doc.fetch('edges', []).each { |edge| styles.apply_edge_styles(edge) }
+  doc['diagram'] = {} unless doc.key? 'diagram'
+  styles.apply_diagram_styles(doc['diagram'])
+
   begin
     xcoords, ycoords, ckd2count = separate_coordinates(doc)
   rescue StandardError
     return aargh('Error processing input.', 3)
   end
 
-  return 4 unless estimate_sizes(doc, template, ckd2count, defaults)
+  return 4 unless estimate_sizes(doc, ckd2count)
 
   # Make all rows the same height and all columns the same width.
-  xmax, ymax = maxima(doc, defaults)
-  apply_maxima(doc, xmax, ymax, defaults)
+  xmax, ymax = maxima(doc)
+  apply_maxima(doc, xmax, ymax)
 
   x2min = parallel_edge_step_minima(xcoords)
   y2min = parallel_edge_step_minima(ycoords)
-  remap_coordinates(xcoords, xmax, x2min, defaults)
-  remap_coordinates(ycoords, ymax, y2min, defaults)
+  remap_coordinates(xcoords, xmax, x2min, doc.dig('diagram', 'edge_gap'))
+  remap_coordinates(ycoords, ymax, y2min, doc.dig('diagram', 'edge_gap'))
 
-  out = apply(doc, template, defaults)
-  begin
-    if output.nil?
-      $stdout.puts out
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts out
-      end
-    end
-  rescue StandardError => e
-    return aargh([ e, "Failed to write output: #{output || 'stdout'}" ], 5)
-  end
-  0
+  dump_result(output, apply(doc, template), 5)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/diagrammatron-template

@@ -1,10 +1,10 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'set'
@@ -21,7 +21,7 @@ def add_field(doc, field_name, content)
 end
 
 def missing(doc)
-  [ 'defaults', 'sizes', 'template' ].each do |key|
+  %w[template].each do |key|
     next if doc.key? key
     next if doc.key? "base64#{key}"
     return aargh("#{key} is missing", 4)
@@ -88,20 +88,7 @@ Extra fields are not restricted in any manner.
   m = missing(doc)
   return m unless m.nil?
 
-  begin
-    d = YAML.dump(doc, line_width: 1000000)
-    if output.nil?
-      $stdout.puts d
-    else
-      fp = Pathname.new output
-      fp.open('w') do |f|
-        f.puts d
-      end
-    end
-  rescue StandardError => e
-    return aargh([ e, "Failed to write output: #{output || 'stdout'}" ], 5)
-  end
-  0
+  dump_result(output, YAML.dump(doc, line_width: 1_000_000), 5)
 end
 
 exit(main) if (defined? $unit_test).nil?

data/bin/dot_json2diagrammatron

@@ -1,32 +1,15 @@
 #!/usr/bin/env ruby
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
-require_relative '../lib/common.rb'
+require_relative '../lib/common'
 require 'optparse'
 require 'yaml'
 require 'json'
 require 'pathname'
 
-'''
-def load_source
-  begin
-    if $INPUT.nil?
-      src = $stdin.read
-    else
-      src = File.read($INPUT)
-    end
-    src = JSON.parse(src)
-  rescue Errno::ENOENT
-    return aargh("Could not load #{$INPUT || 'stdin'}")
-  rescue StandardError => e
-    return aargh("#{e}\nFailed to read #{$INPUT || 'stdin'}")
-  end
-  src
-end
-'''
 
 def convert(src)
   idx2label = {}

data/lib/common.rb

@@ -1,6 +1,6 @@
 # frozen_string_literal: true
 
-# Copyright © 2021 Ismo Kärkkäinen
+# Copyright © 2021, 2022 Ismo Kärkkäinen
 # Licensed under Universal Permissive License. See LICENSE.txt.
 
 def aargh(message, return_value = nil)
@@ -24,3 +24,17 @@ def load_source_hash(input)
   end
   src
 end
+
+def dump_result(output, doc, error_return)
+  if output.nil?
+    $stdout.puts doc
+  else
+    fp = Pathname.new output
+    fp.open('w') do |f|
+      f.puts doc
+    end
+  end
+  0
+rescue StandardError => e
+  aargh([ e, "Failed to write output: #{output || 'stdout'}" ], error_return)
+end

data/template/internal.yaml

@@ -1,21 +1,32 @@
 ---
-defaults:
-  edge_gap: 20
-  width_margin: 10
-  height_margin: 10
-  font:
-    font_size: 16
-  stroke_width: 2
-  width_key: w
-  height_key: h
-  size: default
-sizes:
-  default: |
-    $render.default_size(
-    $render.node.fetch('width_scale', $render.defaults.font.width),
-    $render.node.fetch('height_scale', $render.defaults.font.size),
-    $render.node.fetch('line_spacing', $render.defaults.font.line_spacing),
-    $render.node.fetch('width_margin', $render.defaults.width_margin),
-    $render.node.fetch('height_margin', $render.defaults.height_margin),
-    $render.node.fetch('edge_gap', $render.defaults.edge_gap))
-base64template: PD94bWwgdmVyc2lvbj0iMS4wIj8+CjwlPQp3LCBoaCA9ICRyZW5kZXIuZGltZW5zaW9ucwpobSA9ICRyZW5kZXIuZGVmYXVsdHMuaGVpZ2h0X21hcmdpbgpoaCArPSBobQptYSA9ICRyZW5kZXIuZGVmYXVsdHMuZm9udC5tYXhfYXNjZW5kCmZzID0gJHJlbmRlci5kZWZhdWx0cy5mb250LnNpemUKbGggPSBmcyArICRyZW5kZXIuZGVmYXVsdHMuZm9udC5saW5lX3NwYWNpbmcKd20gPSAkcmVuZGVyLmRlZmF1bHRzLndpZHRoX21hcmdpbgpzdyA9ICRyZW5kZXIuZ2V0X2RlZmF1bHQoJ3N0cm9rZV93aWR0aCcsIDUpCmxpbmVzdHlsZSA9ICUoZmlsbD0ibm9uZSIgc3Ryb2tlPSIjMDAwMDAwIiBzdHJva2Utd2lkdGg9IiN7c3d9IikKdGV4dHN0eWxlID0gJShmaWxsPSIjMDAwMDAwIiBmb250LWZhbWlseT0ic2VyaWYiIGZvbnQtc2l6ZT0iI3tmc30iIHN0cm9rZT0iIzAwMDAwMCIgc3Ryb2tlLXdpZHRoPSIwIiB4bWw6c3BhY2U9InByZXNlcnZlIikKbGlua3N0eWxlID0gJShmaWxsPSIjMjAyMGZmIiBmb250LWZhbWlseT0ic2VyaWYiIGZvbnQtc2l6ZT0iI3tmc30iIHN0cm9rZT0iIzIwMjBmZiIgc3Ryb2tlLXdpZHRoPSIwIiB4bWw6c3BhY2U9InByZXNlcnZlIikKCm91dCA9IFsKICAlKDxzdmcgd2lkdGg9IiN7dyArICRyZW5kZXIuZGVmYXVsdHMud2lkdGhfbWFyZ2lufSIgaGVpZ2h0PSIje2hofSIgeG1sbnM9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvc3ZnIiB4bWxuczpzdmc9Imh0dHA6Ly93d3cudzMub3JnLzIwMDAvc3ZnIiB4bWxuczp4bGluaz0iaHR0cDovL3d3dy53My5vcmcvMTk5OS94bGluayIgdmVyc2lvbj0iMS4xIj4pCl0KJHJlbmRlci5kb2MuZmV0Y2goJ25vZGVzJywgW10pLmVhY2ggZG8gfG5vZGV8CiAgdyA9IG5vZGVbJHJlbmRlci5kZWZhdWx0cy53aWR0aF9rZXldLnRvX2kKICBoID0gbm9kZVskcmVuZGVyLmRlZmF1bHRzLmhlaWdodF9rZXldLnRvX2kKICB4ID0gbm9kZVsneG8nXS50b19pCiAgeSA9IGhoIC0gbm9kZVsneW8nXS50b19pIC0gaAogIG5vZGVzdHlsZSA9ICUoZmlsbD0iI3tub2RlLmZldGNoKCdmaWxsJywgJyNmZmZmZmYnKX0iIHN0cm9rZT0iIzAwMDAwMCIgc3Ryb2tlLXdpZHRoPSIje3N3fSIpCiAgb3V0LnB1c2goJSg8cmVjdCAje25vZGVzdHlsZX0gaGVpZ2h0PSIje2h9IiB3aWR0aD0iI3t3fSIgeD0iI3t4fSIgeT0iI3t5fSIvPikpCiAgeCArPSB3bQogIHkgKz0gaG0gKyBtYSAjIEJhc2VsaW5lIGZvciBmaXJzdCBsaW5lLgogIHVybCA9IG5vZGUuZmV0Y2goJ3VybCcsIG5pbCkKICB1cmwuZW5jb2RlISg6eG1sID0+IDphdHRyKSB1bmxlc3MgdXJsLm5pbD8KICBsaW5lcyA9IG5vZGUuZmV0Y2goJ2xhYmVsJywgJycpLnNwbGl0KCJcbiIpCiAgeTAgPSB5CiAgbGluZXMuZWFjaCBkbyB8bGFiZWx8CiAgICBsYWJlbC5lbmNvZGUhKDp4bWwgPT4gOnRleHQpCiAgICBpZiB1cmwubmlsPwogICAgICBvdXQucHVzaCglKDx0ZXh0ICN7dGV4dHN0eWxlfSB4PSIje3h9IiB5PSIje3kwfSI+I3tsYWJlbH08L3RleHQ+KSkKICAgIGVsc2UKICAgICAgb3V0LnB1c2goJSg8YSB4bGluazpocmVmPSN7dXJsfSB0YXJnZXQ9Il9wYXJlbnQiPjx0ZXh0ICN7bGlua3N0eWxlfSB4PSIje3h9IiB5PSIje3kwfSI+I3tsYWJlbH08L3RleHQ+PC9hPikpCiAgICBlbmQKICAgIHkwICs9IGxoICMgU2hpZnQgYmFzZWxpbmUgYnkgZnVsbCBsaW5lICsgc3BhY2luZyBoZWlnaHQuCiAgZW5kCmVuZAokcmVuZGVyLmRvYy5mZXRjaCgnZWRnZXMnLCBbXSkuZWFjaCBkbyB8ZWRnZXwKICBwYXRoID0gZWRnZS5mZXRjaCgncGF0aCcsIG5pbCkKICBuZXh0IGlmIHBhdGgubmlsPwogIHBhdGguZWFjaCBkbyB8cHwKICAgIHBbJ3hvJ10gPSBwWyd4byddLnRvX2kudG9fcwogICAgcFsneW8nXSA9IChoaCAtIHBbJ3lvJ10pLnRvX2kudG9fcwogIGVuZAogIGlmIHBhdGguc2l6ZSA9PSAyCiAgICBvdXQucHVzaCglKDxsaW5lICN7bGluZXN0eWxlfSB4MT0iI3twYXRoWzBdWyd4byddfSIgeDI9IiN7cGF0aFsxXVsneG8nXX0iIHkxPSIje3BhdGhbMF1bJ3lvJ119IiB5Mj0iI3twYXRoWzFdWyd5byddfSIvPikpCiAgZWxzZQogICAgcHRzID0gcGF0aC5tYXAgeyB8cHwgIiN7cFsneG8nXX0sI3twWyd5byddfSIgfQogICAgb3V0LnB1c2goJSg8cG9seWxpbmUgI3tsaW5lc3R5bGV9IHBvaW50cz0iI3twdHMuam9pbignICcpfSIvPikpCiAgZW5kCmVuZApvdXQuam9pbigiXG4iKQolPgo8L3N2Zz4K
+styles:
+  diagram:
+    default:
+      edge_gap: 20
+      width_margin: 10
+      height_margin: 10
+  node:
+    default:
+      width_margin: 10
+      height_margin: 10
+      font_size: 16
+      font_ascend: 0.8
+      font_line_spacing: 0.2
+      font_height: 1
+      font_width: 0.5
+      font_fill: "#000000"
+      url_fill: "#000000"
+      fill: "#ffffff"
+      stroke: "#000000"
+      stroke_width: 2
+      size_estimator: |
+        $render.default_size($render.node['font_size'],
+        $render.node['font_width'], $render.node['font_height'],
+        $render.node['font_line_spacing'],
+        $render.node['width_margin'], $render.node['height_margin'],
+        $render.doc['diagram']['edge_gap'])
+  edge:
+    default:
+      stroke_width: 2
+      stroke: "#000000"
+base64template: PD94bWwgdmVyc2lvbj0iMS4wIj8+CjwlPQp3LCBoaCA9ICRyZW5kZXIuZGltZW5zaW9ucwpoaCArPSAkcmVuZGVyLmRvYy5kaWcoJ2RpYWdyYW0nLCAnaGVpZ2h0X21hcmdpbicpCgpvdXQgPSBbCiAgJSg8c3ZnIHdpZHRoPSIje3cgKyAkcmVuZGVyLmRvYy5kaWcoJ2RpYWdyYW0nLCAnd2lkdGhfbWFyZ2luJyl9IiBoZWlnaHQ9IiN7aGh9IiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnN2Zz0iaHR0cDovL3d3dy53My5vcmcvMjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB2ZXJzaW9uPSIxLjEiPikKXQokcmVuZGVyLmRvYy5mZXRjaCgnbm9kZXMnLCBbXSkuZWFjaCBkbyB8bm9kZXwKICB3ID0gbm9kZVsndyddLnRvX2kKICBoID0gbm9kZVsnaCddLnRvX2kKICB4ID0gbm9kZVsneG8nXS50b19pCiAgeSA9IGhoIC0gbm9kZVsneW8nXS50b19pIC0gaAogIG5vZGVzdHlsZSA9ICUoZmlsbD0iI3tub2RlWydmaWxsJ119IiBzdHJva2U9IiN7bm9kZVsnc3Ryb2tlJ119IiBzdHJva2Utd2lkdGg9IiN7bm9kZVsnc3Ryb2tlX3dpZHRoJ119IikKICBvdXQucHVzaCglKDxyZWN0ICN7bm9kZXN0eWxlfSBoZWlnaHQ9IiN7aH0iIHdpZHRoPSIje3d9IiB4PSIje3h9IiB5PSIje3l9Ii8+KSkKICB4ICs9IG5vZGVbJ3dpZHRoX21hcmdpbiddCiAgZnMgPSBub2RlWydmb250X3NpemUnXQogIGxoID0gZnMgKiAoMSArIG5vZGVbJ2ZvbnRfbGluZV9zcGFjaW5nJ10pCiAgeSArPSBub2RlWydoZWlnaHRfbWFyZ2luJ10gKyBmcyAqIG5vZGVbJ2ZvbnRfYXNjZW5kJ10gIyBCYXNlbGluZSBmb3IgZmlyc3QgbGluZS4KICB1cmwgPSBub2RlLmZldGNoKCd1cmwnLCBuaWwpCiAgdXJsLmVuY29kZSEoOnhtbCA9PiA6YXR0cikgdW5sZXNzIHVybC5uaWw/CiAgeTAgPSB5CiAgdGV4dHN0eWxlID0gJShmaWxsPSIje25vZGVbJ2ZvbnRfZmlsbCddfSIgZm9udC1mYW1pbHk9InNlcmlmIiBmb250LXNpemU9IiN7ZnN9IiBzdHJva2U9IiN7bm9kZVsnZm9udF9maWxsJ119IiBzdHJva2Utd2lkdGg9IjAiIHhtbDpzcGFjZT0icHJlc2VydmUiKQogIGxpbmtzdHlsZSA9ICUoZmlsbD0iI3tub2RlWyd1cmxfZmlsbCddfSIgZm9udC1mYW1pbHk9InNlcmlmIiBmb250LXNpemU9IiN7ZnN9IiBzdHJva2U9IiN7bm9kZVsndXJsX2ZpbGwnXX0iIHN0cm9rZS13aWR0aD0iMCIgeG1sOnNwYWNlPSJwcmVzZXJ2ZSIpCiAgbm9kZVsndGV4dCddLmVhY2ggZG8gfGxpbmV8CiAgICBsaW5lLmVuY29kZSEoOnhtbCA9PiA6dGV4dCkKICAgIGlmIHVybC5uaWw/CiAgICAgIG91dC5wdXNoKCUoPHRleHQgI3t0ZXh0c3R5bGV9IHg9IiN7eH0iIHk9IiN7eTB9Ij4je2xpbmV9PC90ZXh0PikpCiAgICBlbHNlCiAgICAgIG91dC5wdXNoKCUoPGEgeGxpbms6aHJlZj0je3VybH0gdGFyZ2V0PSJfcGFyZW50Ij48dGV4dCAje2xpbmtzdHlsZX0geD0iI3t4fSIgeT0iI3t5MH0iPiN7bGluZX08L3RleHQ+PC9hPikpCiAgICBlbmQKICAgIHkwICs9IGxoICMgU2hpZnQgYmFzZWxpbmUgYnkgZnVsbCBsaW5lICsgc3BhY2luZyBoZWlnaHQuCiAgZW5kCmVuZAokcmVuZGVyLmRvYy5mZXRjaCgnZWRnZXMnLCBbXSkuZWFjaCBkbyB8ZWRnZXwKICBsaW5lc3R5bGUgPSAlKGZpbGw9Im5vbmUiIHN0cm9rZT0iI3tlZGdlWydzdHJva2UnXX0iIHN0cm9rZS13aWR0aD0iI3tlZGdlWydzdHJva2Vfd2lkdGgnXX0iKQogIHBhdGggPSBlZGdlLmZldGNoKCdwYXRoJywgbmlsKQogIG5leHQgaWYgcGF0aC5uaWw/CiAgcGF0aC5lYWNoIGRvIHxwfAogICAgcFsneG8nXSA9IHBbJ3hvJ10udG9faS50b19zCiAgICBwWyd5byddID0gKGhoIC0gcFsneW8nXSkudG9faS50b19zCiAgZW5kCiAgaWYgcGF0aC5zaXplID09IDIKICAgIG91dC5wdXNoKCUoPGxpbmUgI3tsaW5lc3R5bGV9IHgxPSIje3BhdGhbMF1bJ3hvJ119IiB4Mj0iI3twYXRoWzFdWyd4byddfSIgeTE9IiN7cGF0aFswXVsneW8nXX0iIHkyPSIje3BhdGhbMV1bJ3lvJ119Ii8+KSkKICBlbHNlCiAgICBwdHMgPSBwYXRoLm1hcCB7IHxwfCAiI3twWyd4byddfSwje3BbJ3lvJ119IiB9CiAgICBvdXQucHVzaCglKDxwb2x5bGluZSAje2xpbmVzdHlsZX0gcG9pbnRzPSIje3B0cy5qb2luKCcgJyl9Ii8+KSkKICBlbmQKZW5kCm91dC5qb2luKCJcbiIpCiU+Cjwvc3ZnPgo=

data/template/root.yaml

@@ -1,19 +1,30 @@
-defaults:
-  edge_gap: 20
-  width_margin: 10
-  height_margin: 10
-  font:
-    font_size: 16
-  stroke_width: 2
-  width_key: w
-  height_key: h
-  size: default
-sizes:
-  default: |
-    $render.default_size(
-    $render.node.fetch('width_scale', $render.defaults.font.width),
-    $render.node.fetch('height_scale', $render.defaults.font.size),
-    $render.node.fetch('line_spacing', $render.defaults.font.line_spacing),
-    $render.node.fetch('width_margin', $render.defaults.width_margin),
-    $render.node.fetch('height_margin', $render.defaults.height_margin),
-    $render.node.fetch('edge_gap', $render.defaults.edge_gap))
+styles:
+  diagram:
+    default:
+      edge_gap: 20
+      width_margin: 10
+      height_margin: 10
+  node:
+    default:
+      width_margin: 10
+      height_margin: 10
+      font_size: 16
+      font_ascend: 0.8
+      font_line_spacing: 0.2
+      font_height: 1
+      font_width: 0.5
+      font_fill: "#000000"
+      url_fill: "#000000"
+      fill: "#ffffff"
+      stroke: "#000000"
+      stroke_width: 2
+      size_estimator: |
+        $render.default_size($render.node['font_size'],
+        $render.node['font_width'], $render.node['font_height'],
+        $render.node['font_line_spacing'],
+        $render.node['width_margin'], $render.node['height_margin'],
+        $render.doc['diagram']['edge_gap'])
+  edge:
+    default:
+      stroke_width: 2
+      stroke: "#000000"

data/template/svg_1.1.erb

@@ -1,44 +1,39 @@
 <?xml version="1.0"?>
 <%=
 w, hh = $render.dimensions
-hm = $render.defaults.height_margin
-hh += hm
-ma = $render.defaults.font.max_ascend
-fs = $render.defaults.font.size
-lh = fs + $render.defaults.font.line_spacing
-wm = $render.defaults.width_margin
-sw = $render.get_default('stroke_width', 5)
-linestyle = %(fill="none" stroke="#000000" stroke-width="#{sw}")
-textstyle = %(fill="#000000" font-family="serif" font-size="#{fs}" stroke="#000000" stroke-width="0" xml:space="preserve")
-linkstyle = %(fill="#2020ff" font-family="serif" font-size="#{fs}" stroke="#2020ff" stroke-width="0" xml:space="preserve")
+hh += $render.doc.dig('diagram', 'height_margin')
 
 out = [
-  %(<svg width="#{w + $render.defaults.width_margin}" height="#{hh}" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1">)
+  %(<svg width="#{w + $render.doc.dig('diagram', 'width_margin')}" height="#{hh}" xmlns="http://www.w3.org/2000/svg" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1">)
 ]
 $render.doc.fetch('nodes', []).each do |node|
-  w = node[$render.defaults.width_key].to_i
-  h = node[$render.defaults.height_key].to_i
+  w = node['w'].to_i
+  h = node['h'].to_i
   x = node['xo'].to_i
   y = hh - node['yo'].to_i - h
-  nodestyle = %(fill="#{node.fetch('fill', '#ffffff')}" stroke="#000000" stroke-width="#{sw}")
+  nodestyle = %(fill="#{node['fill']}" stroke="#{node['stroke']}" stroke-width="#{node['stroke_width']}")
   out.push(%(<rect #{nodestyle} height="#{h}" width="#{w}" x="#{x}" y="#{y}"/>))
-  x += wm
-  y += hm + ma # Baseline for first line.
+  x += node['width_margin']
+  fs = node['font_size']
+  lh = fs * (1 + node['font_line_spacing'])
+  y += node['height_margin'] + fs * node['font_ascend'] # Baseline for first line.
   url = node.fetch('url', nil)
   url.encode!(:xml => :attr) unless url.nil?
-  lines = node.fetch('label', '').split("\n")
   y0 = y
-  lines.each do |label|
-    label.encode!(:xml => :text)
+  textstyle = %(fill="#{node['font_fill']}" font-family="serif" font-size="#{fs}" stroke="#{node['font_fill']}" stroke-width="0" xml:space="preserve")
+  linkstyle = %(fill="#{node['url_fill']}" font-family="serif" font-size="#{fs}" stroke="#{node['url_fill']}" stroke-width="0" xml:space="preserve")
+  node['text'].each do |line|
+    line.encode!(:xml => :text)
     if url.nil?
-      out.push(%(<text #{textstyle} x="#{x}" y="#{y0}">#{label}</text>))
+      out.push(%(<text #{textstyle} x="#{x}" y="#{y0}">#{line}</text>))
     else
-      out.push(%(<a xlink:href=#{url} target="_parent"><text #{linkstyle} x="#{x}" y="#{y0}">#{label}</text></a>))
+      out.push(%(<a xlink:href=#{url} target="_parent"><text #{linkstyle} x="#{x}" y="#{y0}">#{line}</text></a>))
     end
     y0 += lh # Shift baseline by full line + spacing height.
   end
 end
 $render.doc.fetch('edges', []).each do |edge|
+  linestyle = %(fill="none" stroke="#{edge['stroke']}" stroke-width="#{edge['stroke_width']}")
   path = edge.fetch('path', nil)
   next if path.nil?
   path.each do |p|

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: diagrammatron
 version: !ruby/object:Gem::Version
-  version: 0.2.2
+  version: 0.4.0
 platform: ruby
 authors:
 - Ismo Kärkkäinen
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-10-15 00:00:00.000000000 Z
+date: 2023-01-31 00:00:00.000000000 Z
 dependencies: []
 description: |2
 
@@ -52,7 +52,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="
     - !ruby/object:Gem::Version
-      version: '0'
+      version: 2.7.0
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - ">="