home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk433.lzh / Gwin / exsrc.lzh / rubberbandbox.c < prev    next >
C/C++ Source or Header  |  1991-01-12  |  664b  |  35 lines
  1. #include "gwin.user.h"
  2. main()
  3. {
  4. float x,y,xold,yold,event,xanchor,yanchor;
  5. char key = '\0';
  6.  
  7.    ustart("high2",0.,640.,0.,400.);
  8.  
  9.    upset("colo",1.0);
  10.    uprint(10.,90.,"Press left mouse button, hold, drag, release...");
  11.  
  12.    uset("comp");
  13.    upset("colo",1.0);
  14.    uset("ncli");
  15.  
  16.    while (1==1){
  17.       while(key != 'a'){
  18.          ugrinc(&x,&y,&event,&key);
  19.       }
  20.       xanchor = x;   /* anchor point */
  21.       yanchor = y;
  22.       xold = x;
  23.       yold = y;
  24.  
  25.       while (key != 'A'){
  26.          ugrinl(&x,&y,&event,&key);
  27.          urect(xanchor,yanchor,xold,yold);
  28.          urect(xanchor,yanchor,x,y);
  29.          xold = x;
  30.          yold = y;
  31.       }
  32.    }
  33.    uend();
  34. }
  35.