DEFINE Pfeil
  LOCAL Bz
  LOCAL Ma
  LOCAL Rey
  LOCAL Rex
  LOCAL Vor
  LOCAL P1
  LOCAL P2
  LOCAL P3
  LOCAL P4
  LOCAL P5
  LOCAL P6
  Farbe_stift Masstab
  LET Ma Masse
  LOOP
    READ PNT 'BEZUGSPUNKT des Schnittpfeiles = ?' Bz
    CS_REF_PT RELATIVE Bz Form_winkel (0,0)
    LINE SOLID Form_stift50 end
    LET Rey 1.75
    LET Rex 10
    LET Vor 0.1
    LOOP
      LET P1 (ROT PNT_XY (- Vor/Ma) 0 Wink)
      LET P2 (ROT PNT_XY (- Rex/Ma) (Rey/Ma) Wink)
      LET P3 (ROT PNT_XY (- Rex/Ma) (- Rey/Ma) Wink)
      LINE POLYGON P1 P2 P3 P1
    EXIT_IF (Rey<=0.5)
      LET Rey (Rey -0.3)
      LET Rex (Rex -0.35)
      LET Vor (Vor+1.7)
    END_LOOP
    LINE  DOT_CENTER end
    LET P4 (ROT PNT_XY 0 (6/Ma) Wink)
    LET P5 (ROT PNT_XY 0 (-6/Ma) Wink)
    LINE P4 P5
    LINE  SOLID Form_stift25 end
    LET P6 (ROT PNT_XY (-15/Ma) 0 Wink)
    LINE (0,0) P6
    CS_REF_PT RELATIVE (- Bz)
    COLOR Farbe
    linepattern Stift END
  END_LOOP
END_DEFINE

DEFINE Form_winkel
  PARAMETER Bz
  MENU (STR Wink+'ò') '' 25 2
  
  READ 'Bitte einen Winkel eingeben oder die Richtungslage bestimmen '
  RUBBER_LINE Bz Wink
  IF (POS (STR Wink) ',')
    LET Wink (ANG Wink)
  END_IF
  MENU (STR Wink+'ò') '' 25 2
END_DEFINE

let wink 0

DEFINE Form_stift25  WHITE  END_DEFINE
DEFINE Form_stift35  RED    END_DEFINE
DEFINE Form_stift50  YELLOW END_DEFINE
DEFINE Form_stift70  GREEN  END_DEFINE
DEFINE Form_stift0   BLACK  END_DEFINE
DEFINE Form_stifttext     { FARBE EINSTELLEN FUER TEXTE IN DER }
  TEXT MAGENTA END   { KOORDINATEN TABELLE }
END_DEFINE

DEFINE Form_stift_gewinde  { FARBEINSTELLUNG FUER GEWINDE }
  Form_stift25 END     { SACKLOCH DURCHGANGSLOCH UND DRAUFSICHT }
END_DEFINE

DEFINE Gelb       Form_stift50 LINETYPE SOLID       Farbe_stift END_DEFINE
DEFINE Weiss      Form_stift25 LINETYPE DOT_CENTER  Farbe_stift END_DEFINE
DEFINE Rott       Form_stift35 LINETYPE LONG_DASHED Farbe_stift END_DEFINE
DEFINE Punkte_rot Form_stift35 LINETYPE LONG_DOTTED Farbe_stift END_DEFINE
DEFINE lila       magenta      LINETYPE solid       Farbe_stift END_DEFINE

DEFINE Farbe_stift  INQ_ENV 3 LET Farbe (INQ 201) LET Stift (INQ 301) END_DEFINE
DEFINE Farbe_stift1 INQ_ENV 3 LET Farb (INQ 201) LET Strich (INQ 301) END_DEFINE
DEFINE Masstab      INQ_ENV 6 LET Masse (INQ 4)                       END_DEFINE