ea 0.6.98 → 0.6.99

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b3c13e631927ad57c6168b6d7c02eaed8e933c89ad7dfcd0a055fb6b8a69e8e1
-  data.tar.gz: 3edb35912780be1170fce402dd141823f4c5e44c92a6f84451fa136d3eb026a8
+  metadata.gz: 4b9e7581bab2de7d7c5766a5f141c99885bb59cbb7ad974c313c26e86bfb96a2
+  data.tar.gz: 8933e36fb2422953eddb1d60069664e39177547beaf2ec17ed17c5b9f3aa4eac
 SHA512:
-  metadata.gz: 6544102e41ff1bde04737e18f93de5ea0ee657c47335f7eeb12316162ca33fbf2e0d5b0dc1572fccc5174373781b1368508d606641286c88ebe2d7f9f2232079
-  data.tar.gz: eb3cb4702ea44ba8759ab9774a1ca445684b9d6ce7043153b4823657c191fff45c6db267ee74b1ed20cdec2064248b60a0f5112827b92edfa4aaecaa495fa093
+  metadata.gz: ab6882700d57207a5fd2c1b27fa0befe5f287bb61f13387e99dc8f4429dbede75320d9fb6124a126094455d38d4dff7a41dbfc258633609c6695c5dcd216b36d
+  data.tar.gz: 82cd636abfe8c20a03dc8f6c5410192c65e674093eaaabc081e8fc84b7ec6544a87f3c87ff255f90fcaa1bc0f7704fdf1b2e46f344cf9288cd51ec4a7e8cfa97

data/lib/ea/sources/qea/diagram_builder/routing.rb

@@ -115,6 +115,85 @@ module Ea
                                  y: bounds.y + bounds.height / 2 - y_offset.to_i)
           end
 
+          # A vertical tree stores its trunk bend twice when the parent sits
+          # directly above; EA draws that as one bend.
+          def drop_zero_length_tree_segments(points, link_row)
+            return points unless points.size == 4 && points[1] == points[2] &&
+                                 DiagramStyleParser.parse(link_row.style)[:tree] == "V"
+
+            points.values_at(0, 1, 3)
+          end
+
+          # A stored vertical tree trunk docks both ends on the box edges that
+          # face its bends, at the adjacent bend's x: Aggregations without
+          # geometry offsets whose child sits below, and flush Associations
+          # whose parent sits above. Other shapes keep their stored docks.
+          def redock_vertical_tree_trunk(points, link_row, connector, source_placement, target_placement)
+            style = DiagramStyleParser.parse(link_row.style)
+            return unless points.size == 4 && style[:tree] == "V"
+
+            case connector.connector_type
+            when "Aggregation"
+              return if geometry_has_offsets?(link_row.geometry)
+
+              redock_child_below(points, bounds_from_rect(source_placement), bounds_from_rect(target_placement))
+            when "Association"
+              return unless style[:lwidth] == "0"
+
+              redock_parent_above(points, link_row, source_placement, target_placement, strict: true)
+            end
+          end
+
+          def redock_child_below(points, src_b, tgt_b)
+            first_bend, last_bend = points.values_at(1, -2)
+            source_y = src_b.y + src_b.height
+            return points unless source_y <= tgt_b.y && first_bend[1] > source_y && last_bend[1] < tgt_b.y
+
+            points[0] = [clamp_to_span(first_bend[0], src_b), source_y]
+            points[-1] = [clamp_to_span(last_bend[0], tgt_b), tgt_b.y]
+            points
+          end
+
+          def clamp_to_span(position, bounds)
+            position.clamp(bounds.x, bounds.x + bounds.width)
+          end
+
+          # A stored-Path Mode 3 width-2 end whose adjacent bend lies level
+          # with its box (inside the box's span on one axis, outside on the
+          # other) enters the box orthogonally on the outer outline at that
+          # bend's coordinate. Bends that are not level keep the port and
+          # every authored corner stays.
+          def level_entry_route(points, link_row, connector, src, tgt)
+            return points unless points.size >= 3 && level_entry_style?(link_row, connector)
+
+            route = points.dup
+            first = level_entry_point(route[1], src)
+            last = level_entry_point(route[-2], tgt)
+            route[0] = first if first
+            route[-1] = last if last
+            route
+          end
+
+          def level_entry_style?(link_row, connector)
+            style = DiagramStyleParser.parse(link_row.style)
+            %w[Generalization Aggregation].include?(connector.connector_type) &&
+              style[:mode] == "3" && style[:lwidth] == "2" && !style.key?(:tree)
+          end
+
+          def level_entry_point(bend, box)
+            level_y = bend[1] > box.y && bend[1] < box.y + box.height
+            level_x = bend[0] > box.x && bend[0] < box.x + box.width
+            if level_y && outside_span?(bend[0], box.x, box.width)
+              [bend[0] < box.x ? box.x - 1 : box.x + box.width + 1, bend[1]]
+            elsif level_x && outside_span?(bend[1], box.y, box.height)
+              [bend[0], bend[1] < box.y ? box.y - 1 : box.y + box.height + 1]
+            end
+          end
+
+          def outside_span?(value, start, length)
+            value < start || value > start + length
+          end
+
           # Square routing keeps the stored orthogonal trunk, even when a
           # shorter facing-edge route exists between the same boxes.
           def stored_square_route(link_row, connector, source, target)
