tecscde 0.6.0

data/lib/tecscde/palette.rb

@@ -0,0 +1,174 @@
+#
+# TECSCDE - TECS Component Diagram Editor
+#
+# Copyright (C) 2014-2015 by TOPPERS Project
+#
+#  The above copyright holders grant permission gratis to use,
+#  duplicate, modify, or redistribute (hereafter called use) this
+#  software (including the one made by modifying this software),
+#  provided that the following four conditions (1) through (4) are
+#  satisfied.
+#
+#  (1) When this software is used in the form of source code, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be retained in the source code without modification.
+#
+#  (2) When this software is redistributed in the forms usable for the
+#      development of other software, such as in library form, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be shown without modification in the document provided
+#      with the redistributed software, such as the user manual.
+#
+#  (3) When this software is redistributed in the forms unusable for the
+#      development of other software, such as the case when the software
+#      is embedded in a piece of equipment, either of the following two
+#      conditions must be satisfied:
+#
+#    (a) The above copyright notice, this use conditions, and the
+#        disclaimer shown below must be shown without modification in
+#        the document provided with the redistributed software, such as
+#        the user manual.
+#
+#    (b) How the software is to be redistributed must be reported to the
+#        TOPPERS Project according to the procedure described
+#        separately.
+#
+#  (4) The above copyright holders and the TOPPERS Project are exempt
+#      from responsibility for any type of damage directly or indirectly
+#      caused from the use of this software and are indemnified by any
+#      users or end users of this software from any and all causes of
+#      action whatsoever.
+#
+#  THIS SOFTWARE IS PROVIDED "AS IS." THE ABOVE COPYRIGHT HOLDERS AND
+#  THE TOPPERS PROJECT DISCLAIM ANY EXPRESS OR IMPLIED WARRANTIES,
+#  INCLUDING, BUT NOT LIMITED TO, ITS APPLICABILITY TO A PARTICULAR
+#  PURPOSE. IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS AND THE
+#  TOPPERS PROJECT BE LIABLE FOR ANY TYPE OF DAMAGE DIRECTLY OR
+#  INDIRECTLY CAUSED FROM THE USE OF THIS SOFTWARE.
+#
+#  $Id: palette.rb 2640 2017-06-03 11:27:12Z okuma-top $
+#
+
+require "tecscde/attr_tree_view"
+require "tecscde/celltype_tree_view"
+require "tecscde/preferences"
+
+module TECSCDE
+  class Palette
+    # control::TECSCDE::Control
+    def initialize(control)
+      @control = control
+      setup
+      @window.show_all
+    end
+
+    def setup
+      @builder = Gtk::Builder.new
+      @builder.add_from_file(File.join(__dir__, "palette.glade"))
+
+      #----- window -----#
+      @window = @builder["window_palette"]
+      @window.realize
+      # @window.type = ( Gtk::Window::TOPLEVEL )
+      @window.window.set_functions(Gdk::Window::FUNC_RESIZE | Gdk::Window::FUNC_MOVE)
+
+      setup_menubar
+
+      #----- pointer BUTTON -----#
+      @button_pointer = @builder["togglebutton_pointer"]
+      @button_pointer.signal_connect("clicked") do
+        @control.on_pointer
+        # @button_pointer.active = true
+        @button_new_cell.active = false
+        false
+      end
+
+      #----- new cell BUTTON -----#
+      @button_new_cell = @builder["togglebutton_new_cell"]
+      @button_new_cell.signal_connect("clicked") do
+        @control.on_new_cell
+        # @button_new_cell.active = true
+        @button_pointer.active = false
+        false
+      end
+
+      #----- undo BUTTON -----#
+      @button_undo = @builder["button_undo"]
+      @button_undo.signal_connect("clicked") { @control.on_undo }
+
+      #----- redo BUTTON -----#
+      @button_redo = @builder["button_redo"]
+      @button_redo.signal_connect("clicked") { @control.on_redo }
+      # currently redo doesn't work well
+      @button_redo.set_sensitive(false)
+
+      #----- celltype TREEVIEW -----#
+      @tree_view_celltype = @builder["treeview_celltype"]
+      @celltype_tree_view = CelltypeTreeView.new(@tree_view_celltype)
+
+      #-----  -----#
+      @frame_cell = @builder["frame_cell"]
+
+      #----- cell name ENTRY -----#
+      @entry_cell_name = @builder["entry_cell_name"]
+      @entry_cell_name.signal_connect("activate") do |entry|
+        @control.on_cell_name_entry_active(entry)
+        false
+      end
+      @entry_cell_name.signal_connect("focus-out-event") do |entry, _event|
+        @control.on_cell_name_entry_focus_out(entry)
+        false
+      end
+
+      @entry_cell_region = @builder["entry_cell_region"]
+      @entry_cell_region.signal_connect("activate") do |entry|
+        @control.on_cell_region_entry_active(entry)
+        false
+      end
+      @entry_cell_region.signal_connect("focus-out-event") do |entry, _event|
+        @control.on_cell_region_entry_focus_out(entry)
+        false
+      end
+
+      @treeview_cell_attribute = @builder["treeview_cell_attribute"]
+      @attr_tree_view = AttrTreeView.new(@treeview_cell_attribute)
+
+      @control.set_attr_operation_widgets(@window, @celltype_tree_view, @attr_tree_view, @entry_cell_name, @entry_cell_region, @frame_cell)
+    end
+
+    def setup_menubar
+      @builder["menuitem-save"].signal_connect("activate") do
+        @control.on_save
+      end
+
+      @builder["menuitem-export"].signal_connect("activate") do
+        @control.on_export
+      end
+
+      @builder["menuitem-preferences"].signal_connect("activate") do
+        preferences = TECSCDE::Preferences.new(@control)
+        preferences.run
+      end
+
+      @builder["menuitem-quit"].signal_connect("activate") do
+        @control.on_quit
+      end
+
+      @builder["menuitem-undo"].signal_connect("activate") do
+        @control.on_undo
+      end
+
+      @builder["menuitem-redo"].signal_connect("activate") do
+        @control.on_redo
+      end
+      # currently redo doesn't work well
+      @builder["menuitem-redo"].sensitive = false
+    end
+
+    def set_view(view)
+      @window.set_transient_for(view.get_window)
+      @window.window.set_group(view.get_window.window)
+      @window.window.raise
+    end
+  end
+end

