open OFC open Pie_values let () = let pc = new_pie_elem() in pie_elem_set_colours pc ~colours:["#d01f3c"; "#356aa0"; "#C79810"; "#46CF79"]; pie_elem_set_alpha pc ~alpha:0.6; pie_elem_set_border pc ~border:2; pie_elem_set_start_angle pc ~start_angle:35; let p1 = pie_value ~on_click:"http://teethgrinder.co.uk/open-flash-chart-2/" ~label:"hello label" ~tip:"#val# bottles of beer" (F 5.5) in pie_elem_add_values pc [Int 2; Int 3; p1; Float 1.5]; let c = new_chart() in chart_set_bg_colour c "#EFEFEF"; chart_set_title c ~style:"font-size:16px; font-family:Verdana; color:#404550;" "My Pie Chart"; chart_add_element c pc; print_chart c; ;;