-- More information about this indicator can be found at: -- http://fxcodebase.com/code/viewtopic.php?f=17&t=39802&start=30 --+------------------------------------------------------------------+ --| Copyright © 2018, Gehtsoft USA LLC | --| http://fxcodebase.com | --+------------------------------------------------------------------+ --| Developed by : Mario Jemic | --| mario.jemic@gmail.com | --+------------------------------------------------------------------+ --| Support our efforts by donating | --| Paypal: https://goo.gl/9Rj74e | --| BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF | --| BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg | --| Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D | --| LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD | --+------------------------------------------------------------------+ function Init() indicator:name("Higher Time Frame Support Resistance"); indicator:description("Higher Time Frame Support Resistance"); indicator:requiredSource(core.Bar); indicator:type(core.Indicator); indicator.parameters:addGroup("Calculation"); indicator.parameters:addString("Method", "Current / Previous Period ", "Current / Previous" , "Previous"); indicator.parameters:addStringAlternative("Method", "Current Period", "Current" , "Current"); indicator.parameters:addStringAlternative("Method", "Previous Period", "Previous" , "Previous"); indicator.parameters:addStringAlternative("Method", "Both", "Both" , "Both"); indicator.parameters:addString("Type", "Lines/Label ", "Lines/Label" , "Both"); indicator.parameters:addStringAlternative("Type", "Lines", "Lines" , "Lines"); indicator.parameters:addStringAlternative("Type", "Labels", "Labels" , "Labels"); indicator.parameters:addStringAlternative("Type", "Both", "Both" , "Both"); indicator.parameters:addString("Mode", "TODAY or HISTORICAL ", "TODAY or HISTORICAL" , "TODAY"); indicator.parameters:addStringAlternative("Mode", "TODAY", "TODAY" , "TODAY"); indicator.parameters:addStringAlternative("Mode", "HISTORICAL", "HISTORICAL" , "HISTORICAL"); local TF={"m1" , "m5" ,"m15" ,"m30" , "H1" , "H2", "H3" , "H4", "H6","H8" , "D1" , "W1", "M1"}; local i; for i= 1, 13,1 do indicator.parameters:addGroup(i.. ". Time Frame"); if i~= 12 and i ~= 13 then indicator.parameters:addBoolean("On"..i , "Show " .. TF[i] .. " Frame", "", false); else indicator.parameters:addBoolean("On"..i , "Show " .. TF[i] .. " Frame", "", true); end indicator.parameters:addBoolean("Show"..i , "Show Close " .. TF[i] .. " Frame", "", false); indicator.parameters:addGroup(i.. ". Time Frame Style"); indicator.parameters:addColor("Up"..i, "High Color", "", core.rgb(0, 255, 0)); indicator.parameters:addColor("Down"..i, "Low Color", "", core.rgb(255, 0, 0)); indicator.parameters:addColor("Close"..i, "Close Color", "", core.rgb(0, 0, 0)); indicator.parameters:addInteger("width"..i, "Line width", "", 1, 1, 5); indicator.parameters:addInteger("CurrentStyle"..i, "Current Period Line style", "", core.LINE_SOLID); indicator.parameters:setFlag("CurrentStyle"..i, core.FLAG_LINE_STYLE); indicator.parameters:addInteger("PreviousStyle"..i, "Previous Period Line style", "", core.LINE_DASH); indicator.parameters:setFlag("PreviousStyle"..i, core.FLAG_LINE_STYLE); end indicator.parameters:addGroup("Common Parameters"); indicator.parameters:addInteger("Size", "Size", "", 10); indicator.parameters:addBoolean("ShowLabel" , "Show Labels","", true); --indicator.parameters:addInteger("Shift", "Vertical Shift", "", 0, 0 , 10000); indicator.parameters:addColor("Label", "Label Color", "", core.rgb(0, 0, 0)); end local CloseColor; local source; local ATF={}; local loading={}; local On={}; local SourceData={}; local font, Wingdings, Bold; local Size; local Up={}; local Down={}; local Close={}; local No, LabelColor; local TF={"m1" , "m5" ,"m15" ,"m30" , "H1" , "H2", "H3" , "H4", "H6","H8" , "D1" , "W1", "M1"}; local Method; local Num; local ShowLabel; local offset, weekoffset; local Mode; local Show={}; local width={}; local CurrentStyle={}; local PreviousStyle={}; local Type; --[[ function ReleaseInstance() core.host:execute("deleteFont", font); core.host:execute("deleteFont", Wingdings); core.host:execute("deleteFont", Bold); end ]] function Prepare(nameOnly) Method= instance.parameters.Method; Type= instance.parameters.Type; Mode= instance.parameters.Mode; ShowLabel= instance.parameters.ShowLabel; source = instance.source; Size= instance.parameters.Size; offset = core.host:execute("getTradingDayOffset"); weekoffset = core.host:execute("getTradingWeekOffset"); local name = "(" .. profile:id() .. "," .. instance.source:name() .. "," .. Method.. ")" local i,j ; LabelColor = instance.parameters.Label; instance:name(name); if nameOnly then return; end Num=0; --font = core.host:execute("createFont", "Courier", Size , false, false); --Wingdings = core.host:execute("createFont", "Wingdings", Size +1, false, false); --Bold = core.host:execute("createFont", "Courier", Size +1, false, true); for j = 1, 13, 1 do On[j]= instance.parameters:getBoolean ("On"..j); local s,e, s1, s2; s, e = core.getcandle(source:barSize(), core.now(), 0, 0); s1, e1 = core.getcandle(TF[j], core.now(), 0, 0); if ((e-s)< (e1-s1)) and On[j] then Num=Num+1; Show[Num]= instance.parameters:getBoolean ("Show"..j); Up[Num] = instance.parameters:getDouble ("Up"..j); Down[Num] = instance.parameters:getDouble ("Down"..j); Close[Num]= instance.parameters:getDouble ("Close"..j); width[Num]= instance.parameters:getInteger ("width"..j); CurrentStyle[Num]= instance.parameters:getInteger ("CurrentStyle"..j); PreviousStyle[Num]= instance.parameters:getInteger ("PreviousStyle"..j); ATF[Num]= TF[j]; SourceData[Num] = core.host:execute("getSyncHistory", source:instrument(), ATF[Num], source:isBid(), 2 , 200 + Num , 100 +Num); loading[Num] = true; end end instance:ownerDrawn(true); end local id=0; function Draw(stage, context ) if stage ~= 0 then return; end context:setClipRectangle ( context:left (), context:top(), context:right (), context:bottom()); local FLAG=false; local j; for j = 1, Num, 1 do if loading[j] then FLAG= true; end end if FLAG then return; end id=0; local Now; local Last=math.min(context:lastBar (), source:size()-1); local First=math.max(source:first(), context:firstBar ()); local period; if Mode=="TODAY" then period= source:size()-1; Line( context,period ); else for period = First, Last, 1 do Line( context,period ); end end end function Line( context,period ) local Now for j = 1, Num, 1 do local s1, e1; Now=Initialization(period,j); if Now~= false then if Type~= "Labels" then s1, e1 = core.getcandle(ATF[j], source:date(period),offset, weekoffset); if Method ~= "Previous" then core.host:execute("drawLine", Id(), s1, SourceData[j].high[Now], e1, SourceData[j].high[Now],Up[j], CurrentStyle[j], width[j]); core.host:execute("drawLine", Id(), s1, SourceData[j].low[Now], e1, SourceData[j].low[Now],Down[j], CurrentStyle[j], width[j]); end if Method ~= "Current" then core.host:execute("drawLine", Id(), s1, SourceData[j].high[Now-1], e1, SourceData[j].high[Now-1],Up[j], PreviousStyle[j], width[j]); core.host:execute("drawLine", Id(), s1, SourceData[j].low[Now-1], e1, SourceData[j].low[Now-1],Down[j], PreviousStyle[j], width[j]); end if Show[j] then if Method ~= "Previous" then core.host:execute("drawLine", Id(), s1, SourceData[j].close[Now], e1, SourceData[j].close[Now],Close[j], CurrentStyle[j], width[j]); end if Method ~= "Current" then core.host:execute("drawLine", Id(), s1, SourceData[j].close[Now-1], e1, SourceData[j].close[Now-1],Close[j], PreviousStyle[j], width[j]); end end if ShowLabel then if Method ~= "Previous" then core.host:execute("drawLabel1", Id(), e1 , core.CR_CHART, SourceData[j].high[Now], core.CR_CHART, core.H_Left, core.V_Top, Bold, LabelColor, ATF[j].. " : " .. win32.formatNumber(SourceData[j].high[Now], false, source:getPrecision())); core.host:execute("drawLabel1", Id(), e1 , core.CR_CHART, SourceData[j].low[Now], core.CR_CHART, core.H_Left, core.V_Top, Bold, LabelColor, ATF[j].. " : " .. win32.formatNumber(SourceData[j].low[Now], false, source:getPrecision())) ; end if Method ~= "Current" then core.host:execute("drawLabel1", Id(), e1 , core.CR_CHART, SourceData[j].high[Now-1], core.CR_CHART, core.H_Left, core.V_Top, Bold, LabelColor, ATF[j].. " : " .. win32.formatNumber(SourceData[j].high[Now-1], false, source:getPrecision())); core.host:execute("drawLabel1", Id(), e1 , core.CR_CHART, SourceData[j].low[Now-1], core.CR_CHART, core.H_Left, core.V_Top, Bold, LabelColor, ATF[j].. " : " .. win32.formatNumber(SourceData[j].low[Now-1], false, source:getPrecision())); end end end if Type~="Lines" then context:createFont (1, "Arial", context:pointsToPixels (Size), context:pointsToPixels (Size), 0); width1, height1= context:measureText (1, ATF[j], 0); width2, height2= context:measureText (1, "Previous", 0); width3, height3= context:measureText (1, "Current", 0); HShift= (context:right()-context:left())/3; X1=context:right() -HShift- width2*2; X2=context:right() -HShift +width3; context:drawText (1, "Previous" , LabelColor, -1, X1, context:top() ,X1 + width2 , context:top()+height2 , 0) context:drawText (1, "Current", LabelColor, -1, X2, context:top() ,X2 + width3 , context:top()+height3 , 0) context:drawText (1, ATF[j], LabelColor, -1, X1-width1*2, context:top()+ height1*(j),X1- width1, context:top()+height1*(j+1), 0) xLabel=""; xLabel= "H: " .. SourceData[j].high[Now-1]; xLabel= xLabel .. " L: " .. SourceData[j].low[Now-1]; width4, height4= context:measureText (1, xLabel, 0); context:drawText (1, xLabel , LabelColor, -1, X1, context:top()+height2*(j) ,X1 + width4 , context:top()+height2*(j+1) , 0); xLabel=""; xLabel= "H: " .. SourceData[j].high[Now]; xLabel= xLabel .. " L: " .. SourceData[j].low[Now]; width4, height4= context:measureText (1, xLabel, 0); width6, height6= context:measureText (1, xLabel, 0); context:drawText (1, xLabel , LabelColor, -1, X2, context:top()+height2*(j) ,X2 + width6 , context:top()+height2*(j+1) , 0); end end end end function Update(period ) end function Id() id=id+1; return id; end function Initialization(period,id) local Candle; Candle = core.getcandle(source:barSize(), source:date(period), offset,weekoffset); if loading[id] or SourceData[id]:size() == 0 then return false; end if period < source:first() then return false; end local P = core.findDate(SourceData[id], Candle, false); -- candle is not found if P < 0 then return false; else return P; end end -- the function is called when the async operation is finished function AsyncOperationFinished(cookie) local j; local FLAG=false; local Number=0; for j = 1, Num, 1 do if cookie == (100 + j) then loading[j] = true; elseif cookie == (200 + j ) then loading[j] = false; end if loading[j] then FLAG= true; Number=Number+1; end end if FLAG then core.host:execute ("setStatus", " Loading "..((Num) - Number) .. " / " .. (Num) ); else core.host:execute ("setStatus", "Loaded") instance:updateFrom(0); end return core.ASYNC_REDRAW ; end