Jump to content

tonality-map arguments


Recommended Posts

Hello,

 

I'm a little confused about how to include the :map step tonality form in this example. I start with my tonality-series:

 

(setf g-tonality (tonality-series
                  '(
                    (0 3 5 7 10))
                  :root '(8 11
                            4 7
                            0 
                            4 11
                            4 7
                            0 3
                            8
                            0 7
                            0
                            4 11
                            4
                            8 3
                            8
                            0 7
                            0
                            8 3)))

 

Next, I grab an omn list:

(setf bomn1 '(#|1|# (q^e.. b4 q^e.. -e e^s. b4)
          #|2|# (q^e.. a4 q^e.. -e e^s. d5)
          #|3|# (q^e.. d5 q^e.. cs5 -e e^s. g4)
          #|4|# (e.^et g4 s^t e4 q^e.. fs4 -e e^s. a4)
          #|5|# (e.^et d4 s^t e4 q^e.. f4 -e e^s. g4)
          #|6|# (e.^et g4 s e4 d4 e. c4 -e e4)
          #|7|# (e. a3 s b3 q c4 -e d4)
          #|8|# (e. d4 s b3 q g3 -)
          #|9|# (e. g5 3e^t fs5 t e5 q d5 -e s b5 tie 3e tie 3t tie)
          #|10|# (3t b5 q a5 a5 -e s a5 tie 3e tie 3t tie)
          #|11|# (3t a5 q q g5 -e s g5 tie 3e tie 3t tie)
          #|12|# (3t g5 e. s e5 b4 e. a4 -e s g5 tie 3e tie 3t tie)
          #|13|# (3t g5 e. s e5 e5 e. fs5 -e s a5 tie 3e tie 3t tie)
          #|14|# (3t a5 e. b5 s fs5 fs5 e. g5 -e s g5 tie 3e tie 3t tie)
          #|15|# (3t g5 q q cs5 -e s a4 tie 3e tie 3t tie)
          #|16|# (3t a4 e. s e4 e4 e. fs4 -e -s -3e -3t)
          #|17|# (-3t e fs4 tie t - e4 - q fs4 -e s. d4 -3s)
          #|18|# (-3t e g4 tie t - a4 - a4 - e. b4 -e s. g5 -3s)
          #|19|# (-3t e. e5 s b5 q a5 -e s a5 tie 3e tie 3t tie)
          #|20|# (3t a5 e tie t - fs5 - q ds5 -e s. fs5 -3s)
          #|21|# (-3t e g5 tie t - fs5 - q e5 tie s. -t s g5 tie 3e tie 3t tie)
          #|22|# (3t g5 q q f5 -e s a5 tie 3e tie 3t tie)
          #|23|# (3t a5 e. s fs5 q ds5 -e s fs5 tie 3e tie 3t tie)
          #|24|# (3t fs5 e. s ds5 t e5 ds5 e. e5 -3e e3 fs3 g3 a3 t b3 tie)
          #|25|# (3t b3 e e4 -s gs4 e. a4 s b4 e c5 tie s tie 3e tie 3t tie)
          #|26|# (e c5 tie 3t -s fs4 e. g4 s a4 e b4 tie s tie 3e tie 3t tie)
          #|27|# (e b4 tie 3t -s e4 e. fs4 s g4 e. a4 3e g4 tie 3t tie)
          #|28|# (3t g4 3s fs4 tie fs4 3t g4 tie t 3e fs4 cs4 d4 e4 fs4 e4 fs4
                  g4 fs4 g4 3e^t a4 g4 a4 b4 g4 t a4 tie)
          #|29|# (3t a4 3s b4 tie b4 3t c5 tie t 3e b4 fs4 g4 a4 3e^t b4 a4 b4
                  c5 b4 c5 d5 c5 d5 e5 c5 t d5 tie)
          #|30|# (3t d5 3s e5 tie e5 3t f5 tie t 3e e5 b4 c5 d5 3e^t e5 d5 e5
                  fs5 e5 fs5 g5 fs5 g5 a5 fs5 t g5 tie)
          #|31|# (3t g5 3s a5 tie a5 3t b5 tie t 3e a5 fs5 g5 a5 b5 a5 b5 d6 c6
                  b5 a5 g5 fs5 e5 d5 t c5 tie)
          #|32|# (3t c5 3s b4 tie b4 3t a4 tie t 3e g4 fs4 g4 d4 s. b3)))

And finally, do the tonality map:

(setf mapped-g
(omn-to-time-signature
 (tonality-map g-tonality bomn1  :time '(4/8 2/8
                                              4/8 2/8
                                              3/4
                                              4/8 2/8
                                              4/8 2/8
                                              4/8 2/8
                                              3/4
                                              4/8 2/8
                                              3/4
                                              4/8 2/8
                                              3/4
                                              4/8 2/8
                                              3/4
                                              4/8 2/8
                                              3/4
                                              4/8 2/8)
                                              
                                              
                                              :loop t
                                              )
                                              
 '(3 4)))

Ok, all of that works, but I'd like to use :map step when I create the tonality-map, and I can't figure out where to put that. It seems like it wants to be part of a list with, in my example, g-tonality, but I'm not seeing quite how to do it. Any tips would be greatly appreciated. Thanks!, Michael

Link to comment
Share on other sites

Thank you very much for the reply. I was trying to put the ':map step' in the tonality-map (as opposed to the tonality-series), and couldn't figure it out with the setup I have. In the case of the code above, is the final output the same whether :map step was placed in tonality-series or tonality-map? thanks

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy