3 * This software is covered under the GNU lesser general public license
7 let colorsys = pyimport_importmodule
"colorsys"
8 let dict = pymodule_getdict
colorsys
10 let triplet = pytuple3
(pyfloat_fromdouble
1.0,
11 pyfloat_fromdouble
0.5,
12 pyfloat_fromdouble
0.2) ;;
14 let rgbtoyiq = pydict_getitemstring
(dict,"rgb_to_yiq")
15 let triplet = pyeval_callobject
(rgbtoyiq,triplet)
17 let _ = print_endline
((string_of_float
18 (pyfloat_asdouble
(pytuple_getitem
(triplet,0)))) ^
21 (pyfloat_asdouble
(pytuple_getitem
(triplet,1)))) ^
24 (pyfloat_asdouble
(pytuple_getitem
(triplet,2))))) ;;
26 let x = pywrap_closure
27 (fun x -> print_string
(pystring_asstring
(pytuple_getitem
(x,0))) ;
30 let _ = pyeval_callobject
31 (x,pytuple_fromsingle
(pystring_fromstring
"hi there"))