Geometrie

• Funktionen auf GeoPoint
• Funktionen auf Polygon
• Funktionen auf Layer
• Funktionen auf Karte

• Beispiel: Berechnen von Isolinien

Beispiel zu Berechnen von Isolinien

 
# Wird aus einem TopoGramm aufgerufen
MakeIsos (ZP von, ZP bis, Real delta=1, String map)

   SetDatenPool ("../konti")

   bereich := [von,bis]
   L := Layer("isos")
	
   i := 5
   name := token(map,i)
   WHILE (name#"")
      zr := GetZR (name, "Niederschlag", "", "K")
      IF (IsValid(zr))
         z := Summe (zr, bereich)
         IF (z#Luecke)
            pk := Koord(zr)
            IF (XKoo(pk)> 0)
               p := {XKoo(pk), YKoo(pk), z}
               poly := Polygon (Ort(zr), p)
               L := L + poly
            ENDIF
         ENDIF
      ENDIF
      i := i+1
      name := token(map,i)
   ENDWHILE
	
   IL := Isolinien (L, 0, 1000, delta)
   WriteLayer (IL, "isos.ai", "AI")
END