Example Scripts

// BASIC SHAPES

shape main

{

setfillcolor(255,0,0); // (R,G,B)

rectangle(0,0,90,30);  // (x1,y1,x2,y2)

setfillcolor(0,255,0); // (R,G,B)

ellipse(0,30,90,60);  // (x1,y1,x2,y2)

setfillcolor(0,0,255); // (R,G,B)

rectangle(0,60,90,90);   // (x1,y1,x2,y2)

}

// SINGLE CONDITIONAL SHAPE

shape main

{

if (HasTag("Trigger","Link"))

{// Only draw if the object has a Tagged Value
 // Trigger=Link

// Set the fill color for the path

setfillcolor(0,0,0);

startpath(); // Start to trace out a path

moveto(23,40);

lineto(23,60);

lineto(50,60);

lineto(50,76);

lineto(76,50);

lineto(50,23);

lineto(50,40);

endpath();  // End tracing out a path

// Fill the traced path with the fill color

fillandstrokepath();

return;

}

}

// MULTI CONDITIONAL SHAPE

shape main

{

startpath();

ellipse(0,0,100,100);

endpath();

fillandstrokepath();

ellipse(3,3,97,97);

if (HasTag("Trigger","None"))

{

return;

}

if (HasTag("Trigger","Error"))

{

setfillcolor(0,0,0);

startpath();

moveto(23,77);

lineto(37,40);

lineto(60,47);

lineto(77,23);

lineto(63,60);

lineto(40,53);

lineto(23,77);

endpath();

fillandstrokepath();

return;

}

if (HasTag("Trigger","Message"))

{

rectangle(22,22,78,78);

moveto(22,22);

lineto(50,50);

lineto(78,22);

return;

}

}

// SUB SHAPES

shape main

{

rectangle(0,0,100,100);

addsubshape("red",   10,  20);

addsubshape("blue",  30,  40);

addsubshape("green", 50,  20);

addsubshape("red",   100, 20);

shape red

{

setfillcolor(200, 50, 100);

rectangle(0,0,100,100);

}

shape blue

{

setfillcolor(100, 50, 200);

rectangle(0,0,100,100);

}

shape green

{

setfillcolor(50, 200, 100);

rectangle(0,0,100,100);

}

}

// EDITABLE FIELD SHAPE

shape main

{

rectangle(0,0,100,100);

addsubshape("namecompartment", 100, 20);

addsubshape("stereotypecompartment", 100, 40);

shape namecompartment

{

h_align = "center";

editablefield = "name";

rectangle(0,0,100,100);

println("name: #name#");

}

shape stereotypecompartment

{

h_align = "center";

editablefield = "stereotype";

rectangle(0,0,100,100);

println("stereotype: #stereotype#");

}

}

// RETURN STATEMENT SHAPE

shape main

{

if(hasTag("alternatenotation", "false"))

{

//draw ea's inbuild glyph

drawnativeshape();

//exit script with the return statement

return;

}

else

{

//alternate notation commands

//...

rectangle(0,0,100,100);

}

}

//EMBEDDED ELEMENT SHAPE POSITION ON PARENT EDGE

shape main

{

 defsize(60,60);

 startpath();

 if(hasproperty("parentedge","top"))

 {

         moveto(0,100);

         lineto(50,0);

         lineto(100,100);

 }

 if(hasproperty("parentedge","bottom"))

 {

         moveto(0,0);

         lineto(50,100);

         lineto(100,0);

 }

 if(hasproperty("parentedge","left"))

 {

         moveto(100,0);

         lineto(0,50);

         lineto(100,100);

 }

 if(hasproperty("parentedge","right"))

 {

         moveto(0,0);

         lineto(100,50);

         lineto(0,100);

 }                

 endpath();

 setfillcolor(153,204,255);

 fillandstrokepath();

}

// CLOUD PATH EXAMPLE SHAPE

shape main

{

    StartCloudPath();

    Rectangle(0,0,100,100);

    EndPath();

    FillAndStrokePath();

}

// CONNECTOR SHAPE

shape main

{

// draw a dashed line

noshadow=true;

setlinestyle("DASH");

moveto(0,0);

lineto(100,0);

}

shape source

{

// draw a circle at the source end

rotatable = true;

startpath();

ellipse(0,6,12,-6);

endpath();

fillandstrokepath();

}

shape target

{

// draw an arrowhead at the target end

rotatable = true;

startpath();

moveto(0,0);

lineto(16,6);

lineto(16,-6);

endpath();

fillandstrokepath();

}

// DOUBLE LINE

