BlueDim in Dimension with
  dimcolor col: "0,0,210"
end

Element Concept with
  potency
   BlueDim: 3
end

Element ActivityType in Concept with
  potency
   BlueDim: 2
end

ActivityType->Concept 
with
  dimension dim: BlueDim
end

Element DesignCode in ActivityType with
  potency
   BlueDim: 1
end

DesignCode->ActivityType 
with
  dimension dim: BlueDim
end

Element Activity in Concept with
  potency
   BlueDim: 1
end

Activity->Concept 
with
  dimension dim: BlueDim
end

Element SusanDesigns in DesignCode,Activity with
  potency
   BlueDim: 0
end

SusanDesigns->DesignCode 
with
  dimension dim: BlueDim
end

SusanDesigns->Activity 
with
  dimension dim: BlueDim
end