diff options
| author | Thomas White <taw@physics.org> | 2020-08-12 21:54:58 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-08-12 21:54:58 +0200 |
| commit | b3b9d504079ac56aa9ee2c021fef9964641cfffd (patch) | |
| tree | 6aa086e7f7c225793dbc8c06991c209b96ef7e3d | |
| parent | 607ca88f44d44f7eadaa631a944e34dde88726d3 (diff) | |
Fix round-dmx
| -rw-r--r-- | guile/starlet/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index df28251..326a91f 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -253,7 +253,8 @@ ;; Helper functions for attribute translators (define (round-dmx a) - (min 255 (max 0 (round a)))) + (inexact->exact + (min 255 (max 0 (round a))))) (define (percent->dmxval val) (round-dmx (/ (* 256 val) 100))) |