diff options
| author | David Thompson <dthompson2@worcester.edu> | 2020-12-05 15:31:53 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2020-12-05 15:31:53 -0500 |
| commit | 3821e81fd0b61e719b7d9582f2ffcc38078256af (patch) | |
| tree | da11777847ad8ee6c898dbf853f61424490d0b74 | |
| parent | 20936b200808e8c9b777497fd7f450c7ca899e1b (diff) | |
render: Rename get-texture-alpha-mod to texture-alpha-mode.
| -rw-r--r-- | doc/api.texi | 2 | ||||
| -rw-r--r-- | sdl2/render.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/doc/api.texi b/doc/api.texi index 2e6cb9f..13a8800 100644 --- a/doc/api.texi +++ b/doc/api.texi @@ -1229,7 +1229,7 @@ Free the memory used by @var{texture}. Get color mod of @var{texture} as a list of the integers. @end deffn -@deffn {Procedure} get-texture-alpha-mod texture +@deffn {Procedure} texture-alpha-mod texture Get alpha mod of @var{texture} as a single integer. @end deffn diff --git a/sdl2/render.scm b/sdl2/render.scm index f7665b6..40ad7da 100644 --- a/sdl2/render.scm +++ b/sdl2/render.scm @@ -344,7 +344,7 @@ created with 'texture')" (unless (zero? (ffi:sdl-set-texture-alpha-mod (unwrap-texture texture) a)) (sdl-error "set-texture-alpha-mod!" "Failed to set texture alpha mod"))) -(define (get-texture-alpha-mod texture) +(define (texture-alpha-mod texture) "Get alpha mod of TEXTURE as a single integer." (let ((bv (make-bytevector 1))) (let ((result (ffi:sdl-get-texture-alpha-mod |