Dreieck erzeugen mit einem Dreieckwerkzeug mit Punkt und 2 Winkeln (Salvagnini-IST)

C     Aufruf:

C     PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)

C     

C     SON     = Identnummer des Werkzeuges

C     RXS,RYS = Spitzpunkt des Dreiecks

C     RW1     = Erster Winkel des Dreiecks

C     RW2     = Zweiter Winkel des Dreiecks

C     DL      = Länge des Dreiecks

C     IW      = Nibbelsequenz

C     IZ      = Nibbeltyp

C     RV      = Überlappung

C     IRET    = wird nicht ausgewertet, muss aber angegeben werden

C     

C     HINWEIS: Die Textvariable SON muss im Programmkopf deklariert werden!

C     CHARACTER *20 SON

C     

C     Beispiel:

C     -------------------------------

C     Dreieck mit Punkt und 2 Winkeln

C     -------------------------------

      SON = "DREIECK"

      RXS = 70.15

      RYS = 62.0

      RW1 = 152.375

      RW2 = -6.75

      DL = 80.2

      IW = 1

      IZ = 2

      RV = 0.5

      CALL PVB403 (SON,RXS,RYS,RW1,RW2,DL,IW,IZ,RV,IRET)