Affichage graphique en Pascal sur le RS/6000

Pour pouvoir faire des affichages graphiques, vous devez
  1. Inclure après la déclaration program la ligne suivante:
    %INCLUDE graphics
    
  2. compiler votre programme avec /u/ens/tronche/c/graphpas au lieu de pas.

Procédures disponibles

Vous disposez alors des procédures suivantes:

procedure setlinewidth(width : integer); external;
Positionne l'épaisseur de tracé à width.

procedure drawline(x1, y1, x2, y2 : integer); external;
Trace une ligne depuis le point (x1, y1) jusqu'au point (x2, y2)

procedure drawrectangle(x, y, width, height : integer); external;
Trace un rectangle de largeur width et de hauteur height coin supérieur gauche (x, y).

procedure drawstring(x, y : integer; s : graphics_string); external;
Trace la chaîne s à la position (x,y).

procedure stringsize(s : graphics_string; var width, height :integer); external;
Calcule la largeur et la hauteur (en pixels) de la chaîne s.
Les coordonnées commencent à (0,0) dans le coin supérieur gauche (ce n'est donc pas un repaire mathématique).

Exemple

program test;

%INCLUDE graphics

var width, height : integer;

begin
   setlinewidth(10);
   drawline(20, 30, 100, 150);
   drawstring(100, 100, 'Il fait beau chez toto');
   stringsize('Il fait beau chez', width, height);
   writeln('width = ', width, ' height = ', height);
   drawrectangle(10, 20, 60, 100);
   readln;
end.

Christophe Tronche, ch@tronche.com