Heres the new wall hoping macro
/run local p,f,m,t=Minimap,CreateFrame"Frame"m,t=({p:GetChildren()})[49],p:CreateFontString(0,0,"SystemFont")t:SetPoint("TOP",0,-9)f:SetScript("OnUpdate",function()p=m:GetFacing()/PI%.5;t:SetText(format("\124cff%02xbb00%.3f",255*(1-abs(4*p-1)^92),p))end)
P.S. all credit goes to Pedman000