1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for Salvagnini machines
7. Generate circular nibbling path with 4 laser punching tools (Salvagnini-NIK)

Generate circular nibbling path with 4 laser punching tools (Salvagnini-NIK)

C call:

C     CALL PVB401 (SON1,SON2,SON3,SON4,RX,RY,DD,ISTEG,STEGB,RAUHT,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     SON1-4 : ID number of the tools

C     RX,RY  : Centre of the circle

C     RD     : Diameter of the circle

C     IST    : Number of microjoints (4/8)

C     RST    : Lug width

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

C     IRET   : is not evaluated, but must be specified

C     

C     NOTE: The text variables SON1 to SON4 must be declared in the program header!

C     CHARACTER *20 SON1, SON2, SON3, SON4

C     

C     Example:

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

C     Circular nibbling path with 4 lens tools

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

      SON1 = "SG_22.5"

      SON2 = "SG_67.5"

      SON3 = "SG_112.5"

      SON4 = "SG_157.5"

      RX = 350.0

      RY = 275.0

      RD = 400.0

      IST = 8

      RST = 0.3

      RAU = 0.15

      CALL PVB401 (SON1,SON2,SON3,SON4,RX,RY,DD,ISTEG,STEGB,RAUHT,IRET)