--/******************************************
--
--  Cedric Pradalier   2001
--  mail : http://cedric.pradalier.free.fr/mail.html
--
--****************************************/
with graph;
procedure gtest is
use graph;


T : Point2dArray := (3,((100,300),(80,200),(20,120)));

begin
OpenGraphBW(100,100,300,300);
 ClearGraph;

  DrawString(100,90,"salut");
  
  FillPoly(T,Convex,CoordModeOrigin);
  
  
  SetColor("#00FF00");
  PutPixel(120,120);
  DrawImageString(100,20,"idiot");
  FillTriangle(300,100,80,200,20,120);
  WaitRClick;
  ClearGraph;
  CloseGraph;  
            

end gtest;