open OFC let () = let e1 = new_line_elem() in line_elem_set_width e1 5; line_elem_set_loop e1 true; line_elem_add_ints e1 [3; 4; 5; 4; 6; 8; 7; 8; 9; 7; 5]; let e2 = new_area_elem() in area_elem_set_width e2 3; area_elem_set_loop e2 true; area_elem_set_colour e2 "#F9C738"; area_elem_set_fill e2 "#F9C738"; area_elem_set_fill_alpha e2 0.4; area_elem_add_ints e2 [8; 9; 7; 5; 3; 4; 5; 4; 6; 8; 7]; let c = new_chart() in chart_add_element c e2; chart_add_element c e1; chart_set_bg_colour c "#ffffff"; chart_set_title c ~style:"color: #888888; font-size: 16; text-align: center" "My Radar Chart"; let labels = new_labels ~colour:"#000000" ~visible_steps:2 ["A"; "B"; "C"; "D"; "E"; "F"; "G"; "H"; "I"; "J"; "K"] in let spoke_labels = let items = List.map (fun (colour, text) -> label_item ~colour text) [ "#00AA00", "alpha"; "#FF0000", "beta"; "#0000FF", "gamma"; "#3060A0", "delta"; "#A03060", "epsilon"; "#3080A0", "dzeta"; "#6030A0", "eta"; "#60A030", "theta"; "#5060A0", "iota"; "#A06030", "kappa"; "#3060C0", "lambda"; ] in new_spoke_label_items items in chart_set_radar_axis c ~max:10 ~stroke:3 ~labels ~spoke_labels ~colour:"#167840" ~grid_colour:"#E1AAF5" (); print_chart c; ;;