home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d322 / gwin.lha / Gwin / examples / rubberbandbox.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-27  |  664 b   |  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.  
  15.    uset("ncli");
  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.