Kreisbogen in eine Variante (CADGEO) einfügen

C     Aufruf:

C     PVB447 (XP,YP,RD,RS,RE,IS,IC,IRET)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     XP/YP : Mittelpunkt des Kreisbogens

C     RD    : Durchmesser des Kreisbogens

C     RS    : Startwinkel des Kreisbogens

C     RE    : Endwinkel des Kreisbogens

C     IS    : Richtung des Kreisbogens

C              1 = gegen Uhrzeigersinn

C             -1 = im Uhrzeigersinn

C     IC    : Farbe des Kreisbogens

C     IRET  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     Beispiel:

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

C     Kreisbogen erstellen

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

      XP = 100.0

      YP = 100.0

      RD = 25.0

      RS = 0.0

      RE = 0.0

      IS = 1

      IC = 5

      CALL PVB447 (XP,YP,RD,RS,RE,IS,IC,IRET)