a guest Jan 24th, 2020 102 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. uses graphabc;
  2. var i:integer; angle:real;
  3. begin
  4. centerwindow;
  5. angle:=0;
  6. setwindowsize(512,512);
  7. setpencolor(clyellow);
  8. setbrushcolor(clyellow);
  9. circle(256,256,64);
  10. for i:=1 to 60 do
  11. begin
  12.      sleep(10);
  13.     line(256,256,round(1024*cos(angle)),round(1024*sin(angle)));
  14.     angle:=angle+60
  15.     end;
  16. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand