From c51d80b3411d482286b8ecd4da407ab59563233e Mon Sep 17 00:00:00 2001 From: Thomas White Date: Fri, 5 Jun 2020 10:41:11 +0200 Subject: WIP --- guile/nanolight/state.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'guile/nanolight/state.scm') diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm index 405a19c..bddff72 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -1,6 +1,6 @@ (define-module (nanolight state) #:use-module (oop goops) - #:export (print-state define-state + #:export (print-state define-state show-state merge-states merge-rule-htp merge-rule-ltp merge-htp merge-ltp int flash pan tilt @@ -97,6 +97,15 @@ '() (apply append list-of-states))) +(define (show-state state) + (for-each (lambda (a) + (set-value-func! + (let ((attr (find-attribute) + (fixture state-assignment) + (attribute state-assignment)))))) + (when attr + (let ((trans (translator attr))))))) + (define (compare-addr a b) (or (< (get-universe (fixture a)) (get-universe (fixture b))) -- cgit v1.2.3