Point& click

By o_e,
June 10 in Suggestions & Ideas

Followers 0

Join the conversation

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

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.

Insert image from URL

Followers 0

Go to topic listing

Similar Topics
- split-point
  By Stephane Boussuge
  
  Hi,
  
  here's a function i've made for my own usage and i think could be useful for others.
  It is a split point function which divide an OMN flux according to a list of split points.
  
  Attached, you will find the French doc of the function 😉
  ;;; SPLIT-POINT ;;; SB. 2020 ;;; Fonction utile pour séparer les 2 mains pour une partie de piano ;;; renvoie une liste de listes (defun split-point (split-points omn-seq) (do-verbose ("split-point") (let* ( (spltconvert (if (numberp (car split-points)) split-points (pitch-to-integer split-points))) (spltp (gen-trim (length omn-seq) spltconvert)) (p1 (loop for sp in spltp for l in omn-seq collect (ambitus-filter `(,sp 128) l) )) (p2 (loop for sp in spltp for l in omn-seq collect (ambitus-filter `(-128 ,(- sp 1)) l) )) ) (list p1 p2)))) #| (split-point '(c4 d4) '((e a3d4 c4e4 f4c5 q g3d4 e4)(e a3d4 c4e4 f4c5 q g3d4 e4))) => (((e d4 c4e4 f4c5 q d4 e4)(q d4 e4 f4c5 d4 e4)) ((e a3 - - q g3 -)(e a3 c4 - q g3 -))) ;;; Example (setf pmat (make-scale 'c2 32 :alt '(2 1 2 3))) (setf pch (rnd-sample 128 pmat)) (setf chrd (chordize-list (gen-divide (rnd-number 8 1 4) pch))) (setf mat (length-legato (gen-filter-euclidean 8 16 4 16 chrd 's '(mf)))) (setf split (split-point '(c4) mat)) (setf piano-rh (ambitus-chord 12 (first split))) (setf piano-lh (ambitus-chord 12 (second split))) (ps 'gm :p (list piano-rh piano-lh) ) |#
  SB.
  split-point.rtfd.zip
- Easiest way to add click track / Metronome in OM
  By Jorvd
  
  Hi Everyone,
  
  I was just wondering what the easiest way would be to audition my score with a click track, something I've found to be helpful for slower scores with long note values/slurs.
  I'm guessing I should make a function for that using setf, any recommendations or best approaches?
  
  - Jor
