Insérer un rectangle dans une variante (CADGEO)

C Appel :

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

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

C XP/YP : coordonnées du point de référence du rectangle

C RB : largeur du rectangle

C RH : hauteur du rectangle

C RA : angle du rectangle

C IC : couleur du rectangle

C IT : Point de référence

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 IRET : n'est pas évalué, mais doit être spécifié

C Exemple :

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

C Créer un rectangle

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)