Grafikausgabe mit FreePascal (DOS)

[sirius]

Also, wenn du direkt in DOS programmierst, geht das nicht. DOS ist im Textmodus. Da kannst du nur Text ausgeben und keine einzelnen Pixel färben. Du musst erst in den Grafimodus schalten:

Delphi-Quellcode:

var graphicdriver, graphicmode : integer;
    bgipfad:string;
begin
  //ich glaube, du kannst hier auch jeweils 0 einsetzen
  graphicdriver:=vga;
  graphicmode:=vgahi;
  
  //hier musst du das entspr. Verzeichnis bei dir suchen, oder im Netz nach dieser Datei
  bgipfad:='C:\ ... \egavga.bgi';
  //es gibt auch andere BGIs für cga und svga
  
  
  //Treiber initialisieren 
  initgraph(graphicdriver,graphicmode,bgipfad);

  
  //so, und hier kannst du zeichnen
  pupixel(10,10,white);
  
  //...

  
  //Grafimkoeus beenden
  closegraph;
end;