type (!'a, !'b) xlfd = {mutable foundry : 'a;mutable family : 'a;mutable weight : 'a;mutable slant : 'a;mutable setWidth : 'a;mutable addStyle : 'a;mutable pixelSize : 'b;mutable pointSize : 'b;mutable resolutionX : 'b;mutable resolutionY : 'b;mutable spacing : 'a;mutable averageWidth : 'b;mutable registry : 'a;mutable encoding : 'a;}type valid_xlfd = (string, int) xlfdtype pattern = (string option, int option) xlfdval empty_pattern : patternval string_of_valid_xlfd : valid_xlfd -> stringval string_of_pattern : pattern -> stringval is_vector_font : valid_xlfd -> boolval list_fonts : string option -> pattern -> valid_xlfd listval available_pixel_size :
string option ->
pattern ->
(int * valid_xlfd list) listval nearest_pixel_size : string option -> bool -> pattern -> valid_xlfd