Rosetta Code

Fractal tree: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Jquorning (talk | contribs)
211 edits
Ada: Using renderer for line drawing
Jquorning (talk | contribs)
211 edits
m Ada: No use of SDL.Video.Surfaces
Line 16:
 
with SDL.Video.Windows.Makers;
with SDL.Video.Surfaces;
with SDL.Video.Renderers.Makers;
with SDL.Video.Rectangles;
with SDL.Video.Pixel_Formats;
with SDL.Events.Events;
 
Line 37 ⟶ 35:
 
Window : SDL.Video.Windows.Window;
Surface : SDL.Video.Surfaces.Surface;
Renderer : SDL.Video.Renderers.Renderer;
Event : SDL.Events.Events.Events;
Line 86 ⟶ 83:
Size => SDL.Positive_Sizes'(Width, Height),
Flags => 0);
SurfaceSDL.Video.Renderers.Makers.Create :=(Renderer, Window.Get_Surface);
Renderer.Set_Draw_Colour ((0, 0, 0, 255));
SDL.Video.Renderers.Makers.Create (Renderer, Surface);
SurfaceRenderer.Fill (SDL.Video.Rectangles.Rectangle' => (0, 0, Width, Height),);▼
 
▲ Surface.Fill (SDL.Video.Rectangles.Rectangle'(0, 0, Width, Height),
SDL.Video.Pixel_Formats.To_Pixel
(Format => Surface.Pixel_Format,
Red => 0, Green => 0, Blue => 0));
 
Draw_Tree (Level, Length, A_Start, X_Start, Y_Start);
Retrieved from "https://rosettacode.org/wiki/Fractal_tree"