# [CM] range and period-length

**Rick Taube
**
taube@uiuc.edu

*Mon, 14 Aug 2006 12:56:35 -0500*

maybe something like this?
(define foo
(let ((ini 10))
(new heap :of (list (new cycle :of 1 :for 3)
(new cycle :of -1 :for 6))
:for 1
:returning (lambda (i) (prog1 ini (incf ini i))))))
(loop repeat 10 collect (next foo #t))
=> ((10 9 8 7 6 5) (4 5 6) (7 6 5 4 3 2) (1 2 3) (4 5 6) (7 6 5 4 3
2) (1 0 -1 -2 -3 -4) (-5 -4 -3) (-2 -1 0) (1 0 -1 -2 -3 -4))
>*
*>* when i have
*>*
*>* (new range
*>* :initially 10
*>* :stepping (new cycle :of (list (new cycle :of 1 :for 3)(new
*>* cycle :of -1 :for 6)))
*>* :for (new cycle :of '(3 6))))
*>*
*>* then the period-length correlates with the down- and up-direction:
*>*
*>* (next x t)
*>* => 10 11 12
*>* => 13 12 11 10 9 8
*>* => 7 8 9
*>* etc.
*>*
*>* but when i define
*>*
*>* (new range
*>* :initially 10
*>* :stepping (new heap :of (list (new cycle :of 1 :for 3)(new
*>* cycle :of -1 :for 6)))
*>* )
*>*
*>* i don't know how to get the same correlation.
*>*
*>* i hope this was less abstruse..., johannes
*>*
*>*
*>*
*>* _________________________
*>*
*>* Johannes Quint
*>* Rilkestr.55
*>* D-53225 Bonn
*>* 0228 468256
*>* johannes.quint@web.de
*>* http://www.johannes-quint.de
*>*
*>*
*>* _______________________________________________
*>* Cmdist mailing list
*>* Cmdist@ccrma.stanford.edu
*>* http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
*