open OFC

let () =
  let ln = new_line_elem() in
  line_elem_set_width ln 2;
  line_elem_set_dot_size ln 4;
  line_elem_set_halo_size ln 1;
  line_elem_set_dot_style ln ~tip:"[#x_label#]<br>Value: #val#" ();
  line_elem_set_colour ln "#736AFF";
  line_elem_set_legend ln "Avg. wave height (cm)";
  line_elem_set_font_size ln 10;
  line_elem_add_floats ln
    [1.50;1.69;1.88;2.06;2.21;2.34;2.43;2.48;2.49;2.47;2.40;2.30;2.17;2.01;1.83;
     1.64;1.44;1.24;1.05;0.88;0.74;0.62;0.54;0.50;0.50;0.54;0.61;0.72;0.86;1.03;
     1.22;1.41;1.61;1.81;1.99;2.15;2.29;2.39;2.46;2.49;2.48;2.44;2.35;2.23;2.08];


  let c = new_chart() in
  chart_add_element c ln;
  chart_set_title c
      ~style:"font-size:16px; margin-top:0; margin-bottom:0; \
              padding-top:0; padding-bottom:0;"
      "X Labels - Min 5 - User Specified Locations Formatted";

  chart_set_y_axis c ~max:3 ();

  let labels =
    new_label_items
      [ x_label_item (Label.Int 6);
        x_label_item (Label.Int 14);
        x_label_item ~text:"override #val#"
                     ~grid_colour:"#FF0000" ~colour:"#d00000"
                     ~rotate:45 ~size:14 ~align:Center
                     (Label.Int 31) ]
  in
  chart_set_x_axis c ~steps:1 ~min:5 ~max:50 ~labels ();

  chart_set_tooltip c
      ~shadow:false ~stroke:5
      ~colour:"#00d000" ~background:"#d0d0ff"
      ~title:"font-size: 14px; color: #905050;"
      ~body:"font-size: 10px; font-weight: bold; color: #9090ff;"
      ();

  print_chart c;
;;