Re: Graphical output on Windows XP

[David Botton <david@botton.com>]

> does anyone know, how to do this? (Gnat comes with packages that can
> do that, but I don't nearly understand them. There's a function
> "setpixel", but what do I have to do, to use it??)

Get GWindows from http://www.gnavi.org

with GWindows.Application;

with GWindows.Windows.Main; use GWindows.Windows.Main;

with GWindows.Drawing; use GWindows.Drawing;

with GWindows.Colors; use GWindows.Colors;



procedure Pixel is

   Window : Main_Window_Type;

   Canvas : Canvas_Type;

begin

   Create (Window, "Pixel", Width => 400, Height => 200);

   Get_Canvas (Window, Canvas);

   Show (Window);



   for X in 10 .. 190 loop

     Point (Canvas, X , 100, Blue);

   end loop;



   GWindows.Application.Message_Loop;

end Pixel;