mmo-project/fortran/client/raylib.f90

module raylib
   use iso_c_binding
   implicit none

   type, bind(c) :: vector2
      real(c_float) :: x
      real(c_float) :: y
   end type

   type, bind(c) :: vector3
      real(c_float) :: x
      real(c_float) :: y
      real(c_float) :: z
   end type

   type, bind(c) :: color
      integer(c_int8_t) :: r
      integer(c_int8_t) :: g
      integer(c_int8_t) :: b
      integer(c_int8_t) :: a
   end type

   type(color) :: LIGHTGRAY = color(200, 200, 200, 255)
   type(color) :: GRAY = color(130, 130, 130, 255)
   type(color) :: DARKGRAY = color(80, 80, 80, 255)
   type(color) :: YELLOW = color(253, 249, 0, 255)
   type(color) :: GOLD = color(255, 203, 0, 255)
   type(color) :: ORANGE = color(255, 161, 0, 255)
   type(color) :: PINK = color(255, 109, 194, 255)
   type(color) :: RED = color(230, 41, 55, 255)
   type(color) :: MAROON = color(190, 33, 55, 255)
   type(color) :: GREEN = color(0, 228, 48, 255)
   type(color) :: LIME = color(0, 158, 47, 255)
   type(color) :: DARKGREEN = color(0, 117, 44, 255)
   type(color) :: SKYBLUE = color(102, 191, 255, 255)
   type(color) :: BLUE = color(0, 121, 241, 255)
   type(color) :: DARKBLUE = color(0, 82, 172, 255)
   type(color) :: PURPLE = color(200, 122, 255, 255)
   type(color) :: VIOLET = color(135, 60, 190, 255)
   type(color) :: DARKPURPLE = color(112, 31, 126, 255)
   type(color) :: BEIGE = color(211, 176, 131, 255)
   type(color) :: BROWN = color(127, 106, 79, 255)
   type(color) :: DARKBROWN = color(76, 63, 47, 255)
   type(color) :: WHITE = color(255, 255, 255, 255)
   type(color) :: BLACK = color(0, 0, 0, 255)
   type(color) :: BLANK = color(0, 0, 0, 0)
   type(color) :: MAGENTA = color(255, 0, 255, 255)
   type(color) :: RAYWHITE = color(245, 245, 245, 255)

   type, bind(c) :: camera3d
      type(vector3) :: position
      type(vector3) :: target
      type(vector3) :: up
      real(c_float) :: fovy
      integer(c_int) :: projection
   end type

    ! Keyboard keys
    integer(c_int) :: KEY_NULL            = 0
    ! Alphanumeric keys
    integer(c_int) :: KEY_APOSTROPHE      = 39
    integer(c_int) :: KEY_COMMA           = 44
    integer(c_int) :: KEY_MINUS           = 45
    integer(c_int) :: KEY_PERIOD          = 46
    integer(c_int) :: KEY_SLASH           = 47
    integer(c_int) :: KEY_ZERO            = 48
    integer(c_int) :: KEY_ONE             = 49
    integer(c_int) :: KEY_TWO             = 50
    integer(c_int) :: KEY_THREE           = 51
    integer(c_int) :: KEY_FOUR            = 52
    integer(c_int) :: KEY_FIVE            = 53
    integer(c_int) :: KEY_SIX             = 54
    integer(c_int) :: KEY_SEVEN           = 55
    integer(c_int) :: KEY_EIGHT           = 56
    integer(c_int) :: KEY_NINE            = 57
    integer(c_int) :: KEY_SEMICOLON       = 59
    integer(c_int) :: KEY_EQUAL           = 61
    integer(c_int) :: KEY_A               = 65
    integer(c_int) :: KEY_B               = 66
    integer(c_int) :: KEY_C               = 67
    integer(c_int) :: KEY_D               = 68
    integer(c_int) :: KEY_E               = 69
    integer(c_int) :: KEY_F               = 70
    integer(c_int) :: KEY_G               = 71
    integer(c_int) :: KEY_H               = 72
    integer(c_int) :: KEY_I               = 73
    integer(c_int) :: KEY_J               = 74
    integer(c_int) :: KEY_K               = 75
    integer(c_int) :: KEY_L               = 76
    integer(c_int) :: KEY_M               = 77
    integer(c_int) :: KEY_N               = 78
    integer(c_int) :: KEY_O               = 79
    integer(c_int) :: KEY_P               = 80
    integer(c_int) :: KEY_Q               = 81
    integer(c_int) :: KEY_R               = 82
    integer(c_int) :: KEY_S               = 83
    integer(c_int) :: KEY_T               = 84
    integer(c_int) :: KEY_U               = 85
    integer(c_int) :: KEY_V               = 86
    integer(c_int) :: KEY_W               = 87
    integer(c_int) :: KEY_X               = 88
    integer(c_int) :: KEY_Y               = 89
    integer(c_int) :: KEY_Z               = 90
    ! Function keys
    integer(c_int) :: KEY_SPACE           = 32
    integer(c_int) :: KEY_ESCAPE          = 256
    integer(c_int) :: KEY_ENTER           = 257
    integer(c_int) :: KEY_TAB             = 258
    integer(c_int) :: KEY_BACKSPACE       = 259
    integer(c_int) :: KEY_INSERT          = 260
    integer(c_int) :: KEY_DELETE          = 261
    integer(c_int) :: KEY_RIGHT           = 262
    integer(c_int) :: KEY_LEFT            = 263
    integer(c_int) :: KEY_DOWN            = 264
    integer(c_int) :: KEY_UP              = 265
    integer(c_int) :: KEY_PAGE_UP         = 266
    integer(c_int) :: KEY_PAGE_DOWN       = 267
    integer(c_int) :: KEY_HOME            = 268
    integer(c_int) :: KEY_END             = 269
    integer(c_int) :: KEY_CAPS_LOCK       = 280
    integer(c_int) :: KEY_SCROLL_LOCK     = 281
    integer(c_int) :: KEY_NUM_LOCK        = 282
    integer(c_int) :: KEY_PRINT_SCREEN    = 283
    integer(c_int) :: KEY_PAUSE           = 284
    integer(c_int) :: KEY_F1              = 290
    integer(c_int) :: KEY_F2              = 291
    integer(c_int) :: KEY_F3              = 292
    integer(c_int) :: KEY_F4              = 293
    integer(c_int) :: KEY_F5              = 294
    integer(c_int) :: KEY_F6              = 295
    integer(c_int) :: KEY_F7              = 296
    integer(c_int) :: KEY_F8              = 297
    integer(c_int) :: KEY_F9              = 298
    integer(c_int) :: KEY_F10             = 299
    integer(c_int) :: KEY_F11             = 300
    integer(c_int) :: KEY_F12             = 301
    integer(c_int) :: KEY_LEFT_SHIFT      = 340
    integer(c_int) :: KEY_LEFT_CONTROL    = 341
    integer(c_int) :: KEY_LEFT_ALT        = 342
    integer(c_int) :: KEY_LEFT_SUPER      = 343
    integer(c_int) :: KEY_RIGHT_SHIFT     = 344
    integer(c_int) :: KEY_RIGHT_CONTROL   = 345
    integer(c_int) :: KEY_RIGHT_ALT       = 346
    integer(c_int) :: KEY_RIGHT_SUPER     = 347
    integer(c_int) :: KEY_KB_MENU         = 348
    integer(c_int) :: KEY_LEFT_BRACKET    = 91
    integer(c_int) :: KEY_BACKSLASH       = 92
    integer(c_int) :: KEY_RIGHT_BRACKET   = 93
    integer(c_int) :: KEY_GRAVE           = 96
    ! Keypad keys
    integer(c_int) :: KEY_KP_0            = 320
    integer(c_int) :: KEY_KP_1            = 321
    integer(c_int) :: KEY_KP_2            = 322
    integer(c_int) :: KEY_KP_3            = 323
    integer(c_int) :: KEY_KP_4            = 324
    integer(c_int) :: KEY_KP_5            = 325
    integer(c_int) :: KEY_KP_6            = 326
    integer(c_int) :: KEY_KP_7            = 327
    integer(c_int) :: KEY_KP_8            = 328
    integer(c_int) :: KEY_KP_9            = 329
    integer(c_int) :: KEY_KP_DECIMAL      = 330
    integer(c_int) :: KEY_KP_DIVIDE       = 331
    integer(c_int) :: KEY_KP_MULTIPLY     = 332
    integer(c_int) :: KEY_KP_SUBTRACT     = 333
    integer(c_int) :: KEY_KP_ADD          = 334
    integer(c_int) :: KEY_KP_ENTER        = 335
    integer(c_int) :: KEY_KP_EQUAL        = 336
    ! Android key buttons
    integer(c_int) :: KEY_BACK            = 4
    integer(c_int) :: KEY_MENU            = 82
    integer(c_int) :: KEY_VOLUME_UP       = 24
    integer(c_int) :: KEY_VOLUME_DOWN     = 25
    ! Mouse buttons
    integer(c_int) :: MOUSE_LEFT_BUTTON   = 0
    integer(c_int) :: MOUSE_RIGHT_BUTTON  = 1
    integer(c_int) :: MOUSE_MIDDLE_BUTTON = 2
    ! Mouse cursor
    integer(c_int) :: MOUSE_CURSOR_DEFAULT       = 0
    integer(c_int) :: MOUSE_CURSOR_ARROW         = 1
    integer(c_int) :: MOUSE_CURSOR_IBEAM         = 2
    integer(c_int) :: MOUSE_CURSOR_CROSSHAIR     = 3
    integer(c_int) :: MOUSE_CURSOR_POINTING_HAND = 4
    integer(c_int) :: MOUSE_CURSOR_RESIZE_EW     = 5
    integer(c_int) :: MOUSE_CURSOR_RESIZE_NS     = 6
    integer(c_int) :: MOUSE_CURSOR_RESIZE_NWSE   = 7
    integer(c_int) :: MOUSE_CURSOR_RESIZE_NESW   = 8
    integer(c_int) :: MOUSE_CURSOR_RESIZE_ALL    = 9
    integer(c_int) :: MOUSE_CURSOR_NOT_ALLOWED   = 10
    ! Gamepad buttons
    integer(c_int) :: GAMEPAD_BUTTON_UNKNOWN = 0
    ! This is normally a DPAD
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_FACE_UP    = 1
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_FACE_RIGHT = 2
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_FACE_DOWN  = 3
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_FACE_LEFT  = 4
    ! This normally corresponds with PlayStation and Xbox controllers
    ! XBOX: [Y,X,A,B]
    ! PS3: [Triangle,Square,Cross,Circle]
    ! No support for 6 button controllers though..
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_FACE_UP    = 5
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_FACE_RIGHT = 6
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_FACE_DOWN  = 7
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_FACE_LEFT  = 8
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_TRIGGER_1   = 9
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_TRIGGER_2   = 10
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_TRIGGER_1  = 11
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_TRIGGER_2  = 12
    integer(c_int) :: GAMEPAD_BUTTON_MIDDLE_LEFT      = 13 ! PS3 Select
    integer(c_int) :: GAMEPAD_BUTTON_MIDDLE           = 14 ! PS Button/XBOX Button
    integer(c_int) :: GAMEPAD_BUTTON_MIDDLE_RIGHT     = 15 ! PS3 Start
    ! These are the joystick press in buttons
    integer(c_int) :: GAMEPAD_BUTTON_LEFT_THUMB       = 16
    integer(c_int) :: GAMEPAD_BUTTON_RIGHT_THUMB      = 17
    ! Gamepad axis
    integer(c_int) :: GAMEPAD_AXIS_LEFT_X = 0
    integer(c_int) :: GAMEPAD_AXIS_LEFT_Y = 1
    integer(c_int) :: GAMEPAD_AXIS_RIGHT_X = 2
    integer(c_int) :: GAMEPAD_AXIS_RIGHT_Y = 3
    integer(c_int) :: GAMEPAD_AXIS_LEFT_TRIGGER = 4       ! [1..-1] (pressure-level)
    integer(c_int) :: GAMEPAD_AXIS_RIGHT_TRIGGER = 5      ! [1..-1] (pressure-level)
    ! Material map index
    integer(c_int) :: MATERIAL_MAP_ALBEDO     = 0
    integer(c_int) :: MATERIAL_MAP_DIFFUSE    = 0 ! same as MATERIAL_MAP_ALBEDO
    integer(c_int) :: MATERIAL_MAP_METALNESS  = 1
    integer(c_int) :: MATERIAL_MAP_SPECULAR   = 1 ! same as MATERIAL_MAP_METALNESS
    integer(c_int) :: MATERIAL_MAP_NORMAL     = 2
    integer(c_int) :: MATERIAL_MAP_ROUGHNESS  = 3
    integer(c_int) :: MATERIAL_MAP_OCCLUSION  = 4
    integer(c_int) :: MATERIAL_MAP_EMISSION   = 5
    integer(c_int) :: MATERIAL_MAP_HEIGHT     = 6
    integer(c_int) :: MATERIAL_MAP_BRDG       = 7
    integer(c_int) :: MATERIAL_MAP_CUBEMAP    = 8        ! NOTE: Uses GL_TEXTURE_CUBE_MAP
    integer(c_int) :: MATERIAL_MAP_IRRADIANCE = 9        ! NOTE: Uses GL_TEXTURE_CUBE_MAP
    integer(c_int) :: MATERIAL_MAP_PREFILTER  = 10       ! NOTE: Uses GL_TEXTURE_CUBE_MAP
    ! Shader location index
    integer(c_int) :: SHADER_LOC_VERTEX_POSITION   = 0
    integer(c_int) :: SHADER_LOC_VERTEX_TEXCOORD01 = 1
    integer(c_int) :: SHADER_LOC_VERTEX_TEXCOORD02 = 2
    integer(c_int) :: SHADER_LOC_VERTEX_NORMAL     = 3
    integer(c_int) :: SHADER_LOC_VERTEX_TANGENT    = 4
    integer(c_int) :: SHADER_LOC_VERTEX_COLOR      = 5
    integer(c_int) :: SHADER_LOC_MATRIX_MVP        = 6
    integer(c_int) :: SHADER_LOC_MATRIX_VIEW       = 7
    integer(c_int) :: SHADER_LOC_MATRIX_PROJECTION = 8
    integer(c_int) :: SHADER_LOC_MATRIX_MODEL      = 9
    integer(c_int) :: SHADER_LOC_MATRIX_NORMAL     = 10
    integer(c_int) :: SHADER_LOC_VECTOR_VIEW       = 11
    integer(c_int) :: SHADER_LOC_COLOR_DIFFUSE     = 12
    integer(c_int) :: SHADER_LOC_COLOR_SPECULAR    = 13
    integer(c_int) :: SHADER_LOC_COLOR_AMBIENT     = 14
    integer(c_int) :: SHADER_LOC_MAP_ALBEDO        = 15
    integer(c_int) :: SHADER_LOC_MAP_DIFFUSE       = 15 ! same as SHADER_LOC_MAP_ALBEDO
    integer(c_int) :: SHADER_LOC_MAP_METALNESS     = 16
    integer(c_int) :: SHADER_LOC_MAP_SPECULAR      = 16 ! same as SHADER_LOC_MAP_METALNESS
    integer(c_int) :: SHADER_LOC_MAP_NORMAL        = 17
    integer(c_int) :: SHADER_LOC_MAP_ROUGHNESS     = 18
    integer(c_int) :: SHADER_LOC_MAP_OCCLUSION     = 19
    integer(c_int) :: SHADER_LOC_MAP_EMISSION      = 20
    integer(c_int) :: SHADER_LOC_MAP_HEIGHT        = 21
    integer(c_int) :: SHADER_LOC_MAP_CUBEMAP       = 22
    integer(c_int) :: SHADER_LOC_MAP_IRRADIANCE    = 23
    integer(c_int) :: SHADER_LOC_MAP_PREFILTER     = 24
    integer(c_int) :: SHADER_LOC_MAP_BRDF          = 25
    ! Shader uniform data type
    integer(c_int) :: SHADER_UNIFORM_FLOAT     = 0
    integer(c_int) :: SHADER_UNIFORM_VEC2      = 1
    integer(c_int) :: SHADER_UNIFORM_VEC3      = 2
    integer(c_int) :: SHADER_UNIFORM_VEC4      = 3
    integer(c_int) :: SHADER_UNIFORM_INT       = 4
    integer(c_int) :: SHADER_UNIFORM_IVEC2     = 5
    integer(c_int) :: SHADER_UNIFORM_IVEC3     = 6
    integer(c_int) :: SHADER_UNIFORM_IVEC4     = 7
    integer(c_int) :: SHADER_UNIFORM_SAMPLER2D = 8
    ! Pixel formats
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_GRAYSCALE    = 1  ! 8 bit per pixel (no alpha)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_GRAY_ALPHA   = 2  ! 8*2 bpp (2 channels)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R5G6B5       = 3  ! 16 bpp
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R8G8B8       = 4  ! 24 bpp
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R5G5B5A1     = 5  ! 16 bpp (1 bit alpha)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R4G4B4A4     = 6  ! 16 bpp (4 bit alpha)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R8G8B8A8     = 7  ! 32 bpp
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R32          = 8  ! 32 bpp (1 channel - float)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R32G32B32    = 9  ! 32*3 bpp (3 channels - float)
    integer(c_int) :: PIXELFORMAT_UNCOMPRESSED_R32G32B32A32 = 10 ! 32*4 bpp (4 channels - float)
    integer(c_int) :: PIXELFORMAT_COMPRESSED_DXT1_RGB       = 11 ! 4 bpp (no alpha)
    integer(c_int) :: PIXELFORMAT_COMPRESSED_DXT1_RGBA      = 12 ! 4 bpp (1 bit alpha)
    integer(c_int) :: PIXELFORMAT_COMPRESSED_DXT3_RGBA      = 13 ! 8 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_DXT5_RGBA      = 14 ! 8 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_ETC1_RGB       = 15 ! 4 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_ETC2_RGB       = 16 ! 4 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_ETC2_EAC_RGBA  = 17 ! 8 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_PVRT_RGB       = 18 ! 4 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_PVRT_RGBA      = 19 ! 4 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_ASTC_4x4_RGBA  = 20 ! 8 bpp
    integer(c_int) :: PIXELFORMAT_COMPRESSED_ASTC_8x8_RGBA  = 21 ! 2 bpp
    ! Texture parameters: filter mode
    integer(c_int) :: TEXTURE_FILTER_POINT           = 0 ! No filter, just pixel aproximation
    integer(c_int) :: TEXTURE_FILTER_BILINEAR        = 1 ! Linear filtering
    integer(c_int) :: TEXTURE_FILTER_TRILINEAR       = 2 ! Trilinear filtering (linear with mipmaps)
    integer(c_int) :: TEXTURE_FILTER_ANISOTROPIC_4X  = 3 ! Anisotropic filtering 4x
    integer(c_int) :: TEXTURE_FILTER_ANISOTROPIC_8X  = 4 ! Anisotropic filtering 8x
    integer(c_int) :: TEXTURE_FILTER_ANISOTROPIC_16X = 5 ! Anisotropic filtering 16x
    ! Texture parameters: wrap mode
    integer(c_int) :: TEXTURE_WRAP_REPEAT        = 0 ! Repeats texture in tiled mode
    integer(c_int) :: TEXTURE_WRAP_CLAMP         = 1 ! Clamps texture to edge pixel in tiled mode
    integer(c_int) :: TEXTURE_WRAP_MIRROR_REPEAT = 2 ! Mirrors and repeats the texture in tiled mode
    integer(c_int) :: TEXTURE_WRAP_MIRROR_CLAMP  = 3 ! Mirrors and clamps to border the texture in tiled mode
    ! Cubemap layouts
    integer(c_int) :: CUBEMAP_LAYOUT_AUTO_DETECT         = 0 ! Automatically detect layout type
    integer(c_int) :: CUBEMAP_LAYOUT_LINE_VERTICAL       = 1 ! Layout is defined by a vertical line with faces
    integer(c_int) :: CUBEMAP_LAYOUT_LINE_HORIZONTAL     = 2 ! Layout is defined by an horizontal line with faces
    integer(c_int) :: CUBEMAP_LAYOUT_CROSS_THREE_BY_FOUR = 3 ! Layout is defined by a 3x4 cross with cubemap faces
    integer(c_int) :: CUBEMAP_LAYOUT_CROSS_FOUR_BY_THREE = 4 ! Layout is defined by a 4x3 cross with cubemap faces
    integer(c_int) :: CUBEMAP_LAYOUT_PANORAMA            = 5 ! Layout is defined by a panorama image (equirectangular map)
    ! Font type, defines generation method
    integer(c_int) :: FONT_DEFAULT = 0 ! Default font generation, anti-aliased
    integer(c_int) :: FONT_BITMAP  = 1 ! Bitmap font generation, no anti-aliasing
    integer(c_int) :: FONT_SDF     = 2 ! SDF font generation, requires external shader
    ! Color blending modes (pre-defined)
    integer(c_int) :: BLEND_ALPHA           = 0 ! Blend textures considering alpha (default)
    integer(c_int) :: BLEND_ADDITIVE        = 1 ! Blend textures adding colors
    integer(c_int) :: BLEND_MULTIPLIED      = 2 ! Blend textures multiplying colors
    integer(c_int) :: BLEND_ADD_COLORS      = 3 ! Blend textures adding colors (alternative)
    integer(c_int) :: BLEND_SUBTRACT_COLORS = 4 ! Blend textures subtracting colors (alternative)
    integer(c_int) :: BLEND_CUSTOM          = 5 ! Belnd textures using custom src/dst factors (use rlSetBlendMode())
    ! Gestures
    integer(c_int) :: GESTURE_NONE        = 0
    integer(c_int) :: GESTURE_TAP         = 1
    integer(c_int) :: GESTURE_DOUBLETAP   = 2
    integer(c_int) :: GESTURE_HOLD        = 4
    integer(c_int) :: GESTURE_DRAG        = 8
    integer(c_int) :: GESTURE_SWIPE_RIGHT = 16
    integer(c_int) :: GESTURE_SWIPE_LEFT  = 32
    integer(c_int) :: GESTURE_SWIPE_UP    = 64
    integer(c_int) :: GESTURE_SWIPE_DOWN  = 128
    integer(c_int) :: GESTURE_PINCH_IN    = 256
    integer(c_int) :: GESTURE_PINCH_OUT   = 512

