Jump to content

All Activity

This stream auto-updates

  1. Yesterday
  2. Last week
  3. I noticed that dark mode have its settings, but how to enter in dark mode in windows ? There is a toggle ? Best, Julio
  4. or: (setf seq (rnd-sample 16 '(c4 d4 f4 fs4 g4 a4 b4 ds5) :norep t)) (interval-to-pitch (filter-remove '(-7 7 -4 4) (pitch-to-interval seq)) :start (car seq)) => (a4 c4 a4 g4 e5 fs5 e5 d6 e5 d6 fs5) A simple way is to work with intervals and then convert them to pitches: (setf seq (rnd-sample 16 '(-4 -3 -2 -1 1 2 3 4) :norep t)) => (-4 2 -2 2 -1 -4 4 -1 1 -2 -1 3 -2 2 -2 -3) (interval-to-pitch seq :start 'a4) => (a4 f4 g4 f4 g4 fs4 d4 fs4 f4 fs4 e4 eb4 fs4 e4 fs4 e4 cs4) This way the length of the list will not change.
  5. I'll bet there is some builtin function that I don't know of, but here's an option: (setf res (interval-to-pitch (remove-if (lambda (x) (or (= 4 x) (= 7 x))) (pitch-to-interval seq)))) (pitch-to-interval res) Jesper Edit: if you want exactly 16 you could do like this. (bad programming, I know ) (setf seq (rnd-sample 24 '(c4 d4 f4 fs4 g4 a4 b4 ds5) :norep t)) (setf res (subseq (interval-to-pitch (remove-if (lambda (x) (or (= 4 x) (= 7 x))) (pitch-to-interval seq))) 0 16))
  6. I'd like to get a random sequence of a set of pitches but want to exclude certain intervals like 7 and 4 from appearing in the resulting sequence. I don't see an interval exclude property for rnd-sample. What would be a way to do this? (setf seq (rnd-sample 16 '(c4 d4 f4 fs4 g4 a4 b4 ds5) :norep t))
  7. Yes, everything is ok. I detected that what was messing the enharmonics was the ambitus function I put in my processing, not the make-omn or the PS. Best ! Julio
  8. I also tried it with the scales from your last thread, and here it seems to work ok. I get the same spelling in ps as in the lists. Jesper
  9. Hi Julio, seems to be working fine in this short example. Jesper (setf pitch '(c4 eb4 a4 ds4 bb4 e4 gs4 cs4 gb4)) (setf omn1 (make-omn :length '(1/8) :pitch pitch :velocity '(pp) :span :pitch)) (ps 'gm :treble omn1 :time-signature '(3 8 1) :tempo 112)
  10. Hi, I´m searching for an option in PS score to bypass the rewriting the accidentals. My scale lists are carefully ordered in terms of enharmonics. I think that what mess it all is the make-omn expression I use before the PS. Is there some way of bypass reordering accidentals in the make-omn expression and also in the PS ? Thanks ! Julio
  11. (setf list '((fs4 gs4 a4 b4 cs5 eb5 e5) (db5 eb5 f5 g5 ab5 bb5 c6) (cs5 eb5 e5 fs5 gs5 bb5 b5) (bb4 c5 d5 e5 f5 g5 a5) (d4 e4 f4 g4 a4 b4 c5) (gb4 ab4 bb4 c5 db5 eb5 f5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (c5 d5 e5 fs5 g5 a5 b5) (cb5 db5 eb5 f5 gb5 ab5 bb5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (a4 b4 c5 d5 e5 fs5 g5) (c5 d5 e5 fs5 g5 a5 b5) (cs5 eb5 e5 fs5 gs5 bb5 b5) (e4 fs4 g4 a4 b4 cs5 d5) (gb4 ab4 bb4 c5 db5 eb5 f5) (db5 eb5 f5 g5 ab5 bb5 c6) (bb4 c5 d5 e5 f5 g5 a5) (eb4 f4 fs4 gs4 bb4 c5 cs5) (c5 d5 e5 fs5 g5 a5 b5) (a4 b4 c5 d5 e5 fs5 g5) (db5 eb5 f5 g5 ab5 bb5 c6) (g4 a4 b4 cs5 d5 e5 fs5))) (position-filter '((0 2 1)) list) => ((fs4 a4 gs4) (db5 f5 eb5) (cs5 e5 eb5) (bb4 d5 c5) (d4 f4 e4) (gb4 bb4 ab4) (g4 b4 a4) (f4 a4 g4) (c5 e5 d5) (cb5 eb5 db5) (g4 b4 a4) (f4 a4 g4) (a4 c5 b4) (c5 e5 d5) (cs5 e5 eb5) (e4 g4 fs4) (gb4 bb4 ab4) (db5 f5 eb5) (bb4 d5 c5) (eb4 fs4 f4) (c5 e5 d5) (a4 c5 b4) (db5 f5 eb5) (g4 b4 a4))
  12. (setf list '((fs4 gs4 a4 b4 cs5 eb5 e5) (db5 eb5 f5 g5 ab5 bb5 c6) (cs5 eb5 e5 fs5 gs5 bb5 b5) (bb4 c5 d5 e5 f5 g5 a5) (d4 e4 f4 g4 a4 b4 c5) (gb4 ab4 bb4 c5 db5 eb5 f5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (c5 d5 e5 fs5 g5 a5 b5) (cb5 db5 eb5 f5 gb5 ab5 bb5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (a4 b4 c5 d5 e5 fs5 g5) (c5 d5 e5 fs5 g5 a5 b5) (cs5 eb5 e5 fs5 gs5 bb5 b5) (e4 fs4 g4 a4 b4 cs5 d5) (gb4 ab4 bb4 c5 db5 eb5 f5) (db5 eb5 f5 g5 ab5 bb5 c6) (bb4 c5 d5 e5 f5 g5 a5) (eb4 f4 fs4 gs4 bb4 c5 cs5) (c5 d5 e5 fs5 g5 a5 b5) (a4 b4 c5 d5 e5 fs5 g5) (db5 eb5 f5 g5 ab5 bb5 c6) (g4 a4 b4 cs5 d5 e5 fs5))) (setf sl '(0 2 1)) (loop for x in list collect (loop for y in sl collect (nth y x))) Jesper
  13. Dear All, just a little help, please ! Here´s a list of scales... ((fs4 gs4 a4 b4 cs5 eb5 e5) (db5 eb5 f5 g5 ab5 bb5 c6) (cs5 eb5 e5 fs5 gs5 bb5 b5) (bb4 c5 d5 e5 f5 g5 a5) (d4 e4 f4 g4 a4 b4 c5) (gb4 ab4 bb4 c5 db5 eb5 f5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (c5 d5 e5 fs5 g5 a5 b5) (cb5 db5 eb5 f5 gb5 ab5 bb5) (g4 a4 b4 cs5 d5 e5 fs5) (f4 g4 a4 b4 c5 d5 e5) (a4 b4 c5 d5 e5 fs5 g5) (c5 d5 e5 fs5 g5 a5 b5) (cs5 eb5 e5 fs5 gs5 bb5 b5) (e4 fs4 g4 a4 b4 cs5 d5) (gb4 ab4 bb4 c5 db5 eb5 f5) (db5 eb5 f5 g5 ab5 bb5 c6) (bb4 c5 d5 e5 f5 g5 a5) (eb4 f4 fs4 gs4 bb4 c5 cs5) (c5 d5 e5 fs5 g5 a5 b5) (a4 b4 c5 d5 e5 fs5 g5) (db5 eb5 f5 g5 ab5 bb5 c6) (g4 a4 b4 cs5 d5 e5 fs5)) I just want to pick the same elements of all the sublists. I don´t remember how to do it... For example (0 2 1) of all the sublists would return this: ((fs4 a4 gs4) (db5 f5 eb5) (cs5 e5 eb5) etc etc Please, some help ? Thanks a lot ! Best, Julio
  14. Thank you Janusz! I am speaking to saxophonist that you are;-) I assume to you understand what I am trying to do. to generate II V I VI with eight notes except dominant-diminished? (setf ry12 '((e e e e e e e e)(e e e e e e e e)(e e e e e e e e)(e e e e e e e e))) (setf modes (expand-chord-name (list (library 'modes 'Dorian-II 'dorian) (library 'modes 'altered 'altered-dominant) (library 'modes 'major 'major) (library 'modes 'dominant 'dominant-diminished)) :type :pitch)) (setf transp (pitch-transpose-start '(2 7 0 -3 ) modes )) (setf patterns (omn-to-measure (make-omn :pitch (pitch-transpose 12 (rnd-order transp)) :length (gen-repeat 1 ry12) :span :length) '(4/4)))
  15. (setf modes (expand-chord-name (list (library 'modes 'Dorian-II nil :random 1) (library 'modes 'Ionian-I nil :random 1) (library 'modes 'mixolydian-v nil :random 1)) :type :pitch)) (setf transp (pitch-transpose 6 modes)) (setf patterns (make-omn :pitch (rnd-order transp) :length (gen-repeat 1 ry12) ))
  16. Thanks, Janusz. This has worked - will do this periodically from now on when planning on working with SC server.
  17. Hi, in my example I only use one mode is it possible to use multiple modes, exemple Dorian II, mixolydian-v and Ionian I ?? (setf patterns (pitch-transpose 6 (make-omn :pitch (rnd-order (expand-chord-name (library 'modes 'mixolydian-v nil :random 1) :type :pitch)) :length (gen-repeat 1 ry12) )))
  18. Earlier
  19. You can have a look here as well: Introduction to Opusmodus (level 1) - Composer Workshop WWW.COMPOSERWORKSHOP.COM This course is an introduction to Opusmodus, going from interface discovery to music composition using the powerful functions of this incredible music composition environment. <h3>Who this course is for</h3> This course is for people who want to learn algorithmic music composition and generative music techniques. No prior programming experience needed but basic knowledge of music is...
  1. Load more activity
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy