Jump to content

JulioHerrlein

core_group_3
  • Content Count

    265
  • Joined

  • Last visited

  • Days Won

    15

JulioHerrlein last won the day on November 16 2018

JulioHerrlein had the most liked content!

About JulioHerrlein

  • Rank
    core_member_rank_4

core_pfieldgroups_1

core_pfieldgroups_2

  • Location
    Brasil

Recent Profile Visitors

824 profile views
  1. JulioHerrlein

    [HELP] Removing white spaces from a list ?

    Great, Janusz. And no more manual updates !! Best, Julio
  2. JulioHerrlein

    [HELP] Removing white spaces from a list ?

    Beautiful šŸ˜
  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. 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
  6. 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...
  7. 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
  8. 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
  9. JulioHerrlein

    Request: make-omn

    Thank you, Torsten ! Looks great. Have a nice 2019 ! Best, Julio
  10. 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 !
  11. JulioHerrlein

    VariationsĀ on Variations (2019)

    Really cool for idiomatic stuff ! This will be great ! Best, Julio
  12. JulioHerrlein

    VariationsĀ on Variations (2019)

    Beautiful ! Any code or hint about the composicional process ? Best, Julio
  13. JulioHerrlein

    Opusmodus 1.3 crashing

    Happy New Year, Tim I updated too but I had no crashes at all. Using El Capitan 10.11.6 Opusmodus seems more fast, by the way. Best, Julio
  14. JulioHerrlein

    Prelude for Piano 171218

    Thanks a lot, Stephane ! 7-33 is ALMOST a whole tone scale. (0 1 2 4 6 8 A). All the Best ! Julio
  15. JulioHerrlein

    Prelude for Piano 171218

    Nice, Stephane! Some score/code or compositional hints? Whole tones a lot, by the way. Best, Julio
Ɨ