Jump to content

PatrickMimran

Members
  • Content Count

    69
  • Joined

  • Last visited

About PatrickMimran

  • Rank
    Junior Member

Contact Methods

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Thank you André so I should put all my functions into the same file User library.opmo but what is the user editing score folder for ? Patrick
  2. Hello I would like to know what the more efficient way , when creating a lot of custom function to be included in the Extension folder: to group all the function in the same file or to distribute them over several files . Or one function by file or it doesn't matter Thank you Patrick
  3. I tried this score and when I evaluate it I do not have on the second flute stave the material of fluterev but two staves with fmel instead of one with feel and the other with fluterev . I am sure there is a very simple solution to this issue but I can't find it Thank you for your help Patrick ;;;--------------------------------------------------------- ;;; Parameters ;;;--------------------------------------------------------- (setf size 16) (setf bars (gen-repeat size '(4/4))) ;(setf pause (length-span bars '(-s))) (setf melo (tonality-map '(minor) (pitch-transpose '(0 2 -2 -4 -1 2) (gen-eval 3 '(rnd-order '(s c4 d4 e4 f4 q g4 ) :type :pitch))))) (setf melos (gen-eval 5 '(aleaparent1a '(4 2 3 4 5 2 3) (flatten melo)))) (setf melos1 (reverse (gen-eval 5 '(aleaparent1a '(4 2 3 4 5 2 3) (flatten melo))))) (setf fmel (ambitus '(g4 c6) melos)) (setf fluterev (reverse fmel)) ;;;--------------------------------------------------------- ;;; Score and Layout ;;;--------------------------------------------------------- (def-score flute (:title "Melody" :composer "Patrick Mimran" :copyright "Copyright © 2020" :key-signature 'chromatic :time-signature '((1 1 1 1) 4) :tempo 100 :layout (list (flute-layout 'flute) (flute-layout 'flute) )) (flute :omn fmel :channel 1 :sound 'gm :program 'flute :volume 95 :pan 70 ;:controllers (91 '(52)) ) (flute1 :omn fluterev :channel 2 :sound 'gm :program 'violin :volume 60 :pan 70 ;:controllers (91 '(52)) )) Flute-example.opmo
  4. Hi Everybody I found a great app to upload and share your music here is the address you can test it it is much better and classy than Soundcloud https://octave.is/pmimran/privatealbum/patrick%40mimran.com/em2XkPshTa Patrick Mimran
  5. Hello Julio if you are like me and you do not know lisp this is a very useful link where you can find the main lisp functions . I found it very useful. cl-reference-brian.pdf LispResumé.pdf
  6. That's exactly what i was looking for Thank you Patrick
  7. How could we have access to the chord library ? I tried (library 'chord-library 'triads 'maj ) without success Triads maj m min dim mb5 sus sus4 sus2 aug majs5 + -5 Basic seventh chords maj7 m7 min7 7 dom7 dim7 m7b5 min7b5 mmaj7 m/maj7 7sus2 7sus 7sus4 Added tone chords 5 6 maj6 m6 min6 6/7 6/9 69 6add9 6/9s11 69s11 6add9s11 m6/9 m6add9 m69 Extended nondominant seventh chords maj7b5 mmaj7a11 m/maj7a11 maj7s11 m/maj7a13 mmaj7a13 m7sus4 m7s5 m7a11 m7a13 m7b13 m7b6 dim/maj7 dim7/maj7 m7b9b5 7b9sus4 phrig maj7s5
  8. Je vais vous envoyer plus tard la copie du score . Mais le problème est que meme lorsque j'évalue mon chord list , les accords "mapées ",me sortent des secondes alors que je m'attends à ce qu'ils donnent le premier quatrième et cinquième degré de la mineur . Je vais essayer votre suggestion et je vous tiens au courant . Merci pour votre réponse Patrick
  9. I try to map a tonality on a very simple chord suite 1 4 5 from Major to natural minor in the folowing way (Setq chordlist (tonality-map '(natural-minor :root a4 ) '(c3c4e4g4c5 f3f4a4c5f5 G3G4b4d5g5) )) But it doesn't seems to work the way i want , i am just looking to transform degree 1 4 5 from c major to 1 4 5 a minor with no success there is probably something i am missing or another easiest way Thanks Patrick
  10. i looked at it and i tried to put it in the function , but without success This is what i did (defun patkaos ( lambda long &key seed ) (rnd-seed seed ) (let ((res (cons seed nil)) (xn seed)) (dotimes (n long res) (setf res (cons (setf xn (* lambda xn (- 1 xn))) res))) (reverse res))) when i evaluate this is what i gat Error: floating-point-overflow detected > performing * on (-2.5452163E+36 2.5452163E+36) > While executing: ccl::*-2, in process Listener-1(7). > Type cmd-. to abort, cmd-\ for a list of available restarts. > Type :? for other options. Thanks Patrick
  11. I try to put a seed as an option in this function with a default value of nil or no seed , how may i add it as optional Thanks Patrick (defun patkaos ( seed lambda long ) (let ((res (cons seed nil)) (xn seed)) (dotimes (n long res) (setf res (cons (setf xn (* lambda xn (- 1 xn))) res))) (reverse res)))
×
×
  • Create New...