data/lib/tecscde/preferences.glade

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<interface>
+  <requires lib="gtk+" version="2.24"/>
+  <!-- interface-naming-policy project-wide -->
+  <object class="GtkDialog" id="preferences">
+    <property name="can_focus">False</property>
+    <property name="border_width">5</property>
+    <property name="type_hint">dialog</property>
+    <child internal-child="vbox">
+      <object class="GtkVBox" id="dialog-vbox1">
+        <property name="visible">True</property>
+        <property name="can_focus">False</property>
+        <property name="spacing">2</property>
+        <child internal-child="action_area">
+          <object class="GtkHButtonBox" id="dialog-action_area1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <property name="layout_style">end</property>
+            <child>
+              <object class="GtkButton" id="button-cancel">
+                <property name="label">gtk-cancel</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="use_action_appearance">False</property>
+                <property name="use_underline">True</property>
+                <property name="use_stock">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <object class="GtkButton" id="button-apply">
+                <property name="label">gtk-apply</property>
+                <property name="visible">True</property>
+                <property name="can_focus">True</property>
+                <property name="receives_default">True</property>
+                <property name="use_action_appearance">False</property>
+                <property name="use_stock">True</property>
+              </object>
+              <packing>
+                <property name="expand">False</property>
+                <property name="fill">False</property>
+                <property name="position">1</property>
+              </packing>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">0</property>
+          </packing>
+        </child>
+        <child>
+          <object class="GtkVBox" id="vbox1">
+            <property name="visible">True</property>
+            <property name="can_focus">False</property>
+            <child>
+              <object class="GtkHBox" id="hbox1">
+                <property name="visible">True</property>
+                <property name="can_focus">False</property>
+                <child>
+                  <object class="GtkLabel" id="paper-size-label">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <property name="label" translatable="yes">Paper size</property>
+                  </object>
+                  <packing>
+                    <property name="expand">True</property>
+                    <property name="fill">True</property>
+                    <property name="position">0</property>
+                  </packing>
+                </child>
+                <child>
+                  <object class="GtkComboBoxText" id="paper-size">
+                    <property name="visible">True</property>
+                    <property name="can_focus">False</property>
+                    <items>
+                      <item>A4L</item>
+                      <item>A3L</item>
+                      <item>A2L</item>
+                    </items>
+                  </object>
+                  <packing>
+                    <property name="expand">True</property>
+                    <property name="fill">True</property>
+                    <property name="position">1</property>
+                  </packing>
+                </child>
+              </object>
+              <packing>
+                <property name="expand">True</property>
+                <property name="fill">True</property>
+                <property name="position">0</property>
+              </packing>
+            </child>
+            <child>
+              <placeholder/>
+            </child>
+          </object>
+          <packing>
+            <property name="expand">True</property>
+            <property name="fill">True</property>
+            <property name="position">1</property>
+          </packing>
+        </child>
+      </object>
+    </child>
+    <action-widgets>
+      <action-widget response="-6">button-cancel</action-widget>
+      <action-widget response="-10">button-apply</action-widget>
+    </action-widgets>
+  </object>
+</interface>

data/lib/tecscde/preferences.rb

@@ -0,0 +1,44 @@
+require "gtk2"
+require "tecscde/tecs_model"
+
+module TECSCDE
+  class Preferences
+
+    attr_accessor :selected_paper
+
+    def initialize(control)
+      @control = control
+      @builder = Gtk::Builder.new
+      @builder.add_from_file(File.join(__dir__, "preferences.glade"))
+      @selected_paper = nil
+      @changed = false
+      setup
+    end
+
+    def setup
+      setup_combo_box
+    end
+
+    def setup_combo_box
+      combo = @builder["paper-size"]
+      combo.signal_connect("changed") do
+        @selected_paper = combo.active_text
+        @changed = true
+      end
+      combo.active = @control.preferences[:paper].index
+    end
+
+    def run
+      dialog = @builder["preferences"]
+      response = dialog.run
+      if response == Gtk::ResponseType::APPLY
+        apply
+      end
+      dialog.destroy
+    end
+
+    def apply
+      @control.change_preferences(paper: @selected_paper)
+    end
+  end
+end

data/lib/tecscde/tecs_model.rb

