<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'><div dir='ltr'>
Hi everyone ...<div><br></div><div>Is there any way to interact and modify (or create a new script from scratch) the gh way of getting the harmonics ... ?</div><div><br></div><div>I am just wondering if there is a way to make my own gh function, trying to get more than 16 ghs, (let's say 32) ...</div><div><br></div><div>And Is fourier series and transforms with recursion the best way to make periodic functions other than sin ??</div><div>I came up with this but the CPU is tearing the animation down ...</div><div><br></div><div><p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma">;; tri.scm</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma">;; amp = 1, period = 2*pi</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma; min-height: 16.0px"><br></p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma">(define tri</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(lambda (t)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma; min-height: 16.0px"><br></p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(define pi</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>3.141592)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma; min-height: 16.0px"><br></p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(define sum </p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(lambda (n)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(cond</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>((= n 0)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>0)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(else</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(+</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(/</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(cos (* t n))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(expt n 2))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(+ </p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(expt -1 n)</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>-1))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(sum (- n 1)))))))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(+</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>1/2</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(* </p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(/ 2 (expt pi 2))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(sum 50))))) ;; 50 time evaluated…</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma; min-height: 16.0px"><br></p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma">;; testing the functionn …</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma; min-height: 16.0px"><br></p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma">(every-frame</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(with-state</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(display (tri (time)))</p>
<p style="margin: 0.0px 0.0px 0.0px 0.0px; font: 13.0px Tahoma"><span class="Apple-tab-span" style="white-space:pre"> </span>(newline)))</p></div><div><br></div><div> </div> </div></body>
</html>