EdgeTalk

LE:If((H-EMA(C,13))>0-(L-EMA(C,13)),1,0),ColorGreen;
SE:If((L-EMA(C,13))<0-(H-EMA(C,13)),1,0),ColorRed;
FillRgn(LE==1,0,LE),Brush#50008000;
FillRgn(SE==1,0,SE),Brush#50800000;

Here is another version with a 3cc65 Trend Filter

LE:If((H-EMA(C,13))>0-(L-EMA(C,13)) & Sum(C>MA(C,65),3)>2,1,0),ColorGreen;
SE:If((L-EMA(C,13))<0-(H-EMA(C,13)) & Sum(C<MA(C,65),3)>2,1,0),ColorRed;
FillRgn(LE==1,0,LE),Brush#50008000;
FillRgn(SE==1,0,SE),Brush#50800000;
FillRgn(LE==0 & SE==0,0,1),Brush#501E90FF;