open OFC open Pie_values let () = let values = [ ("New Zealand", 52236); ("Vodafone Mobile", 9560); ("Airedale Street", 6367); ("Ellerslie", 5870); ("Auckland LICA", 2627); ("Manukau City", 2360); ("Telecom Mobile", 2068); ("Remuera", 1747); ("Henderson", 1231); ("East Tamaki / Otara", 1187); ] in let p = new_pie_elem () in pie_elem_set_colours p [ "#0247fe"; "#3d01a4"; "#8601af"; "#a7194b"; "#fe2712"; "#fd5308"; "#fb9902"; "#fabc02"; "#fefe33"; "#d0ea2b"; "#66b032"; "#0392ce"; ]; pie_elem_set_alpha p ~alpha:0.5; pie_elem_set_border p ~border:2; pie_elem_set_label_colour p "#432baf"; pie_elem_set_start_angle p 0; pie_elem_set_tip p ~tip:"#val# of #total#<br>#percent# of 100%"; pie_elem_set_gradient_fill p false; pie_elem_set_animations p [Bounce 8; Fade]; let values = List.map (fun (label, value) -> pie_value ~label (I value)) values in pie_elem_add_values p values; let c = new_chart() in chart_add_element c p; chart_set_bg_colour c "#ffffff"; chart_set_title c ~style:"color: #888888; font-size: 16; text-align: center" "Top 10 Caller Locations by OGA"; print_chart c; ;;