Gravurtext erzeugen

Wenn Sie mit dieser Funktion Zahlenwerte aus Real- oder Integervariablen ausgeben möchten, müssen diese zuerst in Text konvertiert werden. Verwenden Sie dazu die Funktion Zahl in Text (String) umwandeln. Siehe auch: Zahl in Text (String) umwandeln.

C     Aufruf:

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

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     RX,RY : Koordinate für den Textreferenzpunkt

C     RH    : Texthöhe

C     ANG   : Winkel des Textes

C     TEXT  : Text, der graviert werden soll

C     IKONT : Konturart der Gravur

C     IREF  : Referenzpunkt für den Text

C              0 = zentriert

C              1 = rechts oben

C              2 = links oben

C              3 = lnks unten

C              4 = rechts unten

C             12 = Referenzpunkt Oberkante mittig

C             23 = Referenzpunkt linke Kante mittig

C             34 = Referenzpunkt Unterkante mittig

C             41 = Referenzpunkt rechte Kante mittig

C     IMIR  : Text spiegeln

C             0 = Text wird nicht gespiegelt

C             1 = Text wird in Y-Richtung gespiegelt

C             2 = Text wird in X-Richtung gespiegelt

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     HINWEIS: Die Textvariable TEXT muss im Programmkopf deklariert werden!

C     CHARACTER *80 TEXT

C     

C     Beispiel:

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

C     Gravurtext erstellen

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)