diff options
Diffstat (limited to 'guile/starlet')
| -rw-r--r-- | guile/starlet/fixture.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/guile/starlet/fixture.scm b/guile/starlet/fixture.scm index 9f58f25..ee0d5b8 100644 --- a/guile/starlet/fixture.scm +++ b/guile/starlet/fixture.scm @@ -42,6 +42,7 @@ intensity? scale-to-range + scale-and-clamp-to-range round-dmx percent->dmxval8 percent->dmxval16)) @@ -202,3 +203,16 @@ (/ (- val (car orig-range)) (range orig-range))))) + +(define (clamp-to-range val val1 val2) + (let ((minval (min val1 val2)) + (maxval (max val1 val2))) + (max minval + (min val maxval)))) + +;; Like scale-to-range, but result is clamped within dest-range +(define (scale-and-clamp-to-range val orig-range dest-range) + (clamp-to-range + (scale-to-range val orig-range dest-range) + (car dest-range) + (cadr dest-range))) |