void Earthquake::handle_event
void Scheduled_usecode::handle_event
void Earthquake::handle_event	(	unsigned long curtime,		// Current time of day.	long udata			// ->usecode machine.	)	{	Image_window *win = gwin->get_win();	int w = win->get_width(), h = win->get_height();	int sx = 0, sy = 0;	int dx = rand()%9 - 4;	int dy = rand()%9 - 4;	if (dx > 0)		w -= dx;	else		{		w += dx;		sx -= dx;		dx = 0;		}	if (dy > 0)		h -= dy;	else		{		h += dy;		sy -= dy;		dy = 0;		}	win->copy(sx, sy, w, h, dx, dy);	gwin->set_painted();	gwin->show();					// Shake back.	win->copy(dx, dy, w, h, sx, sy);	if (++i < len)			// More to do?  Put back in queue.		gwin->get_tqueue()->add(curtime + 100, this, udata);	else		delete this;	}