X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.district.network%2Fscl%2FSimantics%2FDistrict.scl;h=5eaa05760560d31a385aadfa7a0bd1bce16dae22;hb=refs%2Fheads%2Frelease%2F1.43.0.1;hp=f96ed607da33ee705fd591a08c946f401b3522ae;hpb=0f88160c295af4ba04ce434bbe58ffea1d3d651d;p=simantics%2Fdistrict.git diff --git a/org.simantics.district.network/scl/Simantics/District.scl b/org.simantics.district.network/scl/Simantics/District.scl index f96ed607..5eaa0576 100644 --- a/org.simantics.district.network/scl/Simantics/District.scl +++ b/org.simantics.district.network/scl/Simantics/District.scl @@ -8,6 +8,7 @@ import "MSet" as MSet importJava "org.simantics.district.network.DistrictNetworkUtil" where calculateDistance :: Resource -> Resource -> Double + nearbyVertices :: Resource -> Double -> [Resource] importJava "org.simantics.district.network.ModelledCRS" where xToLongitude :: Double -> Double @@ -148,3 +149,11 @@ The result list can be smaller than the input resource list, even empty. """ dnElementsMappedToComponents :: [Resource] -> [Resource] dnElementsMappedToComponents mappedComponents = mapMaybe possibleDNElementMappedToComponent mappedComponents + + +importJava "org.simantics.district.network.DistrictNetworkUtil" where + createNetworkDiagram :: Resource -> Resource -> String -> Resource -> Resource -> Resource -> Resource -> Resource -> Resource + changeMappingType :: Resource -> [Resource] -> () + findDNElementById :: Resource -> String -> Maybe Resource + findDNElementByXYCoordinates :: Resource -> Double -> Double -> Double -> [Resource] +