Methoden des Objekts LAGE

PROZEDUR Lage.planen
   Lage.AnzahlSteine := Mauer.Länge / Stein.Höhe
ENDE PROZEDUR Lage.planen

PROZEDUR Lage.mauern (LageNr)
   WENN 0 = REST (LageNr, 2)
      DANN  Lage.gerademauern
      SONST Lage.ungerademauern
   ENDEWENN
ENDE PROZEDUR Lage.mauern


Hilfsprozeduren
    PROZEDUR Lage.ungerademauern
       Stein.halbensetzen
       WIEDERHOLE Lage.AnzahlSteine - 1 MAL
          Stein.setzen
       ENDE WIEDERHOLE
       Stein.halbensetzen
    ENDE PROZEDUR Lage.ungerademauern

    PROZEDUR Lage.gerademauern
       WIEDERHOLE Lage.AnzahlSteine MAL
          Stein.setzen
       ENDE WIEDERHOLE
    ENDE PROZEDUR Lage.gerademauern