diff options
| author | Thomas White <taw@physics.org> | 2021-04-06 23:05:54 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-04-06 23:05:54 +0200 |
| commit | dbab3e44d49eb6e478c488d1f767dc80bd5c3ec1 (patch) | |
| tree | b0088b791944d578abe3f3254335f0e30b13c540 | |
| parent | 686cad73eca73d9bbf7122e30bb5f433f0661b86 (diff) | |
Formatting
| -rw-r--r-- | guile/starlet/fixture-library/robe.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guile/starlet/fixture-library/robe.scm b/guile/starlet/fixture-library/robe.scm index 7654f69..19b9a51 100644 --- a/guile/starlet/fixture-library/robe.scm +++ b/guile/starlet/fixture-library/robe.scm @@ -154,10 +154,10 @@ (let ((strb (get-attr 'strobe)) (spd (get-attr 'strobe-speed))) (cond - ((eq? strb #t) (scale-to-range spd '(0 100) '(64 95))) - ((eq? strb 'random) (scale-to-range spd '(0 100) '(192 223))) - ((eq? strb 'zap) (scale-to-range spd '(0 100) '(160 191))) - (else 255)))) + ((eq? strb #t) (scale-to-range spd '(0 100) '(64 95))) + ((eq? strb 'random) (scale-to-range spd '(0 100) '(192 223))) + ((eq? strb 'zap) (scale-to-range spd '(0 100) '(160 191))) + (else 255)))) (set-chan8 25 (if (get-attr 'prism) 20 0)) |