Ada bindings for Raylib 5.1 library.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

4548 lines
135KB

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