Créer un texte de gravure

Si vous souhaitez utiliser cette fonction pour produire des valeurs numériques à partir de variables réelles ou entières, celles-ci doivent d'abord être converties en texte. Pour ce faire, utilisez la fonction Convertir un nombre en texte (chaîne de caractères). Voir aussi : Convertir un nombre en texte (chaîne de caractères).

C     Appel :

C     CALL PVB471 (RX,RY,RH,ANG,IKONT,TEXT,IREF,IMIR,IRET)

C     

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

C     

C     RX,RY : coordonnées du point de référence du texte

C     RH    : Hauteur du texte

C     ANG   : angle du texte

C     TEXT  : texte à graver

C     IKONT : type de contour pour gravure

C     IREF  : point de référence pour le texte

C              0 = centré

C              1 = en haut à droite

C              2 = en haut à gauche

C              3 = en bas à gauche

C              4 = en bas à droite

C             12 = point de référence bord supérieur centré

C             23 = point de référence bord gauche centré

C             34 = point de référence bord inférieur centré

C             41 = point de référence bord droit centré

C     IMIR  : mise en miroir du texte

C             0 = texte n'est pas mis en miroir

C             1 = texte est mis en miroir dans la direction Y

C             2 = texte est mis en miroir dans la direction X

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

C     

C     NOTE : La variable de texte TEXT doit être déclarée dans l'en-tête du programme !

C     CHARACTER *80 TEXT

C     

C     Exemple :

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

C     Créer un texte de gravure

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

      RX = 100.0

      RY = 100.0

      RH = 10.0

      ANG = 0.0

      IKONT = 19

      IREF = 3

      IMIR = 0

      TEXT = 'ABC123'

      CALL PVB471 (RX,RY,RH,ANG,IKONT,TEXT,IREF,IMIR,IRET)