Affichage graphique en Pascal sur le RS/6000

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

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.

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.