a:=max(ma(c,60),ma(c,120));
b:=min(ma(c,60),ma(c,120));
绿灯行:if(c>a,1,0),ColorGreen,LINETHICK0,PRECIS2;
红灯停:if(c<b,1,0),ColorRed,LINETHICK0,PRECIS2;
黄灯观望:if(a>=c and c>=b,1,0),ColorYellow,LINETHICK0,PRECIS2;
FILLRGN(绿灯行,0,RGB(255,0,0));
FILLRGN(红灯停,0,RGB(255,0,0)),ColorRed;
FILLRGN(黄灯观望,0,RGB(255,0,0)),COLORYELLOW;
 |
