home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / language / bob / !ArmBob / progs / main / Circles < prev    next >
Encoding:
Text File  |  1994-02-26  |  143 b   |  13 lines
  1. /* Circles */
  2. main()
  3. {
  4.  local r;
  5.  mode(28);
  6.  seed(time());
  7.  for(r=500;r>20;r-=10)
  8.    {
  9.     gcol(0,rnd()%16);
  10.     circlefill(640,512,r);
  11.    }
  12. }
  13.