Csound Csound-dev Csound-tekno Search About

[Csnd] common lisp piano patch translated to csound

Date2026-04-11 19:57
FromStefan Thomas
Subject[Csnd] common lisp piano patch translated to csound
Hello everyone,
I’ve tried to port the piano patch from Common Lisp Music to Csound. The support from the AI Claude was indispensable for this major undertaking. Maybe you can make use of it, and there’s certainly room for improvement. It was very interesting and educational for me. You can find the result at https://ide.csound.com/editor/tIdTBCyZuVylrqXwGEQE
Best, 
Stefan
Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here
Date2026-04-11 21:23
From"Jeanette C." <000015cdd0ffa6cd-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound
Hi Stefan,
thank you for sharing this. I wonder, could you supply a direct download link 
for the code? From the Linux commandline I can't rreally access the 
interactive site and even on GUI systems, it's not ideal. No problem if you 
can't or would rather not. I just thought I'd ask, since this sounds very 
interesting.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Date2026-04-11 21:25
FromBrandon Hale
SubjectRe: [Csnd] common lisp piano patch translated to csound
I got you Jeanette:



-o piano.mp3


; ==============================================


sr = 44100
ksmps = 1
nchnls = 2
0dbfs = 1
gipantab ftgen 0,0,128,-7,0,21,0,87,1,20,1
#include "smithPiano.udo"


instr 1
   
    $default_pfields
    asig smithPiano ikeynum, iveloc, imastergain, ipedal, irelmargin, \
             idetfac, istiffac, ipedpres, ilongmode,  \
             ispinvfac, idecfac, inotedur
     ipan  tab_i ikeynum,gipantab
     asigL,asigR pan2 asig, ipan
     outs asigL,asigR
iSend  =         0.6                     ; reverb send amount (0 - 1)
             chnmix    asigL *iSend, "ReverbSendL"
             chnmix    asigR *iSend, "ReverbSendR"
endin

; reverb
instr reverb
     aInSigL      chnget    "ReverbSendL"   ; read audio from the named channel
     aInSigR      chnget    "ReverbSendR"   ; read audio from the named channel
    kroomsize    init      0.6          ; room size (range 0 to 1)
    kHFDamp      init      0.5           ; high freq. damping (range 0 to 1)
    aRvbL,aRvbR freeverb aInSigL,aInSigR, kroomsize,kHFDamp
    outs         aRvbL, aRvbR               ; send audio to outputs
                 chnclear  "ReverbSendL","ReverbSendR"   ; clear the named channel
endin



; ==============================================

#include "project.sco"





Apr 11, 2026 4:23:30 PM Jeanette C. <000015cdd0ffa6cd-dmarc-request@LISTSERV.HEANET.IE>:

> Hi Stefan,
> thank you for sharing this. I wonder, could you supply a direct download link for the code? From the Linux commandline I can't rreally access the interactive site and even on GUI systems, it's not ideal. No problem if you can't or would rather not. I just thought I'd ask, since this sounds very interesting.
> 
> Best wishes,
> 
> Jeanette
> 
> -- 
>   * PeerTube: https://makertube.net/@jeanette_c
>   * GitHub: https://github.com/jeanette-c
>   * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g
> 
> Csound mailing list
> Csound@listserv.heanet.ie
> https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
> Send bugs reports to
>         https://github.com/csound/csound/issues
> Discussions of bugs and features can be posted here

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Date2026-04-11 21:52
FromStefan Thomas
SubjectRe: [Csnd] common lisp piano patch translated to csound
Off course! You can find the file here:

Am Sa., 11. Apr. 2026 um 22:23 Uhr schrieb Jeanette C. <000015cdd0ffa6cd-dmarc-request@listserv.heanet.ie>:
Hi Stefan,
thank you for sharing this. I wonder, could you supply a direct download link
for the code? From the Linux commandline I can't rreally access the
interactive site and even on GUI systems, it's not ideal. No problem if you
can't or would rather not. I just thought I'd ask, since this sounds very
interesting.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here
Date2026-04-11 22:45
From"Jeanette C." <000015cdd0ffa6cd-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound
Hi Stefan,
many thanks! That worked. Hm, that sounds really nice. I once tried to work 
at somjething like that from first principles, from Julius O Smith's book, but 
never got even close.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Date2026-04-11 23:13
FromPartev Sarkissian <0000060b2ef1338e-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound

Jeanette, 

Which of the four Julius Smith books? 


-Partev 



On Saturday, April 11, 2026 at 10:45:06 PM GMT+1, Jeanette C. <000015cdd0ffa6cd-dmarc-request@listserv.heanet.ie> wrote:


Hi Stefan,
many thanks! That worked. Hm, that sounds really nice. I once tried to work
at something like that from first principles, from Julius O Smith's book, but
never got even close.

Best wishes,

Jeanette

--

