DESCRIPTION.

La procédure PROC_PLellipse() trace une ellipse, vide ou pleine, sur le document.

SYNTAXE.

PROC_PLellipse( abscisse , ordonnee , vertical , horizontal , inclinaison , remplissage )

REMARQUES.

abscisse doit être un nombre entier, exprimé en pixels, et indiquant l'abscisse du centre de l'ellipse, par rapport au bord gauche de la feuille.

ordonnee doit être un nombre entier, exprimé en pixels, et indiquant l'ordonnée du centre de l'ellipse, par rapport au bord bas de la feuille.

vertical doit être un nombre entier, exprimé en pixels, et indiquant le rayon, demi-axe, vertical de l'ellipse.

honrizontal doit être un nombre entier, exprimé en pixels, et indiquant le rayon, demi-axe, horizontal de l'ellipse.

inclinaison doit être une valeur numérique, exprimé en degrés, et indiquant l'angle d'inclinaison dans le sens antihoraire de vertical. 

remplissage doit être 0, pour dessiner une rectangle vide, ou 1 pour dessiner un rectangle plein de la couleur actuellement sélectionnée.

.

Rappel : L'unité par défaut est le pixel, avec 1 pixel = 0,35278 mm et donc 1 mm égal environ 2,84 pixels. Les dimensions du document créé sont au format standardisé du A4 soit 210 x 297 mm. Pour basculer l'unité de mesure par défaut en millimètre, utilisez la procédure PROC_PLcolour() avec la valeur &00100000 pour style, en troisième paramètre. Dans ce cas les valeurs des ordonnées vont du haut du document (0 mm) au bas du document ( 297 mm), les valeurs des abscisses restent inchangées de gauche (0 mm) à droite (210 mm).

Rappel : la fonction FN_PLcreatepdf() doit être appelée pour placer les modifications sur le document .pdf en cours de création.

La procédure PROC_PLellipse() est importée depuis le module pdflib.bbc. 

EXEMPLE.

INSTALL @lib$ + "pdflib.bbc"

PROC_PLcolour( &ffa500 , 2 , &00100000 ) : REM - modifie la couleur et l'épaisseur de la ligne

PROC_PLellipse( 50 , 50 , 30 , 12 , 0 , 0 ) : REM - trace une ellipse vide

PROC_PLellipse( 100 , 50 , 30 , 12 , 30 , 0 ) : REM - trace une ellipse vide

PROC_PLellipse( 150 , 50 , 30 , 12 , 60 , 0 ) : REM - trace une ellipse vide

PROC_PLellipse( 50 , 120 , 30 , 12 , 0 , 1 ) : REM - trace une ellipse pleine

PROC_PLellipse( 100 , 120 , 30 , 12 , 30 , 1 ) : REM - trace une ellipse pleine

PROC_PLellipse( 150 , 120 , 30 , 12 , 60 , 1 ) : REM - trace une ellipse pleine

kfichier$ = @tmp$ + "test.pdf"

ketat = FN_PLcreatepdf( kfichier$ ) : REM - cree et enregistre le document

IF ketat <> 0 THEN PRINT "Vous pouvez ouvrir " ;  kfichier$ ELSE PRINT "Le document n'a pu etre cree !"

END