home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / splot122.zip / DEMO / ART.SPT < prev    next >
Text File  |  1994-09-30  |  557b  |  31 lines
  1. #include <splot.h>
  2. /* This is a region filling example */
  3. int i;
  4. main() 
  5.    {     
  6.    set(LINEWIDTH,0.1);
  7.    set(FILLRULE,EVENODD);
  8.    translate(10,15);
  9.    for (i=0;i < 8;i++)
  10.       {
  11.       set(LINECOLOUR,i);
  12.       leaf();
  13.       rotate(45);
  14.       }
  15.    }
  16.  
  17. int leaf()
  18.    {
  19.    arc(3.1,3.38896,0.4,0,360);
  20.    moveto(0,0);
  21.    curveto(3.38924,0.598051,3.18987,3.85411,5.91456,6.11341);
  22.    curveto(2.06013,5.44891,2.52532,1.5948,0,0);
  23.    closepath();
  24.    gsave();
  25.    fill();
  26.    grestore();
  27.    set(LINECOLOUR,BLACK);
  28.    stroke();
  29.    }
  30.  
  31.