Value Chart

// Value Chart by TheMightyChicken
study("Value Chart", shorttitle="VC")

// Inputs
len = input(5)
top = input(10)
bot = input(-10)

// Value Chart
middle = sma(hl2,len)
scale = sma(high-low,len)*0.2
o = (open-middle)/scale
h = (high-middle)/scale
l = (low-middle)/scale
c = (close-middle)/scale

// Colors
bar = close>open?#869CA6:close<open?#8C464D:#877082
bg = #29272F

// Lines
plot(0, color=#404040)
plot(top, color=#505050)
plot(bot, color=#505050)

// Above zero
plot((h>0?h:0), color=bar, style=histogram, linewidth=1)
plot(((o>c?o:c)>0?(o>c?o:c):0), color=bar, style=histogram, linewidth=3)
plot(((o<c?o:c)>0?(o<c?o:c):0), color=bg, style=histogram, linewidth=3)
plot(((o<c?o:c)>0?(o<c?o:c):0), color=bar, style=histogram, linewidth=1)
plot((l>0?l:0), color=bg, style=histogram, linewidth=1)

// Below zero
plot((l<0?l:0), color=bar, style=histogram, linewidth=1)
plot(((o<c?o:c)<0?(o<c?o:c):0), color=bar, style=histogram, linewidth=3)
plot(((o>c?o:c)<0?(o>c?o:c):0), color=bg, style=histogram, linewidth=3)
plot(((o>c?o:c)<0?(o>c?o:c):0), color=bar, style=histogram, linewidth=1)
plot((h<0?h:0), color=bg, style=histogram, linewidth=1)