4 element pattern transposed every 8th element..

[ole]

Hi,

I have the following construction (the smallest common multiple between 4 and 7):

(setq 4-e-loop (gen-repeat 7 '(a b c d)))
-->(a b c d a b c d a b c d a b c d a b c d a b c d a b c d)
;just looping a 4 element pattern..

(setq 4-e-loop-into-7-e (symbol-divide 7 4-e-loop))
-->((a b c d a b c) (d a b c d a b) (c d a b c d a) (b c d a b c d))
;dividing it into 7 element groups



(defun transpose-sections (trans-list sections)
(loop for v in trans-list
for p in sections
collect (symbol-transpose v p)))


(setq pitches (flatten (transpose-sections '(0 20 0 20) 4-e-loop-into-7-e)))
-->(a b c d a b c x u v w x u v c d a b c d a v w x u v w x)
; 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4
; 7 7 7 7
;transpose every other group of the 7 elements group but the order is preserved.

Somehow I have the feeling that the result much more easy to achive, something with zones and tonalities
but I did not find any (other) solution.

thanks for some hints!

ole

[pstone imap]

Looks ok. Anything goes that makes it work. Here is same in other words. Mapcan appends directly lists and uses multiple synced inputs.

(setq pitches

  (mapcan #'(lambda (x y)

              (symbol-transpose x y))

          '(0 20 0 20) ; for x

          (symbol-divide 7 (gen-repeat 7 '(a b c d))))) ; for y

--> (a b c d a b c x u v w x u v c d a b c d a v w x u v w x)

Peter

--
You received this message because you are subscribed to the Google Groups "Symbolic Composer" group.
To unsubscribe from this group and stop receiving emails from it, send an email to symboliccompos...@googlegroups.com.
To post to this group, send email to symbolic...@googlegroups.com.
Visit this group at http://groups.google.com/group/symboliccomposer.
For more options, visit https://groups.google.com/groups/opt_out.

[ole]

Thanks for the insights, I'll have to chew a while on that

What about: search-distance
search-similar
search-interval
search-continuous
search-non-continuous??


I just try to use search-distance and -interval, it says "undefined"
They are also not blue as functions usually are..



www.oleschmidt.de

[pstone imap]

I checked these run fine in SCOM 7.

Peter