@@ -0,0 +1,1137 @@
+#
+# TECSCDE - TECS Component Diagram Editor
+#
+# Copyright (C) 2014-2019 by TOPPERS Project
+#
+#  The above copyright holders grant permission gratis to use,
+#  duplicate, modify, or redistribute (hereafter called use) this
+#  software (including the one made by modifying this software),
+#  provided that the following four conditions (1) through (4) are
+#  satisfied.
+#
+#  (1) When this software is used in the form of source code, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be retained in the source code without modification.
+#
+#  (2) When this software is redistributed in the forms usable for the
+#      development of other software, such as in library form, the above
+#      copyright notice, this use conditions, and the disclaimer shown
+#      below must be shown without modification in the document provided
+#      with the redistributed software, such as the user manual.
+#
+#  (3) When this software is redistributed in the forms unusable for the
+#      development of other software, such as the case when the software
+#      is embedded in a piece of equipment, either of the following two
+#      conditions must be satisfied:
+#
+#    (a) The above copyright notice, this use conditions, and the
+#        disclaimer shown below must be shown without modification in
+#        the document provided with the redistributed software, such as
+#        the user manual.
+#
+#    (b) How the software is to be redistributed must be reported to the
+#        TOPPERS Project according to the procedure described
+#        separately.
+#
+#  (4) The above copyright holders and the TOPPERS Project are exempt
+#      from responsibility for any type of damage directly or indirectly
+#      caused from the use of this software and are indemnified by any
+#      users or end users of this software from any and all causes of
+#      action whatsoever.
+#
+#  THIS SOFTWARE IS PROVIDED "AS IS." THE ABOVE COPYRIGHT HOLDERS AND
+#  THE TOPPERS PROJECT DISCLAIM ANY EXPRESS OR IMPLIED WARRANTIES,
+#  INCLUDING, BUT NOT LIMITED TO, ITS APPLICABILITY TO A PARTICULAR
+#  PURPOSE. IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS AND THE
+#  TOPPERS PROJECT BE LIABLE FOR ANY TYPE OF DAMAGE DIRECTLY OR
+#  INDIRECTLY CAUSED FROM THE USE OF THIS SOFTWARE.
+#
+
+#
+# methods marked *** can be called externally.
+# don't call unmarked methods other than TECSModel.
+#
+
+require "erb"
+require "json"
+
+require "tecscde/view/constants"
+require "tecscde/tm_object"
+require "tecscde/change_set_control"
+
+module TECSCDE
+  class TECSModel < TmObject
+    include TECSCDE::ChangeSetControl
+    include TECSCDE::View::Constants
+
+    # tool_info schema for tecscde
+    TECSCDE_SCHEMA = {
+      tecscde: {
+        cell_list: [:cell_location],    # array
+        join_list: [:join_location]     # array
+      },
+      __tecscde: {
+        paper: :paper                   # paper
+      },
+      paper: {
+        type: "paper",                  # fixed string (type name)
+        size: :string,                  # "A4", "A3", "A2"
+        orientation: :string,           # "LANDSCAPE", "PORTRAIT"
+      },
+      cell_location: {
+        type: "cell_location",          # fixed string (type name)
+        region: :string,                # "rRegion::rReg"
+        name: :string,                  # "CellName"
+        location: [:number],            # [ x, y, w, h ]
+        port_location: [:port_location] # array
+      },
+      port_location: {
+        type: "port_location",          # fixed string (type name)
+        port_name: :string,
+        edge: :string,                  # "EDGE_TOP" | "EDGE_BOTTOM" | "EDGE_LEFT" | "EDGE_RIGHT"
+        offset: :number                 # real number (mm) (>=0)
+      },
+      __port_location: {                # port_location optional
+        subscript: :integer
+      },
+      join_location: {
+        type: "join_location",          # fixed string (type name)
+        call_region: :string,           # "rRegionParent::rRegionChild",
+        call_cell: :string,             # "CellName",
+        call_port: :string,             # "cPort",
+        entry_region: :string,          # "rERegionParent::rERegionChild",
+        entry_cell: :string,            # "ECellName",
+        entry_port: :string,            # "ePort",
+        bar_list: [:HBar, :VBar]        # mixed (HBar&VBar) array type
+      },
+      __join_location: {                # join_location optional
+        call_port_subscript: :integer,  # >= 0
+        entry_port_subscript: :integer, # >= 0
+      },
+      HBar: {
+        type: "HBar",                   # fixed string (type name)
+        position: :number,              # real number (mm), location in X-axis
+      },
+      VBar: {
+        type: "VBar",                   # fixed string (type name)
+        position: :number,              # real number (mm), location in Y-axis
+      }
+    }
+
+    # edges for join (connected by Bars from TmCPort to TmEPort)
+    EDGE_TOP    = 0b00
+    EDGE_BOTTOM = 0b01
+    EDGE_LEFT   = 0b10
+    EDGE_RIGHT  = 0b11
+
+    # gap is length between parallel bars.
+    CPGAP = 10  # (mm)
+    EPGAP = 10  # (mm)
+    GAP   = 5   # (mm)
+    ALIGN = 1.0 # (mm)    # grid size
+
+    # acceptable error of position information in .cde file
+    MAX_ERROR_IN_NOR = 0.5
+    MAX_ERROR_IN_TAN = 2
+
+    # minmal distance to next port (minimal interval)
+    DIST_PORT = 4 # (mm)
+
+    # Paper Size w/o margin (10 mm each side)
+    PaperSpec = Struct.new(:index, :size, :key, :orientation, :name, :height, :width) do
+      def cairo_paper_class
+        Cairo::Paper.const_get(@name)
+      end
+    end
+    PAPERS = {
+      A4L: PaperSpec.new(0, "A4", :A4L, "LANDSCAPE", "A4_LANDSCAPE", 190, 277),
+      A3L: PaperSpec.new(1, "A3", :A3L, "LANDSCAPE", "A3_LANDSCAPE", 277, 400),
+      A2L: PaperSpec.new(2, "A2", :A2L, "LANDSCAPE", "A2_LANDSCAPE", 400, 574),
+    }
+    # name must be found in Cairo::Paper.constants
+
+    NEAR_DIST = 2 # (mm)
+
+    IDENTIFIER_RE = /[A-Za-z_][0-9A-Za-z_]*/
+
+    attr_reader :file_editing, :paper
+
+    # @paper::PaperSpec : See PaperSpec
+    # @cell_list::[TmCell]
+    # @cell_hash::{ Symbole(namespace_path) => TmCell }
+    # @join_list::[TmJoin]
+    # @view::TView
+    # @root_region::TmRegion
+    # @file_editing::String
+
+    def initialize(tecsgen)
+      @cell_list = []
+      @cell_hash = {}
+      @join_list = []
+      @tecsgen = tecsgen
+      @paper = PAPERS[:A3L]
+
+      # __tool_info__( "tecsgen" )
+      @direct_import = []
+      @import_path_opt = []
+      @define    = []
+      @cpp       = ""
+      @file_editing = "untitled"
+      @owner = nil
+      init_change_set
+
+      create_root_region
+    end
+
+    #=== TECSModel#new_cell ***
+    # namespace_path::String : namespace path string of celltype
+    def new_cell(xm, ym, celltype_name, ct_namespace_path, tecsgen_cell = nil)
+      ct_nsp = NamespacePath.analyze(ct_namespace_path)
+      ct_nsp.append!(celltype_name.to_sym)
+      ct = Namespace.find(ct_nsp)
+      if ct.nil?
+        TECSCDE.logger.error("TM9999 celltype #{ct_nsp}: not found for cell #{@name}")
+        return
+      end
+
+      if tecsgen_cell
+        region = get_region_from_tecsgen_region(tecsgen_cell.get_region)
+      else
+        region = get_region_by_location(xm, ym)
+      end
+      new_cell2(xm, ym, ct, region, tecsgen_cell)
+    end
+
+    # celltype::Celltype : in tecsgen (should be changed to TmCelltype)
+    # region:TmRegion    :
+    # tecsgen_cell:Cell  : in tecsgen
+    def new_cell2(xm, ym, celltype, region, tecsgen_cell)
+      modified do
+        name = celltype.get_name.to_s.gsub(/t(.*)/, '\\1').to_sym
+        if @cell_hash[name]
+          count = 0
+          while @cell_hash[(name.to_s + count.to_s).to_sym]
+            count += 1
+          end
+          name = (name.to_s + count.to_s).to_sym
+        end
+
+        cell = TmCell.new(name, celltype, xm, ym, region, tecsgen_cell)
+        @cell_list << cell
+        @cell_hash[name] = cell
+
+        w, h = @view.get_text_extent(name, CELL_NAME, ALIGN_CENTER, TEXT_HORIZONTAL)
+        w2, h = @view.get_text_extent(celltype.get_name, CELL_NAME, ALIGN_CENTER, TEXT_HORIZONTAL)
+        w += 2
+        w = w2 if w2 > w
+        w = 20 if w < 20
+        h = 13 if h < 13
+        cell.set_geometry(xm, ym, w, h)
+
+        return cell
+      end
+    end
+
+    #=== TECSModel#delete_cell
+    # don't call externally, use TmCell#delete instead
+    def delete_cell(cell)
+      modified do
+        @cell_list.delete(cell)
+        @cell_hash.delete(cell.get_name) # mikan region
+      end
+    end
+
+    #=== TECSModel#rename_cell
+    # old_name::Symbol
+    # cell:: TmCell
+    # don't call externally, use TmCell#change_name instead
+    def rename_cell(cell, new_name)
+      modified do
+        raise "cell name not Symbol" unless new_name.is_a?(Symbol)
+        if cell.get_name == new_name
+          return true
+        end
+
+        unless IDENTIFIER_RE =~ new_name
+          TECSCDE.message_box("'#{new_name}' has unsuitable character for identifier", nil)
+          return false
+        end
+        if @cell_hash[new_name]
+          TECSCDE.message_box("'#{new_name}' already exists", nil)
+          return false
+        end
+        @cell_hash.delete(cell.get_name)
+        @cell_hash[new_name] = cell
+        return true
+      end
+    end
+
+    #=== TECSModel#new_join ***
+    def new_join(cport, eport)
+      modified do
+        join = TmJoin.new(cport, eport, self)
+        @join_list << join
+        return join
+      end
+    end
+
+    #=== TECSModel#delete_join
+    # don't call externally. call TmJoin#delete instead
+    def delete_join(join)
+      modified do
+        @join_list.delete(join)
+      end
+    end
+
+    #=== TECSModel.normal direction of edge
+    # RETURN:: 1: if direction is positive, -1: negative
+    def self.get_sign_of_normal(edge_side)
+      (edge_side & 0b01) != 0 ? 1 : -1
+    end
+
+    #=== TECSModel.vertical?
+    # RETURN:: true if vertical, false if horizontal
+    def self.vertical?(edge_side)
+      ((edge_side & 0b10) != 0) ? true : false
+    end
+
+    def self.horizontal?(edge_side)
+      !vertical?(edge_side)
+    end
+
+    #=== TECSModel.parallel?
+    # RETURN:: true if parallel, false if right anble
+    def self.parallel?(edge_side1, edge_side2)
+      # p "edge val", edge_side1, edge_side2, edge_side1 ^ edge_side2
+      (edge_side1 ^ edge_side2) < 0b10
+    end
+
+    #=== TECSModel.opposite?
+    # this function can be applicable only when edge_side1, edge_side2 are parallel
+    def self.opposite?(edge_side1, edge_side2)
+      (((edge_side1 ^ edge_side2) & 0b01) != 0) ? true : false
+    end
+
+    #=== TECSModel.round_length_val
+    def self.round_length_val(val)
+      round_unit = TECSModel.get_alignment
+      # round_unit = 0.25
+      # (val / round_unit).round * round_unit
+      (val / round_unit).round * round_unit
+      # val
+    end
+
+    #=== TECSModel#get_cell_list ***
+    def get_cell_list
+      @cell_list
+    end
+
+    #=== TECSModel#get_join_list ***
+    def get_join_list
+      @join_list
+    end
+
+    def paper=(name)
+      @paper = PAPERS[name]
+    end
+
+    #=== TECSModel#set_view ***
+    def set_view(view)
+      @view = view
+    end
+
+    #=== TECSModel#get_celltype_list ***
+    def get_celltype_list
+      return unless @tecsgen
+      @tecsgen.get_celltype_list
+    end
+
+    #=== TECSModel#get_region_from_tecsgen_region
+    def get_region_from_tecsgen_region(tecsgen_region)
+      nsp = tecsgen_region.get_namespace_path
+      get_region_from_namespace_path(nsp)
+    end
+
+    #=== TECSModel#get_region_from_namespace_path
+    def get_region_from_namespace_path(nsp)
+      path_array = nsp.get_path
+      region = @root_region
+      i = 0
+      while i < path_array.length
+        region = region.get_region(path_array[i])
+        i += 1
+      end
+      region
+    end
+
+    #=== TECSModel#get_region_by_location
+    def get_region_by_location(x, y)
+      @root_region # mikan
+    end
+
+    #=== TECSModel#create_root_region
+    def create_root_region
+      nsp = NamespacePath.new("::", true)
+      @root_region = TmRegion.new(nsp, self)
+    end
+
+    #=== TECSModel.get_alignment
+    # return::String : file name editing
+    def self.get_alignment
+      ALIGN
+    end
+
+    def clip_x(x)
+      max = @paper.width - 2
+      if x < 2
+        x = 2
+      elsif x > max
+        x = max
+      end
+      x
+    end
+
+    def clip_y(y)
+      max = @paper.height - 2
+      if y < 2
+        y = 2
+      elsif y > max
+        y = max
+      end
+      y
+    end
+
+    #=== TECSModel.clone_for_undo
+    def clone_for_undo
+      bu = clone
+      bu.copy_from(self)
+      bu
+    end
+
+    #=== TECSModel.setup_clone
+    def copy_from(model)
+      model.instance_variables.each do |iv|
+        val = model.instance_variable_get(iv)
+        instance_variable_set(iv, val)
+      end
+      @cell_list = model.instance_variable_get(:@cell_list).dup
+      @cell_hash = model.instance_variable_get(:@cell_hash).dup
+      @join_list = model.instance_variable_get(:@join_list).dup
+    end
+
+    def model
+      self
+    end
+
+    #=== TECSModel#add_cell_list_from_tecsgen
+    def add_cell_list_from_tecsgen
+      #----- set @file_editing -----#
+      argv = TECSGEN.get_argv
+      if argv.empty?
+        @file_editing = ""
+      else
+        last_arg = argv[-1]
+        if last_arg =~ /\.cde\Z/
+          @file_editing = last_arg
+        else
+          if last_arg =~ /\.cdl\Z/
+            @file_editing = last_arg.gsub(/\.cdl\Z/, ".cde")
+          else
+            @file_editing = last_arg + ".cde"
+          end
+        end
+      end
+
+      print "file_editing: #{@file_editing}\n"
+
+      tecsgen_cell_list = @tecsgen.get_cell_list
+      tecsgen_cell_list2 = []
+      x = 10
+      y = 10
+      # x = @paper[ :width ] - 60
+      # y = @paper[ :height ] -30
+
+      cell_list = {} # ::Cell => TmCell
+      return unless tecsgen_cell_list
+      TECSCDE.logger.info("=== create cell ===")
+      tecsgen_cell_list.each do |cell|
+        # p cell.get_owner.get_namespace
+        # p cell.get_owner.get_namespace_path
+        if @cell_hash[cell.get_name] # duplicate cell in cdl file
+          next
+        end
+        if cell.get_celltype.nil? # celltype not found error in cdl (tecsgen)
+          TECSCDE.logger.info("add_cell: celltype not found: #{cell.get_name} #{cell.get_owner.get_namespace_path}")
+          next
+        end
+
+        TECSCDE.logger.info("add_cell #{cell.get_name} #{cell.get_owner.get_namespace_path} #{cell.get_locale}")
+        new_cell_ = create_cell_from_tecsgen(cell, x, y)
+        tecsgen_cell_list2 << cell
+        cell_list[cell] = new_cell_
+
+        new_cell_.set_editable(cell.get_locale)
+
+        x += 55
+        if x >= @paper[:width] - 30
+          x = 10
+          y += 30
+          if y >= @paper[:height] - 15
+            y = 10
+          end
+        end
+        # x -= 55
+        # if x <= 10
+        #   x =   @paper[ :width ] - 60
+        #   y -= 30
+        #   if y <= 50
+        #     y = @paper[ :height ] -30
+        #   end
+        # end
+      end
+
+      set_location_from_tecsgen_old
+      #------ validate and set location info from __tool_info( "tecscde" ) ------#
+      # begin
+      if validate || $b_force_apply_tool_info
+        TECSCDE.logger.info("=== set_paper ===")
+        set_paper_from_tecsgen
+
+        TECSCDE.logger.info("=== set_cell_location ===")
+        set_cell_location_from_tecsgen
+      else
+        TECSCDE.logger.error("validate error in __tool_info__( \"tecscde\" )")
+      end
+
+      TECSCDE.logger.info("=== create join ===")
+      tecsgen_cell_list2.each do |cell|
+        cell.get_join_list.get_items.each do |join|
+          if join.get_array_member2.nil?
+            create_join_from_tecsgen(cell, join, cell_list)
+          else
+            join.get_array_member2.each do |j|
+              if j
+                create_join_from_tecsgen(cell, j, cell_list)
+              end
+            end
+          end
+        end
+      end
+
+      if validate || $b_force_apply_tool_info
+        TECSCDE.logger.info("=== set_join_location ===")
+        set_join_location_from_tecsgen
+      end
+    end
+
+    #=== TECSModel#create_cell_from_tecsgen
+    def create_cell_from_tecsgen(cell, x, y)
+      new_cell_ = new_cell(x, y, cell.get_celltype.get_name, cell.get_celltype.get_owner.get_namespace_path.to_s, cell)
+      new_name = cell.get_name # automatically given name
+      new_cell_.change_name(new_name)
+
+      # decide cell box size from text width
+      w, h = @view.get_text_extent(new_name, CELL_NAME, ALIGN_CENTER, TEXT_HORIZONTAL)
+      w2, h = @view.get_text_extent(cell.get_celltype.get_name, CELLTYPE_NAME, ALIGN_CENTER, TEXT_HORIZONTAL)
+      w = w2 if w2 > w
+      w += 2
+      h += 2
+      w = 25 if w < 25
+      h = 15 if h < 15
+      new_cell_.set_geometry(x, y, w, h)
+      new_cell_
+    end
+
+    #=== TECSModel#create_join_from_tecsgen
+    def create_join_from_tecsgen(cell, join, cell_list)
+      # p join.get_name
+      object = cell.get_celltype.find(join.get_name)
+      # p "OBJECT CLASS #{object.class}"
+      if object.instance_of?(::Port)
+        return unless object.get_port_type == :CALL
+        return if object.is_require?
+        lhs_cell = cell_list[cell]
+        cport = lhs_cell.get_cport_for_new_join(join.get_name, join.get_subscript)
+        if cport.nil?
+          TECSCDE.logger.error("#{@name}.#{join.get_name} not found")
+          return
+        end
+        rhs_cell = cell_list[join.get_cell]
+        if rhs_cell.nil? # not joined in cdl (tecsgen)
+          return
+        end
+        # eport = rhs_cell.eports[ join.get_port_name ]
+        eport = rhs_cell.get_eport_for_new_join(join.get_port_name, join.get_rhs_subscript1)
+        # p "new_join #{lhs_cell.get_name}.#{cport.get_name} => #{rhs_cell.get_name}.#{eport.get_name}"
+        new_join_ = new_join(cport, eport)
+        new_join_.set_editable(join.get_locale)
+      else
+        cell_list[cell].set_attr(join.get_name, join.get_rhs.to_CDL_str)
+      end
+    end
+
+    def set_paper_from_tecsgen
+      info = TOOL_INFO.get_tool_info(:tecscde)
+      return if info.nil? || info[:paper].nil?
+
+      #----- paper -----#
+      paper_info = info[:paper]
+      return unless paper_info
+      size = paper_info[:size]
+      orientation = paper_info[:orientation]
+      paper = nil
+      PAPERS.each do |_name, spec|
+        if spec.size == size && spec.orientation == orientation
+          TECSCDE.logger.info("paper found #{spec.name}")
+          paper = spec
+        end
+      end
+      @paper = paper if paper
+    end
+
+    def set_cell_location_from_tecsgen
+      info = TOOL_INFO.get_tool_info(:tecscde)
+      if info.nil? || info[:cell_list].nil?
+        return
+      end
+
+      #----- cell location -----#
+      info[:cell_list].each do |cell_location|
+        # region = cell_location[ :region ].to_sym
+        name = cell_location[:name].to_sym
+        loc = cell_location[:location]
+        if loc.length != 4
+          TECSCDE.logger.error("#{name}: cell_location.location: array length is not inconsistent, #{loc.length} for 4")
+          next
+        end
+        cell = @cell_hash[name]
+        if cell
+          # p "apply location: #{cell.get_name}"
+          cell.set_geometry(*loc)
+
+          #------ port location -----#
+          cell_location[:port_location].each do |port_location|
+            # mikan offset not set yet
+            port_name = port_location[:port_name].to_sym
+            edge = get_edge_side_val(port_location[:edge])
+            offset = port_location[:offset]
+            subscript = port_location[:subscript]
+            port = cell.cports[port_name]
+            if port.nil?
+              port = cell.eports[port_name]
+            end
+            if port.nil?
+              TECSCDE.logger.info("port '#{port_name}' not found")
+              next
+            end
+            if subscript
+              unless port.array?
+                TECSCDE.logger.info("port '#{port_name}' : 'subscript' specified but not array")
+                next
+              end
+              if subscript < 0
+                TECSCDE.logger.info("port '#{port_name}' : 'subscript' negative valude specified")
+                next
+              end
+              port = port.ports[subscript] # array
+              if port.nil?
+                TECSCDE.logger.info("port '#{port_name}' : 'subscript=#{subscript}' out of range")
+                next
+              end
+            else
+              if port.array?
+                TECSCDE.logger.info("port '#{port_name}' : array but no 'subscript' specified")
+                next
+              end
+            end
+            port.set_position(edge, offset)
+          end
+        else
+          @cell_hash.each do |a, _b|
+            TECSCDE.logger.info(a)
+          end
+          TECSCDE.logger.info("not apply location: #{name}")
+          next
+        end
+      end
+    end
+
+    def set_join_location_from_tecsgen
+      info = TOOL_INFO.get_tool_info(:tecscde)
+      if info.nil?
+        return
+      end
+
+      #----- join location -----#
+      info[:join_list].each do |jl|
+        # jl[ :call_region ]
+        cp_cell_nspath = jl[:call_cell].to_sym
+        cp_name = jl[:call_port].to_sym
+        cp_subscript = jl[:call_port_subscript]
+        # jl[ :entry_region ]
+        ep_cell_nspath = jl[:entry_cell].to_sym
+        ep_name = jl[:entry_port].to_sym
+        ep_subscript = jl[:entry_port_subscript]
+
+        bl = jl[:bar_list]
+        bar_list = []
+        bl.each do |bar|
+          bar_list << [bar[:type], bar[:position]]
+        end
+
+        # cp_cell_nspath, cp_name, ep_cell_nspath, ep_name, bar_list = jl.get_location
+        # p "set_location_from_tecsgen, #{cp_cell_nspath}, #{cp_name}, #{ep_cell_nspath}, #{ep_name}, #{bar_list}"
+        cp_cell = @cell_hash[cp_cell_nspath]
+        ep_cell = @cell_hash[ep_cell_nspath]
+        # check existance of cells
+        next if cp_cell.nil?
+        next if ep_cell.nil?
+        cport = cp_cell.cports[cp_name]
+        if cport.is_a?(TmCPortArray)
+          if cp_subscript.nil?
+            TECSCDE.logger.error("TM9999 location information ignored #{cp_name} is array but not specified subscript")
+            next
+          end
+          cport = cport.get_member(cp_subscript)
+        else
+          if cp_subscript
+            TECSCDE.logger.error("TM9999 #{cp_name} is not array but specified subscript")
+          end
+        end
+        eport = ep_cell.eports[ep_name]
+        if eport.is_a?(TmEPortArray)
+          if ep_subscript.nil?
+            TECSCDE.logger.error("TM9999 location information ignored #{ep_name} is array but not specified subscript")
+            next
+          end
+          eport = eport.get_member(ep_subscript)
+        else
+          if ep_subscript
+            TECSCDE.logger.error("TM9999 #{ep_name} is not array but specified subscript")
+          end
+        end
+        # p "1 #{cp_name} #{cp_subscript} #{ep_name} #{ep_subscript} #{cport} #{eport}"
+
+        # check existance of cport & eport and direction of bar & edge (must be in right angle)
+        # mikan necessary more than 2 bars
+        next if cport.nil?
+        next if eport.nil?
+        next unless eport.include?(cport.get_join(cp_subscript))
+        next unless bar_list.length >= 2
+        # p "2"
+        bar_type = bar_list[0][0].to_sym
+        next if TECSModel.vertical?(cport.get_edge_side) && bar_type == :VBar
+        next if TECSModel.horizontal?(cport.get_edge_side) && bar_type == :HBar
+        # p "3"
+        len = bar_list.length
+
+        normal_pos = bar_list[len - 1][1]
+        tan_pos = bar_list[len - 2][1]
+        # p "normal_pos=#{normal_pos}, eport_normal=#{eport.get_position_in_normal_dir}"
+        # p "tan_pos=#{tan_pos}, eport_tan=#{eport.get_position_in_tangential_dir}"
+        # check if normal_pos & tan_pos can be evaluated and the position of bars goal
+        if !normal_pos.nil? && !tan_pos.nil? &&
+            ((normal_pos - eport.get_position_in_normal_dir).abs <= MAX_ERROR_IN_NOR) &&
+            ((tan_pos - eport.get_position_in_tangential_dir).abs <= MAX_ERROR_IN_TAN)
+          # p "4"
+          bars = []
+          bar_list.each do |bar_info|
+            # bar_list: array of [ IDENTIFER, position ] => bars ( array of HBar or VBar )
+            pos = bar_info[1]
+            if !pos.nil? && bar_info[0].to_sym == :HBar
+              bar = HBar.new(pos, cport.get_join)
+              bars << bar
+            elsif !pos.nil? && bar_info[0].to_sym == :VBar
+              bar = VBar.new(pos, cport.get_join)
+              bars << bar
+            else
+              bars = []
+              break
+            end
+          end
+          # mikan length more than 2
+          len = bars.length
+          if len >= 0.1
+            bars[len - 1].set_position(eport.get_position_in_normal_dir)
+            bars[len - 2].set_position(eport.get_position_in_tangential_dir)
+            # p "bar changed for #{cp_cell_nspath}.#{cport.get_name}"
+            cport.get_join.change_bars(bars)
+          end
+        end
+      end
+    end
+
+    #=== TECSModel#validate
+    # validate JSON format data in __tool_info__( "tecscde" )
+    def validate
+      validator = TOOL_INFO::VALIDATOR.new(:tecscde, TECSCDE_SCHEMA)
+      validator.validate
+    end
+
+    #=== save data ***
+    def save(filename)
+      File.open(filename, "w") do |file|
+        file.write(render)
+      end
+    rescue => ex
+      TECSCDE.message_box("fail to save #{filename}\n#{ex}", :OK)
+    end
+
+    def render
+      erb = ERB.new(File.read(File.join(__dir__, "templates", "main.cde.erb")), nil, "-")
+      erb.result(binding)
+    end
+
+    def render_partial(file, indent_width: 8, **kw)
+      erb = ERB.new(File.read(File.join(__dir__, "templates", file)), nil, "-")
+      b = binding
+      kw.each do |name, value|
+        b.local_variable_set(name, value)
+      end
+      lines = erb.result(b).lines
+      string = lines.first.dup
+      lines[1..-1].each do |line|
+        string << " " * indent_width
+        string << line
+      end
+      string
+    end
+
+    def base_directories
+      dirs = $base_dir.select do |dir, necessary|
+        necessary
+      end
+      dirs.keys
+    end
+
+    def define_macros
+      $define
+    end
+
+    def import_paths
+      tecspath = $tecspath.gsub(/\\/, '\\\\\\\\')
+      $import_path.reject do |path|
+        path =~ Regexp.new("\\A#{tecspath}")
+      end
+    end
+
+    def direct_imports
+      imports = Import.get_list
+      return [] if imports.empty?
+      imports = imports.select do |_path, import|
+        (import.is_imported? == false) && (import.get_cdl_name != @file_editing)
+      end
+      imports.values.map(&:get_cdl_name)
+    end
+
+    def tecsgen
+      {
+        tecscde_version: TECSCDE::VERSION,
+        cde_format_version: TECSCDE::FORMAT_VERSION,
+        save_date: DateTime.now,
+        base_dir: base_directories,
+        define_macro: define_macros,
+        import_path: import_paths,
+        direct_import: direct_imports
+      }
+    end
+
+    def generate_cports_lines(cports, indet_width = 4)
+      lines = []
+      cports.each do |_name, cport|
+        if cport.array?
+          cport.ports.each do |call_port|
+            join = call_port.get_join
+            next unless join
+            entry_port = join. eport
+            subscript = if entry_port.get_subscript
+                          "[ #{entry_port.get_subscript} ]"
+                        else
+                          ""
+                        end
+            lines << "#{call_port.get_name}[ #{call_port.get_subscript} ] = #{entry_port.get_cell.get_name}.#{entry_port.get_name}#{subscript};"
+          end
+        else
+          join = cport.get_join
+          next unless join
+          entry_port = join.eport
+          subscript = if entry_port.get_subscript
+                        "[ #{entry_port.get_subscript} ]"
+                      else
+                        ""
+                      end
+          lines << "#{cport.get_name} = #{entry_port.get_cell.get_name}.#{entry_port.get_name}#{subscript};"
+        end
+      end
+      lines
+    end
+
+    def port_location(ports)
+      ports.map do |port|
+        if port.array?
+          port.ports.map do |child|
+            {
+              type: "port_location",
+              port_name: port.get_name,
+              subscript: port.get_subscript,
+              edge: port.get_edge_side_name,
+              offset: port.offset
+            }
+          end
+        else
+          {
+            type: "port_location",
+            port_name: port.get_name,
+            edge: port.get_edge_side_name,
+            offset: port.offset
+          }
+        end
+      end
+    end
+
+    #----- old syntax for location information -----#
+    # load code is still used for old data.
+
+    #=== TECSModel#set_location_from_tecsgen
+    # get location information from cde file and apply it to TmCell & TmJoin
+    def set_location_from_tecsgen_old
+      # set cell location
+      @tecsgen.get_cell_location_list.each do |cl|
+        cell_nspath, x, y, w, h, port_location_list = cl.get_location
+        # p "set_location_from_tecsgen", cell_nspath, x, y, w, h, port_location_list
+        cell = @cell_hash[cell_nspath.to_s.to_sym]
+        # p "apply location: #{cell&.get_name}"
+        cell&.set_geometry(x, y, w, h)
+      end
+
+      # set join location
+      @tecsgen.get_join_location_list.each do |jl|
+        cp_cell_nspath, cp_name, ep_cell_nspath, ep_name, bar_list = jl.get_location
+        cp_subscript = nil # kari
+        ep_subscript = nil
+        # p "set_location_from_tecsgen, #{cp_cell_nspath}, #{cp_name}, #{ep_cell_nspath}, #{ep_name}, #{bar_list}"
+        cp_cell = @cell_hash[cp_cell_nspath.to_s.to_sym]
+        ep_cell = @cell_hash[ep_cell_nspath.to_s.to_sym]
+        # check existance of cells
+        next if cp_cell.nil? || ep_cell.nil?
+        cport = cp_cell.cports[cp_name.to_sym]
+        eport = ep_cell.eports[ep_name.to_sym]
+        # p "1 #{cp_name} #{ep_name} #{cport} #{eport}"
+
+        # check existance of cport & eport and direction of bar & edge (must be in right angle)
+        # mikan necessary more than 2 bars
+        next if cport.nil? || eport.nil?
+        next unless eport.include?(cport.get_join(cp_subscript))
+        next unless bar_list.length >= 2
+        # p "2"
+        bar_type = bar_list[0][0]
+        next if TECSModel.vertical?(cport.get_edge_side) && bar_type == :VBar
+        next if TECSModel.horizontal?(cport.get_edge_side) && bar_type == :HBar
+        # p "3"
+        len = bar_list.length
+        # bar_list: [ [:HBar, pos]
+        normal_pos = bar_list[len - 1][1].eval_const(nil)
+        tan_pos = bar_list[len - 2][1].eval_const(nil)
+        # p "normal_pos=#{normal_pos}, eport_normal=#{eport.get_position_in_normal_dir}"
+        # p "tan_pos=#{tan_pos}, eport_tan=#{eport.get_position_in_tangential_dir}"
+        # check if normal_pos & tan_pos can be evaluated and the position of bars goal
+        if !normal_pos.nil? && !tan_pos.nil? &&
+            ((normal_pos - eport.get_position_in_normal_dir).abs <= MAX_ERROR_IN_NOR) &&
+            ((tan_pos - eport.get_position_in_tangential_dir).abs <= MAX_ERROR_IN_TAN)
+          # p "4"
+          bars = []
+          bar_list.each do |bar_info|
+            # bar_list: array of [ IDENTIFER, position ] => bars ( array of HBar or VBar )
+            pos = bar_info[1].eval_const(nil)
+            if !pos.nil? && bar_info[0] == :HBar
+              bar = HBar.new(pos, cport.get_join)
+              bars << bar
+            elsif !pos.nil? && bar_info[0] == :VBar
+              bar = VBar.new(pos, cport.get_join)
+              bars << bar
+            else
+              bars = []
+              break
+            end
+          end
+          # mikan length more than 2
+          len = bars.length
+          if len >= 2
+            bars[len - 1].set_position(eport.get_position_in_normal_dir)
+            bars[len - 2].set_position(eport.get_position_in_tangential_dir)
+            # p "bar changed for #{cp_cell_nspath}.#{cport.get_name}"
+            cport.get_join.change_bars(bars)
+          end
+        end
+      end
+    end
+
+    #=== TECSModel#get_edge_side_val
+    def get_edge_side_val(edge_side_name)
+      case edge_side_name
+      when "EDGE_TOP"
+        EDGE_TOP
+      when "EDGE_BOTTOM"
+        EDGE_BOTTOM
+      when "EDGE_LEFT"
+        EDGE_LEFT
+      when "EDGE_RIGHT"
+        EDGE_RIGHT
+      else
+        0 # same as EDGE_TOP
+      end
+    end
+  end
+end
+
+require "tecscde/tecs_model/tm_c_port"
+require "tecscde/tecs_model/tm_c_port_array"
+require "tecscde/tecs_model/tm_cell"
+require "tecscde/tecs_model/tm_e_port"
+require "tecscde/tecs_model/tm_e_port_array"
+require "tecscde/tecs_model/tm_join"
+require "tecscde/tecs_model/tm_join_bar"
+require "tecscde/tecs_model/tm_port"
+require "tecscde/tecs_model/tm_port_array"
+require "tecscde/tecs_model/tm_region"
+require "tecscde/tecs_model/tm_uneditable"
+require "tecscde/tecs_model/hbar"
+require "tecscde/tecs_model/vbar"
+
+#
+# Software Design Memo
+#
+# pattern of lines between cells
+#
+# (a) parallel opposite side generic
+# (b) parallel opposite side abbreviated
+# (c) right angle generic
+# (d) right angle  abbreviated
+# (e) parallel same side generic
+# (f) parallel same side abbreviated
+#
+# applying abbrviated patterns, there is conditions.
+#
+#    +-------------+
+#    |          (f)|---------------------------1+
+#    |          (d)|-------------------1+       |
+#    |          (e)|----1+              |       |
+#    |          (c)|---1+|              |       |
+#    |          (a)|--1+||              |       |
+#    |          (b)|-1+|||              |       |
+#    |         (c)'|-+||||              |       |
+#    +-------------+ |||||              |       |
+#                    ||||+2-------------------3+|
+#                    |||+2---------3+   |      ||
+#                    ||+2---3+      |   |      ||
+#                    ||      | +-------------+ ||
+#                    ||      4 |    V   V    | 4|
+#                    ||      +-|>           <|-+|
+#                    |+2-------|>           <|-2+
+#                    |         |    ^        |
+#                    |         +-------------+
+#                    |              |
+#                    +--------------+
+#
+#  edge_side
+#    horizontal
+#      EDGE_TOP    = 0b00
+#      EDGE_BOTTOM = 0b01
+#    vertical
+#      EDGE_LEFT   = 0b10
+#      EDGE_RIGHT  = 0b11
+#
+#
+#   bit0: 1 if normal direction is positive, 0 negative
+#   bit1: 1 if vertical, 0 if horizontal
+#
+#   TECSModel class method
+#     get_sign_of_normal( edge_side ) = (edge_side & 0b01) ? 1 : -1
+#     vertical?( edge_side )   = (edge_side & 0b10) ? true : false
+#     parallel?( edge_side1, edge_side2 ) = ( edge_side1 ^ edge_side2 ) < 0b10
+#     opposite?( edge_side1, edge_side2 ) = ( ( edge_side1 ^ edge_side2 ) & 0b01 ) ? true : false
+#         this function can be applicable only when edge_side1, edge_side2 are parallel
+#
+#   TmCell#get_edge_position_in_normal_dir( edge_side )
+#       case edge_side
+#       when  EDGE_TOP     y
+#       when  EDGE_BOTTOM  y+height
+#       when  EDGE_LEFT    x
+#       when  EDGE_RIGHT   x+width
+#
+#   #=== (1)  (6) bar from call port. this indicate A position.
+#   TmCPort#get_normal_bar_of_edge
+#       pos = @cell.get_edge_position_in_normal_dir( @edge_side ) + GAP * TECSModel.get_sign_of_normal( @edge_side )
+#       TECSModel.vertical?( @edge_side ) ? HBar.new( pos ) : VBar.new( pos )
+#
+#   TmCPort#tangential_position
+#       ( TECSModel.vertical? @edge_side ) ? @cell.get_y + @offs : @cell.get_x + @offs
+#
+#   TmJoin#create_bars
+#       if TECSModel.parallel?( @edge_side, dest_port.get_edge_side )
+#           if TECSModel.opposite?( @edge_side, dest_port.get_edge_side )
+#               create_bars_a
+#           else
+#               create_bars_e
+#       else
+#           create_bars_c
+#
+#   TmJoin#create_bars_a
+#        @bars = []
+#
+#        @bars[0] = @cport.get_normal_bar_of_edge
+#
+#        posa = @cport.get_position_in_tangential_dir
+#        e1, e2 = @eport.get_cell.get_right_angle_edges_position( @cport.get_edge_side )
+#        pos2 = ( posa - e1 ).abs > ( posa - e2 ).abs ? e2 : e1
+#        @bars[2] = (bar[1].instance_of? HBar) ? VBar.new( pos2 ) : HBar.new( pos2 )
+#
+#        pos3 = @eport.get_position_in_normal_dir + GAP * @eport.get_sign_of_normal
+#        @bars[2] = (@bars[1].instance_of? HBar) ? VBar.new( pos3 ) : HBar.new( pos3 )
+#
+#        pos4 = @eport.get_position_in_normal_dir + GAP * @eport.get_sign_of_normal
+#        @bars[3] = (@bars[2].instance_of? HBar) ? VBar.new( pos4 ) : HBar.new( pos4 )
+#
+#        pos5 = @eport.get_position_in_tangential_dir
+#        @bars[4] = (@bars[3].instance_of? HBar) ? VBar.new( pos5 ) : HBar.new( pos5 )
+#
+#        pos6 = @eport.get_position_in_normal_dir
+#        @bars[5] = (@bars[4].instance_of? HBar) ? VBar.new( pos6 ) : HBar.new( pos6 )
+#
+#   TmJoin#create_bars_c
+#        @bars = []
+#
+#        @bars[0] = @cport.get_normal_bar_of_edge
+#
+#        pos1 = @eport.get_position_in_normal_dir + GAP * @eport.get_sign_of_normal
+#        @bars[1] = (bar[0].instance_of? HBar) ? VBar.new( pos1 ) : HBar.new( pos1 )
+#
+#        pos2 = @eport.get_position_in_tangential_dir
+#        @bars[2] = (bar[1].instance_of? HBar) ? VBar.new( pos2 ) : HBar.new( pos2 )
+#
+#        pos3 = @eport.get_position_in_normal_dir
+#        @bars[3] = (bar[2].instance_of? HBar) ? VBar.new( pos3 ) : HBar.new( pos3 )
+#
+#   TmJoin#create_bars_e
+#        @bars = []
+#
+#        @bars[0] = @cport.get_normal_bar_of_edge
+#
+#        pos1 = @eport.get_position_in_normal_dir + GAP * @eport.get_sign_of_normal
+#        @bars[1] = (bar[0].instance_of? HBar) ? VBar.new( pos1 ) : HBar.new( pos1 )
+#
+#        posa = @cport.get_position_in_tangential_dir
+#        e1, e2 = @eport.get_cell.get_right_angle_edges_position( @cport.get_edge_side )
+#        pos2 = ( posa - e1 ).abs > ( posa - e2 ).abs ? e2 : e1
+#        @bars[2] = (bar[1].instance_of? HBar) ? VBar.new( pos2 ) : HBar.new( pos2 )
+#
+#        pos3 = @eport.get_position_in_normal_dir + GAP * @eport.get_sign_of_normal
+#        @bars[3] = (bar[2].instance_of? HBar) ? VBar.new( pos3 ) : HBar.new( pos3 )
+#
+#        pos4 = @eport.get_position_in_normal_dir
+#        @bars[4] = (bar[3].instance_of? HBar) ? VBar.new( pos4 ) : HBar.new( pos4 )
+#
+#
+#
+#----- JSON schema (likely) -----#
+#