diff options
author | Thomas White <taw@physics.org> | 2021-03-28 10:20:53 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-03-28 10:20:53 +0200 |
commit | 6ea50ba6848a9dbdd6f5ead36820390c6e92c0f0 (patch) | |
tree | 35cb867a470739f2659e4dd367791371f58a5bf6 /guile/starlet/base.scm | |
parent | f6accbde30843bf60595f93a83b3bf2c86109859 (diff) |
WIP on playbacks
Diffstat (limited to 'guile/starlet/base.scm')
-rw-r--r-- | guile/starlet/base.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index a7a1af0..57ca52a 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -28,6 +28,7 @@ get-attr-name get-attr-home-val intensity? + continuous-attribute? <starlet-state> make-empty-state @@ -202,6 +203,11 @@ (eq? 'intensity a)) +(define (continuous-attribute? aobj) + (eq? 'continuous + (get-attr-type aobj))) + + (define (register-state! new-state) (atomic-box-set! state-list (cons new-state |