Fractal tree: Difference between revisions
Content deleted Content added
Ada: Using renderer for line drawing |
m Ada: No use of SDL.Video.Surfaces |
||
Line 16:
with SDL.Video.Windows.Makers;
with SDL.Video.Renderers.Makers;
with SDL.Video.Rectangles;
with SDL.Events.Events;
Line 37 ⟶ 35:
Window : SDL.Video.Windows.Window;
Renderer : SDL.Video.Renderers.Renderer;
Event : SDL.Events.Events.Events;
Line 86 ⟶ 83:
Size => SDL.Positive_Sizes'(Width, Height),
Flags => 0);
Renderer.Set_Draw_Colour ((0, 0, 0, 255));
▲ Surface.Fill (SDL.Video.Rectangles.Rectangle'(0, 0, Width, Height),
Draw_Tree (Level, Length, A_Start, X_Start, Y_Start);
|