summaryrefslogtreecommitdiff
path: root/sdl2
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-01-02 20:08:48 -0500
committerDavid Thompson <dthompson2@worcester.edu>2016-01-02 20:08:48 -0500
commit6b2ecade1079c5bef1c066b9f092a8179d78d932 (patch)
tree7f49287d9b80550d56d137c88b8d410f26ddcdd6 /sdl2
parent4ba7f87e455c53ad06b6591559465d4099593a1d (diff)
video: Add SDL_GL_SetAttribute binding.
* sdl2/bindings.scm (sdl-get-set-attribute): New procedure. * sdl2/video.scm (set-gl-attribute!): New procedure.
Diffstat (limited to 'sdl2')
-rw-r--r--sdl2/bindings.scm28
-rw-r--r--sdl2/video.scm56
2 files changed, 83 insertions, 1 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index e03e1de..6c638ab 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -174,6 +174,34 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
(define-foreign sdl-gl-swap-window
void "SDL_GL_SwapWindow" '(*))
+(define-public SDL_GL_RED_SIZE 0)
+(define-public SDL_GL_GREEN_SIZE 1)
+(define-public SDL_GL_BLUE_SIZE 2)
+(define-public SDL_GL_ALPHA_SIZE 3)
+(define-public SDL_GL_BUFFER_SIZE 4)
+(define-public SDL_GL_DOUBLEBUFFER 5)
+(define-public SDL_GL_DEPTH_SIZE 6)
+(define-public SDL_GL_STENCIL_SIZE 7)
+(define-public SDL_GL_ACCUM_RED_SIZE 8)
+(define-public SDL_GL_ACCUM_GREEN_SIZE 9)
+(define-public SDL_GL_ACCUM_BLUE_SIZE 10)
+(define-public SDL_GL_ACCUM_ALPHA_SIZE 11)
+(define-public SDL_GL_STEREO 12)
+(define-public SDL_GL_MULTISAMPLEBUFFERS 13)
+(define-public SDL_GL_MULTISAMPLESAMPLES 14)
+(define-public SDL_GL_ACCELERATED_VISUAL 15)
+(define-public SDL_GL_RETAINED_BACKING 16)
+(define-public SDL_GL_CONTEXT_MAJOR_VERSION 17)
+(define-public SDL_GL_CONTEXT_MINOR_VERSION 18)
+(define-public SDL_GL_CONTEXT_EGL 19)
+(define-public SDL_GL_CONTEXT_FLAGS 20)
+(define-public SDL_GL_CONTEXT_PROFILE_MASK 21)
+(define-public SDL_GL_SHARE_WITH_CURRENT_CONTEXT 22)
+(define-public SDL_GL_FRAMEBUFFER_SRGB_CAPABLE 23)
+
+(define-foreign sdl-gl-set-attribute
+ int "SDL_GL_SetAttribute" (list int int))
+
(define-public SDL_RENDERER_SOFTWARE #x00000001)
(define-public SDL_RENDERER_ACCELERATED #x00000002)
(define-public SDL_RENDERER_PRESENTVSYNC #x00000004)
diff --git a/sdl2/video.scm b/sdl2/video.scm
index efd87ac..7cf14ff 100644
--- a/sdl2/video.scm
+++ b/sdl2/video.scm
@@ -55,7 +55,8 @@
gl-context?
delete-gl-context!
call-with-gl-context
- swap-gl-window))
+ swap-gl-window
+ set-gl-attribute!))
;;;
@@ -264,3 +265,56 @@ the context when PROC returns or otherwise exits.."
(define (swap-gl-window window)
"Update WINDOW with OpenGL rendering."
(ffi:sdl-gl-swap-window (unwrap-window window)))
+
+(define (set-gl-attribute! attr value)
+ "Set the OpenGL attribute represented by the symbol ATTR to VALUE.
+Possible values for ATTR are:
+
+- red-size
+- green-size
+- blue-size
+- alpha-size
+- buffer-size
+- double-buffer
+- depth-size
+- stencil-size
+- accum-red-size
+- accum-green-size
+- accum-blue-size
+- stereo
+- multisample-buffers
+- multisample-samples
+- retained-backing
+- context-major-version
+- contet-minor-version
+- context-egl
+- context-flags
+- context-profile-mask
+- share-with-current-context
+- framebuffer-srgb-capable"
+ (let ((attr-enum
+ (match attr
+ ('red-size ffi:SDL_GL_RED_SIZE)
+ ('green-size ffi:SDL_GL_GREEN_SIZE)
+ ('blue-size ffi:SDL_GL_BLUE_SIZE)
+ ('alpha-size ffi:SDL_GL_ALPHA_SIZE)
+ ('buffer-size ffi:SDL_GL_BUFFER_SIZE)
+ ('double-buffer ffi:SDL_GL_DOUBLEBUFFER)
+ ('depth-size ffi:SDL_GL_DEPTH_SIZE)
+ ('stencil-size ffi:SDL_GL_STENCIL_SIZE)
+ ('accum-red-size ffi:SDL_GL_ACCUM_RED_SIZE)
+ ('accum-green-size ffi:SDL_GL_ACCUM_GREEN_SIZE)
+ ('accum-blue-size ffi:SDL_GL_ACCUM_BLUE_SIZE)
+ ('stereo ffi:SDL_GL_STEREO)
+ ('multisample-buffers ffi:SDL_GL_MULTISAMPLEBUFFERS)
+ ('multisample-samples ffi:SDL_GL_MULTISAMPLESAMPLES)
+ ('retained-backing ffi:SDL_GL_RETAINED_BACKING)
+ ('context-major-version ffi:SDL_GL_CONTEXT_MAJOR_VERSION)
+ ('contet-minor-version ffi:SDL_GL_CONTEXT_MINOR_VERSION)
+ ('context-egl ffi:SDL_GL_CONTEXT_EGL)
+ ('context-flags ffi:SDL_GL_CONTEXT_FLAGS)
+ ('context-profile-mask ffi:SDL_GL_CONTEXT_PROFILE_MASK)
+ ('share-with-current-context ffi:SDL_GL_SHARE_WITH_CURRENT_CONTEXT)
+ ('framebuffer-srgb-capable ffi:SDL_GL_FRAMEBUFFER_SRGB_CAPABLE))))
+ (unless (zero? (ffi:sdl-gl-set-attribute attr-enum value))
+ (sdl-error "set-gl-attribute!" "failed to set OpenGL attribute"))))