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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
;;; -------
;;; structs
;;; -------
;; Color, 4 components, R8G8B8A8 (32bit)
(c-define-type color (struct "Color"))
;; color constructor
(define make-color
(c-lambda (unsigned-int8 unsigned-int8 unsigned-int8 unsigned-int8) color
#<< c-lambda
Color col = (Color){___arg1, ___arg2, ___arg3, ___arg4 };
___return(col);
c-lambda
))
;; color getters
(define color-red
(c-lambda (color) unsigned-int8
#<< c-lambda
___return(___arg1.r);
c-lambda
))
(define color-blue
(c-lambda (color) unsigned-int8
#<< c-lambda
___return(___arg1.b);
c-lambda
))
(define color-green
(c-lambda (color) unsigned-int8
#<< c-lambda
___return(___arg1.g);
c-lambda
))
(define color-alpha
(c-lambda (color) unsigned-int8
#<< c-lambda
___return(___arg1.a);
c-lambda
))
;; color setters
(define color-red-set!
(c-lambda (color unsigned-int8) void
#<< c-lambda
___arg1.r = ___arg2;
c-lambda
))
(define color-blue-set!
(c-lambda (color unsigned-int8) void
#<< c-lambda
___arg1.b = ___arg2;
c-lambda
))
(define color-green-set!
(c-lambda (color unsigned-int8) void
#<< c-lambda
___arg1.g = ___arg2;
c-lambda
))
(define color-alpha-set!
(c-lambda (color unsigned-int8) void
#<< c-lambda
___arg1.a = ___arg2;
c-lambda
))
;; vector2, 2 float components, x32y32 (64 bits)
(c-define-type vec2 (struct "Vector2"))
;; vec2 constructor
(define make-vec2
(c-lambda (float float) vec2
#<< c-lambda
Vector2 v = (Vector2){___arg1, ___arg2};
___return(v);
c-lambda
))
;; vec2 getters
(define vec2-x
(c-lambda (vec2) float "___return(___arg1.x);"))
(define vec2-y
(c-lambda (vec2) float "___return(___arg1.y);"))
;; vec2 setters
(define vec2-x-set!
(c-lambda (vec2 float) void "___arg1.x = ___arg2;"))
(define vec2-y-set!
(c-lambda (vec2 float) void "___arg1.y = ___arg2;"))
;; Rectangle, 4 float components, x32y32w32h32 (128 bits)
(c-define-type rec (struct "Rectangle"))
;; vec2 constructor
(define make-rec
(c-lambda (float float float float) rec
#<< c-lambda
Rectangle r = (Rectangle){___arg1, ___arg2, ___arg3, ___arg4};
___return(r);
c-lambda
))
;; vec2 getters
(define rec-x
(c-lambda (rec) float "___return(___arg1.x);"))
(define rec-y
(c-lambda (rec) float "___return(___arg1.y);"))
(define rec-width
(c-lambda (rec) float "___return(___arg1.width);"))
(define rec-height
(c-lambda (rec) float "___return(___arg1.height);"))
;; vec2 setters
(define rec-x-set!
(c-lambda (rec float) void "___arg1.x = ___arg2;"))
(define rec-y-set!
(c-lambda (rec float) void "___arg1.y = ___arg2;"))
(define rec-width-set!
(c-lambda (rec float) void "___arg1.width = ___arg2;"))
(define rec-height-set!
(c-lambda (rec float) void "___arg1.height = ___arg2;"))
;; texture, 5 components, id32w32h32mipmaps32format32 (160bit)
(c-define-type texture (struct "Texture"))
;; RenderTexture, 3 components: uint id, Texture tex, Texture depth
(c-define-type render-texture (struct "RenderTexture"))
(define render-texture-id
(c-lambda (render-texture) int "___return(___arg1.id);"))
(define render-texture-tex
(c-lambda (render-texture) texture "___return(___arg1.texture);"))
(define render-texture-depth
(c-lambda (render-texture) texture "___return(___arg1.depth);"))
(define load-render-texture
(c-lambda (int int) render-texture "LoadRenderTexture"))
(define render-texture-ready?
(c-lambda (render-texture) bool "IsRenderTextureReady"))
(define unload-render-texture
(c-lambda (render-texture) void "UnloadRenderTexture"))
|
