_SR_Barry_FIB_PROJ

//+------------------------------------------------------------------+
// _SR_Barry_FIB_PROJ                                                |
//|                Support and Resistance                            |
//|                Copyright © 2004  Barry Stander                   |
//|                http://myweb.absa.co.za/stander/4meta/            |
//+------------------------------------------------------------------+
#property copyright "Click here: Barry Stander"
#property link      "http://myweb.absa.co.za/stander/4meta/"

#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 Red 
#property indicator_color4 Red  
#property indicator_color5 Blue  
#property indicator_color6 Blue 


//---- input parameters 

extern bool iPlotChart = false ;
extern bool iPlotGauge = true ;

extern int myPeriod  = 1440 ;
extern int myChartY = 50 ;

extern int       WingDing1 = 226;  
extern int       WingDing2 = 225;  
extern int       WingDingR = 234;  
extern int       WingDingS = 233;  
extern double    iLevelP1=0.382; 
extern double    iLevelP2=0.618; 
extern bool Horizontal = true ;


//---- buffers
double v1[];
double v2[];
double val1;
double val2;
double xBuffer1[]; 
double xBuffer2[]; 
double xBuffer3[]; 
double xBuffer4[]; 
double xPos[]; 
double z1[];
double z2[];
int i;
  
int init()
  {

  IndicatorBuffers(6);
 
//---- drawing settings
 SetIndexArrow(0, WingDingR);
 SetIndexArrow(1, WingDingS);
  
   SetIndexStyle(0,DRAW_ARROW,STYLE_DOT,0,Red);
   SetIndexDrawBegin(0,i-1);
   SetIndexBuffer(0, v1);
   SetIndexLabel(0,"Resistance");
    

   SetIndexStyle(1,DRAW_ARROW,STYLE_DOT,0,Blue);
   SetIndexDrawBegin(1,i-1);
   SetIndexBuffer(1, v2);
   SetIndexLabel(1,"Support");
 
 
   SetIndexStyle(2,DRAW_ARROW); 
   SetIndexArrow(2,WingDing1); 
   SetIndexBuffer(2,xBuffer1); 
   SetIndexEmptyValue(2,0.0); 
   SetIndexStyle(3,DRAW_ARROW); 
   SetIndexArrow(3,WingDing1); 
   SetIndexBuffer(3,xBuffer2); 
   SetIndexEmptyValue(3,0.0); 
   SetIndexStyle(4,DRAW_ARROW); 
   SetIndexArrow(4,WingDing2); 
   SetIndexBuffer(4,xBuffer3); 
   SetIndexEmptyValue(4,0.0); 
   SetIndexStyle(5,DRAW_ARROW); 
   SetIndexArrow(5,WingDing2); 
   SetIndexBuffer(5,xBuffer4); 
   SetIndexEmptyValue(5,0.0); 

 
   return(0);
  }

//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   
   ObjectDelete("SupRes");
   ObjectDelete("line5SupRes");
   ObjectDelete("R3_Lab");
   ObjectDelete("R3_Val");
   ObjectDelete("R2_Lab");
   ObjectDelete("R2_Val");
   ObjectDelete("R1_Lab");
   ObjectDelete("R1_Val");
   ObjectDelete("Pivot_Lab");
   ObjectDelete("Pivot_Val");   
      
   return(0);
  }

