diff options
Diffstat (limited to 'chickadee/graphics/light.scm')
| -rw-r--r-- | chickadee/graphics/light.scm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/chickadee/graphics/light.scm b/chickadee/graphics/light.scm index e941052..910581c 100644 --- a/chickadee/graphics/light.scm +++ b/chickadee/graphics/light.scm @@ -49,16 +49,18 @@ ;; Maximum number of lights supported by our shaders. (define %max-lights 4) -(define-shader-type <light> - make-light - light? - (bool enabled light-enabled?) - (int type %light-type) - (float-vec3 position light-position set-light-position!) - (float-vec3 direction light-direction set-light-direction!) - (float-vec4 color light-color set-light-color!) - (float intensity light-intensity set-light-intensity!) - (float cut-off light-cut-off %set-light-cut-off!)) +(define <light> #f) +(define (make-light . args) #f) +;; (define-shader-type <light> +;; make-light +;; light? +;; (bool enabled light-enabled?) +;; (int type %light-type) +;; (float-vec3 position light-position set-light-position!) +;; (float-vec3 direction light-direction set-light-direction!) +;; (float-vec4 color light-color set-light-color!) +;; (float intensity light-intensity set-light-intensity!) +;; (float cut-off light-cut-off %set-light-cut-off!)) (define %disabled-light (make-light #:enabled #f)) |