_SECTION_BEGIN("Price");

//--------------Farben--------------------------------------------------------------------------

GraphXSpace = Param("GraphXSpace", 5, -50, 100, 1);
SetChartBkColor( ParamColor("HintergrundFarbe", ColorRGB( 255, 255, 255 ) ) );
SetChartOptions(0, chartShowArrows|chartShowDates);
Colortitle  = ParamColor("Color Title", colorBlack);
ColorTF     = ParamColor("Color Timeframe", colorRed);
//Title
_N(Title = StrFormat(EncodeColor(Colortitle) + "{{NAME}} - " + EncodeColor(ColorTF ) + "{{INTERVAL}}" + EncodeColor(Colortitle) + 
" {{DATE}} Open=%g, Hi=%g, Lo=%g, Close=%g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
//_Candles
candle_color_body_up =  ParamColor( "c_body_up", ColorRGB( 0, 255, 0) );
candle_color_body_down  = ParamColor( "c_body_down", ColorRGB( 255, 55, 55) ); 

candle_color_border_up =  ParamColor( "c_up", ColorRGB( 0, 0, 255) );
candle_color_border_down  = ParamColor( "c_down", ColorRGB( 165, 42, 0) ); 
candle_schatten = ParamColor( "c_rahmen", ColorRGB( 0, 0 , 0) );

pinbar_color_schatten = ParamColor( "PinBar-Color_schatten", ColorRGB( 40, 40 , 40) );
pinbar_color_body = ParamColor( "PinBar-Color_body", ColorRGB( 255, 215 , 0) );
	
//--------Bedingungen-----------------------------------------------------------
pinbar_faktor = Param( "Pinbar-Faktor", 5, 1, 10, 0.1);
bedingungOpenNearClose = abs(H-L)/ pinbar_faktor > abs(O-C) ;
bedingungUp = O< C;

style =  styleNoTitle | ParamStyle("Style");

// Color definiert bei CandlChart den Rahmen   alt:  Plot( C, "Price", IIf (bedingungOpenNearClose, pinbar_color_schatten, candle_schatten  ),  style | GetPriceStyle());

// plot untere Ebene >> wichtig für farbe des Schatten
Plot( C, "Price", IIf (bedingungOpenNearClose, pinbar_color_schatten, candle_schatten  ),  style | GetPriceStyle());
// plot obere Ebene >> wichtig für definition andersfahrbenen Bodyrahmen und Bodyfarbe

SetBarFillColor( IIf( bedingungOpenNearClose, pinbar_color_body ,IIf( bedingungUp, candle_color_body_up, candle_color_body_down)  )  );
PlotOHLC( O, O, C, C, "Price", IIf( bedingungOpenNearClose, pinbar_color_schatten,   IIf (O<C, candle_color_border_up, candle_color_border_down)  ),  style | GetPriceStyle(), Null, Null, Null, 9);
_SECTION_END();

_SECTION_BEGIN("_keltnerChannel");
// Keltner Channels 

periode = 10;
x_atr = 1;

CenterLine = MA( ((H + L + C) / 3), periode) ;
upperLine = CenterLine + x_atr * ATR(periode);
lowerLine = CenterLine - x_atr * ATR(periode);

style =  styleNoTitle | ParamStyle("Style");

Plot (upperLine,"",ParamColor( "K", ColorRGB( 192, 192 , 192) ),style);
Plot (lowerLine,"",ParamColor( "K", ColorRGB( 50, 205 , 50) ),style);
Plot (CenterLine,"",ParamColor( "K", ColorRGB( 50, 205 , 50) ),style);
_SECTION_END();