diff options
Diffstat (limited to 'guile/nanolight/state.scm')
-rw-r--r-- | guile/nanolight/state.scm | 11 |
1 files changed, 10 insertions, 1 deletions
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))) |