!Camera system modes
   integer(c_int) :: CAMERA_CUSTOM = 0
   integer(c_int) :: CAMERA_FREE = 1
   integer(c_int) :: CAMERA_ORBITAL = 2
   integer(c_int) :: CAMERA_FIRST_PERSON = 3
   integer(c_int) :: CAMERA_THIRD_PERSON = 4

!Camera projection
   integer(c_int) :: CAMERA_PERSPECTIVE = 0
   integer(c_int) :: CAMERA_ORTHOGRAPHIC = 1

   interface

      subroutine init_window(width, height, title) bind(c, name="InitWindow")
         import :: c_char
         import :: c_int
         integer(c_int), intent(in), value :: width
         integer(c_int), intent(in), value :: height
         character(c_char), dimension(*), intent(in) :: title
      end subroutine

      function window_should_close() result(res) bind(c, name="WindowShouldClose")
         import :: c_bool
         logical(c_bool) :: res
      end function

      subroutine close_window() bind(c, name="CloseWindow")
      end subroutine

      subroutine clear_background(col) bind(c, name="ClearBackground")
         import :: color
         Type(color), intent(in), value :: col
      end subroutine

      subroutine begin_drawing() bind(c, name="BeginDrawing")
      end subroutine

      subroutine end_drawing() bind(c, name="EndDrawing")
      end subroutine

      subroutine begin_mode_3d(camera) bind(c, name="BeginMode3D")
         import :: camera3d
         type(camera3d), intent(in), value :: camera
      end subroutine

      subroutine end_mode_3d() bind(c, name="EndMode3D")
      end subroutine

      subroutine set_target_fps(fps) bind(c, name="SetTargetFPS")
         import :: c_int
         integer(c_int), intent(in), value :: fps
      end subroutine

      subroutine update_camera(camera_ptr, mode) bind(c, name="UpdateCamera")
         import :: c_ptr, c_int
         type(c_ptr) :: camera_ptr
         integer(c_int):: mode
      end subroutine update_camera

      subroutine show_cursor() bind(c, name="ShowCursor")
      end subroutine show_cursor

      subroutine hide_cursor() bind(c, name="HideCursor")
      end subroutine hide_cursor

      subroutine EnableCursor() bind(c, name="EnableCursor")
      end subroutine EnableCursor

      subroutine disable_cursor() bind(c, name="DisableCursor")
      end subroutine disable_cursor

    function is_key_pressed(key) result (res) bind(c, name="IsKeyPressed") 
      import :: c_int
      import :: c_bool
      logical(c_bool) :: res
      integer(c_int), intent(in), value :: key
    end function is_key_pressed

    function is_key_down(key) result (res) bind(c, name="IsKeyDown")  
      import :: c_int
      import :: c_bool
      logical(c_bool) :: res
      integer(c_int), intent(in), value :: key  
    end function is_key_down

    function is_key_released(key) result (res) bind(c, name="IsKeyReleased")
      import :: c_int
      import :: c_bool
      logical(c_bool) :: res
      integer(c_int), intent(in), value :: key
    end function is_key_released

   function is_key_up(key) result (res) bind(c, name="IsKeyUp")      
      import :: c_int
      import :: c_bool
      logical(c_bool) :: res
      integer(c_int), intent(in), value :: key
    end function is_key_up

   subroutine draw_grid(slices, spacing) bind(c, name="DrawGrid")
      import :: c_int
      import :: c_float
      integer(c_int), intent(in), value :: slices
      real(c_float), intent(in), value :: spacing
   end subroutine draw_grid

      subroutine draw_text(text, posX, posY, fontSize, col) bind(c, name="DrawText")
         import :: c_int
         import :: color
         import :: c_char
         character(c_char), dimension(*), intent(in) :: text
         integer(c_int), intent(in), value :: posX
         integer(c_int), intent(in), value :: posY
         integer(c_int), intent(in), value :: fontSize
         type(color), intent(in), value :: col
      end subroutine draw_text

      subroutine draw_cube(position, width, height, length, col) bind(c, name="DrawCube")
         import :: vector3
         import :: c_float
         import :: color
         type(vector3), intent(in), value :: position
         real(c_float), intent(in), value :: width
         real(c_float), intent(in), value :: height
         real(c_float), intent(in), value :: length
         type(color), intent(in), value :: col
      end subroutine draw_cube

      subroutine draw_cube_wires(position, width, height, length, col) bind(c, name="DrawCubeWires")
         import :: vector3
         import :: c_float
         import :: color
         type(vector3), intent(in), value :: position
         real(c_float), intent(in), value :: width
         real(c_float), intent(in), value :: height
         real(c_float), intent(in), value :: length
         type(color), intent(in), value :: col
      end subroutine draw_cube_wires

      subroutine draw_plane(centerPos, size, col) bind(c, name="DrawPlane")
         import vector3
         import vector2
         import color
         type(vector3), intent(in), value :: centerPos
         type(vector2), intent(in), value :: size
         type(color), intent(in), value  :: col
      end subroutine draw_plane
   end interface
end module