Skip to content

Instantly share code, notes, and snippets.

@Eugeny
Last active February 28, 2016 10:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Eugeny/c65979c149725f775de4 to your computer and use it in GitHub Desktop.
Save Eugeny/c65979c149725f775de4 to your computer and use it in GitHub Desktop.
uses GraphABC;
uses System.Drawing;
var
w: integer := 640;
h: integer := 480;
c: integer := 0;
begin
SetWindowSize(w, h);
while true do begin
c := (c + 1) mod 6;
SetPenColor(Color.Black);
SetBrushColor(Color.Yellow);
SetPenWidth(4);
FillCircle(w div 2, h div 2, w div 3);
DrawCircle(w div 2, h div 2, w div 3);
SetPenWidth(10);
Arc(w div 2, h div 2, w div 4, 220, 320);
SetBrushColor(Color.Black);
if c = 2 then
Line(w div 2 - w div 8 - w div 20, h div 3, w div 2 - w div 8 + w div 20, h div 3)
else
FillCircle(w div 2 - w div 8, h div 3, w div 20);
if c = 5 then
Line(w div 2 + w div 8 - w div 20, h div 3, w div 2 + w div 8 + w div 20, h div 3)
else
FillCircle(w div 2 + w div 8, h div 3, w div 20);
Redraw;
Sleep(500);
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment