diff options
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index b0cc952..a8a7252 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -32,7 +32,8 @@ apply-state at home-state - blackout-state)) + blackout-state + intensity?)) (define-class <fixture-attribute> (<object>) (name @@ -138,6 +139,10 @@ (slot-ref fix 'attributes))) +(define (intensity? a) + (eq? 'intensity (get-attr-name a))) + + (define (find-attr fix attr-name) (find (lambda (a) (eq? (get-attr-name a) @@ -242,7 +247,7 @@ (value->number b time))) (define (merge-rule-htp attr a b) - (if (eq? 'intensity (get-attr-name attr)) + (if (intensity? attr) ;; HTP only for intensity attributes (lambda (time) |