DESCRIPTION.

La procédure PROC_PLbezier() trace une courbe de Bézier,vide ou plaine, sur le document.

SYNTAXE.

PROC_PLbezier( abs1 , ord1 , abs2 , ord2 , abs3 , ord3 , abs4 , ord4 , remplissage )

REMARQUES.

abs1, ord1, abs2, ord2, abs3, ord3, abs4 et ord4 doivent être des valeurs numériques quelconques, exprimées en pixels, donnant les coordonnées de quatre points de controle : 

- abs1 est l'abscisse du point d'origine de la ligne (P0) ;

- ord1 est l'ordonnée du point d'origine de la ligne (P0) ;

- abs2 est l'abscisse du point de controle la tangente au départ (P1) ;

- ord2 est l'ordonnée du point de controle la tangente au départ (P1) ;

- abs3 est l'abscisse du point de controle la tangente à l’arrivée (P2) ;

- ord3 est l'ordonnée du point de controle la tangente à l’arrivée (P2) ;

- abs4 est l'abscisse du point d’ancrage d’arrivée (P3) ;

- ord4 est l'ordonnée du point d’ancrage d’arrivée (P3).

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

EXEMPLE.

INSTALL @lib$ + "pdflib.bbc"

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

PROC_PLbezier( 50 , 80 , 75 , 20 , 120 , 50 , 150 , 80 , 0 ) : REM - trace une courbe vide

PROC_PLbezier( 50 , 180 , 75 , 120 , 120 , 150 , 150 , 180 , 1 ) : REM - trace une courbe dont l'aire est remplie

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