引用:
dxzcjkcq 于 2005-1-21 03:06 PM 写道:
辛苦了,谢谢
不客气,也许这样的:
复制内容到剪贴板
代码:
q:ma(c,3);
w:ma(c,10);
e:ma(c,30);
x:=max(w,e);
y:=min(w,e);
p1:=CROSS(q,x);p2:=CROSS(q,y);
k:=BARSLAST(p2),LINETHICK0;k1:=BARSLAST(p1);
u:=ANY(q<y,k1);
g:=BACKSET(REFX(p1,1) and u and REFX(p2,1)=0 and k<4,k),LINETHICK0;
FILLRGN(g>0 ,q,y);