Kreisnibbelbahn mit Zerstanzen erzeugen

C     Aufruf:

C     CALL PVB410 (RX,RY,DD,WNIB,WPUN,ANG,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 Nibbelwerkzeug

C     WPUN  : Durchmesser Zerstanzwerkzeug

C     ANG   : Startwinkel des Nibbelkreises

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 Zerstanzen erstellen

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

      RX = XMAIN / 2.0

      RY = YMAIN / 2.0

      DD = 200.0

      WNIB = 10.0

      WPUN = 32.0

      ANG = 270.0

      RGHN = 0.2

      IBL = 1

      CALL PVB410 (RX,RY,DD,WNIB,WPUN,ANG,RGHN,IBL,IRET)