Beispiel, wenn man Informationen hineinbringen will

myTrans :: (Show knoten, Ord knoten)
    => (Labeling knoten) -> (GVTrans knoten)
myTrans labeling = GVTrans
    { getGVProg :: Default
    , getGVFormat :: "gif"
    , isGVDirected :: False
    , getGVNID = show
    , getGVNName = show
    , getGVNLabel = Just (getNLabel labeling)
    , getGVNColor = Nothing
    , getGVNXAtts = Nothing
    , getGVELabel = Just (getELabel labeling)
    , getGVEXAtts = Nothing
    }
getNLabel und getELabel müssen natürlich noch implementiert werden.



Johannes Waldmann 2009-11-17