Monday, September 10, 2007
pascal plus screens
I am looking into WinGraph and how it works.. Looks like thier is an example of alegro (pascal) in the roguelike magazine that had two issues. The licence for wingraph is restrictive and does not let you profit from it but because I am advertising supported I may do a demo app (free but not for resale muhaha).. I noticed that the code snippits did not give the barest app instead they gave you something that you have to debug.. (python may be worth while as a way to generate a code generating template for it). Here is my extended version of the barest example in free pascal.
uses wingraph;
var
gd,gm : smallint;
begin;
gd:=Detect;
InitGraph(gd,gm,'');
//
repeat until CloseGraphRequest; //this waits for close button to be clicked
CloseGraph;
end.
uses wingraph;
var
gd,gm : smallint;
begin;
gd:=Detect;
InitGraph(gd,gm,'');
//
repeat until CloseGraphRequest; //this waits for close button to be clicked
CloseGraph;
end.
Labels: free pascal, wingraph
