Stephane Boussuge

  • Content count

  • Joined

  • Last visited

  • Days Won


Stephane Boussuge last won the day on March 20

Stephane Boussuge had the most liked content!

1 Follower

About Stephane Boussuge

  • Rank
    Advanced Member

Contact Methods

  • Skype

Profile Information

  • Gender

Recent Profile Visitors

1,841 profile views
  1. you can use :cycle t keyword and in this case, the choice will cycle in place to random choice. (gen-chord3 '(c4 eb4 g4) '((6 5) (5 3) (4 2)) :cycle t) S.
  2. (gen-chord3 '(c4 eb4 g4) '((6 5) (5 3) (4 2)))
  3. My way is to define a word default in the user-attributes file in extension: '(default "") This way, i can use default articulation name but without notation on score, just as "-" sign. SB.
  4. Hi, you can have a look to GEN-CHORD3 function who is based on roots and intervals spec. SB.
  5. Great !! SB.
  6. "The GESTALT-transformation makes more sense by this STEP-concept"
  7. Hi André, It is very interesting and totally "in line" with my practice of remapped pitch contours. Generally, i use pitch as just melodic contours and use tonality map for constraint them. (this melodic contours, naturally can comes from everything, vectors, intervals ...and finaly converted to pitch and passed thrught Tonality-map function) The way you showed here is another interesting way. Thanks SB.
  8. Excellente remarque puisque en effet, cette pièce, que j'ai voulu comme un Prélude, m'a été inspirée par l'écriture de Scriabine. SB.
  9. Merci. Opusmodus est en effet un incroyable environnement de composition, le plus puissant et flexible jamais inventé jusqu'à aujourd'hui je pense. S.
  10. Great example with single-events ! Thank you André ! S.
  11. Hi, Here is a short example of OMN deconstruction/reconstruction technique useful when you want to do functions for working directly with omn. ;; Example of function application based on binary-list. (flatten (do-section '(0 1 0) '(chord-interval-add '(4) x) (mclist '(c4 d4 e4)))) ;;; Function example to search for '1/4 length and process the corresponding ;;; pitch for add Major 3rd interval when '1/4 is found. ;;; It is also a good example of deconstruction/reconstruction of OMN ;;; inside a function (defun add-3rd-quarter (omn) (let ((plist (disassemble-omn omn))) (setf (getf plist :pitch) (flatten (do-section (binary-invert (gen-binary-remove '1/4 (getf plist :length))) '(chord-interval-add '(4) x) (mclist (getf plist :pitch))))) (apply 'make-omn plist))) (add-3rd-quarter '(e c4 p d4 q e4 f stacc e f4 p a4 q g4 f stacc)) => (e c4 p d4 q e4gs4 f stacc e f4 p a4 q g4b4 f stacc) SB.
  12. Magic piece for piano :-) SB.
  13. you can also use (progn (setf seed (random 1000)) (setf pitches1 (vector-to-pitch '(g3 b4) (gen-white-noise 10 :seed seed))) ) SB
  14. A short piece for piano. Basically, i've played the piano part into logic X, export the part to midi and imported it into opusmodus. After importation, i have copied the OMN piano part from the imported score into a variable named pmat and also the controllers information for sustain pedal (controller No.64) into a variable named ct64. I've generated some scales from a row using harmonic-progression function: (setf row (rnd-row :type :pitch :seed 932281 :transpose 3)) (setf chords (harmonic-progression (rnd-number (length pmat) -11 11) row :size 7 :step 1 )) and finally i've applied this harmonic structure with tonality-map function onto my piano material (variable pmat): (setf piano (tonality-map (mclist chords) pmat)) and exported back the resulting midifile to Logic for further edit and piano score edit. SB.
  15. new piece inspired by my new location in Austria: Vienna SB.