home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk433.lzh / Gwin / exsrc.lzh / three-d.c < prev   
C/C++ Source or Header  |  1991-01-12  |  813b  |  46 lines
  1. main()
  2. {
  3. float x, y, ydummy;
  4. int event;
  5. char key;
  6. float sides;
  7. int isides;
  8.  
  9.    ustart("high2",0.0,640.,0.0,400.);
  10.    upset("colo",0.0);
  11.    uset("fill");
  12.    uoutln();
  13.    uset("nofi");
  14.    upset("colo",2.0);
  15.    uprint(10.,95.,"Makes 3-D images - you will ");
  16.    uprnt1("text","need red/blue glasses to view images.");
  17.  
  18.    uprint(20.,90.,"Click and hold, move laterally, release, etc.");
  19.  
  20.    key = ' ';
  21.  
  22.    usetrgb(5.0,15.0,0.0,0.0);
  23.    usetrgb(6.0,0.0,0.0,15.0);
  24.  
  25.    isides = 4;
  26.    sides = isides;
  27.  
  28.    while(key != 'q'){
  29.  
  30.       ugrinc(&x,&y,&event,&key);
  31.       upset("colo",5.0);
  32.       uplygn(x,y,sides,5.);
  33.  
  34.       ugrinc(&x, &ydummy, &event, &key);
  35.       upset("colo",6.0);
  36.       uplygn(x, y+.26, sides, 5.);
  37.  
  38.       isides = ++isides % 10;
  39.       if(isides < 3) isides = 3;
  40.       sides = isides;
  41.    }
  42.  
  43.    uend();
  44. }
  45.  
  46.