Linie in eine Variante (CADGEO) einfügen

C     Aufruf:

C     CALL PVB448 (XS,YS,XE,YE,IC,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     XS/YS : Startpunkt der Linie

C     XE/YE : Endpunkt der Linie

C     IC    : Farbe der Linie

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Linie erstellen

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

      XS = 80.0

      YS = 100.0

      XE = 80.0

      YE = 150.0

      IC = 7

      CALL PVB448 (XS,YS,XE,YE,IC,IRET)