Skip to content

Commit c0e66dc

Browse files
committed
Set glyph_count in Font.set_glyphs, export Raylib_c module
Fixes #63
1 parent 293c62f commit c0e66dc

File tree

3 files changed

+6
-1
lines changed

3 files changed

+6
-1
lines changed

src/raylib/raylib.ml

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,3 +2,4 @@ include Ctypes_reexports
22
include Raylib_types
33
include Functions
44
module Rlgl = Rlgl
5+
module Raylib_c = Raylib_c

src/raylib/raylib.mli

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -16,6 +16,7 @@ val ptr_of_uint : Unsigned.uint -> Unsigned.uint ptr
1616
val void_ptr_of_int : int -> unit ptr
1717

1818
module CArray = Ctypes.CArray
19+
module Raylib_c = Raylib_c
1920

2021
(** {1 Constants} *)
2122

src/raylib/raylib_types.ml

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -370,7 +370,10 @@ module Font = struct
370370

371371
let set_texture font texture = setf font Font.texture texture
372372
let set_recs font recs = setf font Font.recs recs
373-
let set_glyphs font glyphs = setf font Font.glyphs (CArray.start glyphs)
373+
374+
let set_glyphs font glyphs =
375+
setf font Font.glyph_count (CArray.length glyphs);
376+
setf font Font.glyphs (CArray.start glyphs)
374377
end
375378

376379
module Camera3D = struct

0 commit comments

Comments
 (0)