Pascal - Libreria Graph con il free-pascal

finalmente sono riuscito a compilare il mio pac-man col freepascal....
tuttavia ho qualche problema con la grafica...
sembra che la risoluzione sia aumentata di molto e quindi diventa tutto sfasato...ad esempio il primo programma floodfill mi riempie tuto lo schermo di quel colore perchè sembra che non punti a una figura circoscritta....come posso fare? in teoria non dovrebbe funzionare lo stesso?

La modalità grafica del free pascal consente di utilizzare tutti i punti dello schermo. Di conseguenza, la risoluzione cambia da computer a computer.
Per conoscere quanti pixel si hanno a disposizione, ci sono le funzioni GetMaxX e GetMaxY.

si lo so che basta usare quelle funzione...e di fatti le ho usate....ma niente da fare....mi si colora lo schermo dei vari colori che ho assegnato a delle figure circoscritte...

Molto strano!

Probabilmente le figure non sono definite da una linea perfettamente chiusa.

Ti funziona questo programma?

program ProvaDiRiempimento;
uses graph;

function inizio_graf:boolean;
var sg,ng,ec:smallint;
    ch:boolean;
begin
 sg:=detect;
 initgraph(sg,ng,' ');
 ec:=graphresult;
 if ec=grok then  ch:=true
 else
 begin
  ch:=false;
  write('Errore grafico: ',grapherrormsg(ec));
  repeat until keypressed;
  writeln(' ',readkey);
 end;
 inizio_graf:=ch;
end;

begin
 if inizio_graf then
 begin
  SetColor(green);
  SetFillStyle(1, red);
  circle(300, 300, 120);
  FloodFill(300, 300, green);
  readln;
  closegraph;
 end;
end.

mi funziona... (usando anche la unit crt che forse avevi dimenticato...)





poi un'altra cosa....i comandi li accetta però dalla finestra dos...che deve essere in primo piano...se no sulla finestra dove c'è il cerchio non va....

"purtroppo" come ho fatto io dovrai passare alla wincrt e alla wingraph...io mi ci sono trovato meglio rispetto alla graph e alla crt.. math.ubbcluj.ro/~sberinde/wingraph/

ho provato anche con la wingraph già da tempo ma niente da fare....

La utilizzi insieme alla wincrt?