open OFC

let () =
  let cc = new_candle_elem () in
  candle_elem_set_colour cc "#9933CC";

  (*
  candle_elem_set_colour cc "#40d040";
  candle_elem_set_negative_colour cc "#d04040";
  *)

  candle_elem_set_alpha cc ~alpha:0.5;
  candle_elem_set_font_size cc ~size:10;
  candle_elem_set_legend cc ~text:"Burn baby, burn";

  (*
  candle_elem_set_on_show cc ~kind:Pop ~cascade:1.0 ~delay:0.0 ();
  *)

  candle_elem_set_tip cc "#x_label#<br>High: #high#<br>Open: #open#<br>\
                                       Close: #close#<br>Low: #low#";

  let values = [
    (16.00,12.00,10.00, 8.00); (17.92,12.96,12.16, 9.92); (19.37,13.68,14.29,11.37);
    (19.99,13.99,15.85,11.99); (19.64,13.82,16.47,11.64); (18.39,13.20,16.00,10.39);
    (16.56,12.28,14.54, 8.56); (14.60,11.30,12.47, 6.60); (12.97,10.28,10.28, 4.97);
    (12.09,10.04, 8.51, 4.09); (12.16,10.08, 7.60, 4.16); (13.18,10.59, 7.76, 5.18);
    (14.88,11.44, 8.96, 6.88); (16.86,12.43,10.91, 8.86); (18.63,13.12,13.12,10.63);
    (19.75,13.88,15.06,11.75); (19.96,13.98,16.25,11.96); (19.19,13.60,16.40,11.19);
    (17.65,12.82,15.47, 9.65); (15.70,11.85,13.69, 7.70); (13.82,10.91,11.50, 5.82);
    (12.48,10.24, 9.43, 4.48); (12.00,10.00, 7.99, 4.00); (12.50,10.25, 7.53, 4.50);
    (13.85,10.93, 8.17, 5.85); (15.73,11.87, 9.74, 7.73); (17.68,12.84,11.87, 9.68);
    (19.22,13.61,14.03,11.22); (19.96,13.98,15.69,11.96); (19.74,13.87,16.45,11.74);
    (18.60,13.30,16.12,10.60)
  ] in
  let f = (fun (high, top, bottom, low) -> candle_value_floats ~high ~top ~bottom ~low ()) in
  let values = List.map f values in
  candle_elem_add_values cc values;


  let c = new_chart() in
  chart_add_element c cc;
  chart_set_title c "Mon Nov 30 2009";
  chart_set_y_axis c ~min:0 ~max:30 ~steps:10 ();

  chart_set_y_legend c ~style:"color: #736AFF; font-size: 12px;"
                       "Open Flash Chart with OCaml";

  print_chart c;
;;