<div dir="ltr"><pre style="margin-top:0px;margin-bottom:0px;padding:0px;border:0px;font-size:12px;font-family:Consolas,'Liberation Mono',Courier,monospace;color:rgb(51,51,51);line-height:18px"><div class="" id="LC48" style="margin:0px;padding:0px 0px 0px 10px;border:0px">
<span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold">In functions such as</span></div><div class="" id="LC48" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold"><br>
</span></div><div class="" id="LC48" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold">(define </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(153,0,0);font-weight:bold">mix</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">a</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">b</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span></div>
<div class="" id="LC49" style="margin:0px;padding:0px 0px 0px 10px;border:0px"> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">+ </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">- </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">1</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">a</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">b</span><span class="" style="margin:0px;padding:0px;border:0px">)))</span></div>
<div class="" id="LC50" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><br></div><div class="" id="LC51" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold">define </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(153,0,0);font-weight:bold">fade</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span></div>
<div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">+ </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">- </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">6</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">15</span><span class="" style="margin:0px;padding:0px;border:0px">))</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">10</span><span class="" style="margin:0px;padding:0px;border:0px">)))</span></div>
<div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px"><br></span></div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px">
use floating point constants:</div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><br></div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><pre style="margin-top:0px;margin-bottom:0px;padding:0px;border:0px;font-size:12px;font-family:Consolas,'Liberation Mono',Courier,monospace;line-height:18px">
<div class="" id="LC48" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold">(define </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(153,0,0);font-weight:bold">mix</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">a</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">b</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span></div>
<div class="" id="LC49" style="margin:0px;padding:0px 0px 0px 10px;border:0px"> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">+ </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">- </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">1.</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">a</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">b</span><span class="" style="margin:0px;padding:0px;border:0px">)))</span></div>
<div class="" id="LC50" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><br></div><div class="" id="LC51" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;font-weight:bold">define </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(153,0,0);font-weight:bold">fade</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span><span class="" style="margin:0px;padding:0px;border:0px">)</span></div>
<div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">+ </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">- </span><span class="" style="margin:0px;padding:0px;border:0px">(</span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,134,179)">* </span><span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,128,128)">t</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">6.</span><span class="" style="margin:0px;padding:0px;border:0px">)</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">15.</span><span class="" style="margin:0px;padding:0px;border:0px">))</span> <span class="" style="margin:0px;padding:0px;border:0px;color:rgb(0,153,153)">10.</span><span class="" style="margin:0px;padding:0px;border:0px">)))</span></div>
<div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><br></div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px">/Jens Axel</div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px">
<br></div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px"><br></span></div><div><span class="" style="margin:0px;padding:0px;border:0px"><br>
</span></div></pre></div><div class="" id="LC52" style="margin:0px;padding:0px 0px 0px 10px;border:0px"><span class="" style="margin:0px;padding:0px;border:0px"><br></span></div></pre></div><div class="gmail_extra"><br><br>
<div class="gmail_quote">2013/4/11 JP Verkamp <span dir="ltr"><<a href="mailto:racket@jverkamp.com" target="_blank">racket@jverkamp.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Partially out of curiosity and partially in my ongoing quest to try out game development in Racket, I've implemented a pure Racket version each for Perlin and simplex noise. It's pretty much a direct translation of the code from this PDF, originally in C:<div>
<a href="http://webstaff.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf" target="_blank">http://webstaff.itn.liu.se/~stegu/simplexnoise/simplexnoise.pdf</a></div><div><br></div><div><div>Here is a blog post with some pretty pictures but little actual code:</div>
<div><a href="http://blog.jverkamp.com/2013/04/11/perlin-and-simplex-noise-in-racket/" target="_blank">http://blog.jverkamp.com/2013/04/11/perlin-and-simplex-noise-in-racket/</a><br></div><div><br></div><div>Here's just the code:</div>
<div><a href="https://github.com/jpverkamp/noise" target="_blank">https://github.com/jpverkamp/noise</a></div></div><div><br></div><div>It's definitely not pure / functional, but I think it's relatively easy to read (or as easy as noise functions can be).<br>
</div><div><br></div><div>What I'm wondering though is if someone with a bit more experience in optimizing Racket code could take a look at it. I know that it should be possible to get a bit more speed; it's almost all number crunching, mostly floating point math but with a few integer only bits (those are causing the most trouble...). At the moment, I can think of at least three routes for optimization although I'm probably missing something:</div>
<div><br></div><div>- using (racket/floum) -- I've tried just blindly replacing * + - / with fl* fl+ fl- fl/ (and fixing the numerous errors that crop up), but it doesn't seem to result in much of a speedup at all. I think that this is a combination of still requiring runtime checks on the values and having to convert between exact/inexact, but I'm not sure. </div>
<div><br></div><div>- using Typed Racket -- Theoretically this will allow the compiler to choose the correct functions as above and avoid having to do any runtime checks at all, although I'm not sure how much of that has been implemented.</div>
<div><br></div><div>- using the FFI to bind to a native C interface -- This would probably be the fastest in the end, but I'd like to do as much in pure Racket as I can for the time being (although it would be interesting to learn how to do this). Not to mention that a part of me rejects that it wouldn't be possible for Racket to at least match C code in a perfect world. </div>
<div><br></div><div>Right now the code takes about 1-2 seconds to generate a 256x256 image. Optimally, that should run in near realtime, although I would be happy just getting it into the tens or even hundreds of ms range. A part of that time is turning the noise into a color (for testing), but even without that it still takes about 1 second on my machine for simplex noise.</div>
<div><br></div><div>Thanks for any feedback!</div><span class="HOEnZb"><font color="#888888"><div><br></div><div>JP</div><div><div><br></div><div><br></div></div></font></span></div>
<br>____________________<br>
Racket Users list:<br>
<a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>-- <br>Jens Axel Søgaard<br><br>
</div>