[RS]Point And Figure Overlay V0

study("[RS]Point And Figure Overlay V0", shorttitle="[RS]PFO.V0", overlay=true)
tf = input('D')
mode = input('ATR')
modeValue = input(14.00, type=float)
reversal = input(1)

pf = pointfigure(tickerid, 'close', mode, modeValue, reversal)
pfh = pointfigure(tickerid, 'high', mode, modeValue, reversal)
pfl = pointfigure(tickerid, 'low', mode, modeValue, reversal)

spfo = security(pf, tf, open)
spfc = security(pf, tf, close)
spfh = security(pfh, tf, high)
spfl = security(pfl, tf, low)

p1 = plot(spfo, color=gray)
p2 = plot(spfc, color=black)

osc = spfc > spfo ? spfc : spfo
p0 = plot(osc, color=gray)

fill(p0, p1, color=green, transp=70)
fill(p0, p2, color=maroon, transp=70)

t0 = plot(max(spfo, spfc), color=silver)
t1 = plot(spfh, color=silver)
b0 = plot(min(spfo, spfc), color=silver)
b1 = plot(spfl, color=silver)

fill(t0, t1, color=maroon, transp=40)
fill(b0, b1, color=green, transp=40)