raymath.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

with Interfaces.C; use Interfaces.C;

package Raymath is
    type Vector2 is record
        x: C_float;
        y: C_float;
    end record
        with Convention => C_Pass_By_Copy;
    function "+"(a, b: Vector2) return Vector2
        with
            Import => True,
            Convention => C,
            External_Name => "Vector2Add";
    function "-"(a, b: Vector2) return Vector2
        with
            Import => True,
            Convention => C,
            External_Name => "Vector2Subtract";
    function "*"(a, b: Vector2) return Vector2
        with
            Import => True,
            Convention => C,
            External_Name => "Vector2Multiply";
    function "*"(v: Vector2; scale: C_float) return Vector2
        with
            Import => True,
            Convention => C,
            External_Name => "Vector2Scale";
end;