Add special shape for Business Product

Author: JeanMarc van Leerdam

README.md

@@ -177,6 +177,7 @@ Shapes that support special shapes are:
 * Business Actor(*)
 * Business Role
 * Business Service(*)
+* Business Product
 * Application Service(*)
 * Technology Node
 * Technology Artifact
@@ -197,7 +198,6 @@ Shapes that support special shapes are:
 
 !include <archimate/Archimate>
 
-
 Motivation_Stakeholder(MS, "Motivation Stakeholder") {
     Motivation_Stakeholder(MSI, "Inner Stakeholder", $special=%true())
     Motivation_Stakeholder(MSI2, "Another Inner Stakeholder", $special=%false())
@@ -223,6 +223,11 @@ Business_Service(BS, "Business Service", $nest=%true()) {
     Business_Service(BSI, "Inner Service", $special=%true())
     Business_Service(BSI2, "Another Inner Service", $special=%false())
 }
+Business_Product(BP, "Business Product", $nest=%true()) {
+    Business_Product(BPI, "Inner Product", $special=%true())
+    Business_Product(BPI2, "Another Inner Product", $special=%false())
+}
+
 Technology_Node(TN, "Technology Node"){
     Technology_Node(TNI, "Inner Node", $special=%true())
     Technology_Node(TNI2, "Another Inner Node", $special=%false())

dist/plantuml-stdlib/stdlib/archimate/Archimate.puml

@@ -145,8 +145,12 @@
 !unquoted procedure Business_Representation($alias, $label, $nest=0)
   archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-representation>> as $alias
 !endprocedure
-!unquoted procedure Business_Product($alias, $label, $nest=0)
-  archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-product>> as $alias
+!unquoted procedure Business_Product($alias, $label, $nest=0, $special = $ARCH_SPECIAL_SHAPES)
+  !if ($special == %true())
+    frame "%n()$label%n()" as $alias $ARCH_BUSINESS_FILLCOLOR
+  !else
+    archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-product>> as $alias
+  !endif
 !endprocedure
 !unquoted procedure Business_Location($alias, $label, $nest=0)
   archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-location>> as $alias

images/SpecialShapes.png

@@ -1,7 +1,7 @@
 @startuml
 
 !global $ARCH_DEBUG = %false()
-!global $ARCH_LOCAL = %true()
+!global $ARCH_LOCAL = %false()
 !global $ARCH_SPECIAL_SHAPES = %true()
 
 !if ($ARCH_LOCAL == %false())
@@ -49,6 +49,11 @@ Business_Service(BS, "Business Service", $nest=%true()) {
     Business_Service(BSI, "Inner Service", $special=%true())
     Business_Service(BSI2, "Another Inner Service", $special=%false())
 }
+Business_Product(BP, "Business Product", $nest=%true()) {
+    Business_Product(BPI, "Inner Product", $special=%true())
+    Business_Product(BPI2, "Another Inner Product", $special=%false())
+}
+
 Technology_Node(TN, "Technology Node"){
     Technology_Node(TNI, "Inner Node", $special=%true())
     Technology_Node(TNI2, "Another Inner Node", $special=%false())
@@ -61,6 +66,7 @@ Technology_Artifact(TA, "Technology Artifact") {
 
 MS -[hidden]- BA
 MM -[hidden]- BS
-MV -[hidden]- TN
-SV -[hidden]- TA
+MV -[hidden]- BP
+BA -[hidden]- TA
+BS -[hidden]- TN
 @enduml