Csound mailing list
Send bugs reports to
Discussions of bugs and features can be posted here
Date2026-04-11 23:17
From"Jeanette C." <000015cdd0ffa6cd-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound
Hi Partev,
sorry, couldn't reply to your message directly, because it somehow got lost on 
this account.

I used this book:
https://ccrma.stanford.edu/~jos/pasp/pasp.html
It's the physical modelling one. Good book and I love that it's online with 
LaTex formulae.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Date2026-04-11 23:35
FromPartev Sarkissian <0000060b2ef1338e-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound

Has a good section on digital waveguides and piano modeling. 
Hoped it was that book. Have all four myself. Really gets into it. 
Then there is the Spectral Modeling book, more frequency domain 
deep program stuff I'm still reviewing that. 

Not easy translating to Csound, but it can be done with some adapting. 
His book examples use C++ or Matlab, though these days he uses FAUST 
and Claude. 

I've dabbled at the Lossless Waveguide diagram and rendered it in Csound. 
Next is render it for pluck or hammer initialing. 
 
FAUST stuff is on his home page. https://ccrma.stanford.edu/~jos/aspf/

 Enjoy the explorations. 


-Partev 



On Saturday, April 11, 2026 at 11:17:35 PM GMT+1, Jeanette C. <000015cdd0ffa6cd-dmarc-request@listserv.heanet.ie> wrote:


Hi Partev,
sorry, couldn't reply to your message directly, because it somehow got lost on
this account.

I used this book:
It's the physical modelling one. Good book and I love that it's online with
LaTex formulae.

Best wishes,

Jeanette

--

Csound mailing list
Send bugs reports to
Discussions of bugs and features can be posted here
Date2026-04-12 02:52
From"Dr. Richard Boulanger" <00001600c4df7cd8-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound
Stefan,

Very nice.  Thanks for sharing.

- Dr.B


Dr. Richard Boulanger

Professor

Electronic Production and Design

Berklee College of Music

Professional Writing & Technology Division


https://richardboulanger.com



On Sat, Apr 11, 2026 at 2:58 PM Stefan Thomas <kontrapunktstefan@gmail.com> wrote:
Hello everyone,
I’ve tried to port the piano patch from Common Lisp Music to Csound. The support from the AI Claude was indispensable for this major undertaking. Maybe you can make use of it, and there’s certainly room for improvement. It was very interesting and educational for me. You can find the result at https://ide.csound.com/editor/tIdTBCyZuVylrqXwGEQE
Best, 
Stefan
Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here
Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here
Date2026-04-12 08:12
FromPete Goodeve
SubjectRe: [Csnd] common lisp piano patch translated to csound
AttachmentsNone  
Date2026-04-12 08:26
FromPete Goodeve
SubjectRe: [Csnd] common lisp piano patch translated to csound
AttachmentsNone  
Date2026-04-12 08:55
From"Jeanette C." <000015cdd0ffa6cd-dmarc-request@LISTSERV.HEANET.IE>
SubjectRe: [Csnd] common lisp piano patch translated to csound
Hi Pete,
neither website would do anything for me, since I work exclusively on the 
Linux commandline. It would be a question of accessibility anyway.

As for mega.nz on Linux there is a package called megacmd, which includes one 
program called mega-get:
mega-get 
Works like a treat! Just in case you ever come across it again.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Date2026-04-12 09:41
FromPete Goodeve
SubjectRe: [Csnd] common lisp piano patch translated to csound
AttachmentsNone  
Date2026-04-12 15:47
FromStefan Thomas
SubjectRe: [Csnd] common lisp piano patch translated to csound
Hello everybody,
You can access the files on the mega-websits just by downloading. Than You can see and edit them on Your machine.
Best, Stefan

Am So., 12. Apr. 2026 um 09:55 Uhr schrieb Jeanette C. <000015cdd0ffa6cd-dmarc-request@listserv.heanet.ie>:
Hi Pete,
neither website would do anything for me, since I work exclusively on the
Linux commandline. It would be a question of accessibility anyway.

As for mega.nz on Linux there is a package called megacmd, which includes one
program called mega-get:
mega-get <url>
Works like a treat! Just in case you ever come across it again.

Best wishes,

Jeanette

--
  * PeerTube: https://makertube.net/@jeanette_c
  * GitHub: https://github.com/jeanette-c
  * Youtube: https://www.youtube.com/channel/UCMS4rfGrTwz8W7jhC1Jnv7g

Csound mailing list
Csound@listserv.heanet.ie
https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND
Send bugs reports to
        https://github.com/csound/csound/issues
Discussions of bugs and features can be posted here
Csound mailing list Csound@listserv.heanet.ie https://listserv.heanet.ie/cgi-bin/wa?A0=CSOUND Send bugs reports to https://github.com/csound/csound/issues Discussions of bugs and features can be posted here