Super Envolvente (Bullish y Bearish)

//@version=2
study("Super Envolvente")

revisionAltosBajos(position) =>
    high >= high[position] and low <= low[position]

superEnvolventeBearish(position) =>
    revisionAltosBajos(position) and open >= close[position] and open >= open[position] and close <= open[position] and close <= close[position]

superEnvolventeBullish(position) =>
    revisionAltosBajos(position) and open <= close[position] and open <= open[position] and close >= open[position] and close >= close[position]

secLast = 1

barcolor(superEnvolventeBearish(secLast)? #F70317: na)
barcolor(superEnvolventeBullish(secLast)? #008600: na)