DEFINE Spirale

  LOCAL Start
  LOCAL Stop
  LOCAL Step
  LOCAL Steigung
  LOCAL Winkel
  LOCAL Radius
  LOCAL P1
  LOCAL P2
  LOCAL M


  LET Start 0
  LET Stop 360
  LET Steigung 0
  LET Step 10

  LOOP

    READ PNT 'Mittelpunkt' M
    READ NUMBER 'Startradius' DEFAULT Start Start
    READ NUMBER 'Gesamtwinkel' DEFAULT Stop Stop
    READ NUMBER 'Steigung' DEFAULT Steigung Steigung
    READ NUMBER 'Schrittwinkel' DEFAULT Step Step

    LET P1 (M + PNT_RA Start 0)
    LET Winkel 0
    LET Radius Start

    SPLINE P1

    WHILE (Winkel < Stop)
      LET Winkel (Winkel + Step)
      LET P1 (M + PNT_RA (Start + (Steigung / 360 * Winkel)) Winkel)
      P1
    END_WHILE

    END
    END

  END_LOOP

END_DEFINE