@@ -164,19 +243,29 @@ module Ea
 
           # A valid lateral corner joins one vertical leg and one horizontal
           # leg. Keep it even when the boxes also admit a shorter direct route.
-          def stored_lateral_route(link_row, connector, source, target)
+          # ported: both ends carry explicit SX/SY and EX/EY offsets. An
+          # untyped corner without them may be an authored diagonal.
+          def stored_lateral_route(link_row, connector, source, target, ported: false)
             return nil unless %w[Aggregation Association].include?(connector.connector_type)
 
             style = DiagramStyleParser.parse(link_row.style)
-            return nil unless stored_lateral_style?(style)
+            return nil unless stored_lateral_style?(style, connector, ported)
 
             corner = stored_lateral_corner(link_row)
-            return nil unless corner
+            corner && lateral_corner_route(style, corner, source, target)
+          end
 
-            if style[:tree] == "LH"
-              horizontal_corner_route(corner, source, target)
+          # An untyped Mode 3 Association corner takes whichever leg
+          # orientation its position fits; width-2 docks sit on the 1px
+          # outer outline.
+          def lateral_corner_route(style, corner, source, target)
+            case style[:tree]
+            when "LH" then horizontal_corner_route(corner, source, target)
+            when "LV" then vertical_corner_route(corner, source, target)
             else
-              vertical_corner_route(corner, source, target)
+              outline = style[:lwidth] == "2" ? 1 : 0
+              horizontal_corner_route(corner, source, target, outline) ||
+                vertical_corner_route(corner, source, target, outline)
             end
           end
 
@@ -186,8 +275,11 @@ module Ea
             intermediate_waypoints(link_row).first
           end
 
-          def stored_lateral_style?(style)
-            style[:mode] == "3" && %w[0 2].include?(style[:lwidth]) && %w[LH LV].include?(style[:tree])
+          def stored_lateral_style?(style, connector, ported)
+            return false unless style[:mode] == "3" && %w[0 2].include?(style[:lwidth])
+
+            %w[LH LV].include?(style[:tree]) ||
+              (style[:tree].nil? && ported && connector.connector_type == "Association")
           end
 
           def horizontal_corner?(corner, source, target)
@@ -195,13 +287,13 @@ module Ea
               !within_height?(corner[1], source) && !within_horizontal_span?(corner, target)
           end
 
-          def horizontal_corner_route(corner, source, target)
+          def horizontal_corner_route(corner, source, target, outline = 0)
             return nil unless horizontal_corner?(corner, source, target)
 
             x, y = corner
 
-            source_y = y < source.y ? source.y : source.y + source.height
-            target_x = x < target.x ? target.x : target.x + target.width
+            source_y = y < source.y ? source.y - outline : source.y + source.height + outline
+            target_x = x < target.x ? target.x - outline : target.x + target.width + outline
             [[x, source_y], corner, [target_x, y]]
           end
 
@@ -210,13 +302,13 @@ module Ea
               !within_horizontal_span?(corner, source) && !within_height?(corner[1], target)
           end
 
