Jump to content
Sign in to follow this  
terekita

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

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×