shape main

{

setlinestyle("DOUBLE");

moveto(0,0);

lineto(100,0);

}

// ROTATION DIRECTION

shape main

{

moveto(0,0);

lineto(100,0);

setfixedregion(40,-10,60,10);

rectangle(40,-10,60,10);

if(hasproperty("rotationdirection","up"))

{

moveto(60,-10);

lineto(50,0);

lineto(60,10);

}

if(hasproperty("rotationdirection","down"))

{

moveto(40,-10);

lineto(50,0);

lineto(40,10);

}

if(hasproperty("rotationdirection","left"))

{

moveto(40,-10);

lineto(50,0);

lineto(60,-10);

}

if(hasproperty("rotationdirection","right"))

{

moveto(40,10);

lineto(50,0);

lineto(60,10);

}

}

// GET A VALUE RETURNED BY AN ADD-IN

shape main

{

       //Draw a simple rectangle

       Rectangle(0,0,100,100);

       //Print string value returned from Add-In "MyAddin",

       //Function "MyExample" with two string parameters

       Print("#ADDIN:MyAddin, MyExample, param1, param2#");

}

// METHOD SIGNATURE FOR ADD-IN FUNCTION:

// Public Function MyExample(Repository As EA.Repository,

// eaGuid As String, args As Variant) As Variant

// ADD CUSTOM COMPARTMENTS BASED UPON CHILD ELEMENTS

// OR RELATED ELEMENTS

( See Add Custom Compartments to Element )

// RETURN THE INCOMING AND OUTGOING EDGE FOR CONNECTORS
// GOING INTO AND OUT OF AN OBJECT

shape main

{

       //Draw a simple rectangle

       Rectangle(0,0,100,100);

       //Print incoming edges on the element

       Print("Incoming Edge: #incomingedge#\n");

      //Print outgoing edges on the element

       Print("Outgoing Edge: #outgoingedge#\n");

}

// DRAW A DECORATION ICON ON TOP OF THE DEFAULT ELEMENT SHAPE

decoration mail

{

 orientation="NE";

 image("icon image",0,0,100,100);

}

// "icon image" being the name of the 16x16 image which is loaded into the Image Manager

// DRAW AN IMAGE FROM A FILE, AND AN EDITABLE NAME FIELD

shape main

{

 addsubshape("theimage",100,100);

 addsubshape("namecompartment", 100, 100);

 shape theimage

 {

         image("element image",0,0,100,100);

 }

 shape namecompartment

 {

         h_align = "center";

         editablefield = "name";

         println("#name#");

 }

}

// "element image" being the name of the image which is loaded into the Image Manager

// CHECK WHETHER A COMPOSITE ELEMENT ICON IS REQUIRED AND,
// IF SO, DRAW ONE

decoration comp

{

 orientation="SE";

 if(hasproperty("IsDrawCompositeLinkIcon","true"))

 {

         startpath();

         ellipse(-80,29,-10,71);

         ellipse(10,29,80,71);

         moveto(-10,50);

         lineto(10,50);

         endpath();

         strokepath();

 }

}

// ALLOW A SHAPESCRIPT TO SHOW THE FULLY SCOPED OBJECT NAME OF 
// AN OWNED ELEMENT,INCLUDING OWNING ELEMENTS AND OWNING PACKAGES,

// WHEN THE DIAGRAM PROPERTIES "DISABLE FULLY SCOPED OBJECT 

// NAMES" OPTION IS DESELECTED, JUST AS FOR AN ELEMENT WITHOUT 

// A SHAPESCRIPT.

shape main

{

 layouttype="border";

 rectangle(0,0,100,100);

 addsubshape("padding","N");

 addsubshape("name","CENTER");

 shape padding

 {

         preferredheight=8;

 }

 shape name

 {

         v_align="top";

         h_align="center";

         printwrapped("#qualifiedname#");

 }

}

With ShapeScript:

// SHOW THE NAME OF THE OWNING PACKAGE WHEN THE ELEMENT IS
// USED ON A DIAGRAM NOT IN THAT PACKAGE, AND THE DIAGRAM

// PROPERTIES "SHOW NAMESPACE" OPTION IS SELECTED.

shape main

{

 layouttype="border";

 v_align="CENTER";

 h_align="CENTER";

 ellipse(0,0,100,100);

 printwrapped("#name#");

 addsubshape("path","S");

 shape path

 {

         v_align="top";

         h_align="center";

         if(hasproperty("packagepath",""))

         {

         }

         else

         {

                 printwrapped("(from #packagepath#)");

         }

 }

}