- time-point-system [Function]
  By opmo
  
  time-point-system pitch length &key type start mod pcs variant
                    (denominator 4) time-signature seed
  
  [Function]
  
  Arguments and Values:
  
  pitch      a pitch list or lists of pitches.
  length      a length or list of lengths (length symbol or ratio).
  type integers: 1 or 2. (Type of time point system). The default is 1.
  start integers: from 0 to 11 or ’? (at random). The default is the first integer in the pitch list.
  mod      an integer, the default is 12.
  variant   'o (origin), 'r (retrograde), 'i (invert), 'ri (retrograde-invert), or '? (at random).
  pcs          pitch class set: 'n (normal order), 'r (retrograde), 'i (inversion). The default is NIL.
  denominator an integer. The default is 4 (list round up to given time signature measure).
  time-signature   time-signature measures. The default is '(3 4).
  seed   NIL or an integer (random seed). The default is NIL.
  
  Description:
  
  The Time Point System was first developed by Milton Babbitt and is based on two principles: 1. The relationships in a pitch system are transferred in totality to the sphere of time relations. 2. This transfer is accomplished through the linkage of one simple equivalence - that of time intervals corresponding to pitch intervals.
  
  There are two types of the time point system.
  The type 1 is based on Milton Babbitt system
  The type 2 is based purely on modus 12: 0=1, 1=2, 2=3, … 11=12
  
  Type 1:
  
  (setf pitch1 '(f4 a4 gb4 ab4 e5 g4 db5 bb4 d4 c5 eb5 b4))
  (setf pitch2 '((b4 d5 fs5) (d4 f4 a4)))
  
  (time-point-system pitch1 's)
  => ((-q -s e. f4 tie s f4 e. a4 tie)
  (q a4 tie e a4 fs4 q gs4 tie)
  (q gs4 e. e5 q g4 tie s g4 tie)
  (s g4 h cs5 tie s cs5 e bb4 tie)
  (e bb4 h d4 tie e d4)
  (e. c5 s eb5 tie q eb5 tie e. eb5 s b4))
  
  (time-point-system pitch1 's :start 0)
  => ((q f4 h a4 tie)
  (s a4 e fs4 s gs4 tie q gs4 tie e. gs4 s e5 tie)
  (e e5 q. g4 q cs5 tie)
  (q cs5 tie s cs5 e. bb4 tie s bb4 e. d4 tie)
  (q d4 tie e. d4 s c5 tie e c5 eb5 tie)
  (q eb5 tie e eb5 q. b4))
  
  (time-point-system pitch1 's :start '? :seed 34)
  => ((-e. s f4 tie e. f4 q a4 tie s a4 tie)
  (q a4 e fs4 q. gs4 tie)
  (e gs4 e5 tie s e5 e. g4 tie g4 s cs5 tie)
  (h cs5 q bb4)
  (h d4 tie e d4 c5 tie)
  (s c5 e. eb5 tie q eb5 tie s eb5 e. b4))
  
  (time-point-system pitch1 's :mod 6)
  => ((-q -s q.. f4 tie)
  (e. f4 h a4 tie s a4)
  (e fs4 gs4 h e5 tie)
  (s e5 g4 e cs5 tie s cs5 q.. bb4 tie)
  (e. bb4 h d4 tie s d4 tie)
  (s d4 e. c5 e eb5 q. b4 tie)
  (s b4))
  
  (time-point-system pitch1 's :mod 6 :start 0)
  => ((h f4 tie e f4 a4 tie)
  (q a4 tie e. a4 s fs4 tie fs4 e gs4 s e5 tie)
  (h e5 s g4 e. cs5)
  (h bb4 tie e bb4 d4 tie)
  (h d4 e. c5 s eb5 tie)
  (s eb5 h b4 tie e. b4 tie)
  (s b4))
  
  (time-point-system pitch1 's :mod 6 :start 2)
  => ((-e h f4 tie e f4)
  (h a4 tie s a4 e fs4 s gs4 tie)
  (s gs4 h e5 tie s e5 g4 cs5 tie)
  (e cs5 h bb4 tie e bb4)
  (h d4 tie e d4 c5 tie)
  (s c5 e eb5 h b4 tie s b4 tie)
  (s b4))
  
  (time-point-system pitch2 's)
  => ((-h -e. s b4 tie)
  (e b4 d5 tie d5 q. fs5)
  (-e d4 tie s d4 e. f4 tie s f4 e. a4))
  
  (time-point-system pitch2 's :start 0)
  => ((e. b4 s d5 tie e. d5 q fs5 tie s fs5)
  (e. d4 s f4 tie e. f4 q a4 tie s a4))
  
  (time-point-system pitch2 's :start '? :seed 34)
  => ((e. b4 s d5 tie e. d5 q fs5 tie s fs5)
  (-h -e d4 tie)
  (s d4 e. f4 tie s f4 q.. a4))
  
  (time-point-system pitch2 's :mod 6)
  => ((-q -s q.. b4 tie)
  (e b4 h d5 tie e d5)
  (h. fs5)
  (-e d4 tie s d4 q.. f4 tie)
  (e. f4 h a4 tie s a4))
  
  (time-point-system pitch2 's :mod 6 :start 0)
  => ((h b4 tie s b4 e. d5 tie)
  (q d5 tie e. d5 q fs5 tie s fs5)
  (e. d4 h f4 tie s f4 tie)
  (s f4 h a4 tie e. a4))
  
  (time-point-system pitch2 's :mod 6 :start '(0 2))
  => ((h b4 tie s b4 e. d5 tie)
  (q d5 tie e. d5 q fs5 tie s fs5)
  (-e d4 tie s d4 q.. f4 tie)
  (e. f4 h a4 tie s a4))
  
  Type 2:
  
  (time-point-system pitch1 's :type 2)
  => ((q f4 tie e f4 q. a4 tie)
  (q a4 fs4 tie e. fs4 s gs4 tie)
  (h gs4 q e5 tie)
  (s e5 e. g4 tie q g4 tie s g4 e cs5 s bb4 tie)
  (q bb4 tie bb4 tie e bb4 d4 tie)
  (s d4 c5 e eb5 tie eb5 q. b4 tie)
  (q b4 tie e b4))
  
  (time-point-system pitch1 's :type 2 :start 0)
  => ((s f4 q a4 tie s a4 e fs4 q gs4)
  (h. e5)
  (e. g4 h cs5 tie s cs5)
  (q bb4 tie e bb4 q. d4 tie)
  (q d4 h c5)
  (h eb5 tie e. eb5 s b4 tie)
  (q b4 tie e b4))
  
  (time-point-system pitch1 's :type 2 :start '? :seed 34)
  => ((q f4 h a4)
  (q fs4 tie s fs4 q.. gs4)
  (e. e5 s g4 tie q g4 tie s g4 e. cs5 tie)
  (q cs5 tie cs5 tie s cs5 e. bb4 tie)
  (q bb4 tie e bb4 s d4 q c5 tie s c5 tie)
  (q c5 tie e c5 eb5 q b4 tie)
  (q b4 tie e b4))
  
  (time-point-system pitch1 's :type 2 :mod 6)
  => ((q f4 tie e f4 a4 tie a4 s fs4 gs4 tie)
  (e gs4 q e5 tie s e5 g4 tie g4 e cs5 s bb4 tie)
  (q bb4 e. d4 s c5 q eb5)
  (q b4 tie e b4))
  
  (time-point-system pitch1 's :type 2 :mod 6 :start 0)
  => ((s f4 h a4 tie e. a4)
  (h fs4 q gs4 tie)
  (q gs4 tie e gs4 q. e5 tie)
  (q e5 tie e e5 q. g4 tie)
  (e. g4 h cs5 tie s cs5)
  (h. bb4)
  (h d4 tie e d4 c5 tie)
  (q c5 tie e c5 q. eb5 tie)
  (q eb5 tie s eb5 b4))
  
  (time-point-system pitch1 's :type 2 :mod 6 :start 2)
  => ((e. f4 s a4 h fs4 tie)
  (e fs4 h gs4 tie e gs4 tie)
  (e gs4 e5 h g4 tie)
  (e. g4 h cs5 tie s cs5 tie)
  (e cs5 bb4 h d4 tie)
  (q d4 h c5 tie)
  (e c5 s eb5 b4 tie e b4))
  
  (time-point-system pitch2 's :type 2)
  => ((h. b4)
  (e. d5 s fs5 tie q fs5 tie e fs5 d4 tie)
  (s d4 e. f4 tie f4 q a4 tie s a4 tie)
  (q a4 tie s a4))
  
  (time-point-system pitch2 's :type 2 :start 0)
  => ((s b4 e. d5 tie s d5 q.. fs5 tie)
  (s fs5 d4 e f4 tie f4 q. a4 tie) (e a4))
  
  (time-point-system pitch2 's :type 2 :start '? :seed 34)
  => ((s b4 e. d5 tie s d5 q.. fs5 tie)
  (s fs5 h d4 tie e. d4) (e f4 q. a4))
  
  (time-point-system pitch2 's :type 2 :mod 6 :start 0)
  => ((s b4 h d5 tie e d5 s fs5 tie)
  (q fs5 tie e. fs5 s d4 q f4) (e a4))
  
  (time-point-system pitch2 's :type 2 :mod 6 :start '(0 2))
  => ((s b4 h d5 tie e d5 s fs5 tie)
  (q fs5 tie e. fs5 s d4 tie e d4 f4 tie)
  (q f4 a4))
  
  Mixing types:
  
  (setf pitch3 '((e4 a4 fs4 d4) (f4 b4 c4 bb4) (eb4 ab4 db4 g4)))
  
  (time-point-system pitch3 's :type '(2 1 1))
  => ((q e4 tie s e4 q.. a4 tie)
  (e. a4 s fs4 tie q fs4 tie e fs4 d4 tie)
  (s d4 -e. -s -s q. f4)
  (s b4 h c4 tie e c4 s bb4 tie)
  (s bb4 -e. q eb4 tie s eb4 e. gs4 tie)
  (e gs4 q. cs4 q g4 tie)
  (s g4))
  
  With :time-signature keyword:
  
  (setf pitch4
  (row-group-combination
     4 '(6 6) '(6 6) '(0 1 2 3 4 5 6 7 8 9 10 11) :type :pitch))
  => ((f4 e4 eb4 d4 cs4 c4) (b4 bb4 a4 gs4 g4 fs4))
  
  (time-point-system pitch4 's)
  => ((-q -s q.. f4 tie)
  (q f4 h e4 tie)
  (e. e4 h eb4 tie s eb4 tie)
  (e eb4 h d4 tie e d4 tie)
  (s d4 h cs4 tie e. cs4)
  (h. c4)
  (-h -e. s b4 tie)
  (q b4 tie b4 tie e b4 bb4 tie)
  (q bb4 tie bb4 tie s bb4 e. a4 tie)
  (h a4 q gs4 tie)
  (q gs4 tie e. gs4 q g4 tie s g4 tie)
  (q g4 tie e g4 q. fs4))
  
  (time-point-system pitch4 's :type '(1 2))
  => ((-q -s q.. f4 tie)
  (q f4 h e4 tie)
  (e. e4 h eb4 tie s eb4 tie)
  (e eb4 h d4 tie e d4 tie)
  (s d4 h cs4 tie e. cs4)
  (h. c4)
  (h. b4)
  (h bb4 tie e. bb4 s a4 tie)
  (q a4 tie a4 tie s a4 e. gs4 tie)
  (q gs4 tie e gs4 q. g4 tie)
  (e g4 fs4 tie q fs4 tie s fs4))
  
  With :mod keyword:
  
  (setf pitch5 '((eb4 f4 fs4 a4 c4) (bb4 c4 eb4 e4 f4)))
  
  (time-point-system pitch5 '(s t) :type '(2 1) :mod '(3 4))
  => ((s eb4 e. f4 s fs4 a4 c4 -s q bb4 tie)
  (s bb4 s. c4 q eb4 tie t eb4 e4 q f4 tie t f4 tie)
  (s f4))
  
  With :pcs keyword:
  
  (time-point-system pitch5 '(s t) :mod '(3 4) :pcs '(i r))
  => ((h eb4 tie e eb4 f4)
  (s fs4 a4 h c4 tie e c4 tie)
  (e c4 s. bb4 q c4 tie t c4 tie s c4 e. eb4 tie)
  (e eb4 tie t eb4 q e4 tie s. e4 q f4 tie)
  (e f4))
  
  Example:
  
  With chords:
  
  (setf clusters
  (gen-loop
     3
     (flatten
  (gen-cluster '(3 4 2 3)
     :type 'c
     :transpose (rnd-sample 4 (gen-integer -12 12))))
     :seed 3568))
  
  (time-point-system clusters 's)
  => ((-h -s e. a4bb4b4 tie)
  (e. a4bb4b4 h eb3e3f3fs3 tie s eb3e3f3fs3)
  (s c3cs3 h c3cs3d3 tie e. c3cs3d3 tie)
  (s c3cs3d3 -s cs4d4eb4 cs4d4eb4e4 e. d3eb3 q f4fs4g4 tie s f4fs4g4 tie)
  (e f4fs4g4 -e -s q.. eb3e3f3 tie)
  (e eb3e3f3 c5cs5d5eb5 q d4eb4 fs4g4gs4 tie)
  (e fs4g4gs4))
  
  L-SYSTEM with TIME POINT SYSTEM:
  
  (defclass exp (l-system)
  ((axiom :initform '(c4 b3 ab3 bb3 a3 ab4))
     (depth :initform 3)))
  
  (defmethod l-productions ((ls exp))
  (choose-production ls
     (c4 (--> - + b3))
     (b3 (--> ab3 + bb3))
     (ab3 (--> bb3 a3))
     (bb3 (--> a3 gb3 c4))
     (a3 (--> gb3 + c4 -))
     (ab4 (--> gb3 - + b3))))
  
  (time-point-system
  (gen-divide 4 (pitch-lsystem 'exp :depth 3))
  's :type '(1 2 1 1 2))
  
  => ((-h -e bb3 tie)
  (q bb3 tie bb3 tie s bb3 a3 e bb3 tie)
  (q bb3 tie e. bb3 q g3 tie s g3)
  (e cs4 h bb3 tie e bb3 tie)
  (s bb3 e. g3 tie q g3 tie s g3 e cs4 -s)
  (-q -e q. g3 tie)
  (s g3 e. d4 tie d4 q gs3 tie s gs3 tie)
  (e gs3 h eb4 tie s eb4 -s)
  (-q -e. q gs3 tie s gs3)
  (q cs4 tie e. cs4 q gs3 tie s gs3 tie)
  (e gs3 h eb4 tie s eb4 gs3 tie)
  (h gs3 e cs4 gs3 tie)
  (q gs3 tie e. gs3 s d4 tie e d4 -e)
  (-q -e q. gs3)
  (q d4 tie e d4 gs3 bb3 cs4)
  (h a3 tie e a3 s c4 eb4 tie)
  (e. eb4 -h -s)
  (-s e. bb3 tie s bb3 q.. d4 tie)
  (q d4 s cs4 q.. d4 tie)
  (e. d4 -h -s)
  (-e q. b3 q f4 tie)
  (e. f4))

Sign In

Point& click

Recommended Posts

o_e

Link to post

Share on other sites

Join the conversation

Similar Topics

Browser

Activity

Videos

Tutorials

GUI