home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m130 / 1.ddi / RESOURCE.001 / CONE.POC < prev    next >
Encoding:
Text File  |  1990-05-31  |  472 b   |  37 lines
  1. //Makes a cone.  Whoopi!
  2.  
  3. cone(int maxrad, int x, int y)
  4. {
  5. int i;
  6. int swidth, sheight;
  7.  
  8. GetSize(&swidth, &sheight);
  9.  
  10. for (i=0;i<=maxrad;i++)
  11.     {
  12.     Circle(x,y,i);
  13.     Circle(x+1,y,i);
  14.     Circle(x, y+1,i);
  15.     SetColor(i);
  16.     }
  17. }
  18.  
  19. main()
  20. {
  21. int x,y,rad;
  22. char ibuf[16];
  23.  
  24. SetFilled(0);
  25. GetInk(ibuf);
  26. SetInk("v grad");
  27. for(;;)
  28.     {
  29.     if (RubCircle(&x,&y,&rad))
  30.         cone(rad, x, y);
  31.     else
  32.         break;
  33.     }
  34. SetInk(ibuf);
  35. }
  36.  
  37.