]> gerrit.simantics Code Review - simantics/district.git/blobdiff - org.simantics.district.network.ontology/scl/Simantics/District/SCLMain.scl
First prototype of HSV color space based dynamic DN element coloring
[simantics/district.git] / org.simantics.district.network.ontology / scl / Simantics / District / SCLMain.scl
index 2d46af9295ef2281e8256eb1a3b7e262214b55f8..e3c62558c80f939e6fe6eb563f2644d93dee5b5e 100644 (file)
@@ -1,13 +1,5 @@
-import "Simantics/DB"
-import "Simantics/Variables"
-
-districtNetworkProfileStyle :: String -> Resource -> <ReadGraph> (String, String, String)
-districtNetworkProfileStyle relation element = do
-    rel = possibleResource relation
-    result = match rel with
-        Just rel -> do
-            match possibleRelatedValue element rel with
-                Just res -> res
-                Nothing -> ""
-        Nothing -> ""
-    ("", result, "")
\ No newline at end of file
+include "Simantics/DB"
+include "Simantics/Variables"
+include "Simantics/Ontologies"
+include "Simantics/District"
+include "http://www.simantics.org/DistrictNetwork-1.0" as DN