Stroke

• Utilisation: Stroke(<element1>,...,<elementN>).

• Description: cette fonction recalcule les éléments graphiques <element1>, ..., <elementN>, puis les redéssine en mode NORMAL, et renvoie la valeur Nil.

• Exemple(s): on a créé deux variables globales: a et drawing. On va créer le cercle de centre a et de rayon 1, appelé objet1, on souhaite pouvoir déplacer cet objet à la souris. Pour cela, on crée la macro ClicG avec la commande:

  [PenMode:=1, {mode NotXor}

  NewGraph("objet1", "Cercle(a,1)"),

  PenMode:=0, {mode normal}

  ReDraw(), {on montre}

  drawing:=1]

  on crée la macro MouseMove avec la commande: if drawing then a:=%1 {on déplace le centre}, Move(objet1) fi,

  puis la macro LButtonUp avec la commande: if drawing then Stroke(objet1), drawing:=0 fi.

  La macro ClicG crée l'objet1 en mode NotXor, rafraîchit l'affichage graphique et passe en mode "dessin". La macro MouseMove permet de de placer le centre à la position de la souris, puis de déplacer l'objet1. Lorsque le bouton gauche est relâché, on dessine l'objet1 en mode normal, puis on quitte le mode "dessin".