#define PENMOVE		0
#define PENDOWN		1
#define PENUP		2
#define PENHOLD		3
#define PENDRAG		4
#define PENDOUBLE	5
#define PENTRIPLE	6

bool IsNear(Point p, Point o){
	Point delta(p-o);
	if(abs(delta.x)<5 && abs(delta.y)<5) return true;
	return false;
}
	
int PenDecoder(Point p, const PenInfo& pn, dword keyflags){
	static int action=0;
	static int downt=0;
	static Point downp=Null;
	static bool doubleClick=true;
	static bool down=false;
	static bool solved=false;
	int now=msecs();
	int deltat=now-downt;
	
	
	bool isNear=IsNear(p,downp);
	
	switch(pn.action){
		case PEN_DOWN:
			down=true;
			solved=false;
			downp=p;
			downt=now;
			if(isNear){
				if(now-downt < 500){
					if(doubleClick){
						return PENTRIPLE;
					}
					else{
						doubleClick=true;
						return PENDOUBLE;
					}
				}
			}
			doubleClick=false;
			return PENDOWN;

		case PEN_UP:
			down=false;
			return PENUP;

		default:
			if(down && !solved){
				if(isNear){
					if(now-downt > 1000){
						solved=true;
						return PENHOLD;
					}
				}
				else{
					solved=true;
					return PENDRAG;
				}
			}
			return PENMOVE;
	}
}