open OFC let () = let lg1 = new_line_elem() in line_elem_set_width lg1 6; line_elem_set_colour lg1 "#209010"; line_elem_set_legend lg1 "Legend Blabla"; line_elem_set_font_size lg1 14; line_elem_add_ints lg1 [5; 7; 8; 10; 8; 10; 11; 9; 6]; line_elem_set_dot_style lg1 ~kind:Hollow_dot ~colour:"#20EF00" ~dot_size:8 ~tip:"x = #x_label#<br>y = #val#" (); let lg2 = new_line_elem() in line_elem_set_width lg2 4; line_elem_set_colour lg2 "#102090"; line_elem_set_legend lg2 "2nd Legend"; line_elem_set_font_size lg2 14; let d1 = dot ~colour:"#FF0000" ~dot_size:9 ~halo_size:2 ~on_click:"http://rosettacode.org/" ~tip:"This one's important<br>(x = #x_label#; y = #val#)" ~label:"Blabla" ~label_colour:"#FFA000" ~font_size:18 (I 8) in line_elem_add_values lg2 [Int 10; Int 11; Int 10; Int 7; Int 5; Int 6; d1; Int 7; dot ~kind:Star ~dot_size:12 (I 9)]; line_elem_set_dot_style lg2 ~kind:Solid_dot ~colour:"#0020EF" ~dot_size:6 ~tip:"x = #x_label#<br>y = #val#" (); let c = new_chart() in chart_set_bg_colour c "#EFEFEF"; chart_set_title c "My Line Dot Chart Test 2"; chart_set_y_legend c ~style:"color: #736AFF;" "Y-Legend hello"; chart_add_elements c [Line lg1; Line lg2]; let grid_colour = "#D0D0D0" in let colour = "#404040" in chart_set_y_axis c ~colour ~grid_colour ~stroke:4 ~min:4 ~max:12 ~steps:2 (); chart_set_x_axis c ~colour ~grid_colour ~stroke:1 (); print_chart c; ;;