Jump to content

opmo

Administrators
 View Profile  See their activity

  • Posts

    2,903

  • Joined

  • Last visited

 Content Type 

Everything posted by opmo

  1. opmo
    Will have look, thank you Andre.
  2. opmo
    This is quite simple to do, just use the pathname (string) to your midi file: (live-coding-midi "~/Opusmodus/Media/MIDI/Handel/handel.mid")
  3. opmo
    Works here: (defun tmap (tonality) (tonality-map `(,tonality :root b3 :map step) (make-scale 'c4 12))) (tmap (pcs '3-2)) => (b3 c4 d4 b4 c5 d5 b5 c6 d6 b6 c7 d7) added 3 minutes later If you are getting an error you need to provide the expression otherwise I can't help.
  4. opmo
    You can use the :span :pitch option if the master is the pitch: Example: (make-omn :pitch (tonality-map '(messiaen-mode5 :map step :root 'c4) sort-seq) :length '(t) :span :pitch) (make-omn :pitch (loop for i in sort-seq collect (nth i sieve)) :length '(t) :span :pitch)
  5. opmo
    A new spectra map is added to TONALITY-MAP. - ver. 1.2.23287 (tonality-map '((c4g4e5b5d6 :closest up :map spectra) (g3d4b5f5a4 :closest up :map spectra)) '((h c4f5 cs4fs5) (h d4g5 cs4gs5) (h eb4as5 f4a5) (h e4gs5 c4gs5))) => ((h c4e5 c4e5) (h d4f5 d4b5) (h c4b5 g4b5) (h d4b5 d4b5))
  6. opmo
    I will make some changes to the TONALITY-MAP which will allow us to use scales lager then an octave.
  7. opmo
    There is an internal function which expand any scale (a sequence) to a total octaves span with ambitus from -60 to 67. I will make a document for it.
  8. opmo
    Could you give me an example of the input and output - maybe few :-)
  9. opmo
    Clash – klirrendes Aufeinanderprallen verschiedener Materialien, die Kollision unterschiedlicher Welten. Jannik Giger kombiniert live gespielte und vorproduzierte Musik, jazzige Klänge mit Akkorden aus Morton Feldmans zweitem Streichquartett konfrontiert mit einer Videoarbeit. Mit dem Kompositionsauftrag an André Meier stellt das Ensemble Phoenix Gigers «Clash» ein Werk eines weiteren jungen Schweizer Komponisten entgegen. In besonderer Weise sind die Komponisten Alfred Knüsel und Thomas Lauck mit Daniel Buess verbunden. Der «Clash» ist hier eher im Sinne von intensiver Auseinandersetzung und einer ganz besonderen Suche nach Klang zu verstehen. Im Andenken an den vor zwei Jahren unter tragischen Umständen verstorbenen Basler Schlagzeuger Daniel Buess widmet ihm das Ensemble Phoenix dieses Konzert. Alfred Knüsel: Intarsie - an Daniel (UA) André Meier: Modular Form (UA) Thomas Lauck: Oktett für den Musiker mit seinem Tamburin (UA) Jannik Giger: Clash I und II Ensemble Phoenix Basel Jürg Henneberger, Leitung und Klavier Konzert vom 15.04.18, Gare du Nord Basel https://www.srf.ch/sendungen/neue-musik-im-konzert/clash-im-andenken-an-daniel-buess
  10. opmo
    Note to all. Please add to your examples the results of the expressions. This will help to understand the idea on the spot :-)
  11. opmo
    A random sort '? - RND-PICK from ascending and descending result of a sequence. Ascending: (list-plot (flatten (sorting (rnd-number 20 1 10 :seed 2346) :type 'selection :sort '<)) :zero-based t :point-radius 1 :join-points t) Descending: (list-plot (flatten (sorting (rnd-number 20 1 10 :seed 2346) :type 'selection :sort '>)) :zero-based t :point-radius 1 :join-points t) At random: (list-plot (flatten (sorting (rnd-number 20 1 10 :seed 2346) :type 'selection :sort '?)) :zero-based t :point-radius 1 :join-points t) In 5 steps: (list-plot (flatten (sorting (rnd-number 20 1 10 :seed 2346) :type 'selection :sort '? :step 5)) :zero-based t :point-radius 1 :join-points t) The default sort is ascending.
  12. opmo
    The step default is NIL - whole process.
  13. opmo
    I have added a new keyword :step - number of steps to complete the process. Exp. without step: (list-plot (flatten (sorting (rnd-number 30 1 10 :seed 2346) :type 'selection)) :zero-based t :point-radius 1 :join-points t) Same as above but with 5 steps: (list-plot (flatten (sorting (rnd-number 30 1 10 :seed 2346) :type 'selection :step 5)) :zero-based t :point-radius 1 :join-points t)
  14. opmo
    Will add the MIN-MAX as well to the SORTING function.
  15. opmo
    Well done, I could add the SORTING function to our system. The examples are very good as well. Note: If you like to share a workspace with files etc... you simply make a folder (same name as the workspace file) with the workspace and other files. This way the workspace is ready to use. Sorting Algorithms.zip
  16. opmo
    Written by me and it is quite complex.
  17. opmo
    With the methods from above you can achieve that.
  18. opmo
    I would use GEN-MORPH for that. Ex. 1 (setf org (rnd-order '(c4 cs4 d4 ds4) :seed 3657)) => (d4 c4 ds4 cs4) (setf sort (sort-asc org)) => (c4 cs4 d4 ds4) (gen-morph (length org) sort org) => ((c4 cs4 d4 ds4) (d4 cs4 d4 ds4) (d4 cs4 ds4 cs4) (d4 c4 ds4 cs4)) (gen-morph 8 sort org) => ((c4 cs4 d4 ds4) (d4 cs4 d4 ds4) (d4 cs4 d4 ds4) (d4 cs4 d4 cs4) (d4 cs4 d4 cs4) (d4 cs4 ds4 cs4) (d4 cs4 ds4 cs4) (d4 c4 ds4 cs4)) Ex.2 (setf noise (gen-white-noise 200 :seed 23)) (setf sort (sort-asc noise)) (gen-morph 8 noise sort)
  19. opmo
    The score of this piece you will find in the 'Score Examples/Ensembles' folder (ver. 1.2.23227). Thank you Stephane.
  20. opmo
    As you can see all values staying with in the range: 0.55 and 0.67 Simple test: (setf rh-a-dynamics (gen-eval 8 '(vector-to-velocity 0.55 0.67 (gen-white-noise 5) :type :float) :seed 12)) => ((0.56 0.67 0.55 0.58 0.67) (0.67 0.61 0.65 0.57 0.55) (0.67 0.63 0.55 0.65 0.6) (0.67 0.55 0.58 0.67 0.62) (0.62 0.67 0.57 0.55 0.58) (0.65 0.55 0.67 0.61 0.62) (0.55 0.58 0.67 0.62 0.63) (0.67 0.57 0.55 0.58 0.66))
  21. opmo
    This way you have control over seed in INIT-SEED if used: (setf rh-a-dynamics (gen-eval 8 '(vector-to-velocity 0.55 0.67 (gen-white-noise 5)) :seed 12))
  22. opmo
    That would be very complicated. The snippet (section) is rewritten from all kind of selections into DEF-SCORE.
  23. opmo
    There is an error in your code: the variable dynamics-rh should be dynamic-rh Example: (setf dynamic-rh (vector-to-velocity 0.55 0.62 (gen-white-noise 10 :seed 122) :type :midi)) (setf dynamic-lh (vector-to-velocity 0.33 0.41 (gen-white-noise 10 :seed 67) :type :midi)) (velocity-list-plot (list dynamic-lh dynamic-rh) :point-radius 2)
  24. opmo
    I think it will help us to work even more freely and this is what we expect from Opusmodus :-) Thank you for the suggestion.
  25. opmo
    Done in 1.2.23157
×
×
  • Create New...

Important Information

Terms of Use Privacy Policy

  I accept