<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Thanks Henrich,<div>it is exactly what i need for solve my problem.</div><div><br></div><div>thank you very much</div><div><br></div><div><br></div><div>stf</div><div><br><div><div>Le 2 déc. 2011 à 22:21, Heinrich Taube a écrit :</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>not sure what you are trying to do but this plays a note and then <br>bends it. bend values are just midi magic numbers: 8192 is no bend, <br>16383 is max bend 0 is min bend. what a device does to respond to bend <br>values depends on each device -- max might be a whole step or an <br>octave, for example.<br><br>(define (play-and-bend num dur)<br> (process repeat num<br> do<br> (mp:midi :key (between 60 90) :dur 4 :amp .8 :chan 0)<br> (loop for i from 1 to 5<br> do<br> (mp:bend :time (* .1 i)<br> :val (discrete i 1 5 8192 16383)<br> :chan 0))<br> (mp:bend :time dur :val 8192) ; reset to no bend at end <br>of note<br> (wait dur)))<br><br>(sprout (play-and-bend 1 2) )<br><br><br>On Dec 2, 2011, at 6:57 AM, stephane boussuge wrote:<br><br><blockquote type="cite">Hi,<br></blockquote><blockquote type="cite">i'm trying to do some glissandi but with no success, here's my <br></blockquote><blockquote type="cite">attempt, could you help me please ?<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">;;; -*- syntax: Lisp; font-size: 16; theme: "Emacs"; -*-<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(define (gliss1 pc oct pbstrt pbend dur chan)<br></blockquote><blockquote type="cite"> (process repeat 1<br></blockquote><blockquote type="cite"> do<br></blockquote><blockquote type="cite"> (send "mp:midi" :key (+ pc oct) :dur dur :chan chan)<br></blockquote><blockquote type="cite"> (process for i from pbstrt to pbend<br></blockquote><blockquote type="cite"> do<br></blockquote><blockquote type="cite"> (send "mp:bend" :val i :chan chan)<br></blockquote><blockquote type="cite"> (wait (/ dur (- pbstrt pbend)))<br></blockquote><blockquote type="cite"> )<br></blockquote><blockquote type="cite"> ))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(sprout (gliss1 0 72 8000 0 12 0))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">;;une autre maniere de le faire:<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(define (glis pbstrt pbend dur chan)<br></blockquote><blockquote type="cite"> (process for i from pbstrt to pbend<br></blockquote><blockquote type="cite"> do<br></blockquote><blockquote type="cite"> (send "mp:bend" :val i :chan chan)<br></blockquote><blockquote type="cite"> (wait (/ dur (- pbstrt pbend)))<br></blockquote><blockquote type="cite"> ))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(define (gliss2 pc oct pbstrt pbend dur chan)<br></blockquote><blockquote type="cite"> (process repeat 1<br></blockquote><blockquote type="cite"> with p1 = pbstrt<br></blockquote><blockquote type="cite"> with p2 = pbend<br></blockquote><blockquote type="cite"> do<br></blockquote><blockquote type="cite"> (send "mp:midi" :key (+ pc oct) :dur dur :chan chan)<br></blockquote><blockquote type="cite"> (sprout (glis p1 p2 dur chan))<br></blockquote><blockquote type="cite"> ))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(sprout (gliss2 0 60 8000 0 12 0))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(define (glistest pbstrt pbend dur chan)<br></blockquote><blockquote type="cite"> (process for i from pbstrt to pbend<br></blockquote><blockquote type="cite"> do<br></blockquote><blockquote type="cite"> (print i)<br></blockquote><blockquote type="cite"> (wait (/ dur (- pbstrt pbend)))<br></blockquote><blockquote type="cite"> ))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">(sprout (glistest 1000 0 12 0))<br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">Stéphane Boussuge<br></blockquote><blockquote type="cite"><a href="mailto:s_boussuge@yahoo.fr">s_boussuge@yahoo.fr</a><br></blockquote><blockquote type="cite"><a href="http://www.stephaneboussuge.blogspot.com">www.stephaneboussuge.blogspot.com</a><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">_______________________________________________<br></blockquote><blockquote type="cite">Cmdist mailing list<br></blockquote><blockquote type="cite"><a href="mailto:Cmdist@ccrma.stanford.edu">Cmdist@ccrma.stanford.edu</a><br></blockquote><blockquote type="cite"><a href="http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist">http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist</a><br></blockquote><br><br>_______________________________________________<br>Cmdist mailing list<br><a href="mailto:Cmdist@ccrma.stanford.edu">Cmdist@ccrma.stanford.edu</a><br>http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist<br></div></blockquote></div><br><div apple-content-edited="true">
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>Stéphane Boussuge</div><div><a href="mailto:s_boussuge@yahoo.fr">s_boussuge@yahoo.fr</a></div><div><a href="http://www.stephaneboussuge.blogspot.com">www.stephaneboussuge.blogspot.com</a></div><div><br></div><div><br></div><div><br></div><div><br></div></div></span><br class="Apple-interchange-newline"></div></span><br class="Apple-interchange-newline"></div></span><br class="Apple-interchange-newline"></span><br class="Apple-interchange-newline">
</div>
<br></div></body></html>