Kreisnibbelbahn mit Entsorgung erzeugen

C     Aufruf:

C     CALL PVB412 (RX,RY,DD,WNIB,ANG,IENT,RGHN,IBL,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     RX,RY : Mittelpunkt des Kreises

C     DD    : Durchmesser des Kreises

C     WNIB  : Durchmesser Nibbelwerkzeuges

C     ANG   : Startwinkel des Nibbelkreises

C     IENT  : Entsorgungsart:

C             1 = Entsorgung 1

C             2 = Entsorgung 2

C             3 = Entsorgung 3

C             4 = Stop

C     RGHN  : Rautiefe der Nibbelbahn

C     IBL   : Blockbildung

C             0 = nein

C             1 = ja

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Kreisnibbelbahn mit Entsorgung erstellen

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

      RX = 200.0

      RY = 150.0

      DD = 100.0

      WNIB = 10.0

      ANG = 270.0

      IENT = 1

      RGHN = 0.2

      IBL = 0

      CALL PVB412 (RX,RY,DD,WNIB,ANG,IENT,RGHN,IBL,IRET)