#include "gwin.user.h"
main()
{
float x,y,xold,yold,event,xanchor,yanchor;
char key = '\0';

   ustart("high2",0.,640.,0.,400.);

   upset("colo",1.0);
   uprint(10.,90.,"Press left mouse button, hold, drag, release...");

   uset("comp");
   upset("colo",1.0);

   uset("ncli");
   while (1==1){
      while(key != 'a'){
         ugrinc(&x,&y,&event,&key);
      }
      xanchor = x;   /* anchor point */
      yanchor = y;
      xold = x;
      yold = y;

      while (key != 'A'){
         ugrinl(&x,&y,&event,&key);
         urect(xanchor,yanchor,xold,yold);
         urect(xanchor,yanchor,x,y);
         xold = x;
         yold = y;
      }
   }
   uend();
}