Rechteck in eine Variante (CADGEO) einfügen

C     Aufruf:

C     CALL PVB446 (XP,YP,RB,RH,RA,IC,IT,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     XP/YP : Koordinate für den Referenzpunkt des Rechtecks

C     RB    : Breite des Rechtecks

C     RH    : Höhe des Rechtecks

C     RA    : Winkel des Rechtecks

C     IC    : Farbe des Rechtecks

C     IT    : Referenzpunkt

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     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Rechteck erstellen

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

      XP = 150.0

      YP = 250.0

      RB = 110.0

      RH = 85.0

      RA = 0.0

      IC = 3

      IT = 0

      CALL PVB446 (XP,YP,RB,RH,RA,IC,IT,IRET)