Créer un parcours de grignotage circulaire avec 4 outils de poinçonnage en forme de lentille (Salvagnini-NIK)

C     Appel :

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

C     

C     Les variables suivantes doivent être définies au préalable :

C     

C     SON1-4 : numéro d'identification des outils

C     RX,RY  : centre du cercle

C     RD     : diamètre du cercle

C     IST    : nombre de ponts (4/8)

C     RST    : Largeur du pont

C     RAU    : rugosité du parcours de grignotage

C     IRET   : n'est pas évalué, mais doit être spécifié

C     

C     NOTE : Les variables de texte SON1 à SON4 doivent être déclarées dans l'en-tête du programme !

C     CHARACTER *20 SON1, SON2, SON3, SON4

C     

C     Exemple :

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

C     Parcours de grignotage circulaire avec 4 outils à lentilles

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)