-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSDL_shape.fth
45 lines (39 loc) · 1.72 KB
/
SDL_shape.fth
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
\ This file has been generated using SWIG and fsi,
\ and is already platform dependent, search for the corresponding
\ fsi-file to compile it where no one has compiled it before ;)
\ Forth systems have their own own dynamic loader and don't need addional C-Code.
\ That's why this file will just print normal forth-code once compiled
\ and can be used directly with include or require.
\ As all comments are stripped during the compilation, please
\ insert the copyright notice of the original file here.
\ ----===< prefix >===-----
c-library sdl_shape
s" SDL2" add-lib
\c #include <SDL2/SDL_shape.h>
\ ----===< int constants >===-----
#-1 constant SDL_NONSHAPEABLE_WINDOW
#-2 constant SDL_INVALID_SHAPE_ARGUMENT
#-3 constant SDL_WINDOW_LACKS_SHAPE
\ --------===< enums >===---------
#0 constant ShapeModeDefault
#1 constant ShapeModeBinarizeAlpha
#2 constant ShapeModeReverseBinarizeAlpha
#3 constant ShapeModeColorKey
\ -------===< structs >===--------
\ SDL_WindowShapeParams
begin-structure SDL_WindowShapeParams
drop 0 4 +field SDL_WindowShapeParams-colorKey
drop 0 1 +field SDL_WindowShapeParams-binarizationCutoff
drop 4 end-structure
\ struct SDL_WindowShapeMode
begin-structure SDL_WindowShapeMode
drop 4 4 +field SDL_WindowShapeMode-parameters
drop 0 4 +field SDL_WindowShapeMode-mode
drop 8 end-structure
\ ------===< functions >===-------
c-function SDL_CreateShapedWindow SDL_CreateShapedWindow a n n n n n -- a ( title x y w h flags -- )
c-function SDL_IsShapedWindow SDL_IsShapedWindow a -- n ( window -- )
c-function SDL_SetWindowShape SDL_SetWindowShape a a a -- n ( window shape shape_mode -- )
c-function SDL_GetShapedWindowMode SDL_GetShapedWindowMode a a -- n ( window shape_mode -- )
\ ----===< postfix >===-----
end-c-library