Anonymous user
Draw a sphere: Difference between revisions
→{{header|Ada}}
Line 38:
pragma Assert (Status_Out = Cairo_Status_Success);
end Sphere;</lang>
{{libheader|Display}}
This uses a very loose binding to SDL as found in any GPS installation. For it to work, you must choose New Project From Templte|Empty Game
<lang Ada>
with Display; use Display;
with Display.Basic; use Display.Basic;
procedure Main is
Ball : Shape_Id := New_Circle
(X => 0.0,
Y => 0.0,
Radius => 20.0,
Color => Blue);
begin
null;
end Main;
</lang>
[[File:C:\Users\parsonsjm0818\Desktop\screen.png]]
=={{header|BASIC}}==
| |||