GRAPHREP
sizing:asymmetrical
PEN w:0.02cm
AVAL set-default:"$ffffff" c:"Color"
FILL color:(rgbval (c))
AVAL fc:"Font color"
FONT color:(fc)

AVAL v:"Details"
AVAL ep:"Extension Points Table"
AVAL set-default:"Standard" d:"Presentation"
AVAL ref_uc:"Referenced use case"

IF (d = "Standard")
  ELLIPSE x:0.00cm y:0.00cm rx:2.00cm ry:1.00cm
  #There an entry in table Extension Points Table
  IF (LEN ep)
     LINE x1:-1.45cm y1:-0.7cm x2:1.45cm y2:-0.7cm
     FONT bold color:(fc)
     TEXT "extension points" x:0.0cm y:-0.5cm w:c:3.5cm
     FONT color:(fc)
     TEXT (ep) x:0.0cm y:-0.1cm w:c:3.5cm h:1.0cm
     
     #There is referenced set in details
     IF (LEN v)  
       ATTRBOX "Details" x:c y:1cm h:t
       STRETCH off
       FONT color:black h:8pt
       ATTR "Details" x:c y:(texty2 - 0.2cm) format:"» %m" h:t w:c
       IF (ref_uc = "")
         ATTR "Name" x:0.0cm y:(texty2+0.2cm) w:c:3.5cm h:1.0cm
       ELSE
         ATTR "Referenced use case" x:0.0cm y:(texty2+0.2cm) w:c:3.5cm h:1.0cm format:"%o"
       ENDIF  
       FONT
     
     #There is referenced set in refenced use case
     ELSIF (LEN ref_uc)
       ATTRBOX "Name" x:c y:1cm w:t
       STRETCH off
       FONT color:black h:8pt
       ATTR "Name" x:0.0cm y:(texty2-0.2cm) w:c:3.5cm h:1.0cm
       ATTR "Referenced use case" x:0.0cm y:(texty2+0.2cm) w:c:3.5cm h:1.0cm format:"%o"
       FONT
     ELSE
       ATTRBOX "Name" x:c y:1cm w:t
       STRETCH off
       ATTR "Name" x:0.0cm y:(texty2-0.2cm) w:c:3.5cm h:1.0cm
     ENDIF
 


  #There is no entry in this table
  ELSE
    ATTR "Name" x:0.0cm y:-0.2cm w:c:3.5cm h:1.0cm
    ATTRBOX "Name" x:c y:1cm h:t
    STRETCH off
    
    #There is referenced set in details
    IF (LEN v)
       
       FONT color:black h:10pt
       IF (LEN ref_uc)
        FONT color:black h:8pt
        ATTR "Referenced use case" x:0.0cm y:(texty2-0.2cm) w:c:3.5cm h:1.0cm format:"%o"
       ENDIF
       IF (LEN ref_uc)
         ATTR "Details" x:c y:(texty2 + 0.2cm) format:"» %m" h:t w:c  
       ELSE
         ATTR "Details" x:c y:(texty2 - 0.2cm) format:"» %m" h:t w:c  
       ENDIF
       FONT

    #There is referenced set in refenced use case
    ELSIF (LEN ref_uc)       
       ATTR "Referenced use case" x:0.0cm y:(texty2-0.2cm) w:c:3.5cm h:1.0cm format:"%o"
    ENDIF
ENDIF

