open OFC open HBar_values let () = let hb = new_hbar_elem() in hbar_elem_set_tip hb "#val#<br>L:#left#, R:#right#"; hbar_elem_set_colour hb "#9933CC"; hbar_elem_set_legend hb "Page views"; hbar_elem_set_font_size hb 10; hbar_elem_add_values hb [Int 10; Int 15; LeftRightInt(5, 15)]; let c = new_chart() in chart_add_element c hb; chart_set_bg_colour c "#FFF8C8"; chart_set_title c ~style:"color: #888888; font-size: 16; text-align: center" "My Horizontal-Bar Chart"; let labels = new_labels ["slashdot.org"; "digg.com"; "reddit.com"] in chart_set_y_axis c ~offset_b:true ~labels ~max:2 (); let labels = new_labels ["a";"b";"c";"d";"e";"f";"g";"h";"i";"j";"k";"l";"m";"n";"o";"p";"q";"r";"s";"t";"u";"v"] in chart_set_x_axis c ~labels ~min:0 ~max:18 ~offset_b:false (); chart_set_tooltip c ~mouse:1 (); print_chart c; ;;