Ada bindings for Raylib 5.1 library.
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

4213 linhas
116KB

  1. ------------------------------------------------------------------------
  2. with System;
  3. package Raylib is
  4. ------------------------------------------------------------------------
  5. type Logical is new Boolean;
  6. --
  7. for Logical'Size use 32;
  8. type Config_Flags is (
  9. Flag_None,
  10. Flag_Fullscreen_Mode,
  11. Flag_Window_Resizable,
  12. Flag_Window_Undecorated,
  13. Flag_Window_Transparent,
  14. Flag_MSAA_x4_Hint,
  15. Flag_VSync_Hint,
  16. Flag_Window_Hidden,
  17. Flag_Window_Always_Run,
  18. Flag_Window_Minimized,
  19. Flag_Window_Maximized,
  20. Flag_Window_Unfocused,
  21. Flag_Window_Topmost,
  22. Flag_Window_High_DPI,
  23. Flag_Window_Mouse_Passthrough,
  24. Flag_Borderless_Windowed_Mode,
  25. Flag_Interlaced_Hint
  26. ) with Convention => C;
  27. for Config_Flags use (
  28. Flag_None => 16#00000000#,
  29. Flag_Fullscreen_Mode => 16#00000002#,
  30. Flag_Window_Resizable => 16#00000004#,
  31. Flag_Window_Undecorated => 16#00000008#,
  32. Flag_Window_Transparent => 16#00000010#,
  33. Flag_MSAA_x4_Hint => 16#00000020#,
  34. Flag_VSync_Hint => 16#00000040#,
  35. Flag_Window_Hidden => 16#00000080#,
  36. Flag_Window_Always_Run => 16#00000100#,
  37. Flag_Window_Minimized => 16#00000200#,
  38. Flag_Window_Maximized => 16#00000400#,
  39. Flag_Window_Unfocused => 16#00000800#,
  40. Flag_Window_Topmost => 16#00001000#,
  41. Flag_Window_High_DPI => 16#00002000#,
  42. Flag_Window_Mouse_Passthrough => 16#00004000#,
  43. Flag_Borderless_Windowed_Mode => 16#00008000#,
  44. Flag_Interlaced_Hint => 16#00010000#
  45. );
  46. type Trace_Log_Level is (
  47. Log_All,
  48. Log_Trace,
  49. Log_Debug,
  50. Log_Info,
  51. Log_Warning,
  52. Log_Error,
  53. Log_Fatal,
  54. Log_None
  55. ) with Convention => C;
  56. type Keyboard_Key is (
  57. Key_Null,
  58. Key_Space,
  59. Key_Apostrophe,
  60. Key_Comma,
  61. Key_Minus,
  62. Key_Period,
  63. Key_Slash,
  64. Key_0,
  65. Key_1,
  66. Key_2,
  67. Key_3,
  68. Key_4,
  69. Key_5,
  70. Key_6,
  71. Key_7,
  72. Key_8,
  73. Key_9,
  74. Key_Semicolon,
  75. Key_Equal,
  76. Key_A,
  77. Key_B,
  78. Key_C,
  79. Key_D,
  80. Key_E,
  81. Key_F,
  82. Key_G,
  83. Key_H,
  84. Key_I,
  85. Key_J,
  86. Key_K,
  87. Key_L,
  88. Key_M,
  89. Key_N,
  90. Key_O,
  91. Key_P,
  92. Key_Q,
  93. Key_R,
  94. Key_S,
  95. Key_T,
  96. Key_U,
  97. Key_V,
  98. Key_W,
  99. Key_X,
  100. Key_Y,
  101. Key_Z,
  102. Key_Left_Bracket,
  103. Key_Backslash,
  104. Key_Right_Bracket,
  105. Key_Grave,
  106. Key_Escape,
  107. Key_Enter,
  108. Key_Tab,
  109. Key_Backspace,
  110. Key_Insert,
  111. Key_Delete,
  112. Key_Right,
  113. Key_Left,
  114. Key_Down,
  115. Key_Up,
  116. Key_Page_Up,
  117. Key_Page_Down,
  118. Key_Home,
  119. Key_End,
  120. Key_Caps_Lock,
  121. Key_Scroll_Lock,
  122. Key_Num_Lock,
  123. Key_Print_Screen,
  124. Key_Pause,
  125. Key_F1,
  126. Key_F2,
  127. Key_F3,
  128. Key_F4,
  129. Key_F5,
  130. Key_F6,
  131. Key_F7,
  132. Key_F8,
  133. Key_F9,
  134. Key_F10,
  135. Key_F11,
  136. Key_F12,
  137. Key_Pad_0,
  138. Key_Pad_1,
  139. Key_Pad_2,
  140. Key_Pad_3,
  141. Key_Pad_4,
  142. Key_Pad_5,
  143. Key_Pad_6,
  144. Key_Pad_7,
  145. Key_Pad_8,
  146. Key_Pad_9,
  147. Key_Pad_Decimal,
  148. Key_Pad_Divide,
  149. Key_Pad_Multiply,
  150. Key_Pad_Subtract,
  151. Key_Pad_Add,
  152. Key_Pad_Enter,
  153. Key_Pad_Equal,
  154. Key_Left_Shift,
  155. Key_Left_Control,
  156. Key_Left_Alt,
  157. Key_Left_Super,
  158. Key_Right_Shift,
  159. Key_Right_Control,
  160. Key_Right_Alt,
  161. Key_Right_Super,
  162. Key_KB_Menu
  163. ) with Convention => C;
  164. for Keyboard_Key use (
  165. Key_Null => 0,
  166. Key_Space => 32,
  167. Key_Apostrophe => 39,
  168. Key_Comma => 44,
  169. Key_Minus => 45,
  170. Key_Period => 46,
  171. Key_Slash => 47,
  172. Key_0 => 48,
  173. Key_1 => 49,
  174. Key_2 => 50,
  175. Key_3 => 51,
  176. Key_4 => 52,
  177. Key_5 => 53,
  178. Key_6 => 54,
  179. Key_7 => 55,
  180. Key_8 => 56,
  181. Key_9 => 57,
  182. Key_Semicolon => 59,
  183. Key_Equal => 61,
  184. Key_A => 65,
  185. Key_B => 66,
  186. Key_C => 67,
  187. Key_D => 68,
  188. Key_E => 69,
  189. Key_F => 70,
  190. Key_G => 71,
  191. Key_H => 72,
  192. Key_I => 73,
  193. Key_J => 74,
  194. Key_K => 75,
  195. Key_L => 76,
  196. Key_M => 77,
  197. Key_N => 78,
  198. Key_O => 79,
  199. Key_P => 80,
  200. Key_Q => 81,
  201. Key_R => 82,
  202. Key_S => 83,
  203. Key_T => 84,
  204. Key_U => 85,
  205. Key_V => 86,
  206. Key_W => 87,
  207. Key_X => 88,
  208. Key_Y => 89,
  209. Key_Z => 90,
  210. Key_Left_Bracket => 91,
  211. Key_Backslash => 92,
  212. Key_Right_Bracket => 93,
  213. Key_Grave => 96,
  214. Key_Escape => 256,
  215. Key_Enter => 257,
  216. Key_Tab => 258,
  217. Key_Backspace => 259,
  218. Key_Insert => 260,
  219. Key_Delete => 261,
  220. Key_Right => 262,
  221. Key_Left => 263,
  222. Key_Down => 264,
  223. Key_Up => 265,
  224. Key_Page_Up => 266,
  225. Key_Page_Down => 267,
  226. Key_Home => 268,
  227. Key_End => 269,
  228. Key_Caps_Lock => 280,
  229. Key_Scroll_Lock => 281,
  230. Key_Num_Lock => 282,
  231. Key_Print_Screen => 283,
  232. Key_Pause => 284,
  233. Key_F1 => 290,
  234. Key_F2 => 291,
  235. Key_F3 => 292,
  236. Key_F4 => 293,
  237. Key_F5 => 294,
  238. Key_F6 => 295,
  239. Key_F7 => 296,
  240. Key_F8 => 297,
  241. Key_F9 => 298,
  242. Key_F10 => 299,
  243. Key_F11 => 300,
  244. Key_F12 => 301,
  245. Key_Pad_0 => 320,
  246. Key_Pad_1 => 321,
  247. Key_Pad_2 => 322,
  248. Key_Pad_3 => 323,
  249. Key_Pad_4 => 324,
  250. Key_Pad_5 => 325,
  251. Key_Pad_6 => 326,
  252. Key_Pad_7 => 327,
  253. Key_Pad_8 => 328,
  254. Key_Pad_9 => 329,
  255. Key_Pad_Decimal => 330,
  256. Key_Pad_Divide => 331,
  257. Key_Pad_Multiply => 332,
  258. Key_Pad_Subtract => 333,
  259. Key_Pad_Add => 334,
  260. Key_Pad_Enter => 335,
  261. Key_Pad_Equal => 336,
  262. Key_Left_Shift => 340,
  263. Key_Left_Control => 341,
  264. Key_Left_Alt => 342,
  265. Key_Left_Super => 343,
  266. Key_Right_Shift => 344,
  267. Key_Right_Control => 345,
  268. Key_Right_Alt => 346,
  269. Key_Right_Super => 347,
  270. Key_KB_Menu => 348
  271. );
  272. type Mouse_Button is (
  273. Mouse_Button_Left,
  274. Mouse_Button_Right,
  275. Mouse_Button_Middle,
  276. Mouse_Button_Side,
  277. Mouse_Button_Extra,
  278. Mouse_Button_Forward,
  279. Mouse_Button_Back
  280. ) with Convention => C;
  281. type Mouse_Cursor is (
  282. Mouse_Cursor_Default,
  283. Mouse_Cursor_Arrow,
  284. Mouse_Cursor_Ibeam,
  285. Mouse_Cursor_Crosshair,
  286. Mouse_Cursor_Pointing_Hand,
  287. Mouse_Cursor_Resize_EW,
  288. Mouse_Cursor_Resize_NS,
  289. Mouse_Cursor_Resize_NWSE,
  290. Mouse_Cursor_Resize_NESW,
  291. Mouse_Cursor_Resize_All,
  292. Mouse_Cursor_Not_Allowed
  293. ) with Convention => C;
  294. type Gamepad_Button is (
  295. Gamepad_Button_Unknown,
  296. Gamepad_Button_Left_Face_Up,
  297. Gamepad_Button_Left_Face_Right,
  298. Gamepad_Button_Left_Face_Down,
  299. Gamepad_Button_Left_Face_Left,
  300. Gamepad_Button_Right_Face_Up,
  301. Gamepad_Button_Right_Face_Right,
  302. Gamepad_Button_Right_Face_Down,
  303. Gamepad_Button_Right_Face_Left,
  304. Gamepad_Button_Left_Trigger_1,
  305. Gamepad_Button_Left_Trigger_2,
  306. Gamepad_Button_Right_Trigger_1,
  307. Gamepad_Button_Right_Trigger_2,
  308. Gamepad_Button_Middle_Left,
  309. Gamepad_Button_Middle,
  310. Gamepad_Button_Middle_Right,
  311. Gamepad_Button_Left_Thumb,
  312. Gamepad_Button_Right_Thumb
  313. ) with Convention => C;
  314. type Gamepad_Axis is (
  315. Gamepad_Axis_Left_X,
  316. Gamepad_Axis_Left_Y,
  317. Gamepad_Axis_Right_X,
  318. Gamepad_Axis_Right_Y,
  319. Gamepad_Axis_Left_Trigger,
  320. Gamepad_Axis_Right_Trigger
  321. ) with Convention => C;
  322. type Material_Map_Index is (
  323. Material_Map_Diffuse,
  324. Material_Map_Specular,
  325. Material_Map_Normal,
  326. Material_Map_Roughness,
  327. Material_Map_Occlusion,
  328. Material_Map_Emission,
  329. Material_Map_Height,
  330. Material_Map_Cubemap,
  331. Material_Map_Irradiance,
  332. Material_Map_Prefilter,
  333. Material_Map_BRDF
  334. ) with Convention => C;
  335. type Shader_Location_Index is (
  336. Shader_Location_Vertex_Position,
  337. Shader_Location_Vertex_Texcoord_1,
  338. Shader_Location_Vertex_Texcoord_2,
  339. Shader_Location_Vertex_Normal,
  340. Shader_Location_Vertex_Tangent,
  341. Shader_Location_Vertex_Color,
  342. Shader_Location_Matrix_MVP,
  343. Shader_Location_Matrix_View,
  344. Shader_Location_Matrix_Projection,
  345. Shader_Location_Matrix_Model,
  346. Shader_Location_Matrix_Normal,
  347. Shader_Location_Vector_View,
  348. Shader_Location_Color_Diffuse,
  349. Shader_Location_Color_Specular,
  350. Shader_Location_Color_Ambient,
  351. Shader_Location_Map_Diffuse,
  352. Shader_Location_Map_Specular,
  353. Shader_Location_Map_Normal,
  354. Shader_Location_Map_Roughness,
  355. Shader_Location_Map_Occlusion,
  356. Shader_Location_Map_Emission,
  357. Shader_Location_Map_Height,
  358. Shader_Location_Map_Cubemap,
  359. Shader_Location_Map_Irradiance,
  360. Shader_Location_Map_Prefilter,
  361. Shader_Location_Map_BRDF
  362. ) with Convention => C;
  363. type Shader_Uniform_Data_Type is (
  364. Shader_Uniform_FLOAT,
  365. Shader_Uniform_VEC2,
  366. Shader_Uniform_VEC3,
  367. Shader_Uniform_VEC4,
  368. Shader_Uniform_INT,
  369. Shader_Uniform_IVEC2,
  370. Shader_Uniform_IVEC3,
  371. Shader_Uniform_IVEC4,
  372. Shader_Uniform_SAMPLER2D
  373. ) with Convention => C;
  374. type Shader_Attribute_Data_Type is (
  375. Shader_Attribute_FLOAT,
  376. Shader_Attribute_VEC2,
  377. Shader_Attribute_VEC3,
  378. Shader_Attribute_VEC4
  379. ) with Convention => C;
  380. type Pixel_Format is (
  381. Pixel_Format_None,
  382. Pixel_Format_Uncompressed_Grayscale,
  383. Pixel_Format_Uncompressed_Gray_Alpha,
  384. Pixel_Format_Uncompressed_R5G6B5,
  385. Pixel_Format_Uncompressed_R8G8B8,
  386. Pixel_Format_Uncompressed_R5G5B5A1,
  387. Pixel_Format_Uncompressed_R4G4B4A4,
  388. Pixel_Format_Uncompressed_R8G8B8A8,
  389. Pixel_Format_Uncompressed_R32,
  390. Pixel_Format_Uncompressed_R32G32B32,
  391. Pixel_Format_Uncompressed_R32G32B32A32,
  392. Pixel_Format_Uncompressed_R16,
  393. Pixel_Format_Uncompressed_R16G16B16,
  394. Pixel_Format_Uncompressed_R16G16B16A16,
  395. Pixel_Format_Compressed_DXT1_RGB,
  396. Pixel_Format_Compressed_DXT1_RGBA,
  397. Pixel_Format_Compressed_DXT3_RGBA,
  398. Pixel_Format_Compressed_DXT5_RGBA,
  399. Pixel_Format_Compressed_ETC1_RGB,
  400. Pixel_Format_Compressed_ETC2_RGB,
  401. Pixel_Format_Compressed_ETC2_EAC_RGBA,
  402. Pixel_Format_Compressed_PVRT_RGB,
  403. Pixel_Format_Compressed_PVRT_RGBA,
  404. Pixel_Format_Compressed_ASTC_4x4_RGBA,
  405. Pixel_Format_Compressed_ASTC_8x8_RGBA
  406. ) with Convention => C;
  407. type Texture_Filter is (
  408. Texture_Filter_Point,
  409. Texture_Filter_Bilinear,
  410. Texture_Filter_Trilinear,
  411. Texture_Filter_Anisotropic_x4,
  412. Texture_Filter_Anisotropic_x8,
  413. Texture_Filter_Anisotropic_x16
  414. ) with Convention => C;
  415. type Texture_Wrap is (
  416. Texture_Wrap_Repeat,
  417. Texture_Wrap_Clamp,
  418. Texture_Wrap_Mirror_Repeat,
  419. Texture_Wrap_Mirror_Clamp
  420. ) with Convention => C;
  421. type Cubemap_Layout is (
  422. Cubemap_Layout_Auto_Detect,
  423. Cubemap_Layout_Line_Vertical,
  424. Cubemap_Layout_Line_Horizontal,
  425. Cubemap_Layout_Cross_3_By_4,
  426. Cubemap_Layout_Cross_4_By_3,
  427. Cubemap_Layout_Panorama
  428. ) with Convention => C;
  429. type Font_Type is (
  430. Font_Default,
  431. Font_Bitmap,
  432. Font_SDF
  433. ) with Convention => C;
  434. type Blend_Mode is (
  435. Blend_Alpha,
  436. Blend_Additive,
  437. Blend_Multiplied,
  438. Blend_Add_Colors,
  439. Blend_Subtract_Colors,
  440. Blend_Alpha_Premultiply,
  441. Blend_Custom,
  442. Blend_Custom_Separate
  443. ) with Convention => C;
  444. type Gesture is (
  445. Gesture_None,
  446. Gesture_Tap,
  447. Gesture_Doubletap,
  448. Gesture_Hold,
  449. Gesture_Drag,
  450. Gesture_Swipe_Right,
  451. Gesture_Swipe_Left,
  452. Gesture_Swipe_Up,
  453. Gesture_Swipe_Down,
  454. Gesture_Pinch_In,
  455. Gesture_Pinch_Out
  456. ) with Convention => C;
  457. for Gesture use (
  458. Gesture_None => 0,
  459. Gesture_Tap => 1,
  460. Gesture_Doubletap => 2,
  461. Gesture_Hold => 4,
  462. Gesture_Drag => 8,
  463. Gesture_Swipe_Right => 16,
  464. Gesture_Swipe_Left => 32,
  465. Gesture_Swipe_Up => 64,
  466. Gesture_Swipe_Down => 128,
  467. Gesture_Pinch_In => 256,
  468. Gesture_Pinch_Out => 512
  469. );
  470. type Camera_Mode is (
  471. Camera_Custom,
  472. Camera_Free,
  473. Camera_Orbital,
  474. Camera_First_Person,
  475. Camera_Third_Person
  476. ) with Convention => C;
  477. type Camera_Projection is (
  478. Camera_Perspective,
  479. Camera_Orthographic
  480. ) with Convention => C;
  481. type NPatch_Layout is (
  482. NPatch_Nine_Patch,
  483. NPatch_Three_Patch_Vertical,
  484. NPatch_Three_Patch_Horizontal
  485. ) with Convention => C;
  486. ------------------------------------------------------------------------
  487. type Color_Range is range 0 .. 2**8 - 1;
  488. type Index_Range is range 0 .. 2**16 - 1;
  489. for Color_Range'Size use 8;
  490. for Index_Range'Size use 16;
  491. type Pointer is access all System.Address;
  492. type Vector_2D is record
  493. X : Float := 0.0;
  494. Y : Float := 0.0;
  495. end record with Convention => C_Pass_By_Copy;
  496. type Vector_3D is record
  497. X : Float := 0.0;
  498. Y : Float := 0.0;
  499. Z : Float := 0.0;
  500. end record with Convention => C_Pass_By_Copy;
  501. type Vector_4D is record
  502. X : Float := 0.0;
  503. Y : Float := 0.0;
  504. Z : Float := 0.0;
  505. W : Float := 0.0;
  506. end record with Convention => C_Pass_By_Copy;
  507. type Quaternion is new Vector_4D;
  508. type Matrix_4D is record
  509. M00 : Float := 1.0;
  510. M10 : Float := 0.0;
  511. M20 : Float := 0.0;
  512. M30 : Float := 0.0;
  513. M01 : Float := 0.0;
  514. M11 : Float := 1.0;
  515. M21 : Float := 0.0;
  516. M31 : Float := 0.0;
  517. M02 : Float := 0.0;
  518. M12 : Float := 0.0;
  519. M22 : Float := 1.0;
  520. M32 : Float := 0.0;
  521. M03 : Float := 0.0;
  522. M13 : Float := 0.0;
  523. M23 : Float := 0.0;
  524. M33 : Float := 1.0;
  525. end record with Convention => C_Pass_By_Copy;
  526. Id_Matrix : Matrix_4D;
  527. type Color is record
  528. R : Color_Range := 255;
  529. G : Color_Range := 255;
  530. B : Color_Range := 255;
  531. A : Color_Range := 255;
  532. end record with Convention => C_Pass_By_Copy;
  533. No_Color : Color;
  534. type Rectangle is record
  535. X : Float := 0.0;
  536. Y : Float := 0.0;
  537. Width : Float := 0.0;
  538. Height : Float := 0.0;
  539. end record with Convention => C_Pass_By_Copy;
  540. No_Rectangle : Rectangle;
  541. type Image is record
  542. Data : Pointer := null;
  543. Width : Integer := 0;
  544. Height : Integer := 0;
  545. Mipmaps : Integer := 1;
  546. Format : Pixel_Format := Pixel_Format_None;
  547. end record with Convention => C_Pass_By_Copy;
  548. No_Image : Image;
  549. type Texture is record
  550. Id : Natural := 0;
  551. Width : Integer := 0;
  552. Height : Integer := 0;
  553. Mipmaps : Integer := 1;
  554. Format : Pixel_Format := Pixel_Format_None;
  555. end record with Convention => C_Pass_By_Copy;
  556. No_Texture : Texture;
  557. type Render_Texture is record
  558. Id : Natural := 0;
  559. Data : Texture := No_Texture;
  560. Depth : Texture := No_Texture;
  561. end record with Convention => C_Pass_By_Copy;
  562. No_Render_Texture : Render_Texture;
  563. type NPatch_Info is record
  564. Source : Rectangle := No_Rectangle;
  565. Left : Integer := 0;
  566. Top : Integer := 0;
  567. Right : Integer := 0;
  568. Bottom : Integer := 0;
  569. Layout : NPatch_Layout := NPatch_Nine_Patch;
  570. end record with Convention => C_Pass_By_Copy;
  571. type Glyph_Info is record
  572. Value : Integer := 0;
  573. Offset_X : Integer := 0;
  574. Offset_Y : Integer := 0;
  575. Advance_X : Integer := 0;
  576. Data : Image := No_Image;
  577. end record with Convention => C_Pass_By_Copy;
  578. type Font is record
  579. Base_Size : Integer := 0;
  580. Glyph_Count : Integer := 0;
  581. Glyph_Padding : Integer := 0;
  582. Data : Texture := No_Texture;
  583. Rectangles : access Rectangle := null;
  584. Glyphs : access Glyph_Info := null;
  585. end record with Convention => C_Pass_By_Copy;
  586. No_Font : Font;
  587. type Camera_3D is record
  588. Position : Vector_3D := (0.0, 0.0, 0.0);
  589. Target : Vector_3D := (0.0, 0.0, 0.0);
  590. Up : Vector_3D := (0.0, 0.0, 0.0);
  591. Field_Of_View : Float := 0.0;
  592. Projection : Camera_Projection := Camera_Perspective;
  593. end record with Convention => C_Pass_By_Copy;
  594. No_Camera_3D : Camera_3D;
  595. type Camera_2D is record
  596. Offset : Vector_2D := (0.0, 0.0);
  597. Target : Vector_2D := (0.0, 0.0);
  598. Rotation : Float := 0.0;
  599. Zoom : Float := 0.0;
  600. end record with Convention => C_Pass_By_Copy;
  601. No_Camera_2D : Camera_2D;
  602. type Mesh is record
  603. Vertex_Count : Integer := 0;
  604. Triangle_Count : Integer := 0;
  605. Vertices : access Float := null;
  606. Texture_Coordinates : access Float := null;
  607. Texture_Coordinates_2 : access Float := null;
  608. Normals : access Float := null;
  609. Tangents : access Float := null;
  610. Colors : access Color_Range := null;
  611. Indices : access Index_Range := null;
  612. Animation_Vertices : access Float := null;
  613. Animation_Normals : access Float := null;
  614. Bone_Ids : access Color_Range := null;
  615. Bone_Weights : access Float := null;
  616. VAO_Id : Natural := 0;
  617. VBO_Id : access Natural := null;
  618. end record with Convention => C_Pass_By_Copy;
  619. No_Mesh : Mesh;
  620. type Shader is record
  621. Id : Natural := 0;
  622. Locations : access Integer := null;
  623. end record with Convention => C_Pass_By_Copy;
  624. No_Shader : Shader;
  625. type Material_Map is record
  626. Data : Texture := No_Texture;
  627. Tint : Color := No_Color;
  628. Value : Float := 0.0;
  629. end record with Convention => C_Pass_By_Copy;
  630. No_Material_Map : Material_Map;
  631. type Float_Array_4 is array (0 .. 3) of Float;
  632. type Material_Map_Array_4 is array (0 .. 3) of Material_Map;
  633. type Material_Map_Array is array (Natural range <>) of Material_Map;
  634. type Material is record
  635. Data : Shader := No_Shader;
  636. Maps : access Material_Map_Array := null;
  637. Parameter : Float_Array_4 := (0.0, 0.0, 0.0, 1.0);
  638. end record with Convention => C_Pass_By_Copy;
  639. No_Material : Material;
  640. type Transform is record
  641. Translation : Vector_3D := (0.0, 0.0, 0.0);
  642. Rotation : Vector_4D := (0.0, 0.0, 0.0, 0.0);
  643. Scale : Vector_3D := (0.0, 0.0, 0.0);
  644. end record with Convention => C_Pass_By_Copy;
  645. type Character_Array_32 is array (0 .. 31) of Character;
  646. Empty : Character_Array_32 := (others => Character'Val (0));
  647. type Bone_Info is record
  648. Name : Character_Array_32 := Empty;
  649. Parent : Integer := 0;
  650. end record with Convention => C_Pass_By_Copy;
  651. type Material_Array_4 is array (0 .. 3) of Material;
  652. type Material_Array is array (Natural range <>) of Material;
  653. type Model is record
  654. Transform : Matrix_4D := Id_Matrix;
  655. Mesh_Count : Integer := 0;
  656. Material_Count : Integer := 0;
  657. Meshes : access Mesh := null;
  658. Materials : access Material_Array := null;
  659. Mesh_Materials : access Integer := null;
  660. Bone_Count : Integer := 0;
  661. Bones : access Bone_Info := null;
  662. --~Bind_Post : access Transform := null; ERROR
  663. end record with Convention => C_Pass_By_Copy;
  664. No_Model : Model;
  665. type Model_Animation is record
  666. Bone_Count : Integer := 0;
  667. Frame_Count : Integer := 0;
  668. Bones : access Bone_Info := null;
  669. Frame_Poses : access Transform := null;
  670. Name : Character_Array_32 := Empty;
  671. end record with Convention => C_Pass_By_Copy;
  672. type Ray is record
  673. Position : Vector_3D := (0.0, 0.0, 0.0);
  674. Direction : Vector_3D := (0.0, 0.0, 0.0);
  675. end record with Convention => C_Pass_By_Copy;
  676. type Ray_Collision is record
  677. Hit : Logical := False;
  678. Distance : Float := 0.0;
  679. Point : Vector_3D := (0.0, 0.0, 0.0);
  680. Normal : Vector_3D := (0.0, 0.0, 0.0);
  681. end record with Convention => C_Pass_By_Copy;
  682. type Bounding_Box is record
  683. Min : Vector_3D := (0.0, 0.0, 0.0);
  684. Max : Vector_3D := (0.0, 0.0, 0.0);
  685. end record with Convention => C_Pass_By_Copy;
  686. type Wave is record
  687. Frame_Count : Natural := 0;
  688. Sample_Rate : Natural := 0;
  689. Sample_Size : Natural := 0;
  690. Channels : Natural := 0;
  691. Data : Pointer := null;
  692. end record with Convention => C_Pass_By_Copy;
  693. No_Wave : Wave;
  694. type Audio_Stream is record
  695. Buffer : Pointer := null;
  696. Processor : Pointer := null;
  697. Sample_Rate : Natural := 0;
  698. Sample_Size : Natural := 0;
  699. Channels : Natural := 0;
  700. end record with Convention => C_Pass_By_Copy;
  701. No_Audio_Stream : Audio_Stream;
  702. type Sound is record
  703. Stream : Audio_Stream := No_Audio_Stream;
  704. Frame_Count : Natural := 0;
  705. end record with Convention => C_Pass_By_Copy;
  706. No_Sound : Sound;
  707. type Music is record
  708. Stream : Audio_Stream := No_Audio_Stream;
  709. Frame_Count : Natural := 0;
  710. Looping : Logical := False;
  711. Context_Type : Integer := 0;
  712. Context_Data : Pointer := null;
  713. end record with Convention => C_Pass_By_Copy;
  714. No_Music : Music;
  715. type VR_Device_Info is record
  716. Horizontal_Resoultion : Integer := 0;
  717. Vertical_Resoultion : Integer := 0;
  718. Horizontal_Screen_Size : Float := 0.0;
  719. Vertical_Screen_Size : Float := 0.0;
  720. Vertical_Screen_Center : Float := 0.0;
  721. Eye_To_Screen_Distance : Float := 0.0;
  722. Lens_Separate_Distance : Float := 0.0;
  723. Interpupillary_Distance : Float := 0.0;
  724. Lens_Distortion_Values : Float_Array_4 := (0.0, 0.0, 0.0, 0.0);
  725. Chroma_Abberation_Correction : Float_Array_4 := (0.0, 0.0, 0.0, 0.0);
  726. end record with Convention => C_Pass_By_Copy;
  727. No_VR_Device_Info : VR_Device_Info;
  728. type Matrix_4D_Array_2 is array (0 .. 1) of Matrix_4D;
  729. type Float_Array_2 is array (0 .. 1) of Float;
  730. type VR_Stereo_Config is record
  731. Projection : Matrix_4D_Array_2 := (Id_Matrix, Id_Matrix);
  732. View_Offset : Matrix_4D_Array_2 := (Id_Matrix, Id_Matrix);
  733. Left_Lens_Center : Float_Array_2 := (0.0, 0.0);
  734. Right_Lens_Center : Float_Array_2 := (0.0, 0.0);
  735. Left_Screen_Center : Float_Array_2 := (0.0, 0.0);
  736. Right_Screen_Center : Float_Array_2 := (0.0, 0.0);
  737. Scale : Float_Array_2 := (0.0, 0.0);
  738. Scale_In : Float_Array_2 := (0.0, 0.0);
  739. end record with Convention => C_Pass_By_Copy;
  740. No_VR_Stereo_Config : VR_Stereo_Config;
  741. type File_Path_List is record
  742. Capacity : Natural := 0;
  743. Count : Natural := 0;
  744. Paths : Pointer := null;
  745. end record with Convention => C_Pass_By_Copy;
  746. type Integer_Array_4 is array (0 .. 3) of Integer;
  747. type Automation_Event is record
  748. Frame : Natural := 0;
  749. Kind : Natural := 0;
  750. Parameters : Integer_Array_4 := (0, 0, 0, 0);
  751. end record with Convention => C_Pass_By_Copy;
  752. type Automation_Event_List is record
  753. Capacity : Natural := 0;
  754. Count : Natural := 0;
  755. Events : access Automation_Event := null;
  756. end record with Convention => C_Pass_By_Copy;
  757. ------------------------------------------------------------------------
  758. Version_Major : constant Integer := 5;
  759. Version_Minor : constant Integer := 1;
  760. Version_Patch : constant Integer := 0;
  761. Version : aliased constant String := "5.1-dev";
  762. Pi : constant Float := 3.14159265358979323846;
  763. Tau : constant Float := 2.0 * Pi;
  764. Degree_To_Radius : constant Float := Pi / 180.0;
  765. Radius_To_Degree : constant Float := 180.0 / Pi;
  766. Light_Gray : constant Color := (200, 200, 200, 255);
  767. Gray : constant Color := (130, 130, 130, 255);
  768. Dark_Gray : constant Color := (80, 80, 80, 255);
  769. Yellow : constant Color := (253, 249, 0, 255);
  770. Gold : constant Color := (255, 203, 0, 255);
  771. Orange : constant Color := (255, 161, 0, 255);
  772. Pink : constant Color := (255, 109, 194, 255);
  773. Red : constant Color := (230, 41, 55, 255);
  774. Maroon : constant Color := (190, 33, 55, 255);
  775. Green : constant Color := (0, 228, 48, 255);
  776. Lime : constant Color := (0, 158, 47, 255);
  777. Dark_Green : constant Color := (0, 117, 44, 255);
  778. Sky_Blue : constant Color := (102, 191, 255, 255);
  779. Blue : constant Color := (0, 121, 241, 255);
  780. Dark_Blue : constant Color := (0, 82, 172, 255);
  781. Purple : constant Color := (200, 122, 255, 255);
  782. Violet : constant Color := (135, 60, 190, 255);
  783. Dark_Purple : constant Color := (112, 31, 126, 255);
  784. Beige : constant Color := (211, 176, 131, 255);
  785. Brown : constant Color := (127, 106, 79, 255);
  786. Dark_Brown : constant Color := (76, 63, 47, 255);
  787. White : constant Color := (255, 255, 255, 255);
  788. Black : constant Color := (0, 0, 0, 255);
  789. Blank : constant Color := (0, 0, 0, 0 );
  790. Magenta : constant Color := (255, 0, 255, 255);
  791. Ray_White : constant Color := (245, 245, 245, 255);
  792. ------------------------------------------------------------------------
  793. --~typedef void (*TraceLogCallback)(int logLevel, const char *text, va_list args); -- Logging: Redirect trace log messages
  794. --~typedef unsigned char *(*LoadFileDataCallback)(const char *fileName, int *dataSize); -- FileIO: Load binary data
  795. --~typedef bool (*SaveFileDataCallback)(const char *fileName, void *data, int dataSize); -- FileIO: Save binary data
  796. --~typedef char *(*LoadFileTextCallback)(const char *fileName); -- FileIO: Load text data
  797. --~typedef bool (*SaveFileTextCallback)(const char *fileName, char *text); -- FileIO: Save text data
  798. procedure Open_Window (
  799. Width : Integer := 640;
  800. Height : Integer := 480;
  801. Title : String := ""
  802. ) with
  803. Import => True,
  804. Convention => C,
  805. External_Name => "InitWindow";
  806. procedure Close_Window with
  807. Import => True,
  808. Convention => C,
  809. External_Name => "CloseWindow";
  810. function Window_Should_Close return Logical with
  811. Import => True,
  812. Convention => C,
  813. External_Name => "WindowShouldClose";
  814. function Is_Window_Ready return Logical with
  815. Import => True,
  816. Convention => C,
  817. External_Name => "IsWindowReady";
  818. function Is_Window_Fullscreen return Logical with
  819. Import => True,
  820. Convention => C,
  821. External_Name => "IsWindowFullscreen";
  822. function Is_Window_Hidden return Logical with
  823. Import => True,
  824. Convention => C,
  825. External_Name => "IsWindowHidden";
  826. function Is_Window_Minimized return Logical with
  827. Import => True,
  828. Convention => C,
  829. External_Name => "IsWindowMinimized";
  830. function Is_Window_Maximized return Logical with
  831. Import => True,
  832. Convention => C,
  833. External_Name => "IsWindowMaximized";
  834. function Is_Window_Focused return Logical with
  835. Import => True,
  836. Convention => C,
  837. External_Name => "IsWindowFocused";
  838. function Is_Window_Resized return Logical with
  839. Import => True,
  840. Convention => C,
  841. External_Name => "IsWindowResized";
  842. function Is_Window_State (
  843. Flags : Natural := 0
  844. ) return Logical with
  845. Import => True,
  846. Convention => C,
  847. External_Name => "IsWindowState";
  848. procedure Set_Window_State (
  849. Flags : Natural := 0
  850. ) with
  851. Import => True,
  852. Convention => C,
  853. External_Name => "SetWindowState";
  854. procedure Clear_Window_State (
  855. Flags : Natural := 0
  856. ) with
  857. Import => True,
  858. Convention => C,
  859. External_Name => "ClearWindowState";
  860. procedure Toggle_Fullscreen with
  861. Import => True,
  862. Convention => C,
  863. External_Name => "ToggleFullscreen";
  864. procedure Toggle_Borderless_Windowed with
  865. Import => True,
  866. Convention => C,
  867. External_Name => "ToggleBorderlessWindowed";
  868. procedure Maximize_Window with
  869. Import => True,
  870. Convention => C,
  871. External_Name => "MaximizeWindow";
  872. procedure Minimize_Window with
  873. Import => True,
  874. Convention => C,
  875. External_Name => "MinimizeWindow";
  876. procedure Restore_Window with
  877. Import => True,
  878. Convention => C,
  879. External_Name => "RestoreWindow";
  880. procedure Set_Window_Icon (
  881. Icon : Image := No_Image
  882. ) with
  883. Import => True,
  884. Convention => C,
  885. External_Name => "SetWindowIcon";
  886. procedure Set_Window_Icons (
  887. Icons : access Image := null;
  888. Count : Integer := 0
  889. ) with
  890. Import => True,
  891. Convention => C,
  892. External_Name => "SetWindowIcons";
  893. procedure Set_Window_Title (
  894. Title : String := ""
  895. ) with
  896. Import => True,
  897. Convention => C,
  898. External_Name => "SetWindowTitle";
  899. procedure Set_Window_Position (
  900. X : Integer := 0;
  901. Y : Integer := 0
  902. ) with
  903. Import => True,
  904. Convention => C,
  905. External_Name => "SetWindowPosition";
  906. procedure Set_Window_Monitor (
  907. Monitor : Integer := 0
  908. ) with
  909. Import => True,
  910. Convention => C,
  911. External_Name => "SetWindowMonitor";
  912. procedure Set_Window_Min_Size (
  913. Width : Integer := 0;
  914. Height : Integer := 0
  915. ) with
  916. Import => True,
  917. Convention => C,
  918. External_Name => "SetWindowMinSize";
  919. procedure Set_Window_Max_Size (
  920. Width : Integer := 0;
  921. Height : Integer := 0
  922. ) with
  923. Import => True,
  924. Convention => C,
  925. External_Name => "SetWindowMaxSize";
  926. procedure Set_Window_Size (
  927. Width : Integer := 0;
  928. Height : Integer := 0
  929. ) with
  930. Import => True,
  931. Convention => C,
  932. External_Name => "SetWindowSize";
  933. procedure Set_WindowZ_Opacity (
  934. Opacity : Float := 0.0
  935. ) with
  936. Import => True,
  937. Convention => C,
  938. External_Name => "SetWindowOpacity";
  939. procedure Set_Window_Focused with
  940. Import => True,
  941. Convention => C,
  942. External_Name => "SetWindowFocused";
  943. function Get_Window_Handle return Pointer with
  944. Import => True,
  945. Convention => C,
  946. External_Name => "GetWindowHandle";
  947. function Get_Screen_Width return Integer with
  948. Import => True,
  949. Convention => C,
  950. External_Name => "GetScreenWidth";
  951. function Get_Screen_Height return Integer with
  952. Import => True,
  953. Convention => C,
  954. External_Name => "GetScreenHeight";
  955. function Get_Render_Width return Integer with
  956. Import => True,
  957. Convention => C,
  958. External_Name => "GetRenderWidth";
  959. function Get_Render_Height return Integer with
  960. Import => True,
  961. Convention => C,
  962. External_Name => "GetRenderHeight";
  963. function Get_Monitor_Count return Integer with
  964. Import => True,
  965. Convention => C,
  966. External_Name => "GetMonitorCount";
  967. function Get_Current_Monitor return Integer with
  968. Import => True,
  969. Convention => C,
  970. External_Name => "GetCurrentMonitor";
  971. function Get_Monitor_Position (
  972. Monitor : Integer := 0
  973. ) return Vector_2D with
  974. Import => True,
  975. Convention => C,
  976. External_Name => "GetMonitorPosition";
  977. function Get_Monitor_Width (
  978. Monitor : Integer := 0
  979. ) return Integer with
  980. Import => True,
  981. Convention => C,
  982. External_Name => "GetMonitorWidth";
  983. function Get_Monitor_Height (
  984. Monitor : Integer := 0
  985. ) return Integer with
  986. Import => True,
  987. Convention => C,
  988. External_Name => "GetMonitorHeight";
  989. function Get_Monitor_Physical_Width (
  990. Monitor : Integer := 0
  991. ) return Integer with
  992. Import => True,
  993. Convention => C,
  994. External_Name => "GetMonitorPhysicalWidth";
  995. function Get_Monitor_Physical_Height (
  996. Monitor : Integer := 0
  997. ) return Integer with
  998. Import => True,
  999. Convention => C,
  1000. External_Name => "GetMonitorPhysicalHeight";
  1001. function Get_Monitor_Refresh_Rate (
  1002. Monitor : Integer := 0
  1003. ) return Integer with
  1004. Import => True,
  1005. Convention => C,
  1006. External_Name => "GetMonitorRefreshRate";
  1007. function Get_Window_Position return Vector_2D with
  1008. Import => True,
  1009. Convention => C,
  1010. External_Name => "GetWindowPosition";
  1011. function Get_Window_Scale_DPI return Vector_2D with
  1012. Import => True,
  1013. Convention => C,
  1014. External_Name => "GetWindowScaleDPI";
  1015. function Get_Monitor_Name (
  1016. Monitor : Integer := 0
  1017. ) return Pointer with
  1018. Import => True,
  1019. Convention => C,
  1020. External_Name => "GetMonitorName";
  1021. procedure Set_Clipboard_Text (
  1022. Text : String := ""
  1023. ) with
  1024. Import => True,
  1025. Convention => C,
  1026. External_Name => "SetClipboardText";
  1027. function Get_Clipboard_Text return Pointer with
  1028. Import => True,
  1029. Convention => C,
  1030. External_Name => "GetClipboardText";
  1031. procedure Enable_Event_Waiting with
  1032. Import => True,
  1033. Convention => C,
  1034. External_Name => "EnableEventWaiting";
  1035. procedure Disable_Event_Waiting with
  1036. Import => True,
  1037. Convention => C,
  1038. External_Name => "DisableEventWaiting";
  1039. procedure Show_Cursor with
  1040. Import => True,
  1041. Convention => C,
  1042. External_Name => "ShowCursor";
  1043. procedure Hide_Cursor with
  1044. Import => True,
  1045. Convention => C,
  1046. External_Name => "HideCursor";
  1047. function Is_Cursor_Hidden return Logical with
  1048. Import => True,
  1049. Convention => C,
  1050. External_Name => "IsCursorHidden";
  1051. procedure Enable_Cursor with
  1052. Import => True,
  1053. Convention => C,
  1054. External_Name => "EnableCursor";
  1055. procedure Disable_Cursor with
  1056. Import => True,
  1057. Convention => C,
  1058. External_Name => "DisableCursor";
  1059. function Is_Cursor_On_Screen return Logical with
  1060. Import => True,
  1061. Convention => C,
  1062. External_Name => "IsCursorOnScreen";
  1063. procedure Clear_Background (
  1064. Tint : Color := Ray_White
  1065. ) with
  1066. Import => True,
  1067. Convention => C,
  1068. External_Name => "ClearBackground";
  1069. procedure Begin_Drawing with
  1070. Import => True,
  1071. Convention => C,
  1072. External_Name => "BeginDrawing";
  1073. procedure End_Drawing with
  1074. Import => True,
  1075. Convention => C,
  1076. External_Name => "EndDrawing";
  1077. procedure Begin_Mode_2D (
  1078. Camera : Camera_2D
  1079. ) with
  1080. Import => True,
  1081. Convention => C,
  1082. External_Name => "BeginMode2D";
  1083. procedure End_Mode_2D with
  1084. Import => True,
  1085. Convention => C,
  1086. External_Name => "EndMode2D";
  1087. procedure Begin_Mode_3D (
  1088. Camera : Camera_3D
  1089. ) with
  1090. Import => True,
  1091. Convention => C,
  1092. External_Name => "BeginMode3D";
  1093. procedure End_Mode_3D with
  1094. Import => True,
  1095. Convention => C,
  1096. External_Name => "EndMode3D";
  1097. procedure Begin_Texture_Mode (
  1098. Data : Render_Texture := No_Render_Texture
  1099. ) with
  1100. Import => True,
  1101. Convention => C,
  1102. External_Name => "BeginTextureMode";
  1103. procedure End_Texture_Mode with
  1104. Import => True,
  1105. Convention => C,
  1106. External_Name => "EndTextureMode";
  1107. procedure Begin_Shader_Mode (
  1108. Data : Shader := No_Shader
  1109. ) with
  1110. Import => True,
  1111. Convention => C,
  1112. External_Name => "BeginShaderMode";
  1113. procedure End_Shader_Mode with
  1114. Import => True,
  1115. Convention => C,
  1116. External_Name => "EndShaderMode";
  1117. procedure Begin_Blend_Mode (
  1118. Mode : Blend_Mode := Blend_Alpha
  1119. ) with
  1120. Import => True,
  1121. Convention => C,
  1122. External_Name => "BeginBlendMode";
  1123. procedure End_Blend_Mode with
  1124. Import => True,
  1125. Convention => C,
  1126. External_Name => "EndBlendMode";
  1127. procedure Begin_Scissor_Mode (
  1128. X : Integer := 0;
  1129. Y : Integer := 0;
  1130. Width : Integer := 0;
  1131. Height : Integer := 0
  1132. ) with
  1133. Import => True,
  1134. Convention => C,
  1135. External_Name => "BeginScissorMode";
  1136. procedure End_Scissor_Mode with
  1137. Import => True,
  1138. Convention => C,
  1139. External_Name => "EndScissorMode";
  1140. procedure Begin_VR_Stereo_Mode (
  1141. Config : VR_Stereo_Config := No_VR_Stereo_Config
  1142. ) with
  1143. Import => True,
  1144. Convention => C,
  1145. External_Name => "BeginVrStereoMode";
  1146. procedure End_VR_Stereo_Mode with
  1147. Import => True,
  1148. Convention => C,
  1149. External_Name => "EndVrStereoMode";
  1150. function Load_VR_Stereo_Config (
  1151. Device : VR_Device_Info := No_VR_Device_Info
  1152. ) return VR_Stereo_Config with
  1153. Import => True,
  1154. Convention => C,
  1155. External_Name => "LoadVrStereoConfig";
  1156. procedure Unload_VR_Stereo_Config (
  1157. Config : VR_Stereo_Config := No_VR_Stereo_Config
  1158. ) with
  1159. Import => True,
  1160. Convention => C,
  1161. External_Name => "UnloadVrStereoConfig";
  1162. function Load_Shader (
  1163. Vertex_Shader_File_Path : String := "";
  1164. Fragment_Shader_File_Path : String := ""
  1165. ) return Shader with
  1166. Import => True,
  1167. Convention => C,
  1168. External_Name => "LoadShader";
  1169. function Load_Shader_From_Memory (
  1170. Vertex_Shader_Code_Path : String := "";
  1171. Fragment_Shader_Code_Path : String := ""
  1172. ) return Shader with
  1173. Import => True,
  1174. Convention => C,
  1175. External_Name => "LoadShaderFromMemory";
  1176. function Is_Shader_Ready (
  1177. Data : Shader := No_Shader
  1178. ) return Logical with
  1179. Import => True,
  1180. Convention => C,
  1181. External_Name => "IsShaderReady";
  1182. function Get_Shader_Location (
  1183. Data : Shader := No_Shader;
  1184. Name : String := ""
  1185. ) return Integer with
  1186. Import => True,
  1187. Convention => C,
  1188. External_Name => "GetShaderLocation";
  1189. function Get_Shader_Location_Attribute (
  1190. Data : Shader := No_Shader;
  1191. Name : String := ""
  1192. ) return Integer with
  1193. Import => True,
  1194. Convention => C,
  1195. External_Name => "GetShaderLocationAttrib";
  1196. procedure Set_Shader_Value (
  1197. Data : Shader := No_Shader;
  1198. Location_Index : Integer := 0;
  1199. Value : Pointer := null;
  1200. Uniform_Type : Integer := 0
  1201. ) with
  1202. Import => True,
  1203. Convention => C,
  1204. External_Name => "SetShaderValue";
  1205. procedure Set_Shader_Value_Vector (
  1206. Data : Shader := No_Shader;
  1207. Location_Index : Integer := 0;
  1208. Value : Pointer := null;
  1209. Uniform_Type : Integer := 0;
  1210. Count : Integer := 0
  1211. ) with
  1212. Import => True,
  1213. Convention => C,
  1214. External_Name => "SetShaderValueV";
  1215. procedure Set_Shader_Value_Matrix (
  1216. Data : Shader := No_Shader;
  1217. Location_Index : Integer := 0;
  1218. Value : Matrix_4D := Id_Matrix
  1219. ) with
  1220. Import => True,
  1221. Convention => C,
  1222. External_Name => "SetShaderValueMatrix";
  1223. procedure Set_Shader_Value_Texture (
  1224. Data : Shader := No_Shader;
  1225. Location_Index : Integer := 0;
  1226. Value : Texture := No_Texture
  1227. ) with
  1228. Import => True,
  1229. Convention => C,
  1230. External_Name => "SetShaderValueTexture";
  1231. procedure Unload_Shader (
  1232. Data : Shader := No_Shader
  1233. ) with
  1234. Import => True,
  1235. Convention => C,
  1236. External_Name => "UnloadShader";
  1237. function Get_Mouse_Ray (
  1238. Mouse_Position : Vector_2D := (0.0, 0.0);
  1239. Camera : Camera_3D := No_Camera_3D
  1240. ) return Ray with
  1241. Import => True,
  1242. Convention => C,
  1243. External_Name => "GetMouseRay";
  1244. function Get_Camera_Matrix_3D (
  1245. Camera : Camera_3D := No_Camera_3D
  1246. ) return Matrix_4D with
  1247. Import => True,
  1248. Convention => C,
  1249. External_Name => "GetCameraMatrix";
  1250. function Get_Camera_Matrix_2D (
  1251. Camera : Camera_2D := No_Camera_2D
  1252. ) return Matrix_4D with
  1253. Import => True,
  1254. Convention => C,
  1255. External_Name => "GetCameraMatrix2D";
  1256. function Get_World_To_Screen_3D (
  1257. Position : Vector_3D := (0.0, 0.0, 0.0);
  1258. Camera : Camera_3D := No_Camera_3D
  1259. ) return Vector_2D with
  1260. Import => True,
  1261. Convention => C,
  1262. External_Name => "GetWorldToScreen";
  1263. function Get_Screen_To_World_2D (
  1264. Position : Vector_2D := (0.0, 0.0);
  1265. Camera : Camera_2D := No_Camera_2D
  1266. ) return Vector_2D with
  1267. Import => True,
  1268. Convention => C,
  1269. External_Name => "GetScreenToWorld2D";
  1270. function Get_World_To_Screen_Ex (
  1271. Position : Vector_3D := (0.0, 0.0, 0.0);
  1272. Camera : Camera_3D := No_Camera_3D;
  1273. Width : Integer := 0;
  1274. Height : Integer := 0
  1275. ) return Vector_2D with
  1276. Import => True,
  1277. Convention => C,
  1278. External_Name => "GetWorldToScreenEx";
  1279. function Get_World_To_Screen_2D (
  1280. Position : Vector_2D := (0.0, 0.0);
  1281. Camera : Camera_2D := No_Camera_2D
  1282. ) return Vector_2D with
  1283. Import => True,
  1284. Convention => C,
  1285. External_Name => "GetWorldToScreen2D";
  1286. procedure Set_Target_FPS (
  1287. FPS : Integer := 60
  1288. ) with
  1289. Import => True,
  1290. Convention => C,
  1291. External_Name => "SetTargetFPS";
  1292. function Get_Frame_Time return Float with
  1293. Import => True,
  1294. Convention => C,
  1295. External_Name => "GetFrameTime";
  1296. function Get_Time return Long_Float with
  1297. Import => True,
  1298. Convention => C,
  1299. External_Name => "GetTime";
  1300. function Get_FPS return Integer with
  1301. Import => True,
  1302. Convention => C,
  1303. External_Name => "GetFPS";
  1304. procedure Swap_Screen_Buffer with
  1305. Import => True,
  1306. Convention => C,
  1307. External_Name => "SwapScreenBuffer";
  1308. procedure Poll_Input_Events with
  1309. Import => True,
  1310. Convention => C,
  1311. External_Name => "PollInputEvents";
  1312. procedure Wait_Time (
  1313. Seconds : Long_Float := 0.0
  1314. ) with
  1315. Import => True,
  1316. Convention => C,
  1317. External_Name => "WaitTime";
  1318. procedure Set_Random_Seed (
  1319. Seed : Natural := 16#0EADBEEF#
  1320. ) with
  1321. Import => True,
  1322. Convention => C,
  1323. External_Name => "SetRandomSeed";
  1324. function Get_Random_Value (
  1325. Min : Integer := 0;
  1326. Max : Integer := 255
  1327. ) return Integer with
  1328. Import => True,
  1329. Convention => C,
  1330. External_Name => "GetRandomValue";
  1331. function Load_Random_Sequence (
  1332. Count : Natural := 0;
  1333. Min : Integer := 0;
  1334. Max : Integer := 0
  1335. ) return access Integer with
  1336. Import => True,
  1337. Convention => C,
  1338. External_Name => "LoadRandomSequence";
  1339. procedure Unload_Random_Sequence (
  1340. Sequence : access Integer := null
  1341. ) with
  1342. Import => True,
  1343. Convention => C,
  1344. External_Name => "UnloadRandomSequence";
  1345. procedure Take_Screenshot (
  1346. File_Name : String := "Screenshot.png"
  1347. ) with
  1348. Import => True,
  1349. Convention => C,
  1350. External_Name => "TakeScreenshot";
  1351. procedure Set_Config_Flags (
  1352. Flags : Config_Flags := Flag_None
  1353. ) with
  1354. Import => True,
  1355. Convention => C,
  1356. External_Name => "SetConfigFlags";
  1357. procedure Open_URL (
  1358. URL : String := ""
  1359. ) with
  1360. Import => True,
  1361. Convention => C,
  1362. External_Name => "OpenURL";
  1363. --~procedure TraceLog (int logLevel, const char *text, ...) with
  1364. --~Import => True,
  1365. --~Convention => C,
  1366. --~External_Name => "TraceLog";
  1367. procedure Set_Trace_Log_Level (
  1368. Level : Trace_Log_Level := Log_All
  1369. ) with
  1370. Import => True,
  1371. Convention => C,
  1372. External_Name => "SetTraceLogLevel";
  1373. function Allocate (
  1374. Size : Natural := 0
  1375. ) return Pointer with
  1376. Import => True,
  1377. Convention => C,
  1378. External_Name => "MemAlloc";
  1379. function Reallocate (
  1380. Data : Pointer := null;
  1381. Size : Natural := 0
  1382. ) return Pointer with
  1383. Import => True,
  1384. Convention => C,
  1385. External_Name => "MemRealloc";
  1386. procedure Deallocate (
  1387. Data : Pointer := null
  1388. ) with
  1389. Import => True,
  1390. Convention => C,
  1391. External_Name => "MemFree";
  1392. --~procedure SetTraceLogCallback (TraceLogCallback callback) with
  1393. --~Import => True,
  1394. --~Convention => C,
  1395. --~External_Name => "SetTraceLogCallback";
  1396. --~procedure SetLoadFileDataCallback (LoadFileDataCallback callback) with
  1397. --~Import => True,
  1398. --~Convention => C,
  1399. --~External_Name => "SetLoadFileDataCallback";
  1400. --~procedure SetSaveFileDataCallback (SaveFileDataCallback callback) with
  1401. --~Import => True,
  1402. --~Convention => C,
  1403. --~External_Name => "SetSaveFileDataCallback";
  1404. --~procedure SetLoadFileTextCallback (LoadFileTextCallback callback) with
  1405. --~Import => True,
  1406. --~Convention => C,
  1407. --~External_Name => "SetLoadFileTextCallback";
  1408. --~procedure SetSaveFileTextCallback (SaveFileTextCallback callback) with
  1409. --~Import => True,
  1410. --~Convention => C,
  1411. --~External_Name => "SetSaveFileTextCallback";
  1412. function Load_File_Data (
  1413. File_Name : String := "";
  1414. Data_Size : access Integer := null
  1415. ) return access Character with
  1416. Import => True,
  1417. Convention => C,
  1418. External_Name => "LoadFileData";
  1419. procedure Unload_File_Data (
  1420. Data : Pointer := null
  1421. ) with
  1422. Import => True,
  1423. Convention => C,
  1424. External_Name => "UnloadFileData";
  1425. --~function bool SaveFileData (const char *fileName, void *data, int dataSize) with
  1426. --~Import => True,
  1427. --~Convention => C,
  1428. --~External_Name => "SaveFileData";
  1429. --~function bool ExportDataAsCode (const unsigned char *data, int dataSize, const char *fileName) with
  1430. --~Import => True,
  1431. --~Convention => C,
  1432. --~External_Name => "ExportDataAsCode";
  1433. --~function char *LoadFileText (const char *fileName) with
  1434. --~Import => True,
  1435. --~Convention => C,
  1436. --~External_Name => "LoadFileText";
  1437. --~procedure UnloadFileText (char *text) with
  1438. --~Import => True,
  1439. --~Convention => C,
  1440. --~External_Name => "UnloadFileText";
  1441. --~function bool SaveFileText (const char *fileName, char *text) with
  1442. --~Import => True,
  1443. --~Convention => C,
  1444. --~External_Name => "SaveFileText";
  1445. --~function bool FileExists (const char *fileName) with
  1446. --~Import => True,
  1447. --~Convention => C,
  1448. --~External_Name => "FileExists";
  1449. --~function bool DirectoryExists (const char *dirPath) with
  1450. --~Import => True,
  1451. --~Convention => C,
  1452. --~External_Name => "DirectoryExists";
  1453. --~function bool IsFileExtension (const char *fileName, const char *ext) with
  1454. --~Import => True,
  1455. --~Convention => C,
  1456. --~External_Name => "IsFileExtension";
  1457. --~function int GetFileLength (const char *fileName) with
  1458. --~Import => True,
  1459. --~Convention => C,
  1460. --~External_Name => "GetFileLength";
  1461. --~function const char *GetFileExtension (const char *fileName) with
  1462. --~Import => True,
  1463. --~Convention => C,
  1464. --~External_Name => "GetFileExtension";
  1465. --~function const char *GetFileName (const char *filePath) with
  1466. --~Import => True,
  1467. --~Convention => C,
  1468. --~External_Name => "GetFileName";
  1469. --~function const char *GetFileNameWithoutExt (const char *filePath) with
  1470. --~Import => True,
  1471. --~Convention => C,
  1472. --~External_Name => "GetFileNameWithoutExt";
  1473. --~function const char *GetDirectoryPath (const char *filePath) with
  1474. --~Import => True,
  1475. --~Convention => C,
  1476. --~External_Name => "GetDirectoryPath";
  1477. --~function const char *GetPrevDirectoryPath (const char *dirPath) with
  1478. --~Import => True,
  1479. --~Convention => C,
  1480. --~External_Name => "GetPrevDirectoryPath";
  1481. --~function const char *GetWorkingDirectory (void) with
  1482. --~Import => True,
  1483. --~Convention => C,
  1484. --~External_Name => "GetWorkingDirectory";
  1485. --~function const char *GetApplicationDirectory (void) with
  1486. --~Import => True,
  1487. --~Convention => C,
  1488. --~External_Name => "GetApplicationDirectory";
  1489. --~function bool ChangeDirectory (const char *dir) with
  1490. --~Import => True,
  1491. --~Convention => C,
  1492. --~External_Name => "ChangeDirectory";
  1493. --~function bool IsPathFile (const char *path) with
  1494. --~Import => True,
  1495. --~Convention => C,
  1496. --~External_Name => "IsPathFile";
  1497. --~function FilePathList LoadDirectoryFiles (const char *dirPath) with
  1498. --~Import => True,
  1499. --~Convention => C,
  1500. --~External_Name => "LoadDirectoryFiles";
  1501. --~function FilePathList LoadDirectoryFilesEx (const char *basePath, const char *filter, bool scanSubdirs) with
  1502. --~Import => True,
  1503. --~Convention => C,
  1504. --~External_Name => "LoadDirectoryFilesEx";
  1505. --~procedure UnloadDirectoryFiles (FilePathList files) with
  1506. --~Import => True,
  1507. --~Convention => C,
  1508. --~External_Name => "UnloadDirectoryFiles";
  1509. --~function bool IsFileDropped (void) with
  1510. --~Import => True,
  1511. --~Convention => C,
  1512. --~External_Name => "IsFileDropped";
  1513. --~function FilePathList LoadDroppedFiles (void) with
  1514. --~Import => True,
  1515. --~Convention => C,
  1516. --~External_Name => "LoadDroppedFiles";
  1517. --~procedure UnloadDroppedFiles (FilePathList files) with
  1518. --~Import => True,
  1519. --~Convention => C,
  1520. --~External_Name => "UnloadDroppedFiles";
  1521. --~function long GetFileModTime (const char *fileName) with
  1522. --~Import => True,
  1523. --~Convention => C,
  1524. --~External_Name => "GetFileModTime";
  1525. --~function unsigned char *CompressData (const unsigned char *data, int dataSize, int *compDataSize) with
  1526. --~Import => True,
  1527. --~Convention => C,
  1528. --~External_Name => "CompressData";
  1529. --~function unsigned char *DecompressData (const unsigned char *compData, int compDataSize, int *dataSize) with
  1530. --~Import => True,
  1531. --~Convention => C,
  1532. --~External_Name => "DecompressData";
  1533. --~function char *EncodeDataBase64 (const unsigned char *data, int dataSize, int *outputSize) with
  1534. --~Import => True,
  1535. --~Convention => C,
  1536. --~External_Name => "EncodeDataBase64";
  1537. --~function unsigned char *DecodeDataBase64 (const unsigned char *data, int *outputSize) with
  1538. --~Import => True,
  1539. --~Convention => C,
  1540. --~External_Name => "DecodeDataBase64";
  1541. --~function AutomationEventList LoadAutomationEventList (const char *fileName) with
  1542. --~Import => True,
  1543. --~Convention => C,
  1544. --~External_Name => "LoadAutomationEventList";
  1545. --~procedure UnloadAutomationEventList (AutomationEventList *list) with
  1546. --~Import => True,
  1547. --~Convention => C,
  1548. --~External_Name => "UnloadAutomationEventList";
  1549. --~function bool ExportAutomationEventList (AutomationEventList list, const char *fileName) with
  1550. --~Import => True,
  1551. --~Convention => C,
  1552. --~External_Name => "ExportAutomationEventList";
  1553. --~procedure SetAutomationEventList (AutomationEventList *list) with
  1554. --~Import => True,
  1555. --~Convention => C,
  1556. --~External_Name => "SetAutomationEventList";
  1557. --~procedure SetAutomationEventBaseFrame (int frame) with
  1558. --~Import => True,
  1559. --~Convention => C,
  1560. --~External_Name => "SetAutomationEventBaseFrame";
  1561. --~procedure StartAutomationEventRecording (void) with
  1562. --~Import => True,
  1563. --~Convention => C,
  1564. --~External_Name => "StartAutomationEventRecording";
  1565. --~procedure StopAutomationEventRecording (void) with
  1566. --~Import => True,
  1567. --~Convention => C,
  1568. --~External_Name => "StopAutomationEventRecording";
  1569. --~procedure PlayAutomationEvent (AutomationEvent event) with
  1570. --~Import => True,
  1571. --~Convention => C,
  1572. --~External_Name => "PlayAutomationEvent";
  1573. function Is_Key_Pressed (
  1574. Key : Keyboard_Key := Key_Null
  1575. ) return Logical with
  1576. Import => True,
  1577. Convention => C,
  1578. External_Name => "IsKeyPressed";
  1579. function Is_Key_Pressed_Repeat (
  1580. Key : Keyboard_Key := Key_Null
  1581. ) return Logical with
  1582. Import => True,
  1583. Convention => C,
  1584. External_Name => "IsKeyPressedRepeat";
  1585. function Is_Key_Down (
  1586. Key : Keyboard_Key := Key_Null
  1587. ) return Logical with
  1588. Import => True,
  1589. Convention => C,
  1590. External_Name => "IsKeyDown";
  1591. function Is_Key_Released (
  1592. Key : Keyboard_Key := Key_Null
  1593. ) return Logical with
  1594. Import => True,
  1595. Convention => C,
  1596. External_Name => "IsKeyReleased";
  1597. function Is_Key_Up (
  1598. Key : Keyboard_Key := Key_Null
  1599. ) return Logical with
  1600. Import => True,
  1601. Convention => C,
  1602. External_Name => "IsKeyUp";
  1603. function Get_Key_Pressed return Keyboard_Key with
  1604. Import => True,
  1605. Convention => C,
  1606. External_Name => "GetKeyPressed";
  1607. function Get_Character_Pressed return Character with
  1608. Import => True,
  1609. Convention => C,
  1610. External_Name => "GetCharPressed";
  1611. procedure Set_Exit_Key (
  1612. Key : Keyboard_Key := Key_Escape
  1613. ) with
  1614. Import => True,
  1615. Convention => C,
  1616. External_Name => "SetExitKey";
  1617. --~function bool IsGamepadAvailable (int gamepad) with
  1618. --~Import => True,
  1619. --~Convention => C,
  1620. --~External_Name => "";
  1621. --~function const char *GetGamepadName (int gamepad) with
  1622. --~Import => True,
  1623. --~Convention => C,
  1624. --~External_Name => "";
  1625. --~function bool IsGamepadButtonPressed (int gamepad, int button) with
  1626. --~Import => True,
  1627. --~Convention => C,
  1628. --~External_Name => "";
  1629. --~function bool IsGamepadButtonDown (int gamepad, int button) with
  1630. --~Import => True,
  1631. --~Convention => C,
  1632. --~External_Name => "";
  1633. --~function bool IsGamepadButtonReleased (int gamepad, int button) with
  1634. --~Import => True,
  1635. --~Convention => C,
  1636. --~External_Name => "";
  1637. --~function bool IsGamepadButtonUp (int gamepad, int button) with
  1638. --~Import => True,
  1639. --~Convention => C,
  1640. --~External_Name => "";
  1641. --~function int GetGamepadButtonPressed (void) with
  1642. --~Import => True,
  1643. --~Convention => C,
  1644. --~External_Name => "";
  1645. --~function int GetGamepadAxisCount (int gamepad) with
  1646. --~Import => True,
  1647. --~Convention => C,
  1648. --~External_Name => "";
  1649. --~function float GetGamepadAxisMovement (int gamepad, int axis) with
  1650. --~Import => True,
  1651. --~Convention => C,
  1652. --~External_Name => "";
  1653. --~function int SetGamepadMappings (const char *mappings) with
  1654. --~Import => True,
  1655. --~Convention => C,
  1656. --~External_Name => "";
  1657. function Is_Mouse_Button_Pressed (
  1658. Button : Mouse_Button := Mouse_Button_Left
  1659. ) return Logical with
  1660. Import => True,
  1661. Convention => C,
  1662. External_Name => "IsMouseButtonPressed";
  1663. function Is_Mouse_Button_Down (
  1664. Button : Mouse_Button := Mouse_Button_Left
  1665. ) return Logical with
  1666. Import => True,
  1667. Convention => C,
  1668. External_Name => "IsMouseButtonDown";
  1669. function Is_Mouse_Button_Released (
  1670. Button : Mouse_Button := Mouse_Button_Left
  1671. ) return Logical with
  1672. Import => True,
  1673. Convention => C,
  1674. External_Name => "IsMouseButtonReleased";
  1675. function Is_Mouse_Button_Up (
  1676. Button : Mouse_Button := Mouse_Button_Left
  1677. ) return Logical with
  1678. Import => True,
  1679. Convention => C,
  1680. External_Name => "IsMouseButtonUp";
  1681. function Get_Mouse_X return Integer with
  1682. Import => True,
  1683. Convention => C,
  1684. External_Name => "GetMouseX";
  1685. function Get_Mouse_Y return Integer with
  1686. Import => True,
  1687. Convention => C,
  1688. External_Name => "GetMouseY";
  1689. function Get_Mouse_Position return Vector_2D with
  1690. Import => True,
  1691. Convention => C,
  1692. External_Name => "GetMousePosition";
  1693. function Get_Mouse_Delta return Vector_2D with
  1694. Import => True,
  1695. Convention => C,
  1696. External_Name => "GetMouseDelta";
  1697. procedure Set_Mouse_Position (
  1698. X : Integer := 0;
  1699. Y : Integer := 0
  1700. ) with
  1701. Import => True,
  1702. Convention => C,
  1703. External_Name => "SetMousePosition";
  1704. procedure Set_Mouse_Offset (
  1705. X : Integer := 0;
  1706. Y : Integer := 0
  1707. ) with
  1708. Import => True,
  1709. Convention => C,
  1710. External_Name => "SetMouseOffset";
  1711. procedure Set_Mouse_Scale (
  1712. X : Float := 0.0;
  1713. Y : Float := 0.0
  1714. ) with
  1715. Import => True,
  1716. Convention => C,
  1717. External_Name => "SetMouseScale";
  1718. function Get_Mouse_Wheel_Move return Float with
  1719. Import => True,
  1720. Convention => C,
  1721. External_Name => "GetMouseWheelMove";
  1722. function Get_Mouse_Wheel_Move_V return Vector_2D with
  1723. Import => True,
  1724. Convention => C,
  1725. External_Name => "GetMouseWheelMoveV";
  1726. procedure Set_Mouse_Cursor (
  1727. Cursor : Mouse_Cursor := Mouse_Cursor_Default
  1728. ) with
  1729. Import => True,
  1730. Convention => C,
  1731. External_Name => "SetMouseCursor";
  1732. --~function int GetTouchX (void) with
  1733. --~Import => True,
  1734. --~Convention => C,
  1735. --~External_Name => "";
  1736. --~function int GetTouchY (void) with
  1737. --~Import => True,
  1738. --~Convention => C,
  1739. --~External_Name => "";
  1740. --~function Vector2 GetTouchPosition (int index) with
  1741. --~Import => True,
  1742. --~Convention => C,
  1743. --~External_Name => "";
  1744. --~function int GetTouchPointId (int index) with
  1745. --~Import => True,
  1746. --~Convention => C,
  1747. --~External_Name => "";
  1748. --~function int GetTouchPointCount (void) with
  1749. --~Import => True,
  1750. --~Convention => C,
  1751. --~External_Name => "";
  1752. --~procedure SetGesturesEnabled (unsigned int flags) with
  1753. --~Import => True,
  1754. --~Convention => C,
  1755. --~External_Name => "";
  1756. --~function bool IsGestureDetected (unsigned int gesture) with
  1757. --~Import => True,
  1758. --~Convention => C,
  1759. --~External_Name => "";
  1760. --~function int GetGestureDetected (void) with
  1761. --~Import => True,
  1762. --~Convention => C,
  1763. --~External_Name => "";
  1764. --~function float GetGestureHoldDuration (void) with
  1765. --~Import => True,
  1766. --~Convention => C,
  1767. --~External_Name => "";
  1768. --~function Vector2 GetGestureDragVector (void) with
  1769. --~Import => True,
  1770. --~Convention => C,
  1771. --~External_Name => "";
  1772. --~function float GetGestureDragAngle (void) with
  1773. --~Import => True,
  1774. --~Convention => C,
  1775. --~External_Name => "";
  1776. --~function Vector2 GetGesturePinchVector (void) with
  1777. --~Import => True,
  1778. --~Convention => C,
  1779. --~External_Name => "";
  1780. --~function float GetGesturePinchAngle (void) with
  1781. --~Import => True,
  1782. --~Convention => C,
  1783. --~External_Name => "";
  1784. procedure Update_Camera (
  1785. Data : access Camera_3D := null;
  1786. Mode : Camera_Mode := Camera_First_Person
  1787. ) with
  1788. Import => True,
  1789. Convention => C,
  1790. External_Name => "UpdateCamera";
  1791. --~procedure UpdateCameraPro (Camera *camera, Vector3 movement, Vector3 rotation, float zoom) with
  1792. --~Import => True,
  1793. --~Convention => C,
  1794. --~External_Name => "";
  1795. --~procedure SetShapesTexture (Texture2D texture, Rectangle source) with
  1796. --~Import => True,
  1797. --~Convention => C,
  1798. --~External_Name => "";
  1799. --~procedure DrawPixel (int posX, int posY, Color color) with
  1800. --~Import => True,
  1801. --~Convention => C,
  1802. --~External_Name => "";
  1803. --~procedure DrawPixelV (Vector2 position, Color color) with
  1804. --~Import => True,
  1805. --~Convention => C,
  1806. --~External_Name => "";
  1807. procedure Draw_Line (
  1808. X0 : Integer := 0;
  1809. Y0 : Integer := 0;
  1810. X1 : Integer := 0;
  1811. Y1 : Integer := 0;
  1812. Tint : Color := Black
  1813. ) with
  1814. Import => True,
  1815. Convention => C,
  1816. External_Name => "DrawLine";
  1817. --~procedure DrawLineV (Vector2 startPos, Vector2 endPos, Color color) with
  1818. --~Import => True,
  1819. --~Convention => C,
  1820. --~External_Name => "";
  1821. --~procedure DrawLineEx (Vector2 startPos, Vector2 endPos, float thick, Color color) with
  1822. --~Import => True,
  1823. --~Convention => C,
  1824. --~External_Name => "";
  1825. --~procedure DrawLineStrip (Vector2 *points, int pointCount, Color color) with
  1826. --~Import => True,
  1827. --~Convention => C,
  1828. --~External_Name => "";
  1829. --~procedure DrawLineBezier (Vector2 startPos, Vector2 endPos, float thick, Color color) with
  1830. --~Import => True,
  1831. --~Convention => C,
  1832. --~External_Name => "";
  1833. --~procedure DrawCircle (int centerX, int centerY, float radius, Color color) with
  1834. --~Import => True,
  1835. --~Convention => C,
  1836. --~External_Name => "";
  1837. --~procedure DrawCircleSector (Vector2 center, float radius, float startAngle, float endAngle, int segments, Color color) with
  1838. --~Import => True,
  1839. --~Convention => C,
  1840. --~External_Name => "";
  1841. --~procedure DrawCircleSectorLines (Vector2 center, float radius, float startAngle, float endAngle, int segments, Color color) with
  1842. --~Import => True,
  1843. --~Convention => C,
  1844. --~External_Name => "";
  1845. --~procedure DrawCircleGradient (int centerX, int centerY, float radius, Color color1, Color color2) with
  1846. --~Import => True,
  1847. --~Convention => C,
  1848. --~External_Name => "";
  1849. --~procedure DrawCircleV (Vector2 center, float radius, Color color) with
  1850. --~Import => True,
  1851. --~Convention => C,
  1852. --~External_Name => "";
  1853. --~procedure DrawCircleLines (int centerX, int centerY, float radius, Color color) with
  1854. --~Import => True,
  1855. --~Convention => C,
  1856. --~External_Name => "";
  1857. --~procedure DrawCircleLinesV (Vector2 center, float radius, Color color) with
  1858. --~Import => True,
  1859. --~Convention => C,
  1860. --~External_Name => "";
  1861. --~procedure DrawEllipse (int centerX, int centerY, float radiusH, float radiusV, Color color) with
  1862. --~Import => True,
  1863. --~Convention => C,
  1864. --~External_Name => "";
  1865. --~procedure DrawEllipseLines (int centerX, int centerY, float radiusH, float radiusV, Color color) with
  1866. --~Import => True,
  1867. --~Convention => C,
  1868. --~External_Name => "";
  1869. --~procedure DrawRing (Vector2 center, float innerRadius, float outerRadius, float startAngle, float endAngle, int segments, Color color) with
  1870. --~Import => True,
  1871. --~Convention => C,
  1872. --~External_Name => "";
  1873. --~procedure DrawRingLines (Vector2 center, float innerRadius, float outerRadius, float startAngle, float endAngle, int segments, Color color) with
  1874. --~Import => True,
  1875. --~Convention => C,
  1876. --~External_Name => "";
  1877. procedure Draw_Rectangle (
  1878. X : Integer := 0;
  1879. Y : Integer := 0;
  1880. Width : Integer := 0;
  1881. Height : Integer := 0;
  1882. Tint : Color := Black
  1883. ) with
  1884. Import => True,
  1885. Convention => C,
  1886. External_Name => "DrawRectangle";
  1887. procedure Draw_Rectangle_V (
  1888. Position : Vector_2D := (0.0, 0.0);
  1889. Size : Vector_2D := (0.0, 0.0);
  1890. Tint : Color := Black
  1891. ) with
  1892. Import => True,
  1893. Convention => C,
  1894. External_Name => "DrawRectangleV";
  1895. procedure Draw_Rectangle_Rec (
  1896. Data : Rectangle := No_Rectangle;
  1897. Tint : Color := Black
  1898. ) with
  1899. Import => True,
  1900. Convention => C,
  1901. External_Name => "DrawRectangleRec";
  1902. procedure Draw_Rectangle_Pro (
  1903. Data : Rectangle := No_Rectangle;
  1904. Origin : Vector_2D := (0.0, 0.0);
  1905. Rotation : Float := 0.0;
  1906. Tint : Color := Black
  1907. ) with
  1908. Import => True,
  1909. Convention => C,
  1910. External_Name => "DrawRectanglePro";
  1911. procedure Draw_Rectangle_Gradient_V (
  1912. X : Integer := 0;
  1913. Y : Integer := 0;
  1914. Width : Integer := 0;
  1915. Height : Integer := 0;
  1916. Color_1 : Color := Black;
  1917. Color_2 : Color := White
  1918. ) with
  1919. Import => True,
  1920. Convention => C,
  1921. External_Name => "DrawRectangleGradientV";
  1922. procedure Draw_Rectangle_Gradient_H (
  1923. X : Integer := 0;
  1924. Y : Integer := 0;
  1925. Width : Integer := 0;
  1926. Height : Integer := 0;
  1927. Color_1 : Color := Black;
  1928. Color_2 : Color := White
  1929. ) with
  1930. Import => True,
  1931. Convention => C,
  1932. External_Name => "DrawRectangleGradientH";
  1933. procedure Draw_Rectangle_Gradient_Ex (
  1934. Data : Rectangle := No_Rectangle;
  1935. Color_1 : Color := Red;
  1936. Color_2 : Color := Green;
  1937. Color_3 : Color := Blue;
  1938. Color_4 : Color := Black
  1939. ) with
  1940. Import => True,
  1941. Convention => C,
  1942. External_Name => "DrawRectangleGradientEx";
  1943. procedure Draw_Rectangle_Lines (
  1944. X : Integer := 0;
  1945. Y : Integer := 0;
  1946. Width : Integer := 0;
  1947. Height : Integer := 0;
  1948. Tint : Color := Black
  1949. ) with
  1950. Import => True,
  1951. Convention => C,
  1952. External_Name => "DrawRectangleLines";
  1953. procedure Draw_Rectangle_Lines_Ex (
  1954. Data : Rectangle := No_Rectangle;
  1955. Thickness : Float := 1.0;
  1956. Tint : Color := Black
  1957. ) with
  1958. Import => True,
  1959. Convention => C,
  1960. External_Name => "DrawRectangleLinesEx";
  1961. procedure Draw_Rectangle_Rounded (
  1962. Data : Rectangle := No_Rectangle;
  1963. Roundness : Float := 1.0;
  1964. Segments : Integer := 1;
  1965. Tint : Color := Black
  1966. ) with
  1967. Import => True,
  1968. Convention => C,
  1969. External_Name => "DrawRectangleRounded";
  1970. procedure Draw_Rectangle_Rounded_Lines (
  1971. Data : Rectangle := No_Rectangle;
  1972. Roundness : Float := 1.0;
  1973. Segments : Integer := 1;
  1974. Thickness : Float := 1.0;
  1975. Tint : Color := Black
  1976. ) with
  1977. Import => True,
  1978. Convention => C,
  1979. External_Name => "DrawRectangleRoundedLines";
  1980. --~procedure DrawTriangle (Vector2 v1, Vector2 v2, Vector2 v3, Color color) with
  1981. --~Import => True,
  1982. --~Convention => C,
  1983. --~External_Name => "";
  1984. --~procedure DrawTriangleLines (Vector2 v1, Vector2 v2, Vector2 v3, Color color) with
  1985. --~Import => True,
  1986. --~Convention => C,
  1987. --~External_Name => "";
  1988. --~procedure DrawTriangleFan (Vector2 *points, int pointCount, Color color) with
  1989. --~Import => True,
  1990. --~Convention => C,
  1991. --~External_Name => "";
  1992. --~procedure DrawTriangleStrip (Vector2 *points, int pointCount, Color color) with
  1993. --~Import => True,
  1994. --~Convention => C,
  1995. --~External_Name => "";
  1996. --~procedure DrawPoly (Vector2 center, int sides, float radius, float rotation, Color color) with
  1997. --~Import => True,
  1998. --~Convention => C,
  1999. --~External_Name => "";
  2000. --~procedure DrawPolyLines (Vector2 center, int sides, float radius, float rotation, Color color) with
  2001. --~Import => True,
  2002. --~Convention => C,
  2003. --~External_Name => "";
  2004. --~procedure DrawPolyLinesEx (Vector2 center, int sides, float radius, float rotation, float lineThick, Color color) with
  2005. --~Import => True,
  2006. --~Convention => C,
  2007. --~External_Name => "";
  2008. --~procedure DrawSplineLinear (Vector2 *points, int pointCount, float thick, Color color) with
  2009. --~Import => True,
  2010. --~Convention => C,
  2011. --~External_Name => "";
  2012. --~procedure DrawSplineBasis (Vector2 *points, int pointCount, float thick, Color color) with
  2013. --~Import => True,
  2014. --~Convention => C,
  2015. --~External_Name => "";
  2016. --~procedure DrawSplineCatmullRom (Vector2 *points, int pointCount, float thick, Color color) with
  2017. --~Import => True,
  2018. --~Convention => C,
  2019. --~External_Name => "";
  2020. --~procedure DrawSplineBezierQuadratic (Vector2 *points, int pointCount, float thick, Color color) with
  2021. --~Import => True,
  2022. --~Convention => C,
  2023. --~External_Name => "";
  2024. --~procedure DrawSplineBezierCubic (Vector2 *points, int pointCount, float thick, Color color) with
  2025. --~Import => True,
  2026. --~Convention => C,
  2027. --~External_Name => "";
  2028. --~procedure DrawSplineSegmentLinear (Vector2 p1, Vector2 p2, float thick, Color color) with
  2029. --~Import => True,
  2030. --~Convention => C,
  2031. --~External_Name => "";
  2032. --~procedure DrawSplineSegmentBasis (Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float thick, Color color) with
  2033. --~Import => True,
  2034. --~Convention => C,
  2035. --~External_Name => "";
  2036. --~procedure DrawSplineSegmentCatmullRom (Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float thick, Color color) with
  2037. --~Import => True,
  2038. --~Convention => C,
  2039. --~External_Name => "";
  2040. --~procedure DrawSplineSegmentBezierQuadratic (Vector2 p1, Vector2 c2, Vector2 p3, float thick, Color color) with
  2041. --~Import => True,
  2042. --~Convention => C,
  2043. --~External_Name => "";
  2044. --~procedure DrawSplineSegmentBezierCubic (Vector2 p1, Vector2 c2, Vector2 c3, Vector2 p4, float thick, Color color) with
  2045. --~Import => True,
  2046. --~Convention => C,
  2047. --~External_Name => "";
  2048. --~function Vector2 GetSplinePointLinear (Vector2 startPos, Vector2 endPos, float t) with
  2049. --~Import => True,
  2050. --~Convention => C,
  2051. --~External_Name => "";
  2052. --~function Vector2 GetSplinePointBasis (Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float t) with
  2053. --~Import => True,
  2054. --~Convention => C,
  2055. --~External_Name => "";
  2056. --~function Vector2 GetSplinePointCatmullRom (Vector2 p1, Vector2 p2, Vector2 p3, Vector2 p4, float t) with
  2057. --~Import => True,
  2058. --~Convention => C,
  2059. --~External_Name => "";
  2060. --~function Vector2 GetSplinePointBezierQuad (Vector2 p1, Vector2 c2, Vector2 p3, float t) with
  2061. --~Import => True,
  2062. --~Convention => C,
  2063. --~External_Name => "";
  2064. --~function Vector2 GetSplinePointBezierCubic (Vector2 p1, Vector2 c2, Vector2 c3, Vector2 p4, float t) with
  2065. --~Import => True,
  2066. --~Convention => C,
  2067. --~External_Name => "";
  2068. --~function bool CheckCollisionRecs (Rectangle rec1, Rectangle rec2) with
  2069. --~Import => True,
  2070. --~Convention => C,
  2071. --~External_Name => "";
  2072. --~function bool CheckCollisionCircles (Vector2 center1, float radius1, Vector2 center2, float radius2) with
  2073. --~Import => True,
  2074. --~Convention => C,
  2075. --~External_Name => "";
  2076. --~function bool CheckCollisionCircleRec (Vector2 center, float radius, Rectangle rec) with
  2077. --~Import => True,
  2078. --~Convention => C,
  2079. --~External_Name => "";
  2080. --~function bool CheckCollisionPointRec (Vector2 point, Rectangle rec) with
  2081. --~Import => True,
  2082. --~Convention => C,
  2083. --~External_Name => "";
  2084. --~function bool CheckCollisionPointCircle (Vector2 point, Vector2 center, float radius) with
  2085. --~Import => True,
  2086. --~Convention => C,
  2087. --~External_Name => "";
  2088. --~function bool CheckCollisionPointTriangle (Vector2 point, Vector2 p1, Vector2 p2, Vector2 p3) with
  2089. --~Import => True,
  2090. --~Convention => C,
  2091. --~External_Name => "";
  2092. --~function bool CheckCollisionPointPoly (Vector2 point, Vector2 *points, int pointCount) with
  2093. --~Import => True,
  2094. --~Convention => C,
  2095. --~External_Name => "";
  2096. --~function bool CheckCollisionLines (Vector2 startPos1, Vector2 endPos1, Vector2 startPos2, Vector2 endPos2, Vector2 *collisionPoint) with
  2097. --~Import => True,
  2098. --~Convention => C,
  2099. --~External_Name => "";
  2100. --~function bool CheckCollisionPointLine (Vector2 point, Vector2 p1, Vector2 p2, int threshold) with
  2101. --~Import => True,
  2102. --~Convention => C,
  2103. --~External_Name => "";
  2104. --~function Rectangle GetCollisionRec (Rectangle rec1, Rectangle rec2) with
  2105. --~Import => True,
  2106. --~Convention => C,
  2107. --~External_Name => "";
  2108. --~function Image LoadImage (const char *fileName) with
  2109. --~Import => True,
  2110. --~Convention => C,
  2111. --~External_Name => "";
  2112. --~function Image LoadImageRaw (const char *fileName, int width, int height, int format, int headerSize) with
  2113. --~Import => True,
  2114. --~Convention => C,
  2115. --~External_Name => "";
  2116. --~function Image LoadImageSvg (const char *fileNameOrString, int width, int height) with
  2117. --~Import => True,
  2118. --~Convention => C,
  2119. --~External_Name => "";
  2120. --~function Image LoadImageAnim (const char *fileName, int *frames) with
  2121. --~Import => True,
  2122. --~Convention => C,
  2123. --~External_Name => "";
  2124. --~function Image LoadImageFromMemory (const char *fileType, const unsigned char *fileData, int dataSize) with
  2125. --~Import => True,
  2126. --~Convention => C,
  2127. --~External_Name => "";
  2128. --~function Image LoadImageFromTexture (Texture2D texture) with
  2129. --~Import => True,
  2130. --~Convention => C,
  2131. --~External_Name => "";
  2132. --~function Image LoadImageFromScreen (void) with
  2133. --~Import => True,
  2134. --~Convention => C,
  2135. --~External_Name => "";
  2136. --~function bool IsImageReady (Image image) with
  2137. --~Import => True,
  2138. --~Convention => C,
  2139. --~External_Name => "";
  2140. --~procedure UnloadImage (Image image) with
  2141. --~Import => True,
  2142. --~Convention => C,
  2143. --~External_Name => "";
  2144. --~function bool ExportImage (Image image, const char *fileName) with
  2145. --~Import => True,
  2146. --~Convention => C,
  2147. --~External_Name => "";
  2148. --~function unsigned char *ExportImageToMemory (Image image, const char *fileType, int *fileSize) with
  2149. --~Import => True,
  2150. --~Convention => C,
  2151. --~External_Name => "";
  2152. --~function bool ExportImageAsCode (Image image, const char *fileName) with
  2153. --~Import => True,
  2154. --~Convention => C,
  2155. --~External_Name => "";
  2156. --~function Image GenImageColor (int width, int height, Color color) with
  2157. --~Import => True,
  2158. --~Convention => C,
  2159. --~External_Name => "";
  2160. --~function Image GenImageGradientLinear (int width, int height, int direction, Color start, Color end) with
  2161. --~Import => True,
  2162. --~Convention => C,
  2163. --~External_Name => "";
  2164. --~function Image GenImageGradientRadial (int width, int height, float density, Color inner, Color outer) with
  2165. --~Import => True,
  2166. --~Convention => C,
  2167. --~External_Name => "";
  2168. --~function Image GenImageGradientSquare (int width, int height, float density, Color inner, Color outer) with
  2169. --~Import => True,
  2170. --~Convention => C,
  2171. --~External_Name => "";
  2172. --~function Image GenImageChecked (int width, int height, int checksX, int checksY, Color col1, Color col2) with
  2173. --~Import => True,
  2174. --~Convention => C,
  2175. --~External_Name => "";
  2176. --~function Image GenImageWhiteNoise (int width, int height, float factor) with
  2177. --~Import => True,
  2178. --~Convention => C,
  2179. --~External_Name => "";
  2180. --~function Image GenImagePerlinNoise (int width, int height, int offsetX, int offsetY, float scale) with
  2181. --~Import => True,
  2182. --~Convention => C,
  2183. --~External_Name => "";
  2184. --~function Image GenImageCellular (int width, int height, int tileSize) with
  2185. --~Import => True,
  2186. --~Convention => C,
  2187. --~External_Name => "";
  2188. --~function Image GenImageText (int width, int height, const char *text) with
  2189. --~Import => True,
  2190. --~Convention => C,
  2191. --~External_Name => "";
  2192. --~function Image ImageCopy (Image image) with
  2193. --~Import => True,
  2194. --~Convention => C,
  2195. --~External_Name => "";
  2196. --~function Image ImageFromImage (Image image, Rectangle rec) with
  2197. --~Import => True,
  2198. --~Convention => C,
  2199. --~External_Name => "";
  2200. --~function Image ImageText (const char *text, int fontSize, Color color) with
  2201. --~Import => True,
  2202. --~Convention => C,
  2203. --~External_Name => "";
  2204. --~function Image ImageTextEx (Font font, const char *text, float fontSize, float spacing, Color tint) with
  2205. --~Import => True,
  2206. --~Convention => C,
  2207. --~External_Name => "";
  2208. --~procedure ImageFormat (Image *image, int newFormat) with
  2209. --~Import => True,
  2210. --~Convention => C,
  2211. --~External_Name => "";
  2212. --~procedure ImageToPOT (Image *image, Color fill) with
  2213. --~Import => True,
  2214. --~Convention => C,
  2215. --~External_Name => "";
  2216. --~procedure ImageCrop (Image *image, Rectangle crop) with
  2217. --~Import => True,
  2218. --~Convention => C,
  2219. --~External_Name => "";
  2220. --~procedure ImageAlphaCrop (Image *image, float threshold) with
  2221. --~Import => True,
  2222. --~Convention => C,
  2223. --~External_Name => "";
  2224. --~procedure ImageAlphaClear (Image *image, Color color, float threshold) with
  2225. --~Import => True,
  2226. --~Convention => C,
  2227. --~External_Name => "";
  2228. --~procedure ImageAlphaMask (Image *image, Image alphaMask) with
  2229. --~Import => True,
  2230. --~Convention => C,
  2231. --~External_Name => "";
  2232. --~procedure ImageAlphaPremultiply (Image *image) with
  2233. --~Import => True,
  2234. --~Convention => C,
  2235. --~External_Name => "";
  2236. --~procedure ImageBlurGaussian (Image *image, int blurSize) with
  2237. --~Import => True,
  2238. --~Convention => C,
  2239. --~External_Name => "";
  2240. --~procedure ImageKernelConvolution (Image *image, float* kernel, int kernelSize) with
  2241. --~Import => True,
  2242. --~Convention => C,
  2243. --~External_Name => "";
  2244. --~procedure ImageResize (Image *image, int newWidth, int newHeight) with
  2245. --~Import => True,
  2246. --~Convention => C,
  2247. --~External_Name => "";
  2248. --~procedure ImageResizeNN (Image *image, int newWidth,int newHeight) with
  2249. --~Import => True,
  2250. --~Convention => C,
  2251. --~External_Name => "";
  2252. --~procedure ImageResizeCanvas (Image *image, int newWidth, int newHeight, int offsetX, int offsetY, Color fill) with
  2253. --~Import => True,
  2254. --~Convention => C,
  2255. --~External_Name => "";
  2256. --~procedure ImageMipmaps (Image *image) with
  2257. --~Import => True,
  2258. --~Convention => C,
  2259. --~External_Name => "";
  2260. --~procedure ImageDither (Image *image, int rBpp, int gBpp, int bBpp, int aBpp) with
  2261. --~Import => True,
  2262. --~Convention => C,
  2263. --~External_Name => "";
  2264. --~procedure ImageFlipVertical (Image *image) with
  2265. --~Import => True,
  2266. --~Convention => C,
  2267. --~External_Name => "";
  2268. --~procedure ImageFlipHorizontal (Image *image) with
  2269. --~Import => True,
  2270. --~Convention => C,
  2271. --~External_Name => "";
  2272. --~procedure ImageRotate (Image *image, int degrees) with
  2273. --~Import => True,
  2274. --~Convention => C,
  2275. --~External_Name => "";
  2276. --~procedure ImageRotateCW (Image *image) with
  2277. --~Import => True,
  2278. --~Convention => C,
  2279. --~External_Name => "";
  2280. --~procedure ImageRotateCCW (Image *image) with
  2281. --~Import => True,
  2282. --~Convention => C,
  2283. --~External_Name => "";
  2284. --~procedure ImageColorTint (Image *image, Color color) with
  2285. --~Import => True,
  2286. --~Convention => C,
  2287. --~External_Name => "";
  2288. --~procedure ImageColorInvert (Image *image) with
  2289. --~Import => True,
  2290. --~Convention => C,
  2291. --~External_Name => "";
  2292. --~procedure ImageColorGrayscale (Image *image) with
  2293. --~Import => True,
  2294. --~Convention => C,
  2295. --~External_Name => "";
  2296. --~procedure ImageColorContrast (Image *image, float contrast) with
  2297. --~Import => True,
  2298. --~Convention => C,
  2299. --~External_Name => "";
  2300. --~procedure ImageColorBrightness (Image *image, int brightness) with
  2301. --~Import => True,
  2302. --~Convention => C,
  2303. --~External_Name => "";
  2304. --~procedure ImageColorReplace (Image *image, Color color, Color replace) with
  2305. --~Import => True,
  2306. --~Convention => C,
  2307. --~External_Name => "";
  2308. --~function Color *LoadImageColors (Image image) with
  2309. --~Import => True,
  2310. --~Convention => C,
  2311. --~External_Name => "";
  2312. --~function Color *LoadImagePalette (Image image, int maxPaletteSize, int *colorCount) with
  2313. --~Import => True,
  2314. --~Convention => C,
  2315. --~External_Name => "";
  2316. --~procedure UnloadImageColors (Color *colors) with
  2317. --~Import => True,
  2318. --~Convention => C,
  2319. --~External_Name => "";
  2320. --~procedure UnloadImagePalette (Color *colors) with
  2321. --~Import => True,
  2322. --~Convention => C,
  2323. --~External_Name => "";
  2324. --~function Rectangle GetImageAlphaBorder (Image image, float threshold) with
  2325. --~Import => True,
  2326. --~Convention => C,
  2327. --~External_Name => "";
  2328. --~function Color GetImageColor (Image image, int x, int y) with
  2329. --~Import => True,
  2330. --~Convention => C,
  2331. --~External_Name => "";
  2332. --~procedure ImageClearBackground (Image *dst, Color color) with
  2333. --~Import => True,
  2334. --~Convention => C,
  2335. --~External_Name => "";
  2336. --~procedure ImageDrawPixel (Image *dst, int posX, int posY, Color color) with
  2337. --~Import => True,
  2338. --~Convention => C,
  2339. --~External_Name => "";
  2340. --~procedure ImageDrawPixelV (Image *dst, Vector2 position, Color color) with
  2341. --~Import => True,
  2342. --~Convention => C,
  2343. --~External_Name => "";
  2344. --~procedure ImageDrawLine (Image *dst, int startPosX, int startPosY, int endPosX, int endPosY, Color color) with
  2345. --~Import => True,
  2346. --~Convention => C,
  2347. --~External_Name => "";
  2348. --~procedure ImageDrawLineV (Image *dst, Vector2 start, Vector2 end, Color color) with
  2349. --~Import => True,
  2350. --~Convention => C,
  2351. --~External_Name => "";
  2352. --~procedure ImageDrawCircle (Image *dst, int centerX, int centerY, int radius, Color color) with
  2353. --~Import => True,
  2354. --~Convention => C,
  2355. --~External_Name => "";
  2356. --~procedure ImageDrawCircleV (Image *dst, Vector2 center, int radius, Color color) with
  2357. --~Import => True,
  2358. --~Convention => C,
  2359. --~External_Name => "";
  2360. --~procedure ImageDrawCircleLines (Image *dst, int centerX, int centerY, int radius, Color color) with
  2361. --~Import => True,
  2362. --~Convention => C,
  2363. --~External_Name => "";
  2364. --~procedure ImageDrawCircleLinesV (Image *dst, Vector2 center, int radius, Color color) with
  2365. --~Import => True,
  2366. --~Convention => C,
  2367. --~External_Name => "";
  2368. --~procedure ImageDrawRectangle (Image *dst, int posX, int posY, int width, int height, Color color) with
  2369. --~Import => True,
  2370. --~Convention => C,
  2371. --~External_Name => "";
  2372. --~procedure ImageDrawRectangleV (Image *dst, Vector2 position, Vector2 size, Color color) with
  2373. --~Import => True,
  2374. --~Convention => C,
  2375. --~External_Name => "";
  2376. --~procedure ImageDrawRectangleRec (Image *dst, Rectangle rec, Color color) with
  2377. --~Import => True,
  2378. --~Convention => C,
  2379. --~External_Name => "";
  2380. --~procedure ImageDrawRectangleLines (Image *dst, Rectangle rec, int thick, Color color) with
  2381. --~Import => True,
  2382. --~Convention => C,
  2383. --~External_Name => "";
  2384. --~procedure ImageDraw (Image *dst, Image src, Rectangle srcRec, Rectangle dstRec, Color tint) with
  2385. --~Import => True,
  2386. --~Convention => C,
  2387. --~External_Name => "";
  2388. --~procedure ImageDrawText (Image *dst, const char *text, int posX, int posY, int fontSize, Color color) with
  2389. --~Import => True,
  2390. --~Convention => C,
  2391. --~External_Name => "";
  2392. --~procedure ImageDrawTextEx (Image *dst, Font font, const char *text, Vector2 position, float fontSize, float spacing, Color tint) with
  2393. --~Import => True,
  2394. --~Convention => C,
  2395. --~External_Name => "";
  2396. function Load_Texture (
  2397. File_Path : String := ""
  2398. ) return Texture with
  2399. Import => True,
  2400. Convention => C,
  2401. External_Name => "LoadTexture";
  2402. --~function Texture2D LoadTextureFromImage (Image image) with
  2403. --~Import => True,
  2404. --~Convention => C,
  2405. --~External_Name => "";
  2406. --~function TextureCubemap LoadTextureCubemap (Image image, int layout) with
  2407. --~Import => True,
  2408. --~Convention => C,
  2409. --~External_Name => "";
  2410. --~function RenderTexture2D LoadRenderTexture (int width, int height) with
  2411. --~Import => True,
  2412. --~Convention => C,
  2413. --~External_Name => "";
  2414. --~function bool IsTextureReady (Texture2D texture) with
  2415. --~Import => True,
  2416. --~Convention => C,
  2417. --~External_Name => "";
  2418. procedure Unload_Texture (
  2419. Data : Texture := No_Texture
  2420. ) with
  2421. Import => True,
  2422. Convention => C,
  2423. External_Name => "UnloadTexture";
  2424. function Is_Render_Texture_Ready (
  2425. Target : Render_Texture := No_Render_Texture
  2426. ) return Logical with
  2427. Import => True,
  2428. Convention => C,
  2429. External_Name => "IsRenderTextureReady";
  2430. procedure Unload_Render_Texture (
  2431. Target : Render_Texture := No_Render_Texture
  2432. ) with
  2433. Import => True,
  2434. Convention => C,
  2435. External_Name => "UnloadRenderTexture";
  2436. procedure Update_Texture (
  2437. Data : Texture := No_Texture;
  2438. Pixels : Pointer := null
  2439. ) with
  2440. Import => True,
  2441. Convention => C,
  2442. External_Name => "UpdateTexture";
  2443. procedure Update_Texture_Rec (
  2444. Data : Texture := No_Texture;
  2445. Source : Rectangle := No_Rectangle;
  2446. Pixels : Pointer := null
  2447. ) with
  2448. Import => True,
  2449. Convention => C,
  2450. External_Name => "UpdateTextureRec";
  2451. procedure Gen_Texture_Mipmaps (
  2452. Data : Texture := No_Texture
  2453. ) with
  2454. Import => True,
  2455. Convention => C,
  2456. External_Name => "GenTextureMipmaps";
  2457. procedure Set_Texture_Filter (
  2458. Data : Texture := No_Texture;
  2459. Filter : Texture_Filter := Texture_Filter_Point
  2460. ) with
  2461. Import => True,
  2462. Convention => C,
  2463. External_Name => "SetTextureFilter";
  2464. procedure Set_Texture_Wrap (
  2465. Data : Texture := No_Texture;
  2466. Wrap : Texture_Wrap := Texture_Wrap_Repeat
  2467. ) with
  2468. Import => True,
  2469. Convention => C,
  2470. External_Name => "SetTextureWrap";
  2471. procedure Draw_Texture (
  2472. Data : Texture := No_Texture;
  2473. X : Integer := 0;
  2474. Y : Integer := 0;
  2475. Tint : Color := White
  2476. ) with
  2477. Import => True,
  2478. Convention => C,
  2479. External_Name => "DrawTexture";
  2480. procedure Draw_Texture_V (
  2481. Data : Texture := No_Texture;
  2482. Position : Vector_2D := (0.0, 0.0);
  2483. Tint : Color := White
  2484. ) with
  2485. Import => True,
  2486. Convention => C,
  2487. External_Name => "DrawTextureV";
  2488. procedure Draw_Texture_Ex (
  2489. Data : Texture := No_Texture;
  2490. Position : Vector_2D := (0.0, 0.0);
  2491. Rotation : Float := 0.0;
  2492. Scale : Float := 0.0;
  2493. Tint : Color := White
  2494. ) with
  2495. Import => True,
  2496. Convention => C,
  2497. External_Name => "DrawTextureEx";
  2498. procedure Draw_Texture_Rec (
  2499. Data : Texture := No_Texture;
  2500. Source : Rectangle := No_Rectangle;
  2501. Position : Vector_2D := (0.0, 0.0);
  2502. Tint : Color := White
  2503. ) with
  2504. Import => True,
  2505. Convention => C,
  2506. External_Name => "DrawTextureRec";
  2507. procedure Draw_Texture_Pro (
  2508. Data : Texture := No_Texture;
  2509. Source : Rectangle := No_Rectangle;
  2510. Destination : Rectangle := No_Rectangle;
  2511. Origin : Vector_2D := (0.0, 0.0);
  2512. Rotation : Float := 0.0;
  2513. Tint : Color := White
  2514. ) with
  2515. Import => True,
  2516. Convention => C,
  2517. External_Name => "DrawTexturePro";
  2518. --~procedure DrawTextureNPatch (Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint) with
  2519. --~Import => True,
  2520. --~Convention => C,
  2521. --~External_Name => "";
  2522. --~function Color Fade (Color color, float alpha) with
  2523. --~Import => True,
  2524. --~Convention => C,
  2525. --~External_Name => "";
  2526. --~function int ColorToInt (Color color) with
  2527. --~Import => True,
  2528. --~Convention => C,
  2529. --~External_Name => "";
  2530. --~function Vector4 ColorNormalize (Color color) with
  2531. --~Import => True,
  2532. --~Convention => C,
  2533. --~External_Name => "";
  2534. --~function Color ColorFromNormalized (Vector4 normalized) with
  2535. --~Import => True,
  2536. --~Convention => C,
  2537. --~External_Name => "";
  2538. --~function Vector3 ColorToHSV (Color color) with
  2539. --~Import => True,
  2540. --~Convention => C,
  2541. --~External_Name => "";
  2542. --~function Color ColorFromHSV (float hue, float saturation, float value) with
  2543. --~Import => True,
  2544. --~Convention => C,
  2545. --~External_Name => "";
  2546. --~function Color ColorTint (Color color, Color tint) with
  2547. --~Import => True,
  2548. --~Convention => C,
  2549. --~External_Name => "";
  2550. --~function Color ColorBrightness (Color color, float factor) with
  2551. --~Import => True,
  2552. --~Convention => C,
  2553. --~External_Name => "";
  2554. --~function Color ColorContrast (Color color, float contrast) with
  2555. --~Import => True,
  2556. --~Convention => C,
  2557. --~External_Name => "";
  2558. --~function Color ColorAlpha (Color color, float alpha) with
  2559. --~Import => True,
  2560. --~Convention => C,
  2561. --~External_Name => "";
  2562. --~function Color ColorAlphaBlend (Color dst, Color src, Color tint) with
  2563. --~Import => True,
  2564. --~Convention => C,
  2565. --~External_Name => "";
  2566. --~function Color GetColor (unsigned int hexValue) with
  2567. --~Import => True,
  2568. --~Convention => C,
  2569. --~External_Name => "";
  2570. --~function Color GetPixelColor (void *srcPtr, int format) with
  2571. --~Import => True,
  2572. --~Convention => C,
  2573. --~External_Name => "";
  2574. --~procedure SetPixelColor (void *dstPtr, Color color, int format) with
  2575. --~Import => True,
  2576. --~Convention => C,
  2577. --~External_Name => "";
  2578. --~function int GetPixelDataSize (int width, int height, int format) with
  2579. --~Import => True,
  2580. --~Convention => C,
  2581. --~External_Name => "";
  2582. function Get_Font_Default return Font with
  2583. Import => True,
  2584. Convention => C,
  2585. External_Name => "GetFontDefault";
  2586. function Load_Font (
  2587. File_Name : String := ""
  2588. ) return Font with
  2589. Import => True,
  2590. Convention => C,
  2591. External_Name => "LoadFont";
  2592. --~function Font LoadFontEx (const char *fileName, int fontSize, int *codepoints, int codepointCount) with
  2593. --~Import => True,
  2594. --~Convention => C,
  2595. --~External_Name => "";
  2596. --~function Font LoadFontFromImage (Image image, Color key, int firstChar) with
  2597. --~Import => True,
  2598. --~Convention => C,
  2599. --~External_Name => "";
  2600. --~function Font LoadFontFromMemory (const char *fileType, const unsigned char *fileData, int dataSize, int fontSize, int *codepoints, int codepointCount) with
  2601. --~Import => True,
  2602. --~Convention => C,
  2603. --~External_Name => "";
  2604. --~function bool IsFontReady (Font font) with
  2605. --~Import => True,
  2606. --~Convention => C,
  2607. --~External_Name => "";
  2608. --~function GlyphInfo *LoadFontData (const unsigned char *fileData, int dataSize, int fontSize, int *codepoints, int codepointCount, int type) with
  2609. --~Import => True,
  2610. --~Convention => C,
  2611. --~External_Name => "";
  2612. --~function Image GenImageFontAtlas (const GlyphInfo *glyphs, Rectangle **glyphRecs, int glyphCount, int fontSize, int padding, int packMethod) with
  2613. --~Import => True,
  2614. --~Convention => C,
  2615. --~External_Name => "";
  2616. --~procedure UnloadFontData (GlyphInfo *glyphs, int glyphCount) with
  2617. --~Import => True,
  2618. --~Convention => C,
  2619. --~External_Name => "";
  2620. procedure Unload_Font (
  2621. Data : Font := No_Font
  2622. ) with
  2623. Import => True,
  2624. Convention => C,
  2625. External_Name => "UnloadFont";
  2626. --~function bool ExportFontAsCode (Font font, const char *fileName) with
  2627. --~Import => True,
  2628. --~Convention => C,
  2629. --~External_Name => "";
  2630. procedure Draw_FPS (
  2631. X : Integer := 0;
  2632. Y : Integer := 0
  2633. ) with
  2634. Import => True,
  2635. Convention => C,
  2636. External_Name => "DrawFPS";
  2637. procedure Draw_Text (
  2638. Text : String := "";
  2639. X : Integer := 0;
  2640. Y : Integer := 0;
  2641. Size : Integer := 32;
  2642. Tint : Color := White
  2643. ) with
  2644. Import => True,
  2645. Convention => C,
  2646. External_Name => "DrawText";
  2647. procedure Draw_Text_Ex (
  2648. Data : Font := Get_Font_Default;
  2649. Text : String := "";
  2650. Position : Vector_2D := (0.0, 0.0);
  2651. Font_Size : Float := 0.0;
  2652. Spacing : Float := 0.0;
  2653. Tint : Color := White
  2654. ) with
  2655. Import => True,
  2656. Convention => C,
  2657. External_Name => "DrawTextEx";
  2658. procedure Draw_Text_Pro (
  2659. Data : Font := Get_Font_Default;
  2660. Text : String := "";
  2661. Position : Vector_2D := (0.0, 0.0);
  2662. Origin : Vector_2D := (0.0, 0.0);
  2663. Rotation : Float := 0.0;
  2664. Font_Size : Float := 0.0;
  2665. Spacing : Float := 0.0;
  2666. Tint : Color := White
  2667. ) with
  2668. Import => True,
  2669. Convention => C,
  2670. External_Name => "DrawTextPro";
  2671. --~procedure DrawTextCodepoint (Font font, int codepoint, Vector2 position, float fontSize, Color tint) with
  2672. --~Import => True,
  2673. --~Convention => C,
  2674. --~External_Name => "";
  2675. --~procedure DrawTextCodepoints (Font font, const int *codepoints, int codepointCount, Vector2 position, float fontSize, float spacing, Color tint) with
  2676. --~Import => True,
  2677. --~Convention => C,
  2678. --~External_Name => "";
  2679. procedure Set_Text_Line_Spacing (
  2680. Spacing : Integer := 0
  2681. ) with
  2682. Import => True,
  2683. Convention => C,
  2684. External_Name => "SetTextLineSpacing";
  2685. function Measure_Text (
  2686. Text : String := "";
  2687. Font_Size : Integer := 0
  2688. ) return Integer with
  2689. Import => True,
  2690. Convention => C,
  2691. External_Name => "MeasureText";
  2692. function Measure_Text_Ex (
  2693. Data : Font := Get_Font_Default;
  2694. Text : String := "";
  2695. Font_Size : Float := 0.0;
  2696. Spacing : Float := 0.0
  2697. ) return Vector_2D with
  2698. Import => True,
  2699. Convention => C,
  2700. External_Name => "MeasureTextEx";
  2701. function Get_Glyph_Index (
  2702. Data : Font := Get_Font_Default;
  2703. Code_Point : Integer := 0
  2704. ) return Integer with
  2705. Import => True,
  2706. Convention => C,
  2707. External_Name => "GetGlyphIndex";
  2708. function Get_Glyph_Info (
  2709. Data : Font := Get_Font_Default;
  2710. Code_Point : Integer := 0
  2711. ) return Glyph_Info with
  2712. Import => True,
  2713. Convention => C,
  2714. External_Name => "GetGlyphInfo";
  2715. function Get_Glyph_Atlas_Rec (
  2716. Data : Font := Get_Font_Default;
  2717. Code_Point : Integer := 0
  2718. ) return Rectangle with
  2719. Import => True,
  2720. Convention => C,
  2721. External_Name => "GetGlyphAtlasRec";
  2722. function Load_UTF8 (
  2723. Code_Points : access Integer := null;
  2724. Length : Integer := 0
  2725. ) return access Character with
  2726. Import => True,
  2727. Convention => C,
  2728. External_Name => "LoadUTF8";
  2729. procedure Unload_UTF8 (
  2730. Text : access Character := null
  2731. ) with
  2732. Import => True,
  2733. Convention => C,
  2734. External_Name => "UnloadUTF8";
  2735. --~function int *LoadCodepoints (const char *text, int *count) with
  2736. --~Import => True,
  2737. --~Convention => C,
  2738. --~External_Name => "";
  2739. --~procedure UnloadCodepoints (int *codepoints) with
  2740. --~Import => True,
  2741. --~Convention => C,
  2742. --~External_Name => "";
  2743. --~function int GetCodepointCount (const char *text) with
  2744. --~Import => True,
  2745. --~Convention => C,
  2746. --~External_Name => "";
  2747. --~function int GetCodepoint (const char *text, int *codepointSize) with
  2748. --~Import => True,
  2749. --~Convention => C,
  2750. --~External_Name => "";
  2751. --~function int GetCodepointNext (const char *text, int *codepointSize) with
  2752. --~Import => True,
  2753. --~Convention => C,
  2754. --~External_Name => "";
  2755. --~function int GetCodepointPrevious (const char *text, int *codepointSize) with
  2756. --~Import => True,
  2757. --~Convention => C,
  2758. --~External_Name => "";
  2759. --~function const char *CodepointToUTF8 (int codepoint, int *utf8Size) with
  2760. --~Import => True,
  2761. --~Convention => C,
  2762. --~External_Name => "";
  2763. --~function int TextCopy (char *dst, const char *src) with
  2764. --~Import => True,
  2765. --~Convention => C,
  2766. --~External_Name => "";
  2767. --~function bool TextIsEqual (const char *text1, const char *text2) with
  2768. --~Import => True,
  2769. --~Convention => C,
  2770. --~External_Name => "";
  2771. --~function unsigned int TextLength (const char *text) with
  2772. --~Import => True,
  2773. --~Convention => C,
  2774. --~External_Name => "";
  2775. --~function const char *TextFormat (const char *text, ...) with
  2776. --~Import => True,
  2777. --~Convention => C,
  2778. --~External_Name => "";
  2779. --~function const char *TextSubtext (const char *text, int position, int length) with
  2780. --~Import => True,
  2781. --~Convention => C,
  2782. --~External_Name => "";
  2783. --~function char *TextReplace (char *text, const char *replace, const char *by) with
  2784. --~Import => True,
  2785. --~Convention => C,
  2786. --~External_Name => "";
  2787. --~function char *TextInsert (const char *text, const char *insert, int position) with
  2788. --~Import => True,
  2789. --~Convention => C,
  2790. --~External_Name => "";
  2791. --~function const char *TextJoin (const char **textList, int count, const char *delimiter) with
  2792. --~Import => True,
  2793. --~Convention => C,
  2794. --~External_Name => "";
  2795. --~function const char **TextSplit (const char *text, char delimiter, int *count) with
  2796. --~Import => True,
  2797. --~Convention => C,
  2798. --~External_Name => "";
  2799. --~procedure TextAppend (char *text, const char *append, int *position) with
  2800. --~Import => True,
  2801. --~Convention => C,
  2802. --~External_Name => "";
  2803. --~function int TextFindIndex (const char *text, const char *find) with
  2804. --~Import => True,
  2805. --~Convention => C,
  2806. --~External_Name => "";
  2807. --~function const char *TextToUpper (const char *text) with
  2808. --~Import => True,
  2809. --~Convention => C,
  2810. --~External_Name => "";
  2811. --~function const char *TextToLower (const char *text) with
  2812. --~Import => True,
  2813. --~Convention => C,
  2814. --~External_Name => "";
  2815. --~function const char *TextToPascal (const char *text) with
  2816. --~Import => True,
  2817. --~Convention => C,
  2818. --~External_Name => "";
  2819. --~function int TextToInteger (const char *text) with
  2820. --~Import => True,
  2821. --~Convention => C,
  2822. --~External_Name => "";
  2823. --~procedure DrawLine3D (Vector3 startPos, Vector3 endPos, Color color) with
  2824. --~Import => True,
  2825. --~Convention => C,
  2826. --~External_Name => "";
  2827. --~procedure DrawPoint3D (Vector3 position, Color color) with
  2828. --~Import => True,
  2829. --~Convention => C,
  2830. --~External_Name => "";
  2831. --~procedure DrawCircle3D (Vector3 center, float radius, Vector3 rotationAxis, float rotationAngle, Color color) with
  2832. --~Import => True,
  2833. --~Convention => C,
  2834. --~External_Name => "";
  2835. --~procedure DrawTriangle3D (Vector3 v1, Vector3 v2, Vector3 v3, Color color) with
  2836. --~Import => True,
  2837. --~Convention => C,
  2838. --~External_Name => "";
  2839. --~procedure DrawTriangleStrip3D (Vector3 *points, int pointCount, Color color) with
  2840. --~Import => True,
  2841. --~Convention => C,
  2842. --~External_Name => "";
  2843. procedure Draw_Cube (
  2844. Position : Vector_3D := (0.0, 0.0, 0.0);
  2845. Width : Float := 0.0;
  2846. Height : Float := 0.0;
  2847. Length : Float := 0.0;
  2848. Tint : Color := White
  2849. ) with
  2850. Import => True,
  2851. Convention => C,
  2852. External_Name => "DrawCube";
  2853. --~procedure DrawCubeV (Vector3 position, Vector3 size, Color color) with
  2854. --~Import => True,
  2855. --~Convention => C,
  2856. --~External_Name => "";
  2857. procedure Draw_Cube_Wires (
  2858. Position : Vector_3D := (0.0, 0.0, 0.0);
  2859. Width : Float := 0.0;
  2860. Height : Float := 0.0;
  2861. Length : Float := 0.0;
  2862. Tint : Color := Black
  2863. ) with
  2864. Import => True,
  2865. Convention => C,
  2866. External_Name => "DrawCubeWires";
  2867. --~procedure DrawCubeWiresV (Vector3 position, Vector3 size, Color color) with
  2868. --~Import => True,
  2869. --~Convention => C,
  2870. --~External_Name => "";
  2871. --~procedure DrawSphere (Vector3 centerPos, float radius, Color color) with
  2872. --~Import => True,
  2873. --~Convention => C,
  2874. --~External_Name => "";
  2875. --~procedure DrawSphereEx (Vector3 centerPos, float radius, int rings, int slices, Color color) with
  2876. --~Import => True,
  2877. --~Convention => C,
  2878. --~External_Name => "";
  2879. --~procedure DrawSphereWires (Vector3 centerPos, float radius, int rings, int slices, Color color) with
  2880. --~Import => True,
  2881. --~Convention => C,
  2882. --~External_Name => "";
  2883. --~procedure DrawCylinder (Vector3 position, float radiusTop, float radiusBottom, float height, int slices, Color color) with
  2884. --~Import => True,
  2885. --~Convention => C,
  2886. --~External_Name => "";
  2887. --~procedure DrawCylinderEx (Vector3 startPos, Vector3 endPos, float startRadius, float endRadius, int sides, Color color) with
  2888. --~Import => True,
  2889. --~Convention => C,
  2890. --~External_Name => "";
  2891. --~procedure DrawCylinderWires (Vector3 position, float radiusTop, float radiusBottom, float height, int slices, Color color) with
  2892. --~Import => True,
  2893. --~Convention => C,
  2894. --~External_Name => "";
  2895. --~procedure DrawCylinderWiresEx (Vector3 startPos, Vector3 endPos, float startRadius, float endRadius, int sides, Color color) with
  2896. --~Import => True,
  2897. --~Convention => C,
  2898. --~External_Name => "";
  2899. --~procedure DrawCapsule (Vector3 startPos, Vector3 endPos, float radius, int slices, int rings, Color color) with
  2900. --~Import => True,
  2901. --~Convention => C,
  2902. --~External_Name => "";
  2903. --~procedure DrawCapsuleWires (Vector3 startPos, Vector3 endPos, float radius, int slices, int rings, Color color) with
  2904. --~Import => True,
  2905. --~Convention => C,
  2906. --~External_Name => "";
  2907. procedure Draw_Plane (
  2908. Center : Vector_3D := (0.0, 0.0, 0.0);
  2909. Size : Vector_2D := (0.0, 0.0);
  2910. Tint : Color := White
  2911. ) with
  2912. Import => True,
  2913. Convention => C,
  2914. External_Name => "DrawPlane";
  2915. --~procedure DrawRay (Ray ray, Color color) with
  2916. --~Import => True,
  2917. --~Convention => C,
  2918. --~External_Name => "";
  2919. --~procedure DrawGrid (int slices, float spacing) with
  2920. --~Import => True,
  2921. --~Convention => C,
  2922. --~External_Name => "";
  2923. function Load_Model (
  2924. File_Name : String := ""
  2925. ) return Model with
  2926. Import => True,
  2927. Convention => C,
  2928. External_Name => "LoadModel";
  2929. --~function Model LoadModelFromMesh (Mesh mesh) with
  2930. --~Import => True,
  2931. --~Convention => C,
  2932. --~External_Name => "";
  2933. --~function bool IsModelReady (Model model) with
  2934. --~Import => True,
  2935. --~Convention => C,
  2936. --~External_Name => "";
  2937. procedure Unload_Model (
  2938. Data : Model := No_Model
  2939. ) with
  2940. Import => True,
  2941. Convention => C,
  2942. External_Name => "UnloadModel";
  2943. --~function BoundingBox GetModelBoundingBox (Model model) with
  2944. --~Import => True,
  2945. --~Convention => C,
  2946. --~External_Name => "";
  2947. procedure Draw_Model (
  2948. Data : Model := No_Model;
  2949. Position : Vector_3D := (0.0, 0.0, 0.0);
  2950. Scale : Float := 1.0;
  2951. Tint : Color := White
  2952. ) with
  2953. Import => True,
  2954. Convention => C,
  2955. External_Name => "DrawModel";
  2956. --~procedure DrawModelEx (Model model, Vector3 position, Vector3 rotationAxis, float rotationAngle, Vector3 scale, Color tint) with
  2957. --~Import => True,
  2958. --~Convention => C,
  2959. --~External_Name => "";
  2960. --~procedure DrawModelWires (Model model, Vector3 position, float scale, Color tint) with
  2961. --~Import => True,
  2962. --~Convention => C,
  2963. --~External_Name => "";
  2964. --~procedure DrawModelWiresEx (Model model, Vector3 position, Vector3 rotationAxis, float rotationAngle, Vector3 scale, Color tint) with
  2965. --~Import => True,
  2966. --~Convention => C,
  2967. --~External_Name => "";
  2968. --~procedure DrawBoundingBox (BoundingBox box, Color color) with
  2969. --~Import => True,
  2970. --~Convention => C,
  2971. --~External_Name => "";
  2972. procedure Draw_Billboard (
  2973. Camera : Camera_3D := No_Camera_3D;
  2974. Billboard : Texture := No_Texture;
  2975. Position : Vector_3D := (0.0, 0.0, 0.0);
  2976. Size : Float := 0.0;
  2977. Tint : Color := White
  2978. ) with
  2979. Import => True,
  2980. Convention => C,
  2981. External_Name => "DrawBillboard";
  2982. --~procedure DrawBillboardRec (Camera camera, Texture2D texture, Rectangle source, Vector3 position, Vector2 size, Color tint) with
  2983. --~Import => True,
  2984. --~Convention => C,
  2985. --~External_Name => "";
  2986. procedure Draw_Billboard_Pro (
  2987. Camera : Camera_3D := No_Camera_3D;
  2988. Billboard : Texture := No_Texture;
  2989. Source : Rectangle := No_Rectangle;
  2990. Position : Vector_3D := (0.0, 0.0, 0.0);
  2991. Up : Vector_3D := (0.0, 0.0, 0.0);
  2992. Size : Vector_2D := (0.0, 0.0);
  2993. Origin : Vector_2D := (0.0, 0.0);
  2994. Rotation : Float := 0.0;
  2995. Tint : Color := White
  2996. ) with
  2997. Import => True,
  2998. Convention => C,
  2999. External_Name => "DrawBillboardPro";
  3000. procedure Upload_Mesh (
  3001. Data : access Mesh := null;
  3002. Dynamic : Logical := False
  3003. ) with
  3004. Import => True,
  3005. Convention => C,
  3006. External_Name => "UploadMesh";
  3007. --~procedure UpdateMeshBuffer (Mesh mesh, int index, const void *data, int dataSize, int offset) with
  3008. --~Import => True,
  3009. --~Convention => C,
  3010. --~External_Name => "";
  3011. --~procedure UnloadMesh (Mesh mesh) with
  3012. --~Import => True,
  3013. --~Convention => C,
  3014. --~External_Name => "";
  3015. procedure Draw_Mesh (
  3016. Data : Mesh := No_Mesh;
  3017. Pixels : Material := No_Material;
  3018. Transform : Matrix_4D := (others => 0.0)
  3019. ) with
  3020. Import => True,
  3021. Convention => C,
  3022. External_Name => "DrawMesh";
  3023. --~procedure DrawMeshInstanced (Mesh mesh, Material material, const Matrix *transforms, int instances) with
  3024. --~Import => True,
  3025. --~Convention => C,
  3026. --~External_Name => "";
  3027. --~function BoundingBox GetMeshBoundingBox (Mesh mesh) with
  3028. --~Import => True,
  3029. --~Convention => C,
  3030. --~External_Name => "";
  3031. --~procedure GenMeshTangents (Mesh *mesh) with
  3032. --~Import => True,
  3033. --~Convention => C,
  3034. --~External_Name => "";
  3035. --~function bool ExportMesh (Mesh mesh, const char *fileName) with
  3036. --~Import => True,
  3037. --~Convention => C,
  3038. --~External_Name => "";
  3039. --~function bool ExportMeshAsCode (Mesh mesh, const char *fileName) with
  3040. --~Import => True,
  3041. --~Convention => C,
  3042. --~External_Name => "";
  3043. --~function Mesh GenMeshPoly (int sides, float radius) with
  3044. --~Import => True,
  3045. --~Convention => C,
  3046. --~External_Name => "";
  3047. function Gen_Mesh_Plane (
  3048. Width : Float := 1.0;
  3049. Height : Float := 1.0;
  3050. X : Integer := 1;
  3051. Z : Integer := 1
  3052. ) return Mesh with
  3053. Import => True,
  3054. Convention => C,
  3055. External_Name => "GenMeshPlane";
  3056. --~function Mesh GenMeshCube (float width, float height, float length) with
  3057. --~Import => True,
  3058. --~Convention => C,
  3059. --~External_Name => "";
  3060. --~function Mesh GenMeshSphere (float radius, int rings, int slices) with
  3061. --~Import => True,
  3062. --~Convention => C,
  3063. --~External_Name => "";
  3064. --~function Mesh GenMeshHemiSphere (float radius, int rings, int slices) with
  3065. --~Import => True,
  3066. --~Convention => C,
  3067. --~External_Name => "";
  3068. --~function Mesh GenMeshCylinder (float radius, float height, int slices) with
  3069. --~Import => True,
  3070. --~Convention => C,
  3071. --~External_Name => "";
  3072. --~function Mesh GenMeshCone (float radius, float height, int slices) with
  3073. --~Import => True,
  3074. --~Convention => C,
  3075. --~External_Name => "";
  3076. --~function Mesh GenMeshTorus (float radius, float size, int radSeg, int sides) with
  3077. --~Import => True,
  3078. --~Convention => C,
  3079. --~External_Name => "";
  3080. --~function Mesh GenMeshKnot (float radius, float size, int radSeg, int sides) with
  3081. --~Import => True,
  3082. --~Convention => C,
  3083. --~External_Name => "";
  3084. --~function Mesh GenMeshHeightmap (Image heightmap, Vector3 size) with
  3085. --~Import => True,
  3086. --~Convention => C,
  3087. --~External_Name => "";
  3088. --~function Mesh GenMeshCubicmap (Image cubicmap, Vector3 cubeSize) with
  3089. --~Import => True,
  3090. --~Convention => C,
  3091. --~External_Name => "";
  3092. --~function Material *LoadMaterials (const char *fileName, int *materialCount) with
  3093. --~Import => True,
  3094. --~Convention => C,
  3095. --~External_Name => "";
  3096. --~function Material LoadMaterialDefault (void) with
  3097. --~Import => True,
  3098. --~Convention => C,
  3099. --~External_Name => "";
  3100. --~function bool IsMaterialReady (Material material) with
  3101. --~Import => True,
  3102. --~Convention => C,
  3103. --~External_Name => "";
  3104. --~procedure UnloadMaterial (Material material) with
  3105. --~Import => True,
  3106. --~Convention => C,
  3107. --~External_Name => "";
  3108. --~procedure SetMaterialTexture (Material *material, int mapType, Texture2D texture) with
  3109. --~Import => True,
  3110. --~Convention => C,
  3111. --~External_Name => "";
  3112. --~procedure SetModelMeshMaterial (Model *model, int meshId, int materialId) with
  3113. --~Import => True,
  3114. --~Convention => C,
  3115. --~External_Name => "";
  3116. --~function ModelAnimation *LoadModelAnimations (const char *fileName, int *animCount) with
  3117. --~Import => True,
  3118. --~Convention => C,
  3119. --~External_Name => "";
  3120. --~procedure UpdateModelAnimation (Model model, ModelAnimation anim, int frame) with
  3121. --~Import => True,
  3122. --~Convention => C,
  3123. --~External_Name => "";
  3124. --~procedure UnloadModelAnimation (ModelAnimation anim) with
  3125. --~Import => True,
  3126. --~Convention => C,
  3127. --~External_Name => "";
  3128. --~procedure UnloadModelAnimations (ModelAnimation *animations, int animCount) with
  3129. --~Import => True,
  3130. --~Convention => C,
  3131. --~External_Name => "";
  3132. --~function bool IsModelAnimationValid (Model model, ModelAnimation anim) with
  3133. --~Import => True,
  3134. --~Convention => C,
  3135. --~External_Name => "";
  3136. --~function bool CheckCollisionSpheres (Vector3 center1, float radius1, Vector3 center2, float radius2) with
  3137. --~Import => True,
  3138. --~Convention => C,
  3139. --~External_Name => "";
  3140. --~function bool CheckCollisionBoxes (BoundingBox box1, BoundingBox box2) with
  3141. --~Import => True,
  3142. --~Convention => C,
  3143. --~External_Name => "";
  3144. --~function bool CheckCollisionBoxSphere (BoundingBox box, Vector3 center, float radius) with
  3145. --~Import => True,
  3146. --~Convention => C,
  3147. --~External_Name => "";
  3148. --~function RayCollision GetRayCollisionSphere (Ray ray, Vector3 center, float radius) with
  3149. --~Import => True,
  3150. --~Convention => C,
  3151. --~External_Name => "";
  3152. --~function RayCollision GetRayCollisionBox (Ray ray, BoundingBox box) with
  3153. --~Import => True,
  3154. --~Convention => C,
  3155. --~External_Name => "";
  3156. --~function RayCollision GetRayCollisionMesh (Ray ray, Mesh mesh, Matrix transform) with
  3157. --~Import => True,
  3158. --~Convention => C,
  3159. --~External_Name => "";
  3160. --~function RayCollision GetRayCollisionTriangle (Ray ray, Vector3 p1, Vector3 p2, Vector3 p3) with
  3161. --~Import => True,
  3162. --~Convention => C,
  3163. --~External_Name => "";
  3164. --~function RayCollision GetRayCollisionQuad (Ray ray, Vector3 p1, Vector3 p2, Vector3 p3, Vector3 p4) with
  3165. --~Import => True,
  3166. --~Convention => C,
  3167. --~External_Name => "";
  3168. --~typedef void (*AudioCallback) (void *bufferData, unsigned int frames) with
  3169. --~Import => True,
  3170. --~Convention => C,
  3171. --~External_Name => "";
  3172. procedure Open_Audio_Device with
  3173. Import => True,
  3174. Convention => C,
  3175. External_Name => "InitAudioDevice";
  3176. procedure Close_Audio_Device with
  3177. Import => True,
  3178. Convention => C,
  3179. External_Name => "CloseAudioDevice";
  3180. --~function bool IsAudioDeviceReady (void) with
  3181. --~Import => True,
  3182. --~Convention => C,
  3183. --~External_Name => "";
  3184. --~procedure SetMasterVolume (float volume) with
  3185. --~Import => True,
  3186. --~Convention => C,
  3187. --~External_Name => "";
  3188. --~function float GetMasterVolume (void) with
  3189. --~Import => True,
  3190. --~Convention => C,
  3191. --~External_Name => "";
  3192. --~function Wave LoadWave (const char *fileName) with
  3193. --~Import => True,
  3194. --~Convention => C,
  3195. --~External_Name => "";
  3196. --~function Wave LoadWaveFromMemory (const char *fileType, const unsigned char *fileData, int dataSize) with
  3197. --~Import => True,
  3198. --~Convention => C,
  3199. --~External_Name => "";
  3200. --~function bool IsWaveReady (Wave wave) with
  3201. --~Import => True,
  3202. --~Convention => C,
  3203. --~External_Name => "";
  3204. function Load_Sound (
  3205. File_Name : String := ""
  3206. ) return Sound with
  3207. Import => True,
  3208. Convention => C,
  3209. External_Name => "LoadSound";
  3210. --~function Sound LoadSoundFromWave (Wave wave) with
  3211. --~Import => True,
  3212. --~Convention => C,
  3213. --~External_Name => "";
  3214. --~function Sound LoadSoundAlias (Sound source) with
  3215. --~Import => True,
  3216. --~Convention => C,
  3217. --~External_Name => "";
  3218. --~function bool IsSoundReady (Sound sound) with
  3219. --~Import => True,
  3220. --~Convention => C,
  3221. --~External_Name => "";
  3222. --~procedure UpdateSound (Sound sound, const void *data, int sampleCount) with
  3223. --~Import => True,
  3224. --~Convention => C,
  3225. --~External_Name => "";
  3226. --~procedure UnloadWave (Wave wave) with
  3227. --~Import => True,
  3228. --~Convention => C,
  3229. --~External_Name => "";
  3230. procedure Unload_Sound (
  3231. Data : Sound := No_Sound
  3232. ) with
  3233. Import => True,
  3234. Convention => C,
  3235. External_Name => "UnloadSound";
  3236. --~procedure UnloadSoundAlias (Sound alias) with
  3237. --~Import => True,
  3238. --~Convention => C,
  3239. --~External_Name => "";
  3240. --~function bool ExportWave (Wave wave, const char *fileName) with
  3241. --~Import => True,
  3242. --~Convention => C,
  3243. --~External_Name => "";
  3244. --~function bool ExportWaveAsCode (Wave wave, const char *fileName) with
  3245. --~Import => True,
  3246. --~Convention => C,
  3247. --~External_Name => "";
  3248. procedure Play_Sound (
  3249. Data : Sound := No_Sound
  3250. ) with
  3251. Import => True,
  3252. Convention => C,
  3253. External_Name => "PlaySound";
  3254. procedure Stop_Sound (
  3255. Data : Sound := No_Sound
  3256. ) with
  3257. Import => True,
  3258. Convention => C,
  3259. External_Name => "StopSound";
  3260. procedure Pause_Sound (
  3261. Data : Sound := No_Sound
  3262. ) with
  3263. Import => True,
  3264. Convention => C,
  3265. External_Name => "PauseSound";
  3266. procedure Resume_Sound (
  3267. Data : Sound := No_Sound
  3268. ) with
  3269. Import => True,
  3270. Convention => C,
  3271. External_Name => "ResumeSound";
  3272. function Is_Sound_Playing (
  3273. Data : Sound := No_Sound
  3274. ) return Logical with
  3275. Import => True,
  3276. Convention => C,
  3277. External_Name => "IsSoundPlaying";
  3278. procedure Set_Sound_Volume (
  3279. Data : Sound := No_Sound;
  3280. Volume : Float := 0.0
  3281. ) with
  3282. Import => True,
  3283. Convention => C,
  3284. External_Name => "SetSoundVolume";
  3285. procedure Set_Sound_Pitch (
  3286. Data : Sound := No_Sound;
  3287. Pitch : Float := 0.0
  3288. ) with
  3289. Import => True,
  3290. Convention => C,
  3291. External_Name => "SetSoundPitch";
  3292. procedure Set_Sound_Pan (
  3293. Data : Sound := No_Sound;
  3294. Pan : Float := 0.0
  3295. ) with
  3296. Import => True,
  3297. Convention => C,
  3298. External_Name => "SetSoundPan";
  3299. function Wave_Copy (
  3300. Data : Wave := No_Wave
  3301. ) return Wave with
  3302. Import => True,
  3303. Convention => C,
  3304. External_Name => "WaveCopy";
  3305. procedure Wave_Crop (
  3306. Data : access Wave := null;
  3307. First_Sample : Integer := 0;
  3308. Final_Sample : Integer := 0
  3309. ) with
  3310. Import => True,
  3311. Convention => C,
  3312. External_Name => "WaveCrop";
  3313. procedure Wave_Format (
  3314. Data : access Wave := null;
  3315. Sample_Rate : Integer := 0;
  3316. Sample_Size : Integer := 0;
  3317. Channels : Integer := 0
  3318. ) with
  3319. Import => True,
  3320. Convention => C,
  3321. External_Name => "WaveFormat";
  3322. function Load_Wave_Samples (
  3323. Data : Wave := No_Wave
  3324. ) return access Float with
  3325. Import => True,
  3326. Convention => C,
  3327. External_Name => "LoadWaveSamples";
  3328. procedure Unload_Wave_Samples (
  3329. Samples : access Float := null
  3330. ) with
  3331. Import => True,
  3332. Convention => C,
  3333. External_Name => "UnloadWaveSamples";
  3334. function Load_Music_Stream (
  3335. File_Name : String := ""
  3336. ) return Music with
  3337. Import => True,
  3338. Convention => C,
  3339. External_Name => "LoadMusicStream";
  3340. function Load_Music_Stream_From_Memory (
  3341. File_Type : String := "";
  3342. Data : Pointer := null;
  3343. Data_Size : Integer := 0
  3344. ) return Music with
  3345. Import => True,
  3346. Convention => C,
  3347. External_Name => "LoadMusicStreamFromMemory";
  3348. function Is_Music_Ready (
  3349. Data : Music := No_Music
  3350. ) return Logical with
  3351. Import => True,
  3352. Convention => C,
  3353. External_Name => "IsMusicReady";
  3354. procedure Unload_Music_Stream (
  3355. Data : Music := No_Music
  3356. ) with
  3357. Import => True,
  3358. Convention => C,
  3359. External_Name => "UnloadMusicStream";
  3360. procedure Play_Music_Stream (
  3361. Data : Music := No_Music
  3362. ) with
  3363. Import => True,
  3364. Convention => C,
  3365. External_Name => "PlayMusicStream";
  3366. function Is_Music_Stream_Playing (
  3367. Data : Music := No_Music
  3368. ) return Logical with
  3369. Import => True,
  3370. Convention => C,
  3371. External_Name => "IsMusicStreamPlaying";
  3372. procedure Update_Music_Stream (
  3373. Data : Music := No_Music
  3374. ) with
  3375. Import => True,
  3376. Convention => C,
  3377. External_Name => "UpdateMusicStream";
  3378. procedure Stop_Music_Stream (
  3379. Data : Music := No_Music
  3380. ) with
  3381. Import => True,
  3382. Convention => C,
  3383. External_Name => "StopMusicStream";
  3384. procedure Pause_Music_Stream (
  3385. Data : Music := No_Music
  3386. ) with
  3387. Import => True,
  3388. Convention => C,
  3389. External_Name => "PauseMusicStream";
  3390. procedure Resume_Music_Stream (
  3391. Data : Music := No_Music
  3392. ) with
  3393. Import => True,
  3394. Convention => C,
  3395. External_Name => "ResumeMusicStream";
  3396. procedure Seek_Music_Stream (
  3397. Data : Music := No_Music;
  3398. Position : Float := 0.0
  3399. ) with
  3400. Import => True,
  3401. Convention => C,
  3402. External_Name => "SeekMusicStream";
  3403. procedure Set_Music_Volume (
  3404. Data : Music := No_Music;
  3405. Volume : Float := 0.0
  3406. ) with
  3407. Import => True,
  3408. Convention => C,
  3409. External_Name => "SetMusicVolume";
  3410. procedure Set_Music_Pitch (
  3411. Data : Music := No_Music;
  3412. Pitch : Float := 0.0
  3413. ) with
  3414. Import => True,
  3415. Convention => C,
  3416. External_Name => "SetMusicPitch";
  3417. procedure Set_Music_Pan (
  3418. Data : Music := No_Music;
  3419. Pan : Float := 0.0
  3420. ) with
  3421. Import => True,
  3422. Convention => C,
  3423. External_Name => "SetMusicPan";
  3424. function Get_Music_Time_Length (
  3425. Data : Music := No_Music
  3426. ) return Float with
  3427. Import => True,
  3428. Convention => C,
  3429. External_Name => "GetMusicTimeLength";
  3430. function Get_Music_Time_Played (
  3431. Data : Music := No_Music
  3432. ) return Float with
  3433. Import => True,
  3434. Convention => C,
  3435. External_Name => "GetMusicTimePlayed";
  3436. function Load_Audio_Stream (
  3437. Sample_Rate : Natural := 0;
  3438. Sample_Size : Natural := 0;
  3439. Channels : Natural := 0
  3440. ) return Audio_Stream with
  3441. Import => True,
  3442. Convention => C,
  3443. External_Name => "LoadAudioStream";
  3444. function Is_Audio_Stream_Ready (
  3445. Data : Audio_Stream := No_Audio_Stream
  3446. ) return Logical with
  3447. Import => True,
  3448. Convention => C,
  3449. External_Name => "IsAudioStreamReady";
  3450. procedure Unload_Audio_Stream (
  3451. Data : Audio_Stream := No_Audio_Stream
  3452. ) with
  3453. Import => True,
  3454. Convention => C,
  3455. External_Name => "UnloadAudioStream";
  3456. procedure Update_Audio_Stream (
  3457. Data : Audio_Stream := No_Audio_Stream;
  3458. Raw_Data : Pointer := null;
  3459. Frame_Count : Integer := 0
  3460. ) with
  3461. Import => True,
  3462. Convention => C,
  3463. External_Name => "UpdateAudioStream";
  3464. function Is_Audio_Stream_Processed (
  3465. Data : Audio_Stream := No_Audio_Stream
  3466. ) return Logical with
  3467. Import => True,
  3468. Convention => C,
  3469. External_Name => "IsAudioStreamProcessed";
  3470. procedure Play_Audio_Stream (
  3471. Data : Audio_Stream := No_Audio_Stream
  3472. ) with
  3473. Import => True,
  3474. Convention => C,
  3475. External_Name => "PlayAudioStream";
  3476. procedure Pause_Audio_Stream (
  3477. Data : Audio_Stream := No_Audio_Stream
  3478. ) with
  3479. Import => True,
  3480. Convention => C,
  3481. External_Name => "PauseAudioStream";
  3482. procedure Resume_Audio_Stream (
  3483. Data : Audio_Stream := No_Audio_Stream
  3484. ) with
  3485. Import => True,
  3486. Convention => C,
  3487. External_Name => "ResumeAudioStream";
  3488. function Is_Audio_Stream_Playing (
  3489. Data : Audio_Stream := No_Audio_Stream
  3490. ) return Logical with
  3491. Import => True,
  3492. Convention => C,
  3493. External_Name => "IsAudioStreamPlaying";
  3494. procedure Stop_Audio_Stream (
  3495. Data : Audio_Stream := No_Audio_Stream
  3496. ) with
  3497. Import => True,
  3498. Convention => C,
  3499. External_Name => "StopAudioStream";
  3500. procedure Set_Audio_Stream_Volume (
  3501. Data : Audio_Stream := No_Audio_Stream;
  3502. Volume : Float := 0.0
  3503. ) with
  3504. Import => True,
  3505. Convention => C,
  3506. External_Name => "SetAudioStreamVolume";
  3507. procedure Set_Audio_Stream_Pitch (
  3508. Data : Audio_Stream := No_Audio_Stream;
  3509. Pitch : Float := 0.0
  3510. ) with
  3511. Import => True,
  3512. Convention => C,
  3513. External_Name => "SetAudioStreamPitch";
  3514. procedure Set_Audio_Stream_Pan (
  3515. Data : Audio_Stream := No_Audio_Stream;
  3516. Pan : Float := 0.0
  3517. ) with
  3518. Import => True,
  3519. Convention => C,
  3520. External_Name => "SetAudioStreamPan";
  3521. procedure Set_Audio_Stream_Buffer_Size_Default (
  3522. Size : Integer := 0
  3523. ) with
  3524. Import => True,
  3525. Convention => C,
  3526. External_Name => "SetAudioStreamBufferSizeDefault";
  3527. --~procedure SetAudioStreamCallback (AudioStream stream, AudioCallback callback) with
  3528. --~Import => True,
  3529. --~Convention => C,
  3530. --~External_Name => "";
  3531. procedure Attach_Audio_Stream_Processor (
  3532. Stream : Audio_Stream := No_Audio_Stream;
  3533. Processor : Pointer := null
  3534. ) with
  3535. Import => True,
  3536. Convention => C,
  3537. External_Name => "AttachAudioStreamProcessor";
  3538. procedure Detach_Audio_Stream_Processor (
  3539. Stream : Audio_Stream := No_Audio_Stream;
  3540. Processor : Pointer := null
  3541. ) with
  3542. Import => True,
  3543. Convention => C,
  3544. External_Name => "DetachAudioStreamProcessor";
  3545. procedure Attach_Audio_Mixed_Processor (
  3546. Processor : Pointer := null
  3547. ) with
  3548. Import => True,
  3549. Convention => C,
  3550. External_Name => "AttachAudioMixedProcessor";
  3551. procedure Detach_Audio_Mixed_Processor (
  3552. Processor : Pointer := null
  3553. ) with
  3554. Import => True,
  3555. Convention => C,
  3556. External_Name => "DetachAudioMixedProcessor";
  3557. end Raylib;