Jump to content

All Activity

This stream auto-updates     

  1. Yesterday
  2. In case you have abstracts or even papers, that might be relevant to share at this forum, even if they are in Italian (though in case English would be available, that would be even better )
  3. Last week
  4. ;;; Classical Accompaniment Exemple ;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- ;;; Motif definition (setf mtf1 '((s c5 leg g5 leg e6 leg g5 c5 leg g5 leg e6 leg g5))) (setf mtf2 (pitch-transpose 4 mtf1)) (setf mtf3 '((-q e5))) (setf mtf4 '((-q g4c5))) (setf mtf5 '((q c2 -))) ;;; Chords definition (setf chords (library 'harmoprog1 'minor-4vx 'prog2)) ;;; Ostinati (setf ost1 (gen-repeat (length chords) mtf1)) (setf ost2 (gen-repeat (length chords) mtf2)) (setf ost3 (gen-repeat (length chords) mtf3)) (setf ost4 (gen-repeat (length chords) mtf4)) (setf ost5 (gen-repeat (length chords) mtf5)) ;;; Tonality-map series (setf tm-path (tonality-series chords)) ;;; Here we apply the map 'tm-path' into arpegio sequence. (setf ost1.map (tonality-map tm-path ost1)) (setf ost2.map (tonality-map tm-path ost2)) ;;; Here we apply our library chords into chord sequence. ;;; The harmonic-path preserves the voice leading. (setf ost3.map (harmonic-path chords ost3)) (setf ost4.map (harmonic-path chords ost4)) (setf ost5.map (harmonic-path chords ost5)) (setf violin1 (ambitus '(g3 c7) ost2.map)) (setf violin2 (ambitus '(g3 c6) ost1.map)) (setf viola (ambitus '(c3 e4) ost3.map)) (setf violoncello (ambitus-chord 12 (pitch-transpose -12 ost4.map))) (setf bass ost5.map) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (def-score Classical-accomp (:title "Classical accompaniment example" :composer "S.Boussuge" :copyright "Copyright © 2018 s.boussuge" :key-signature 'chromatic :time-signature '((1 1 1 1) 4) :tempo 108 :layout (bracket-group (violin-layout 'violin1 :name "Violin-1") (violin-layout 'violin2 :name "Violin-2") (viola-layout 'viola) (violoncello-layout 'violoncello) (contrabass-layout 'bass) ) ) (violin1 :omn violin1 :channel 1 :sound 'gm :program 'String-Ensemble-1 :volume 100 :pan 48 :controllers (91 '(68)) ) (violin2 :omn violin2 :channel 2 :sound 'gm :program 'String-Ensemble-1 :volume 100 :pan 48 :controllers (91 '(68)) ) (viola :omn viola :channel 3 :sound 'gm :program 'String-Ensemble-1 :volume 90 :pan 64 :controllers (91 '(68)) ) (violoncello :omn violoncello :channel 4 :sound 'gm :program 'String-Ensemble-1 :volume 90 :pan 80 :controllers (91 '(68)) ) (bass :omn bass :channel 5 :sound 'gm :program 'String-Ensemble-1 :volume 90 :pan 80 :controllers (91 '(68)) ) )
  5. You find many examples in the Utilities panel in the 'Howto Score' and the 'Score Examples' section:
  6. Try searching the tutorial Stages in the utilities pane. Best !
  7. This is the kind of code I'm interested in. It's short and useful for learning, especially for beginners. The video is good, but I'm more interested in the code. Is there a repository of code like this? QuickTips - Classical Piano accompaniment. (setf mtf '((s c4 g4 c5e5 g4 c4 g4 c5e5 g4))) (setf mtf2 '((q c4 g4c5e5))) (setf chords (library 'harmoprog1 'minor-4vx 'prog2)) (setf ost (gen-repeat (length chords) mtf)) (setf ost2 (gen-repeat (length chords) mtf2)) (setf tm-path (tonality-series chords)) (setf ost.map1 (harmonic-path chords ost)) (setf ost2.map1 (harmonic-path chords ost2)) (setf ost.map2 (tonality-map tm-path ost)) (setf ost2.map2 (tonality-map tm-path ost2)) (merge-voices ost.map1 ost.map2 ost2.map1 ost2.map2)
  8. After a few days of testing and reading I'm starting to understand the power of OpusModus. What would be beneficial to me (and perhaps other new users) is a collection of relatively simple scores. I see references to such scores in the forums, but I cannot find them. Perhaps they are not available in the newer versions of OpusModus? Here is an example of a score I cannot find:
  9. VMWare is a bit more tricky for me being on an AMD rather than Intel (which Mac uses). Latency was severe. My workaround is just to remote in to my old mac and it seems to be working much better.
  10. Earlier
  11. For searching the doc for a function in composer panel, just put the cursor on it and hit ctrl + Tab. SB.
  12. Hello, Please, take a look on this: Best ! Julio
  13. In a previous post it was mentioned that MIDI import would be supported in 2.0. Is this still true?
  14. The menu is changing with time. As for the lesson 2 file 4, first you need to evaluate the expressions in the main score file: 2. Full Score.
  15. I couldn't follow this instruction: Go to the Tools menu and choose Evaluate and Play I did determine that Evaluate Score > Display MIDI will play the score. Also, in lesson 2 file 4 the instruction is: ;; Try viewing / playing these expressions as SNIPPETS. I get this error when I press ⌘1 to play the snippet: > Error: No length specified before first pitch > While executing: (:internal parse-omn-note), in process Listener-1(6). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. In a previous post it was mentioned that MIDI import would be supported in 2.0. Is this still true? Is there a way to highlight a command and then search for it in the reference?
  16. fdsdb


  17. Thank you, Janusz ! Great ! Julio
  18. (let ((out (pcs-cardinal 4 :forte))) (loop for i in (pcs-super-sets 4 (pcs '3-1) :forte) do (setf out (remove i out)) finally (return out))) (let ((rem (pcs-cardinal 7 :forte)) (super (pcs-super-sets 7 (pcs '3-1) :forte))) (loop for i in super do (setf rem (remove i rem)) finally (return rem))) => (7-31 7-31b 7-32 7-32b 7-34 7-35) here it is.
  19. A more specific example (pcs-super-sets 4 (pcs '3-1) :forte) ;; (4-1 4-2 4-2b 4-4 4-4b 4-5 4-5b 4-6) (pcs-super-sets 4 (pcs '3-1) :forte :complementary) ;; (all other 4 note sets, except 4-1 4-2 4-2b 4-4 4-4b 4-5 4-5b 4-6) Best, Julio
  20. Dear All, Happy New Year I´m back to a lot of work with sets, subsets and supersets and I have an idea/suggestion: When evaluating this (pcs-super-sets 7 (pcs '3-1) :forte) I get this result (7-1 7-2 7-2b 7-3 7-3b 7-4 7-4b 7-5 7-5b 7-6 7-6b 7-7 7-7b 7-8 7-9 7-9b 7-10 7-10b 7-11 7-11b 7-z12 7-13 7-13b 7-14 7-14b 7-15 7-16 7-16b 7-z17 7-z18 7-z18b 7-19 7-19b 7-20 7-20b 7-21 7-21b 7-22 7-23 7-23b 7-24 7-24b 7-25 7-25b 7-26 7-26b 7-27 7-27b 7-28 7-28b 7-29 7-29b 7-30 7-30b 7-33 7-z36 7-z36b 7-z37 7-z38 7-z38b) These are all the supersets of cardinality 7 of the 3-1 set. Would be very nice in this context to have a keyword to invert the result, i.e., actually showing the excluded sets, like all the sets that ARE NOT supersets of the 3-1 set. Like inverting, like a (pcs-non-super-sets) function. I think that maybe it´s not so difficult, because the algorythm of the function already give the result, the only thing necessary is that the function return exactly the opposite result. Best, Julio
  21. AM

    maxmsp and lisp?

    for my needs it's not necessary to use opusmodus in MAX. for me it's just easier to code LISP then in other languages (i need no library) i will not do algorithmic comp... there, i will simply manage my "real-time/virtual-conducting/modular-form THING" from the POLYTEMPO-NETWORK in ONE language (lisp)... (i also found a solution for me without MAX, lisp only. a bit steam-punky, but works will be my next ensemble piece) thanx to you! andré
  22. Note that MOZ’Lib seemingly supports arbitrary libraries from the PatchWork / Open Music / PWGL family. Perhaps it is possible to see how they do that to add such functionality to Opusmodus as well? Best, Torsten PS: I was working in a similar direction some time ago, first by porting some library (OM-Tristan) to load directly into a plain Lisp compiler (by replacing all OpusModus dependencies) and that works, but that is a lot of work for each library. I then started to instead port the whole of OpenMusic to ClozureCL, but leaving out all GUI dependencies, but got only half-way with that so far (it is a lot of code ). Of course, if this works already in Julien's library, that would save some work... Unfortunately, I will not be able to take anything like this on in the foreseeable future due to my new job.
  23. Its a great development, but note that it will not work with Opusmodus for multiple reasons, one being that MOZ’Lib depends on SBCL [1], which is called from the shell, and Opusmodus depends on ClozureCL, and I don't think there are plans to make Opusmodus callable from a shell. [1]
  24. AM

    maxmsp and lisp?

    i received the following message from julien vincenot for maxmsp+lisp greetings andré
  25. stephenalex25


  26. Thanks Stéphane, Your help is really appreciated ! I just get a first win by writing and playing a first snippet. Thanks !
  1. Load more activity
  • Create New...