Auteur: Patrick BikerExemples évolués
Chaque exemple montre une utilisation pratique de la fonction du WLangage.
Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.
Le code suivant permet de tracer plusieurs dessins (un cercle et un rectangle) ayant une couleur de fond identique. Les dessins seront tracés dans un champ image (ImageDessin). La couleur, le style et le type de hachures par défaut du fond des dessins sont sélectionnés par l'utilisateur à l'aide de trois sélecteurs (SelectFond, SelectStyle et SelectHachures). Dans cette version, il n'est pas possible d'hachurer le fond d'un dessin. La troisième option du sélecteur "SelectStyle" et le sélecteur "SelectHachures" ne sont pas disponibles.
|
||
|
// Déclaration des variables
CouleurFond est un entier StyleFond est un entier HachureFond est un entier // Déclaration du dessin dans le champ image "ImageDessin" dDébutDessin(ImageDessin) // Récupération de la couleur de fond sélectionnée SELON SelectFond CAS 1 : CouleurFond = iRougeClair CAS 2 : CouleurFond = iBleuClair CAS 3 : CouleurFond = iVertClair CAS 4 : CouleurFond = iJauneClair FIN // Récupération du style du fond sélectionné SELON SelectStyle CAS 1 : StyleFond = 0 CAS 2 : StyleFond = 1 CAS 3 : StyleFond = 2 FIN // Récupération du type de hachures du fond sélectionné SELON SelectHachures CAS 1 : HachureFond = 0 CAS 2 : HachureFond = 1 CAS 3 : HachureFond = 2 CAS 4 : HachureFond = 3 CAS 5 : HachureFond = 4 CAS 6 : HachureFond = 5 FIN // Initialisation du fond des dessins dFond(CouleurFond, StyleFond, HachureFond) // Tracé du cercle dCercle(10, 10, 50, 50) // Tracé du rectangle dRectangle(40, 40, 80, 80)
|
