- if terminal == DIA.Flag.ConnectionPoint then
- createConnector connection element terminal DIA.HasPlainConnector
- else
- createConnector connection element terminal DIA.HasPlainConnector
+ createConnector connection element terminal DIA.HasPlainConnector
createNode connection (RouteLine isHorizontal position) = do
newEntity [
hasName (freshElementName ()),
createNode connection (RouteLine isHorizontal position) = do
newEntity [
hasName (freshElementName ()),
claim a DIA.AreConnected b
// Returns (connectionRelation :: Maybe Resource, connector attachment relation :: Resource)
resolveAttachmentRelation element terminal defaultAttachmentRelation =
claim a DIA.AreConnected b
// Returns (connectionRelation :: Maybe Resource, connector attachment relation :: Resource)
resolveAttachmentRelation element terminal defaultAttachmentRelation =
(Nothing, flagTypeToAttachmentRelation element)
else
match possibleObject terminal MOD.DiagramConnectionRelationToConnectionRelation with
(Nothing, flagTypeToAttachmentRelation element)
else
match possibleObject terminal MOD.DiagramConnectionRelationToConnectionRelation with