Nem igazán egyszerűbb. Ugyan úgy surface memóriaterületre másol, majd bemozgatja a képernyő memóriába, mint az sdl2 példák.
...és valamiért nem is fut nekem a karakteres fp -ben.
Tudom, hogy most a hajatok szála az égnek fog állni, de szimpatikusabbá teszem az sdl2 -t egy saját graph unittal. Jó lesz az sdl2, később legyen meg a lehetősége a komolyabb grafikának. De egyenlőre grafikus primitívekre van szükségem, az pedig kényelmesebb a régi, bgi graph unitos eljárásokkal. Ezért ezt a szörnyűséget kezdetem el tákolni: ...és így tovább...
Unit Zoligraph;
interface
Uses SDL2;
Procedure InitGraph();
Procedure CloseGraph();
Procedure SetColor(r,g,b,a : Uint8);
Procedure Line(x1,y1,x2,y2 : Integer);
Procedure RecTangle(x1,y1,x2,y2 : Integer);
Var
ablak1 : PSDL_Window;
gyujtoablak : PSDL_Renderer;
sdlRect1 : TSDL_Rect;
implementation
{ ************************************************************************** }
Procedure Initgraph();
Begin
if SDL_Init(SDL_INIT_VIDEO) < 0 then Halt;
if SDL_CreateWindowAndRenderer(500, 500, SDL_WINDOW_SHOWN, @ablak1, @gyujtoablak) <> 0
then Halt;
SDL_SetHint(SDL_HINT_RENDER_SCALE_QUALITY, 'nearest');
//render and show cleared window with background color
SDL_SetRenderDrawColor(gyujtoablak, 0, 255, 255, 255);
SDL_RenderClear(gyujtoablak);
SDL_RenderPresent(gyujtoablak);
End;
{ ************************************************************************** }
Procedure CloseGraph();
Begin
SDL_DestroyRenderer(gyujtoablak);
SDL_DestroyWindow (ablak1);
SDL_Quit;
End;
{ ************************************************************************** }
Procedure SetColor(r,g,b,a : Uint8);
Begin
SDL_SetRenderDrawColor(gyujtoablak, r, g, b, a);
End;
{ ************************************************************************** }
Procedure Line(x1,y1,x2,y2 : Integer);
Begin
//render and show a line
SDL_RenderDrawLine(gyujtoablak, x1, y1, x2, y2);
SDL_RenderPresent(gyujtoablak);
End;
{ ************************************************************************** }
Procedure RecTangle(x1,y1,x2,y2 : Integer);
Begin
sdlRect1.x := x1;
sdlRect1.y := y1;
sdlRect1.w := x2;
sdlRect1.h := y2;
SDL_RenderDrawRect(gyujtoablak, @sdlRect1);
SDL_RenderPresent(gyujtoablak);
End;
{ ************************************************************************** }
Begin
End.
