Jump to content

write tuning-cents into omn / extract them


Recommended Posts

with these functions you could write your CENTS for tuning directly into OMN-attributes, and extract it afterwards

 

1. generate by add-cents-tuning-to-text-atrributes the cent values into text-attributes (only one time), you could decide if it will be shown in the score "as CENTS or as FLOAT"

2. now you could write your CENTS for tuning into OMN-attributes like 50ct, -34ct ...also in combination with other text-attributes legno+50ct, pizz+-65ct, -45ct+batt

3. you could EXTRACT afterwards your LIST for TUNING directly from OMN by   get-tuning-from-omn*.if an EVENT has no cent-attribute it will be unchangend (= 0 cents)

 

 

;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------
;;; this function adds CENTS or FLOATS to text-attributes, in this way you can notate 
;;; - have a look how it's written in the score -> all combinations of attributes possible
;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------


(defun add-cents-tuning-to-text-atrributes (&key (centlist nil) (type nil))
  (loop for i in (loop for x in (if (null centlist)
                                  (append (loop for i from 0 upto 99 collect i) (loop for i from 1 upto 99 collect (neg! i)))
                                  centlist)
                   collect (compress (list x 'ct)))
    append (add-text-attributes (list i (write-to-string (if (equal type :float) 
                                                           (float (/ (append (compress (if (equal (car (explode i)) '-)
                                                                                         (if (= (length (explode i)) 5)
                                                                                           (filter-first 3 (explode i))
                                                                                           (filter-first 2 (explode i)))
                                                                                         (if (= (length (explode i)) 4)
                                                                                           (filter-first 2 (explode i))
                                                                                           (filter-first 1 (explode i)))
                                                                                         ))) 100))
                                                           i))))))




;;; EXAMPLES

(add-cents-tuning-to-text-atrributes :type :float)
;; have a look to notation: cmd3
(-q -q  e c4 fff q c4 mf 50ct e c4 mf -40ct e c5 ff)


(add-cents-tuning-to-text-atrributes :type :cents) ;; cents are written
;; have a look to notation: cmd3
(-q -q  e c4 fff q c4 mf 50ct e c4 mf -40ct e c5 ff)



;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------
;;; this function get out all notated microtones for TUNING ;;; if there is nothing written it will be 0 cents (0)
;;; you can combine all kinds of attributes
;;; -------------------------------------------------------------------------------------------------------------------
;;; -------------------------------------------------------------------------------------------------------------------

(defun memberp (n liste)
  (not (equal 'nil (member n liste))))

(defun find-duplicates (lst)
  (cond ((null lst) '())
        ((member (car lst) (cdr lst)) (cons (car lst) (find-duplicates (cdr lst))))
        (t (find-duplicates (cdr lst)))))


(defun get-tuning-from-omn* (omnlist centlist)
  (loop for i in (single-events (length-rest-remove omnlist))
    with n = 0
    when (not (null (find-duplicates (append (disjoin-attributes (car (last i))) centlist))))
    do (setf n  (float (/ (append (compress 
                                   (remove-if-not #'numberp (explode (car 
                                                                      (find-duplicates 
                                                                       (append (disjoin-attributes (car (last i)))
                                                                               centlist))))))) 
                          100)))

    and collect (if (equal (car (explode (car (find-duplicates  (append (disjoin-attributes (car (last i))) 
                                                                        centlist)))))
                           '-)
                  (* -1 n)
                  n)

    else collect 0))





;;; EXAMPLES

(setf centlist (add-cents-tuning-to-text-atrributes :type :float))

;;; evaluate this and you will get the tuning-list with all combinations of attributes
(get-tuning-from-omn* '(-q -q  e c4 fff q c4 mf legno+50ct+num1 e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (0 0.5 0.5 -0.34)

(get-tuning-from-omn* '(-q -q  e c4 fff -34ct+pizz q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (-0.34 0.5 -0.5 -0.34)

(get-tuning-from-omn* '(-q -q  e c4 fff -34ct+pizz+num11 q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct) centlist)
=> (-0.34 0.5 -0.5 -0.34)



;;; cmd3 for LAYOUT/SCORE
(-q -q  e c4 fff -34ct+pizz+num11 q c4 mf legno+50ct e c4 mf -50ct+legno+batt e c5 ff pizz+-34ct)
(-q -q  e c4 fff q c4 mf legno+50ct+num1 e c4 mf -50ct+legno+batt+num2 e c5 ff pizz+legno+-34ct)

 

Edited by AM
a small change - now you can write also 0ct for no detuning
Link to post
Share on other sites

EXAMPLE, very easy to use...

 

;;; EXAMPLE HOW TO USE <get-tuning-from-omn*>


(setf centlist (add-cents-tuning-to-text-atrributes :type :float))

  
;;; generating a omn-seq with mictronoes (by using articulation-SLOT
 
(setf omn-seq (make-omn 
               :length (quantize (gen-white-noise 50) '(2 3 5) :scale 1.4 :tolerance 0.02)
               :pitch (filter-repeat 1 (vector-to-pitch '(c2 b6) (gen-white-noise 50)))
               :span :pitch
               :velocity (vector-to-velocity 0.1 0.99 (gen-white-noise 50))
               :articulation (rnd-repeat 50 '(0ct 7ct -5ct 16ct -31ct -14ct 50ct -50ct))))

;;; generating SCORE/MIDI

(def-score microtonal
           (:title "microtonal"
                   :key-signature 'atonal   
                   :time-signature '(4 4) 
                   :tempo 120)
  
  (instr
   :omn omn-seq
   :channel 1
   :tuning (get-tuning-from-omn* omn-seq centlist)
   :sound 'gm
   :program 'acoustic-grand-piano))

 

 

Link to post
Share on other sites

another EXAMPLE, with mapped pitches/cents

 

;;; -----------------------------------------------------------------------------------------
;;; MAPPED CENTS/PITCHES
;;; -----------------------------------------------------------------------------------------

;(setf pitches (rnd-repeat 100 '(d1 c2 g3 c4 d4 e4 f4 g4 gs4 bb4 c5 d5 e5 f5 g5 gs5 bb5)))
(setf pitches (rnd-repeat 100 '(e4 f4 g4 gs4 bb4 c5 d5 e5 f5 g5 gs5 bb5)))
(setf centlist (replace-map '(((bb4 bb5) -31ct)
                              ((c4 c5 c2) 0ct)
                              ((d1 d4 d5) 2ct)
                              ((e4 e5) -14ct)
                              ((f4 f5) 50ct)
                              ((g3 g4 g5) 5ct)
                              ((gs4 gs5) 41ct))
                            
                            pitches
 							:otherwise '0ct))


(setf omn-seq (make-omn 
               :length (quantize (gen-white-noise 50) '(2 3 5) :scale 0.8 :tolerance 0.02)
               :pitch (filter-repeat 1 pitches)
               :span :pitch
               :velocity (vector-to-velocity 0.1 0.99 (gen-white-noise 50))
               :articulation centlist))

;;; generating SCORE/MIDI

(def-score microtonal
           (:title "microtonal"
                   :key-signature 'atonal   
                   :time-signature '(4 4) 
                   :tempo 160)
  
  (instr
   :omn omn-seq
   :channel 1
   :tuning (get-tuning-from-omn* omn-seq centlist)
   :sound 'gm
   :program 'acoustic-grand-piano))

 

Edited by AM
BUG in replace-map => should be :otherwise '0ct
Link to post
Share on other sites
22 hours ago, AM said:

(setf omn-seq (make-omn :length (quantize (gen-white-noise 50) '(2 3 5) :scale 0.8 :tolerance 0.02) :pitch (filter-repeat 1 pitches) :span :pitch :velocity (vector-to-velocity 0.1 0.99 (gen-white-noise 50)) :articulation centlist))

 You should't use :span :pitch with tupets otherwise the time signature will be of not much use.

In the new QUANTIZE function there is no more :tolerance keyword.

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