Add special shape for Business Actor

Author: JeanMarc van Leerdam

README.md

@@ -174,6 +174,7 @@ top right. Some elements can be shown in a different shape, without the stereoty
 you to override the setting for an individual shape.
 
 Shapes that support special shapes are:
+* Business Actor(*)
 * Business Role
 * Business Service(*)
 * Application Service(*)
@@ -207,6 +208,10 @@ Motivation_Value(MV, "Motivation Value", $nest=%true()) {
     Motivation_Value(MVI, "Inner Value", $special=%true())
     Motivation_Value(MVI2, "Another Inner Value", $special=%false())
 }
+Business_Actor(BA, "Business Actor", $nest=%true()) {
+    Business_Actor(BAI, "Inner Actor", $special=%true())
+    Business_Actor(BAI2, "Another Inner Actor", $special=%false())
+}
 Business_Service(BS, "Business Service", $nest=%true()) {
     Business_Service(BSI, "Inner Service", $special=%true())
     Business_Service(BSI2, "Another Inner Service", $special=%false())

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

@@ -93,8 +93,12 @@
 !endprocedure
 
 'Business Elements
-!unquoted procedure Business_Actor($alias, $label, $nest=0)
-  archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-actor>> as $alias
+!unquoted procedure Business_Actor($alias, $label, $nest=0, $special = $ARCH_SPECIAL_SHAPES)
+  !if ($special == %true() && $nest == %false())
+      actor "$label" as $alias $ARCH_BUSINESS_FILLCOLOR
+  !else
+      archimate $ARCH_BUSINESS_FILLCOLOR "$label" <<business-actor>> as $alias
+  !endif
 !endprocedure
 !unquoted procedure Business_Role($alias, $label, $nest=0, $special = $ARCH_SPECIAL_SHAPES)
   !if ($special == %true())

samples/SpecialShapes.puml

@@ -36,6 +36,10 @@ Motivation_Value(MV, "Motivation Value", $nest=%true()) {
     Motivation_Value(MVI, "Inner Value", $special=%true())
     Motivation_Value(MVI2, "Another Inner Value", $special=%false())
 }
+Business_Actor(BA, "Business Actor", $nest=%true()) {
+    Business_Actor(BAI, "Inner Actor", $special=%true())
+    Business_Actor(BAI2, "Another Inner Actor", $special=%false())
+}
 Business_Service(BS, "Business Service", $nest=%true()) {
     Business_Service(BSI, "Inner Service", $special=%true())
     Business_Service(BSI2, "Another Inner Service", $special=%false())
@@ -50,7 +54,8 @@ Technology_Artifact(TA, "Technology Artifact") {
     Technology_Artifact(TAI2, "Another Inner Artifact", $special=%false())
 }
 
-MS -[hidden]- BS
+MS -[hidden]- BA
+MM -[hidden]- BS
 MM -[hidden]- TN
 MV -[hidden]- TA
 @enduml