home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / graphics / draw630.lbr / NOVA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-12-07  |  640 b   |  30 lines
  1. PROGRAM NOVA;
  2.  
  3. VAR
  4.   a,b,x,y : integer;
  5.   r,c     : real;
  6.  
  7. {$I diablo.lib}
  8.  
  9. BEGIN
  10.   init_diablo;
  11.   b := 25;
  12.   WHILE b < 251 DO
  13.     BEGIN
  14.       a := 0;
  15.       WHILE a < 361 DO
  16.         BEGIN
  17.           c := (a*3.14156)/180;
  18.           r := b*(1-sin(15*c));
  19.           x := round(r*cos(c))+250;
  20.           y := round(r*sin(c))+250;
  21.           IF a = 0 THEN
  22.             plot(x,y)
  23.           ELSE
  24.             drawto(x,y);
  25.           a := a+5
  26.         END;
  27.       b := b+25
  28.     END;
  29.   reset_diablo
  30. END.