diff options
| author | Loïc Hoguin <[email protected]> | 2014-04-03 16:50:10 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2014-04-03 16:50:50 +0200 |
| commit | dd6f7c6bbfb27d26f432b64e66d41f3b58db944c (patch) | |
| tree | b1d93761552de9ac2a22461f9a7a25541969b449 | |
| parent | fa5e7eca92e37289138f78ffff131d7a2cf735ec (diff) | |
| download | esdl2-dd6f7c6bbfb27d26f432b64e66d41f3b58db944c.tar.gz esdl2-dd6f7c6bbfb27d26f432b64e66d41f3b58db944c.tar.bz2 esdl2-dd6f7c6bbfb27d26f432b64e66d41f3b58db944c.zip | |
Add sdl_window:set_brightness/2
| -rw-r--r-- | c_src/esdl2.h | 1 | ||||
| -rw-r--r-- | c_src/sdl_window.c | 30 | ||||
| -rw-r--r-- | src/esdl2.erl | 4 | ||||
| -rw-r--r-- | src/sdl_window.erl | 5 |
4 files changed, 40 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index 55b9a2b..2eb447b 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -177,6 +177,7 @@ F(raise_window, 1) \ F(restore_window, 1) \ F(set_window_bordered, 2) \ + F(set_window_brightness, 2) \ // Generated declarations for the NIF. diff --git a/c_src/sdl_window.c b/c_src/sdl_window.c index adaa9eb..b8e8711 100644 --- a/c_src/sdl_window.c +++ b/c_src/sdl_window.c @@ -455,3 +455,33 @@ NIF_FUNCTION(set_window_bordered) return nif_thread_cast(env, thread_set_window_bordered, 2, NIF_RES_GET(Window, window_res), b); } + +// set_window_brightness + +NIF_CALL_HANDLER(thread_set_window_brightness) +{ + int ret = SDL_SetWindowBrightness(args[0], *((double*)args[1])); + + enif_free(args[1]); + + if (ret != 0) + return sdl_error_tuple(env); + + return atom_ok; +} + +NIF_FUNCTION(set_window_brightness) +{ + void* window_res; + double f; + double *fp; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Window, &window_res)); + BADARG_IF(!enif_get_double(env, argv[1], &f)); + + fp = (double*)enif_alloc(sizeof(double)); + *fp = f; + + return nif_thread_call(env, thread_set_window_brightness, 2, + NIF_RES_GET(Window, window_res), fp); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 581248d..e85c698 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -89,6 +89,7 @@ -export([raise_window/1]). -export([restore_window/1]). -export([set_window_bordered/2]). +-export([set_window_brightness/2]). %% @todo We probably want to accept an env variable or somthing for the location. -on_load(on_load/0). @@ -285,3 +286,6 @@ restore_window(_) -> set_window_bordered(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). + +set_window_brightness(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). diff --git a/src/sdl_window.erl b/src/sdl_window.erl index ed9a754..113de6b 100644 --- a/src/sdl_window.erl +++ b/src/sdl_window.erl @@ -32,6 +32,7 @@ -export([raise/1]). -export([restore/1]). -export([set_bordered/2]). +-export([set_brightness/2]). create(Title, X, Y, W, H, Flags) -> esdl2:create_window(Title, X, Y, W, H, Flags), @@ -101,3 +102,7 @@ restore(Window) -> set_bordered(Window, Bordered) -> esdl2:set_window_bordered(Window, Bordered). + +set_brightness(Window, Brightness) -> + esdl2:set_window_brightness(Window, Brightness), + receive {'_nif_thread_ret_', Ret} -> Ret end. |