int start()
  {
  
   i=Bars;
   while(i>=0)
     {
   

val1 = iFractals(NULL, myPeriod, MODE_UPPER, i); 
//---- 
if(val1 > 0) {
v1[i] = High[i]; 
double R3 = v1[i] ; }
else 
if (Horizontal) {v1[i] = v1[i+1]; }

 

val2 = iFractals(NULL, myPeriod, MODE_LOWER, i); 
//---- 
if(val2 > 0) {
v2[i] = Low[i]; 
double R2 = v2[i] ; }
else 
if (Horizontal) {v2[i] = v2[i+1]; }


if ( iPlotChart ) { 


                  double Range = v1[i] - v2[i];    
                  xBuffer1[i] = v1[i] + (Range*iLevelP2) ; 
                  xBuffer2[i] = v1[i] + (Range*iLevelP1) ; 
                  xBuffer3[i] = v2[i] - (Range*iLevelP1) ; 
                  xBuffer4[i] = v2[i] - (Range*iLevelP2) ; 

} // iPlotChart

      i--;
     }  // while 
     
if ( iPlotGauge ) {  
double xRet = Close[0] - R2 ;

double xRetPct =  ( 100 * xRet ) / ( R3 - R2 );     
     
     

//+------------------------------------------------------------------+ 
   color color_title   =White;
   color color_res     =Red;  
   color color_sup     =Blue;   
   color color_ret     =White; 
   color color_retpct  =White;   
    
   color color_r3=Red;
   color color_r2=Red;
   color color_r1=White;
   color color_p =White;
   
	if( Close[0] < R3) { color_r3=Lime; } 
	if( Close[0] < R2) { color_r2=Lime; } 
	
	int Precision, dig;	

   if( StringFind( Symbol(), "JPY", 0) != -1 ) { Precision = 100; dig = 2;}
   else                                        { Precision = 10000; dig = 4; }

 
int sPeriod= Period();

if (myPeriod != NULL){ sPeriod= myPeriod ; color_title=Yellow;}
  
     	
//---- Set Pivots labels

   int WindowToUse;
   int Corner_line, Xdist_line;
   int Corner_text, Corner_value, Xdist_text, Xdist_value;
   int Ydist_line5;
   int Corner_pivots, Xdist_pivots, Ydist_pivots;
   int Ydist_R3, Ydist_R2, Ydist_R1, Ydist_PV, Ydist_S1, Ydist_S2, Ydist_S3;
  
   int YdistInc ;
    WindowToUse =  0;
    Corner_line = 1;
    Corner_text = 1; Corner_value = 1;
    Xdist_line = 21; Xdist_text = 93; Xdist_value = 23;
    Corner_pivots = 1; Xdist_pivots = 21; 
    Ydist_pivots = myChartY;  
    Ydist_line5 = Ydist_pivots + 11; YdistInc = 15 ;
    Ydist_R3 = Ydist_pivots + 25; 
    Ydist_R2 = Ydist_R3 + YdistInc; 
    Ydist_R1 = Ydist_R3 + YdistInc*2; 
    Ydist_PV = Ydist_R3 + YdistInc*3; 
    Ydist_S1 = Ydist_R3 + YdistInc*4; 
    Ydist_S2 = Ydist_R3 + YdistInc*5; 
    Ydist_S3 = Ydist_R3 + YdistInc*6;

   ObjectCreate("SupRes", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("SupRes",sPeriod + " SR Fib Proj ",9, "Verdana", color_title);
   ObjectSet("SupRes", OBJPROP_CORNER, Corner_pivots);
   ObjectSet("SupRes", OBJPROP_XDISTANCE, Xdist_pivots);
   ObjectSet("SupRes", OBJPROP_YDISTANCE, Ydist_pivots);
   
   ObjectCreate("line5SupRes", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("line5SupRes","---------------------",7, "Verdana", color_title);
   ObjectSet("line5SupRes", OBJPROP_CORNER, Corner_line);
   ObjectSet("line5SupRes", OBJPROP_XDISTANCE, Xdist_line);
   ObjectSet("line5SupRes", OBJPROP_YDISTANCE, Ydist_line5);
   
   ObjectCreate("R3_Lab", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R3_Lab","Res  ",9, "Verdana", color_res);
   ObjectSet("R3_Lab", OBJPROP_CORNER, Corner_text);
   ObjectSet("R3_Lab", OBJPROP_XDISTANCE, Xdist_text);
   ObjectSet("R3_Lab", OBJPROP_YDISTANCE, Ydist_R3);
   
   ObjectCreate("R3_Val", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R3_Val"," "+DoubleToStr(R3,dig),9, "Verdana", color_r3);
   ObjectSet("R3_Val", OBJPROP_CORNER, Corner_value);
   ObjectSet("R3_Val", OBJPROP_XDISTANCE, Xdist_value);
   ObjectSet("R3_Val", OBJPROP_YDISTANCE, Ydist_R3);
   
   ObjectCreate("R2_Lab", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R2_Lab","Sup  ",9, "Verdana", color_sup);
   ObjectSet("R2_Lab", OBJPROP_CORNER, Corner_text);
   ObjectSet("R2_Lab", OBJPROP_XDISTANCE, Xdist_text);
   ObjectSet("R2_Lab", OBJPROP_YDISTANCE, Ydist_R2);
   
   ObjectCreate("R2_Val", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R2_Val"," "+DoubleToStr(R2,dig),9, "Verdana", color_r2);
   ObjectSet("R2_Val", OBJPROP_CORNER, Corner_value);
   ObjectSet("R2_Val", OBJPROP_XDISTANCE, Xdist_value);
   ObjectSet("R2_Val", OBJPROP_YDISTANCE, Ydist_R2);
   
   ObjectCreate("R1_Lab", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R1_Lab","Ret  ",9, "Verdana", color_r1 );
   ObjectSet("R1_Lab", OBJPROP_CORNER, Corner_text);
   ObjectSet("R1_Lab", OBJPROP_XDISTANCE, Xdist_text);
   ObjectSet("R1_Lab", OBJPROP_YDISTANCE, Ydist_R1);
   
   ObjectCreate("R1_Val", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("R1_Val"," "+DoubleToStr(xRet,dig),9, "Verdana", color_r1);
   ObjectSet("R1_Val", OBJPROP_CORNER, Corner_value);
   ObjectSet("R1_Val", OBJPROP_XDISTANCE, Xdist_value);
   ObjectSet("R1_Val", OBJPROP_YDISTANCE, Ydist_R1);
   
   ObjectCreate("Pivot_Lab", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("Pivot_Lab","Ret%",9, "Verdana", White);
   ObjectSet("Pivot_Lab", OBJPROP_CORNER, Corner_text);
   ObjectSet("Pivot_Lab", OBJPROP_XDISTANCE, Xdist_text);
   ObjectSet("Pivot_Lab", OBJPROP_YDISTANCE, Ydist_PV);
   
   ObjectCreate("Pivot_Val", OBJ_LABEL, WindowToUse, 0, 0);
   ObjectSetText("Pivot_Val"," "+DoubleToStr(xRetPct,dig),9, "Verdana", color_p);
   ObjectSet("Pivot_Val", OBJPROP_CORNER, Corner_value);
   ObjectSet("Pivot_Val", OBJPROP_XDISTANCE, Xdist_value);
   ObjectSet("Pivot_Val", OBJPROP_YDISTANCE, Ydist_PV);   
   
} // iPlotGauge
   
   return(0); 
}