DESCRIPTION.

La procédure PROC_PLrectangle() dessine un rectangle, vide ou plein, à l'emplacement précisé par les pâramètres.

SYNTAXE.

PROC_PLrectangle( abscisse , ordonnee , largeur , hauteur , remplissage )

REMARQUES.

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

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

largeur doit être un nombre entier, exprimé en pixels, et indiquant la largeur du rectangle.

hauteur doit être un nombre entier, exprimé en pixels, et indiquant la hauteur du rectangle.

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_PLrectangle() est importée depuis le module pdflib.bbc. 

EXEMPLE.

INSTALL @lib$ + "pdflib.bbc"

DIM kcouleurs( 10 ) : kcouleurs() = 0 , &ff0000 ,  &ffff00 , &00ff00 , &00ffff , &0000ff , &ff00ff 

FOR kcolonne = 1 TO 6 

kdebut =  ( kcolonne * 20 ) : REM - calcule l'abscisse des point d'origine

PROC_PLcolour( kcouleurs( kcolonne ) , 4 , &00100000 ) : REM - modifie la couleur et l'épaisseur de la ligne

PROC_PLrectangle( kdebut , 50 , 10 , 10  , 0 ) : REM - trace un rectangle vide

PROC_PLrectangle( kdebut , 70 , 10 , 10  , 1 ) : REM - trace un rectangle plein

NEXT kcolonne

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