-          def vertical_corner_route(corner, source, target)
+          def vertical_corner_route(corner, source, target, outline = 0)
             return nil unless vertical_corner?(corner, source, target)
 
             x, y = corner
 
-            source_x = x < source.x ? source.x : source.x + source.width
-            target_y = y < target.y ? target.y : target.y + target.height
+            source_x = x < source.x ? source.x - outline : source.x + source.width + outline
+            target_y = y < target.y ? target.y - outline : target.y + target.height + outline
             [[source_x, y], corner, [x, target_y]]
           end
 

data/lib/ea/sources/qea/diagram_builder.rb

@@ -662,7 +662,8 @@ module Ea
           src = bounds_from_rect(source_placement)
           tgt = bounds_from_rect(target_placement)
           tree_route = stored_square_route(link_row, connector, src, tgt) ||
-                       stored_lateral_route(link_row, connector, src, tgt) ||
+                       stored_lateral_route(link_row, connector, src, tgt,
+                                            ported: source_port && target_port) ||
                        horizontal_tree_route(points, link_row, connector, src, tgt)
           if tree_route
             points = tree_route
@@ -681,8 +682,15 @@ module Ea
               redock_parent_above(points, link_row, source_placement,
                                   target_placement, strict: true)
             end
+            if intermediate.any?
+              redock_vertical_tree_trunk(points, link_row, connector, source_placement, target_placement)
+            end
           end
 
+          if intermediate.any? && !tree_route
+            points = level_entry_route(points, link_row, connector, src, tgt)
+          end
+          points = drop_zero_length_tree_segments(points, link_row)
           points.map do |x, y|
             Ea::Model::Waypoint.new(position: Ea::Model::Point.new(x: x, y: y))
           end

data/lib/ea/svg/ea_emitter/label/end_label.rb

@@ -22,6 +22,10 @@ module Ea
           SEAT_FONT_SIZE = 7
           SEAT_X_INSET = 3
           SEAT_STEREOTYPE_GAP = 12
+          # EA keeps an upward property seat's left edge at diagram x >= 3;
+          # the stereotype line moves with the role. Measured only for the
+          # default Cambria 7pt boxed cluster.
+          MIN_ROLE_X = 3
 
           attr_reader :canvas, :model_index, :document, :theme,
                       :font_family, :font_size, :font_unit
@@ -93,7 +97,8 @@ module Ea
               mult_pos = directional_multiplicity(connector, direction, anchor, mult_box, mult) ||
                          mult_seat(direction, anchor, mult_box) || mult_pos
             elsif end_kind == :target && !(tree && zero_offset?(text_box, mult_box))
-              text_pos = target_upward_role(connector, heading, anchor, text_box, role) || text_pos
+              text_pos = target_vertical_role(connector, heading, anchor, text_box, role) ||
+                         target_rightward_role(heading, anchor, text_box, role) || text_pos
               mult_pos = target_multiplicity_seat(heading, anchor, mult_box) || mult_pos
             end
 
@@ -187,7 +192,9 @@ module Ea
 
             x, y = seat_corner(anchor, box)
             inset, baseline = property_role_offsets(direction)
-            [x - inset - width, y + baseline]
+            left = x - inset - width
+            left = [left, MIN_ROLE_X].max if direction == :up
+            [left, y + baseline]
           end
 
           def plain_upward_seat(connector, direction, anchor, box, role)
@@ -203,34 +210,59 @@ module Ea
             [x - SEAT_X_INSET - width, y - 6]
           end
 
-          def target_upward_role(connector, heading, anchor, box, role)
-            return nil unless heading && heading[0].zero? && heading[1].negative?
+          def target_vertical_role(connector, heading, anchor, box, role)
+            return nil unless heading && heading[0].zero? && !heading[1].zero?
+
+            direction = heading[1].negative? ? :target_up : :target_down
+            plain_vertical_role(connector, direction, anchor, box, role)
+          end
 
