archimate 1.1.0

data/lib/archimate/svg/entity/application_function.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class ApplicationFunction < FunctionEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/application_interaction.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class ApplicationInteraction < InteractionEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/application_interface.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class ApplicationInterface < InterfaceEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/application_process.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class ApplicationProcess < ProcessEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/application_service.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class ApplicationService < ServiceEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/artifact.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Artifact < BaseEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "archimate-artifact-badge"
+        end
+
+        def entity_shape(xml, bounds)
+          margin = 18
+          xml.g(class: background_class, style: shape_style) do
+            xml.path(
+              d: [
+                ["M", bounds.left, bounds.top],
+                ["h", bounds.width - margin],
+                ["l", margin, margin],
+                ["v", bounds.height - margin],
+                ["h", -bounds.width],
+                "z"
+              ].flatten.join(" ")
+            )
+            xml.path(
+              d: [
+                ["M", bounds.right - margin, bounds.top],
+                ["v", margin],
+                ["h", margin],
+                "z"
+              ].flatten.join(" "),
+              class: "archimate-decoration"
+            )
+          end
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/assessment.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Assessment < MotivationEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-assessment-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/base_entity.rb

@@ -0,0 +1,128 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BaseEntity
+        attr_reader :child
+        attr_reader :entity
+        attr_reader :bounds_offset
+        attr_reader :text_bounds
+        attr_reader :badge_bounds
+        attr_reader :badge
+        attr_reader :background_class
+
+        def initialize(child, bounds_offset)
+          @child = child
+          @text_bounds = child.bounds.reduced_by(2)
+          @bounds_offset = bounds_offset
+          @entity = @child.element || @child
+          @background_class = layer_background_class
+          @text_align = nil
+          @badge = nil
+        end
+
+        def layer_background_class
+          case child.element&.layer
+          when "Strategy"
+            "archimate-strategy-background"
+          when "Business"
+            "archimate-business-background"
+          when "Application"
+            "archimate-application-background"
+          when "Technology"
+            "archimate-infrastructure-background"
+          when "Physical"
+            "archimate-physical-background"
+          when "Motivation"
+            "archimate-motivation-background"
+          when "Implementation and Migration"
+            "archimate-implementation-background"
+          end
+        end
+
+        def to_svg(xml)
+          optional_link(xml) {
+            xml.g(group_attrs) do
+              xml.title { xml.text @entity.name } unless @entity.name.nil? || @entity.name.empty?
+              xml.desc { xml.text(@entity.documentation.map(&:text).join("\n\n")) } unless @entity.documentation.empty?
+              entity_shape(xml, child.bounds)
+              entity_badge(xml)
+              entity_label(xml)
+              child.nodes.each { |c| Svg::EntityFactory.make_entity(c, child.bounds).to_svg(xml) }
+            end
+          }
+        end
+
+        def optional_link(xml, &block)
+          block.call
+        end
+
+        def entity_label(xml)
+          return if (entity.nil? || entity.name.nil? || entity.name.strip.empty?) && (child.content.nil? || child.content.strip.empty?)
+          xml.foreignObject(text_bounds.to_h) do
+            xml.table(xmlns: "http://www.w3.org/1999/xhtml", style: "height:#{text_bounds.height}px;width:#{text_bounds.width}px;") do
+              xml.tr(style: "height:#{text_bounds.height}px;") do
+                xml.td(class: "entity-name") do
+                  xml.div(class: "archimate-badge-spacer") unless badge.nil?
+                  xml.p(class: "entity-name", style: text_style) do
+                    text_lines(entity.name || child.content).each do |line|
+                      xml.text(line)
+                      xml.br
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+
+        def text_lines(text)
+          text.tr("\r\n", "\n").split(/[\r\n]/)
+        end
+
+        def entity_badge(xml)
+          return if badge.nil?
+          xml.use(
+            badge_bounds
+              .to_h
+              .merge("xlink:href" => badge)
+          )
+        end
+
+        def shape_style
+          style = child.style
+          return "" if style.nil?
+          {
+            "fill": style.fill_color&.to_rgba,
+            "stroke": style.line_color&.to_rgba,
+            "stroke-width": style.line_width
+          }.delete_if { |_key, value| value.nil? }
+            .map { |key, value| "#{key}:#{value};" }
+            .join("")
+        end
+
+        def text_style
+          style = child.style || DataModel::Style.new
+          {
+            "fill": style.font_color&.to_rgba,
+            "color": style.font_color&.to_rgba,
+            "font-family": style.font&.name,
+            "font-size": style.font&.size,
+            "text-align": style.text_align || @text_align
+          }.delete_if { |_key, value| value.nil? }
+            .map { |key, value| "#{key}:#{value};" }
+            .join("")
+        end
+
+        def group_attrs
+          attrs = { id: @entity.id }
+          # TODO: Transform only needed only for Archi file types
+          attrs[:transform] = "translate(#{@bounds_offset.x || 0}, #{@bounds_offset.y || 0})" unless @bounds_offset.nil?
+          attrs[:class] = "archimate-#{@entity.type}" if @entity.type || !@entity.type.empty?
+          attrs
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_actor.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessActor < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-actor-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_collaboration.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessCollaboration < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-collaboration-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_event.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessEvent < EventEntity
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_function.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessFunction < FunctionEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_interaction.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessInteraction < InteractionEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_interface.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessInterface < InterfaceEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_object.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessObject < DataEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_process.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessProcess < ProcessEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_role.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessRole < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-role-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/business_service.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class BusinessService < ServiceEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/capability.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Capability < RoundedRectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-capability-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/communication_network.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class CommunicationNetwork < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-network-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/communication_path.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class CommunicationPath < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-communication-path-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/constraint.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Constraint < MotivationEntity
+        def initialize(child, bounds_offset)
+          super
+          @background_class = "archimate-motivation2-background"
+          @badge = "#archimate-constraint-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/contract.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Contract < DataEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/course_of_action.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class CourseOfAction < RoundedRectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-course-of-action-badge"
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/data_entity.rb

