Here is a small indicator which reproduces the same interest as Ichimoku, simply, the components were replaced by mobile means.

The selected values refer to the fibonacci sequence.

You can modify the values as an external variable, to change the colours, you just have to modify the colour codes at the beginning of the code.

IV

//
//=/===============/=//=/===============/=//=/ Paramettre de Coloration
//

//
//=/ Couleur Haussière
//

RxUP = 0
GxUP = 150
BxUP = 255

//
//=/ Couleur Baissière
//

RxDW = 102
GxDW = 102
BxDW = 102

//
//=/===============/=//=/===============/=//=/ Paramettre des Moyenne Mobile
//

M8 = average[MM1V,MM1T](customclose)
M21 = average[MM2V,MM2T](customclose)
M55 = average[MM3V,MM3T](customclose)

//
//=/===============/=//=/===============/=//=/ Paramettre Moyenne Rapide & Lente
//

//
//=/ Rapide (Tenkan)
//

if M8 > M8[1] then
 R8 = RxUP
 G8 = GxUP
 B8 = BxUP
elsif M8 < M8[1] then
 R8 = RxDW
 G8 = GxDW
 B8 = BxDW
endif

//
//=/ Lente (Kijun)
//

if M21 > M21[1] then
 R21 = RxUP
 G21 = GxUP
 B21 = BxUP
elsif M21 < M21[1] then
 R21 = RxDW
 G21 = GxDW
 B21 = BxDW
endif


//
//=/===============/=//=/===============/=//=/ Paramettre SSA & SSB
//

//
//=/ SSA
//

SSA = (M8+M21)/2
//=//
if SSA > SSA[1] then
 drawsegment(barindex+20,SSA[1],Barindex+21,SSA) coloured(RxUP,GxUP,BxUP,150)
elsif SSA < SSA[1] then
 drawsegment(barindex+20,SSA[1],Barindex+21,SSA) coloured(RxDW,GxDW,BxDW,150)
endif

//
//=/ SSB
//

SSB = M55
//=//
if SSB > SSB[1] then
 drawsegment(barindex+20,M55[1],Barindex+21,M55) coloured(RxUP,GxUP,BxUP,150)
elsif SSB < SSB[1] then
 drawsegment(barindex+20,M55[1],Barindex+21,M55) coloured(RxDW,GxDW,BxDW,150)
endif

//
//=/===============/=//=/===============/=//=/ Paramettre Nuage
//

//=/ MID
if SSA => SSB then
 R = RxUP
 G = GxUP
 B = BxUP
elsif SSA < SSB then
 R = RxDW
 G = GxDW
 B = BxDW
endif

drawtriangle(barindex+20,SSA[1],barindex+20,SSB[1],barindex+21,SSB) coloured(R,G,B,30) bordercolor(0,0,0,0)
drawtriangle(barindex+20,SSA[1],barindex+21,SSB,barindex+21,SSA) coloured(R,G,B,30) bordercolor(0,0,0,0)



return M8 coloured(R8,G8,B8) style (line,1) as "M1" , M21 coloured(R21,G21,B21) style (line,2) as "M2"