pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


Le code suivant permet de tracer plusieurs dessins (un cercle et un rectangle) ayant une couleur et un style du trait identiques. Les dessins seront tracés dans un champ image (ImageDessin). La couleur et le style du trait sont sélectionnés par l'utilisateur à l'aide de deux sélecteurs (SelecteurCouleur et SelecteurStyle).



// Déclaration des variables
CouleurTrait est un entier
StyleTrait est un entier
// Déclaration du dessin dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération de la couleur du trait sélectionnée
SELON SelecteurCouleur
    CAS 1 : CouleurTrait = iRougeClair
    CAS 2 : CouleurTrait = iBleuClair
    CAS 3 : CouleurTrait = iVertClair
    CAS 4 : CouleurTrait = iJauneClair
FIN
// Récupération du type du trait sélectionnée
SELON SelecteurStyle
    CAS 1 : StyleTrait = 0
    CAS 2 : StyleTrait = 1
    CAS 3 : StyleTrait = 2
    CAS 4 : StyleTrait = 3
    CAS 5 : StyleTrait = 4
    CAS 6 : StyleTrait = 5
FIN
// Initialisation de la couleur et du style des traits
dStylo(CouleurTrait, StyleTrait)
// Tracé du cercle
dCercle(10, 10, 50, 50)
// Tracé du rectangle
dRectangle(40, 40, 80, 80)