@@ -0,0 +1,29 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class DataEntity < BaseEntity
+        def initialize(child, bounds_offset)
+          super
+          @margin = 10
+        end
+
+        def calc_text_bounds(_bounds)
+          @text_bounds = @text_bounds.with(
+            y: @text_bounds.top + @margin,
+            height: @text_bounds.height - @margin
+          )
+        end
+
+        def entity_shape(xml, bounds)
+          calc_text_bounds(bounds)
+          xml.g(class: background_class) do
+            xml.rect(x: bounds.left, y: bounds.top, width: bounds.width, height: bounds.height, class: background_class, style: shape_style)
+            xml.rect(x: bounds.left, y: bounds.top, width: bounds.width, height: @margin, class: "archimate-decoration")
+          end
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/data_object.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class DataObject < DataEntity
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/deliverable.rb

@@ -0,0 +1,13 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Deliverable < Representation
+        def initialize(child, bounds_offset)
+          super
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/device.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class Device < BaseEntity
+        include NodeShape
+
+        def initialize(child, bounds_offset)
+          super
+        end
+
+        def entity_shape(xml, bounds)
+          case child.child_type
+          when 1
+            @badge = "#archimate-device-badge"
+            node_path(xml, bounds)
+          else
+            device_path(xml, bounds)
+          end
+        end
+
+        def device_path(xml, bounds)
+          margin = 10
+          xml.rect(
+            x: bounds.left,
+            y: bounds.top,
+            width: bounds.width,
+            height: bounds.height - margin,
+            rx: "6",
+            ry: "6",
+            class: background_class,
+            style: shape_style
+          )
+          decoration_path = [
+            "M", bounds.left + margin, bounds.bottom - margin,
+            "l", -margin, margin,
+            "h", bounds.width,
+            "l", -margin, -margin,
+            "z"
+          ].flatten.join(" ")
+          xml.path(d: decoration_path, class: background_class, style: shape_style)
+          xml.path(d: decoration_path, class: "archimate-decoration", style: shape_style)
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/diagram_model_reference.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class DiagramModelReference < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-diagram-model-reference-badge"
+          @background_class = "archimate-diagram-model-reference-background"
+          @entity = child.model_element
+        end
+
+        def optional_link(xml, &block)
+          xml.a(href: "#{@entity.id}.svg") do
+            block.call
+          end
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/diagram_object.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class DiagramObject < BaseEntity
+        def initialize(child, bounds_offset)
+          super
+          @background_class = "archimate-note-background"
+          @text_align = "left"
+        end
+
+        def entity_shape(xml, bounds)
+          xml.path(
+            d: [
+              ["m", bounds.left, bounds.top],
+              ["h", bounds.width],
+              ["v", bounds.height - 8],
+              ["l", -8, 8],
+              ["h", -(bounds.width - 8)],
+              "z"
+            ].flatten.join(" "),
+            class: background_class,
+            style: shape_style
+          )
+        end
+      end
+    end
+  end
+end

data/lib/archimate/svg/entity/distribution_network.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Archimate
+  module Svg
+    module Entity
+      class DistributionNetwork < RectEntity
+        def initialize(child, bounds_offset)
+          super
+          @badge = "#archimate-distribution-network-badge"
+        end
+      end
+    end
+  end
+end