diff options
Diffstat (limited to 'guile/starlet/scanout.scm')
-rw-r--r-- | guile/starlet/scanout.scm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index f5f4baa..43c2cf0 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -194,26 +194,12 @@ (list new-state))))) -(define (msb val) - (round-dmx (euclidean-quotient val 256))) - -(define (lsb val) - (round-dmx (euclidean-remainder val 256))) - - (define (send-to-ola ola-client universe-buffer-pair) (let ((uni (car universe-buffer-pair)) (buf (cdr universe-buffer-pair))) (send-streaming-dmx-data! ola-client uni buf))) -(define (ensure-number value irritating) - (unless (number? value) - (raise-exception (make-exception - (make-exception-with-message "Value is not a number") - (make-exception-with-irritants irritating))))) - - (define scanout-freq 0) (define ola-thread #f) |