#Rectange Layout
ELSIF (d = "Rectangle")

  IF (LEN ep)
    PEN color:(fc)
    RECTANGLE x:-2.0cm y:-2.0cm w:4.0cm h:4.0cm
    ELLIPSE x:1.5cm y:-1.7cm rx:0.3cm ry:0.15cm
    LINE x1:-2.0cm y1:-1.0cm x2:2.0cm y2:-1.0cm
    ATTR "Name" x:0.0cm y:-1.4cm w:c:3.5cm h:c:0.1cm line-break:rigorous
    FONT bold color:(fc)
    TEXT "extension points" x:0.0cm y:-0.8cm w:c:3.5cm h:0.1cm line-break:rigorous
    FONT color:(fc)
    TEXT (ep) x:0.0cm y:-0.4cm w:c:3.5cm h:2.5cm line-break:rigorous
    
    IF (LEN v)
       IF (LEN ref_uc)
         FONT color:black h:8pt
         ATTR "Details" x:c y:2.05cm format:"» %m" h:t w:c
         ATTRBOX "Name" x:c y:2.05cm w:t
         STRETCH off
         ATTR "Referenced use case" x:0.0cm y:(texty2) w:c:3.5cm h:1.0cm format:"%o"
       ELSE
         FONT color:black h:10pt
         ATTR "Details" x:c y:2.05cm format:"» %m" h:t w:c
       ENDIF           
    ELSIF (LEN ref_uc)
       ATTR "Referenced use case" x:0.0cm y:2.05cm w:c:3.5cm h:1.0cm format:"%o"
    ENDIF
    FONT

  ELSE
    
    IF (LEN v)
       IF (LEN ref_uc)
         FONT color:black h:8pt
         ATTR "Details" x:c y:0.7cm format:"» %m" h:t w:c
         ATTRBOX "Name" x:c y:0.7cm w:t
         STRETCH off
         ATTR "Referenced use case" x:0.0cm y:(texty2) w:c:3.5cm h:1.0cm format:"%o"
       ELSE
         FONT color:black h:10pt
         ATTR "Details" x:c y:0.7cm format:"» %m" h:t w:c
       ENDIF           
    ELSIF (LEN ref_uc)
       ATTR "Referenced use case" x:0.0cm y:0.7cm w:c:3.5cm h:1.0cm format:"%o"
    ENDIF
    FONT
    STRETCH on

    PEN color:(fc)
    TABLE x:-2.5cm y:-0.6cm w:5cm h:1.2cm
    cols:3 w1:0.1cm w2:100% w3:0.1cm
    rows:1

    STRETCH off
    RECTANGLE x:(tabx0) y:(taby0) w:(tabx3 - tabx0) h:(taby1 - taby0)
    ATTR "Name" line-break:rigorous x:(tabx1 + (tabx2 - tabx1)/2) y:(taby1) w:c:(tabx3 - tabx1) h:b:(taby1 - taby0)
    #IF (ref_uc != "")
    #  ATTR "Referenced use case" line-break:rigorous x:(tabx1 + (tabx2 - tabx1)/2) y:(taby1) w:c:(tabx3 - tabx1) h:b:(taby1 - taby0) format:"%o"
    #ENDIF

    ELLIPSE x:(tabx3-0.4cm) y:(taby0+0.3cm) rx:0.3cm ry:0.15cm

#    RECTANGLE x:(tabx0) y:(taby1) w:(tabx3 - tabx0) h:(taby2 - taby1)
#    ATTR "Attribute table" x:(tabx1) y:(taby1) w:(tabx2 - tabx1) h:(taby2 - taby1) line-break:rigorous
#    RECTANGLE x:(tabx0) y:(taby2) w:(tabx3 - tabx0) h:(taby3 - taby2)
#    ATTR "Operation table" x:(tabx1) y:(taby2) w:(tabx2 - tabx1) h:(taby3 - taby2) line-break:rigorous

    AVAL e:"Extended properties"
    AVAL b:"User defined properties"
    SET txt:""
    SET txt:(replall(e, "\n", ""))
    SET txt:(replall(txt, "\r", ""))
    IF (b != "")
      SET txt:(txt+b)
    ENDIF
    IF (txt != "")
      TEXT (txt) x:(tabx1 + (tabx2 - tabx1)/2 + 0.2cm) y:(taby0 + 0.0cm) w:c:(tabw2-1.4cm) h:t:0.1cm line-break:rigorous
    ENDIF
  ENDIF

ENDIF