FILLRGN(MA2<MIN(MA5,MA6)&&(MA3>MA1&&MA3>MA2||REF(MA3>MA1&&MA3>MA2,1))&&NOT(MA1>MIN(MA5,MA6)),MA1,MA2,COLORGRAY);

FILLRGN(MA2>MAX(MA5,MA6)&&(MA3<MA1&&MA3<MA2||REF(MA3<MA1&&MA3<MA2,1)),MA1,MA2,COLORGRAY);

FILLRGN(MAX(MA1,MA2)>MAX(MA5,MA6)&&MIN(MA1,MA2)<MAX(MA5,MA6)||REF(MAX(MA1,MA2)>MAX(MA5,MA6)&&MIN(MA1,MA2)<MAX(MA5,MA6),1)&&MA1>MIN(MA5,MA6),MAX(MA1,MA2),MAX(MIN(MA1,MA2), MAX(MA5,MA6)),COLORGRAY);
FILLRGN( MIN(MA1,MA2)>MAX(MA5,MA6) ||REF(MIN(MA1,MA2)>MAX(MA5,MA6) ,1),MAX(MA1,MA2),MAX(MAX(MA5,MA6), MIN(MA1,MA2)),COLORGRAY);

FILLRGN(MIN(MA1,MA2)<MIN(MA5,MA6)&&MAX(MA1,MA2)>MIN(MA5,MA6)||REF(MIN(MA1,MA2)<MIN(MA5,MA6)&&(MAX(MA1,MA2)>=MIN(MA5,MA6)),1)&&MA1<MIN(MA5,MA6),MIN(MA5,MA6),MIN(MA1,MA2),COLORGRAY);
FILLRGN( MAX(MA1,MA2)<MIN(MA5,MA6) ||REF(MAX(MA1,MA2)<MIN(MA5,MA6) ,1),MIN(MAX(MA1,MA2),MIN(MA5,MA6)),MIN(MA1,MA2),COLORGRAY);

FILLRGN(MA3>MA4,MA3,MA4,COLORGRAY);
FILLRGN(MA3<MA4,MA3,MA4,COLORGRAY);

?

?來源:程序化99