DEFINE Spirale
  LOCAL Alpha
  LOCAL Beta
  LOCAL R1
  LOCAL R2
  LOCAL S
  LOCAL Mittel
  LOCAL Anfangspunkt_innen
  LOCAL Endpunkt_innen
  LOCAL Zaehler
  LOCAL Anzahl
  LOCAL N
  LOCAL Punkt
  LOCAL Richtung
  LOCAL Laenge
  LOCAL P1
  LOCAL P2
  LOCAL P3
  LOCAL P4
  IF (I_port)
    Check_i_port
  END_IF
  IF (NOT I_port)
    T_clear_menu
    CURRENT_MENU Pd_menu_1_layout_name Farbe_stift
    MENU Colo0 Bcol5 'Spiralenkonstruktion' '' 1 3
    MENU 'linksdrehend   = [1]' '1' 3 1
    MENU 'rechtsdrehend  = [2]' '2' 4 1
    READ NUMBER
    'Drehrichtung der Spirale bestimmen:  linksdrehend = 1  /  rechtsdrehend = 2'
    Richtung
    MENU Colo0 Bcol2 (Richtung+2) 1
    MENU ('Anfangswinkel = ') 6 1
    READ NUMBER 'Anfangswinkel der Spirale eingeben' Alpha
    MENU ('Anfangswinkel = '+STR Alpha+'·') 6 1
    MENU ('Windungszahl  = ') 7 1
    READ NUMBER 'Windungszahl in Grad eingeben 1 Umdrehung = 360·' Beta
    MENU ('Windungszahl  = '+STR Beta) 7 1
    MENU ('Innenradius   = ') 8 1
    READ NUMBER 'Innenradius der Spirale eingeben' R1
    MENU ('Innenradius   = '+STR R1) 8 1
    MENU ('Aussenradius  = ') 9 1
    READ NUMBER 'Aussenradius der Spirale eingeben' R2
    MENU ('Aussenradius  = '+STR R2) 9 1
    MENU ('Bandstärke    = ') 10 1
    READ NUMBER 'Bandstaerke eingeben' S
    MENU ('Bandstärke    = '+STR S+'mm') 10 1
    READ PNT 'BEZUGSPUNKT, Mittelpunkt der Spirale eingeben = ?' Mittel
    LET Zaehler 1
    LET Anzahl (ABS (Beta DIV 10))
    LET Anfangspunkt_innen (Mittel+ROT (PNT_XY R1 0) Alpha)
    LET N 10
    SPLINE NATURAL Anfangspunkt_innen
    WHILE (Zaehler<3)
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    SPLINE NATURAL Punkt
    WHILE (Zaehler<(Anzahl -1))
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    SPLINE NATURAL Punkt
    WHILE (Zaehler<Anzahl)
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY (R1+N*(R2 - S - R1)/(ABS Beta)) 0) (
        Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    IF (Richtung=1)
      LET Endpunkt_innen (Mittel+ROT (PNT_XY (R2 - S) 0) (Alpha+Beta))
    ELSE_IF (Richtung=2)
      LET Endpunkt_innen (Mittel+ROT (PNT_XY (R2 - S) 0) (Alpha - Beta))
    END_IF
    Endpunkt_innen
    END
    END
    LET Zaehler 1
    LET Anzahl (ABS (Beta DIV 10))
    LET Anfangspunkt_aussen (Mittel+ROT (PNT_XY (R1+S) 0) Alpha)
    LET N 10
    SPLINE NATURAL Anfangspunkt_aussen
    WHILE (Zaehler<3)
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    SPLINE NATURAL Punkt
    WHILE (Zaehler<(Anzahl -1))
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    SPLINE NATURAL Punkt
    WHILE (Zaehler<Anzahl)
      IF (Richtung=1)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha+N))
      ELSE_IF (Richtung=2)
        LET Punkt (Mittel+ROT (PNT_XY ((R1+S)+N*(R2 - S - R1)/(ABS Beta)) 0
        ) (Alpha - N))
      END_IF
      Punkt
      LET Zaehler (Zaehler+1)
      LET N (N+10)
    END_WHILE
    IF (Richtung=1)
      LET Endpunkt_aussen (Mittel+ROT (PNT_XY R2 0) (Alpha+Beta))
    ELSE_IF (Richtung=2)
      LET Endpunkt_aussen (Mittel+ROT (PNT_XY R2 0) (Alpha - Beta))
    END_IF
    Endpunkt_aussen
    END
    END
    LINE TWO_PTS Endpunkt_innen Endpunkt_aussen Anfangspunkt_innen
    Anfangspunkt_aussen
    END
    IF (Alpha=0)
      LET Alpha 0.001
    END_IF
    LET Laenge (((Beta - Alpha)*PI/360)*(R1+R2))
    LET Laenge (ABS ((ROUND (Laenge*1000))/1000))
    MENU 'gestreckte Länge =' '' 12 1
    MENU (' '+STR (Laenge)+' mm') '' 13 1
    MENU
    LET P1 (Mittel+PNT_XY (R2+R1*0.1) 0)
    LET P2 (Mittel+PNT_XY 0 (- R2 - R1*0.1))
    LET P3 (Mittel+PNT_XY (- R2 - R1*0.1) 0)
    LET P4 (Mittel+PNT_XY 0 (R2+R1*0.1))
    LINE
    DOT_CENTER
    COLOR
    WHITE
    END
    LINE P1 P3 P2 P4
    END
    END
    LINEPATTERN Stift
    END
    COLOR Farbe
  END_IF
END_DEFINE