Re: [Camelot-discuss] Bindings librsvg

[Olivier Andrieu]

 > > | val render : string -> ?gz:bool -> ?dpi:float -> machin_bidule ->
 > > | Sdlvideo.surface
 > > | 
 > > | type machin_didule = 
 > > |   | DEFAULT
 > > |   | AT_SIZE of int * int
 > > |   | AT_ZOOM of float * float
 > > |   | AT_MAX_SIZE of int * int
 > > |   | AT_ZOOM_WITH_MAX of float * float * int * int
 > > |   | CALLBACK of (int -> int -> int * int)
 > > `----
 > > (je sais pas trop comment appeler machinbidule)
 > 
 > Erm, ... oui machin_bidule, c'est une bonne approche pour remplacer tous
 > les ..._from_file, mais est-ce que :
 > 
 > val render : string -> ?gz:bool -> ?dpi:float -> (int -> int -> int * int) 
 > -> Sdlvideo.surface
 > 
 > n'est pas plus general ?

y'a le cas CALLBACK dans machin_bidule qui sert à fournir une fonction
quelconque. 

 > Bien qu'on puisse avoir les deux versions, il faut juste trouver un bon
 > nom pour machin_bidule. rsvg_size ou quelque chose comme cela ?

on peut faire aussi qqche comme ça :
,----
| type size_fun = int -> int -> int * int
| 
| val default : size_fun
| val at_size : int -> int -> size_fun
| val at_zoom : float -> float -> size_fun
| ... etc ...
| 
| val render : string -> ?gz:bool -> ?dpi:float -> size_fun -> Sdlvideo.surface
`----

Sensiblement équivalent AMHA.