{
SRECT g;
SPOINT p1,p2,p3,p4,pp1,pp2,pp3,pp4;
{
SRECT g;
SPOINT p1,p2,p3,p4,pp1,pp2,pp3,pp4;
p1.x = r.xmin;p1.y = r.ymin;
p2.x = r.xmax;p2.y = r.ymin;
p3.x = r.xmin;p3.y = r.ymax;
p1.x = r.xmin;p1.y = r.ymin;
p2.x = r.xmax;p2.y = r.ymin;
p3.x = r.xmin;p3.y = r.ymax;