1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. General functions for variants
7. Generate circular nibble path with punching

Generate circular nibble path with punching

C call:

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

C     

C     The following variables must be defined beforehand:

C     

C     RX,RY : Centre of the circle

C     DD    : Diameter of the circle

C     WNIB  : Nibbling tool diameter

C     WPUN  : Punching-out tool diameter

C     ANG   : Starting angle of the nibble circle

C     RGHN  : Peak-to-valley depth of the nibbling path

C     IBL   : Block formation

C             0 = no

C             1 = yes

C     IRET  : is not evaluated, but must be specified

C     

C     Example:

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

C     Generate circular nibble path with punching

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)