-            plain_vertical_role(connector, :target_up, anchor, box, role)
+          # A target whose leg arrives from the right seats its role like a
+          # source whose leg leaves to the right.
+          def target_rightward_role(heading, anchor, box, role)
+            return nil unless heading && heading[1].zero? && heading[0].positive?
+            return nil unless seat_font? && cambria_box?(box) && !role_empty?(role)
+
+            x, y = seat_corner(anchor, box)
+            [x + SEAT_X_INSET, y - 7]
           end
 
           def plain_vertical_role(connector, direction, anchor, box, role)
-            return nil unless %i[down target_up].include?(direction) && plain_vertical_box?(box)
+            return nil unless %i[down target_up target_down].include?(direction) &&
+                              plain_vertical_box?(box)
 
             end_kind = direction == :down ? :source : :target
-            return nil unless plain_vertical_connector?(connector, end_kind)
+            return nil unless plain_vertical_connector?(connector, end_kind, direction)
 
             width = Ea::Fonts::Metrics.text_length(role, font_size, family: font_family)
             return nil unless width
 
             x, y = seat_corner(anchor, box)
-            [x - width - 8, y + (end_kind == :source ? 15 : -7)]
+            [x - width - 8, y + (direction == :target_up ? -7 : 15)]
           end
 
           def plain_vertical_box?(box)
             seat_font? && cambria_box?(box) && [0, 1].include?(box["alignment"])
           end
 
-          def plain_vertical_connector?(connector, end_kind)
-            style = connector.style.to_h
-            connector.connector_type == "Association" &&
-              connector_source_dest_stereotype(connector, end_kind).empty? &&
-              style[:mode] == "3" && style[:lwidth] == "0" && !style[:tree]
+          # A target leg that runs down seats only on the "LV" tree route
+          # with line width 2; every other vertical seat needs the plain
+          # width-0 route.
+          def plain_vertical_connector?(connector, end_kind, direction)
+            return false unless connector.connector_type == "Association" &&
+                                connector_source_dest_stereotype(connector, end_kind).empty?
+
+            plain_vertical_style?(connector.style.to_h, direction)
+          end
+
+          def plain_vertical_style?(style, direction)
+            return false unless style[:mode] == "3"
+
+            if direction == :target_down
+              style[:lwidth] == "2" && style[:tree] == "LV"
+            else
+              style[:lwidth] == "0" && !style[:tree]
+            end
           end
 
           def plain_role_route?(style)
@@ -261,7 +293,7 @@ module Ea
             case direction
             when :left then left_property_route?(style)
             when :down then downward_property_route?(style)
-            else style[:lwidth] == "2" && style[:tree] != "OS"
+            else %w[0 2].include?(style[:lwidth]) && style[:tree] != "OS"
             end
           end
 

data/lib/ea/svg/ea_emitter/labels.rb

@@ -97,7 +97,7 @@ module Ea
                              mult_box: tgt_mb,
                              anchor: target_pt, connector: connector,
                              end_kind: :target, tree: tree && tree[:target],
-                             heading: stored_tgt && leg_heading(points.reverse),
+                             heading: stored_tgt && target_heading(connector, points),
                              stored_labels: stored_labels).each { |t| texts << t }
           texts
         end
@@ -126,6 +126,19 @@ module Ea
           stored_upward_heading(connector, heading)
         end
 
+        # A target dock that clips an axis-aligned stored leg into a slight
+        # diagonal keeps the stored leg's direction.
+        def target_heading(connector, points)
+          heading = leg_heading(points.reverse)
+          return heading unless points.size == 2 && heading.none?(&:zero?)
+
+          stored = waypoint_pairs(connector)
+          return heading unless stored.size == 2
+
+          original = leg_heading(stored.reverse)
+          original.any?(&:zero?) ? original : heading
+        end
+
         def stored_upward_heading(connector, heading)
           return heading unless heading[1].negative?
 

data/lib/ea/version.rb

@@ -4,5 +4,5 @@ module Ea
   # Gem release version. Extracted to its own file so the
   # `gem-release` tool's `gem bump` can find and update it via the
   # standard `lib/<gem>/version.rb` convention.
-  VERSION = "0.6.98"
+  VERSION = "0.6.99"
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: ea
 version: !ruby/object:Gem::Version
-  version: 0.6.98
+  version: 0.6.99
 platform: ruby
 authors:
 - Ribose Inc.