[CMD] PlotExposure - StroothMod

— Feel free to donate to support my work or if my script helped you in any way <3
— BTC Adress: 33MsEAbA8tg7SpohgnCpSrmPTBih2UkhxQ

DefineIntervalOptimization(CurrentInterval())
DefineCommand('PlotExposure', 'Long/Short Exposure')
local market = DefineParameter(DynamicType, 'market', 'The market to report the exposure on', false, PriceMarket(), 'PriceMarket(), Input')
local cindex = DefineParameter(NumberType, 'ChartIndex', 'The index to plot the chart', false, -2, 'Number, Input')
local enable = DefineParameter(BooleanType, 'enable', 'Enable plotting or hide', false, true, 'Boolean, Input')
local maxSize = Div(MaxLongAmount()+MaxShortAmount(),2)
local longAmount = LongAmount()
local shortAmount = ShortAmount()
local lineLong = IfElse(longAmount > 0, longAmount, 0)
local lineShort = IfElse(shortAmount > 0, -shortAmount, 0)
local zr, lngs, mlngs, shrts, mshrts, exposure, exposureclouds
if enable then 
        exposure = function()
            maxSize = Average(MaxLongAmount(market),MaxShortAmount(market))
            lineLong = FilterBelow(longAmount, 0)
            lineShort = FilterAbove(shortAmount, 0)
            zr = Plot(cindex, '0', 0, {c=White(10), w=2, s=Step})
            lngs = Plot(cindex, 'Longs', lineLong, {c=ChangeColorOpacity(Green,10), s=Step})
            mlngs = Plot(cindex, 'Max Longs', maxSize, {c=ChangeColorOpacity(Green,30), s=Step})
            shrts = Plot(cindex, 'Shorts', lineShort, {c=ChangeColorOpacity(Red, 10), s=Step})
            mshrts = Plot(cindex, 'Max Shorts', -maxSize, {c=ChangeColorOpacity(Red, 30), s=Step})
        end 
        exposureclouds = function()
            PlotStackedArea({
            PlotBands(lngs, zr, ChangeColorOpacity(White,10)),
            PlotCloud(mlngs, lngs, 10),
            PlotCloud(shrts, zr, 10),
            PlotCloud(mshrts, shrts, 10),
            })
            ChartSetOptions(cindex, market..' Exposure', 100, Spread)
        end
          
end 
Finalize(OptimizedForInterval(CurrentInterval(), function()
    if enable then 
        exposure()
        exposureclouds()
    end
end))
DefineOutput(VoidType)