Jump to content

All Activity

This stream auto-updates     

  1. Today
  2. Stephane Boussuge

    [HELP] Removing white spaces from a list ?

    Personally, i like very much to use the loop macro facilities, much clear and easy for me than recursion. Also, I am a big fan of it because it is very powerful. SB.
  3. JulioHerrlein

    [HELP] Removing white spaces from a list ?

    Janusz, It would be great with some kind of span inside, like this: (octave-map '(3 5 6) '(c3 d3 e3 f3 g3 f3 e3 d3 c3 cs3)) => (c3 d5 e6 f3 g5 f6 e3 d5 c6 cs3) Best, Julio Or better: (octave-map '(3 5 6) '(c3 d3 e3 f3 g3 f3 e3 d3 c3 cs3) :span t) => (c3 d5 e6 f3 g5 f6 e3 d5 c6 cs3) Best,
  4. JulioHerrlein

    [HELP] Removing white spaces from a list ?

    Thank you Janusz ! Good Idea ! Happy 2019 ! Best, Julio
  5. AM

    [HELP] Removing white spaces from a list ?

    i know, LOOPS are not very LISPian! but for me the most simple way "to think such processes" (more intuitive then recursion/iteration). and when the function/code is not to large it's not that important...
  6. opmo

    [HELP] Removing white spaces from a list ?

    I will make the octave-map function work with octaves numbers as well. (octave-map '(c3 cs3 e5 f5 fs6 g5 gs4 a4 as3 b3) '(c3 d3 e3 f3 g4 f4 e4 d4 c4 cs4)) => (c3 d3 e5 f5 g6 f5 e4 d4 c3 cs3) (octave-map '(3 3 5 5 6 5 4 4 3 3) '(c3 d3 e3 f3 g4 f4 e4 d4 c4 cs4)) => (c3 d3 e5 f5 g6 f5 e4 d4 c3 cs3)
  7. JulioHerrlein

    [HELP] Removing white spaces from a list ?

    Thanks a lot, André ! I´m trying to use your famous loops ! All the Best ! Happy 2019 ! Julio
  8. AM

    [HELP] Removing white spaces from a list ?

    (loop for i in (gen-divide 2 '(c 4 d 5 e 3 c 6 eb 4)) collect (compress i)) => (c4 d5 e3 c6 eb4) i didn't read you posts precisely. only the last ONE ...but you could use COMPRESS...?
  9. Dear All, I'm trying to find a loop for making substitutions in a list, for changing the ranges of a list of pitches. SOME PITCHES (AND WHAT TO CHANGE) (setf pitches '(c4 d4 e4 c4 eb4 f4 c4 eb4 eb5)) (setf i '(c4 eb4)) This will take out the range of the notes, i.e., c4 db5 will became c db (defun convert-pitch (pitches) (loop for i in pitches when (pitchp i) collect (compress (butlast (explode i))) else collect i)) Setting a variable for pitches without range indication (pitnorng) and a new range list (setf pitnorng (convert-pitch pitches)) (setf rangelist '(4 5 3 6 4)) Function to put back the new range to the notes (defun convert-pitchbk (pitnorng) (loop for i in pitnorng when i collect (flatten (mapcar 'list pitnorng rangelist)) else collect i )) Setting a collection of notes with new ranges: (setf convbaklst (convert-pitchbk pitnorng)) The (problematic) result: ((c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4) (c 4 d 5 e 3 c 6 eb 4)) I have WHITE SPACES between the note and the corresponding range... LISP PROBLEM: How to remove the white spaces ? Best, Julio And also... The list is multiplied 9 times... why? Some problem in the loop function, I suppose...
  10. Last week
  11. Andy

    Music xml import, convert to Score?

    That's great to hear Janusz, thanks.
  12. opmo

    Music xml import, convert to Score?

    At the moment you can't convert musicxml file into omn score. But it is in our TODO list.
  13. I have converted many of my scores made in Notion to music xml in order to display them in the Assistant..which is very nice indeed. I'm wondering if I can convert those xml scores to an Opusmodus score direct or do I have to re-import them as midi? I see I can go the other way..xml to Notion, but cannot find how to go this way or if it's possible. Thanks
  14. JulioHerrlein

    Request: make-omn

    Dear Friends, Maybe this could work (in def score, not in make omn) (setf op29webernLib (expand-libraries '(library vienna webern r19))) (setf rowint (pitch-to-integer op29webernLib)) (setf pitches (gen-repeat 10 op29webernLib)) (setf lengths (span pitches (gen-repeat 10 '(s s s s -s s e -s s s -s e e -q q)))) (setf text (span pitches rowint)) (def-score Stage-1 (:key-signature 'chromatic :time-signature '(4 4) :tempo 80 :layout (treble-layout 'piano-rh)) (piano-rh :length lengths :pitch pitches :text text ;:velocity dynamics :channel 1 :sound 'gm :program 'acoustic-grand-piano) ) RESULT Best ! Julio
  15. Deb76

    Request: make-omn

    OK. Thanks.
  16. opmo

    Request: make-omn

    I have some idea how we could do that - possibly next week.
  17. Deb76

    Request: make-omn

    Dear Julio Thank you for your reply, but that's not what I want. I know the integer-to-pitch function well, I use it in my musical analysis with the tools of the Set Theory. And precisely, at my request, in order to be able to add the notation mod12 on a partition, Janusz created the insertion of integers via num0 ... num11. What I want is for make-omn to recognize the num parameter, either directly or by being able to add to :length, :pitch, :articulation, :velocity, the parameter :num or other name. I made an example from a row extracted from the Library Vienna. By adding in the series the notation in integers with the parameter num one realizes that this notation does not appear in the score from make-omn : (setf dur (gen-repeat 12 'q) ) (setf op29webernLib (expand-libraries '(library vienna webern r19))) (setf op29webernNumMO '(ds4 num3 b4 num11 d4 num2 cs4 num1 f4 num5 e4 num4 g4 num7 fs4 num6 as4 num10 a4 num9 c4 num0 gs4 num8)) (setf webernop29_OMN (make-omn :length dur :pitch op29webernNumMO )) Unlike the notation as follows: (setf op29webernNum1 '(q ds4 num3 b4 num11 d4 num2 cs4 num1 f4 num5 e4 num4 g4 num7 fs4 num6 as4 num10 a4 num9 c4 num0 gs4 num8)) Best. Didier Stéphane bonsoir, Réponses croisées. Merci. Je n'avais pas pensé à l'intégrer en tant qu'articulation. Merci donc. Et je viens de vérifier en ajoutant aussi des articulations (num0+marc, num11+stacc...) ça fonctionne. C'est impeccable. Cross responses. Thank you. I had not thought of integrating it as an articulation. Thank you so. And I just checked by adding also joints (num0 + marc, num11 + stacc ...) it works. It's impeccable. Best. Didier
  18. Stephane Boussuge

    Request: make-omn

    (make-omn :pitch '((c4 d4 e4 f4 g4)) :length '((s s s s q)) :articulation '((num1 num2 num3 num4 num5)) ) S.
  19. JulioHerrlein

    Request: make-omn

    Dear Didier, Maybe you could try this way, with integer-to-pitch function: (setf mkomnpit (gen-repeat 10 (integer-to-pitch '(0 2 4 7)))) (setf mkomnrhy (gen-repeat 5 '(s s s s e. s q q))) (make-omn :length (span mkomnpit mkomnrhy) :pitch (span mkomnrhy mkomnpit)) Integer to Pitch: (integer-to-pitch '(0 2 4 7) Will result in Best, Julio
  20. Deb76

    Request: make-omn

    Hello, Just a quick question about make-omn: is it possible to add to the parameters the notation with num? I am currently analyzing Webern's opus 29 following a question I was asked. If I add the notation in integers I get this: (ds4 num3 b4 num11 d4 num2 cs4 num1 f4 num5 e4 num4 g4 num7 fs4 num6 as4 num10 a4 num9 c4 num0 gs4 num8)) but this notation mod12 is not taken in count in make-omn, is it possible to add the notation in integers in the parameters (length, pitch, velocity, articulation, etc.) of make-omn? with num? Best. Didier
  21. Stephane Boussuge

    Pluton for Orchestra

    In memoriam Narcis Bonet who was one of my teachers. Opusmodus score attached. SB. PlutonV1-02.opmo
  22. Stephane Boussuge

    Using Sibelius with Opusmodus

    Opusmodus offer a powerful way for inputting notes into Sibelius. Here's a "how to", presenting some possible ways of use.
  23. Earlier
  24. JulioHerrlein

    Request: make-omn

    Thank you, Torsten ! Looks great. Have a nice 2019 ! Best, Julio
  25. torstenanders

    Request: make-omn

    > Sometimes is interesting for hearing snippets with different sounds without having to compile the entire score My Opmo score data structure already allows for that, though you always have to render snippets with an explicit function call, as we cannot define custom shortcuts so far. It is part of my tools at https://github.com/tanders/tot. Check out the function preview-score (https://tanders.github.io/tot/sources/score.html#_g232191). Various other functions allow to transform polyphonic score snippets for one or more instruments in various ways. Best, Torsten
  26. FYI, the changes I proposed are meanwhile merged into the repository at https://github.com/ormf/cm, so you can directly load the Common Music version shared there into Opusmodus 1.3 again. Best, Torsten
  27. Deb76

    Opusmodus 1.3 crashing

    Hello, The update was carried out without problem following the instructions in particular by deleting the file Opusmodus in Documents. The upgrade has been installed on the Mojave OS 10.14.2. and it runs without any problem.I particularly appreciate in this new version the functions circle-pitch-plot, circle-rhythm-plot, xy-plot, and the pcs-rhythm. Very useful tools for musical analysis. The ivory background for rendering the scores is very nice too. Best, Didier
  28. JulioHerrlein

    Request: make-omn

    It would ve great to have the :port and :channel in the make-omn function. Sometimes is interesting for hearing snippets with different sounds without having to compile the entire score (sometimes it take a while,depending on the complexity of the score). The port would help to deal with vst adresses and libraries on auditioning. Best !
  1. Load more activity
×