2002-04-26 05:16:26 -07:00
|
|
|
##ifdef CAMLTK
|
|
|
|
|
|
|
|
|
|
(* type *)
|
|
|
|
|
type paletteType =
|
|
|
|
|
| GrayShades of int
|
|
|
|
|
| RGBShades of int * int * int
|
|
|
|
|
;;
|
|
|
|
|
(* /type *)
|
|
|
|
|
|
|
|
|
|
##else
|
|
|
|
|
|
1999-11-30 06:59:39 -08:00
|
|
|
(* type *)
|
|
|
|
|
type paletteType = [
|
2000-04-02 18:57:52 -07:00
|
|
|
| `Gray of int
|
|
|
|
|
| `Rgb of int * int * int
|
1999-11-30 06:59:39 -08:00
|
|
|
]
|
2002-04-26 05:16:26 -07:00
|
|
|
;;
|
1999-11-30 06:59:39 -08:00
|
|
|
(* /type *)
|
|
|
|
|
|
2002-04-26 05:16:26 -07:00
|
|
|
##endif
|
