steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove use of image boa from noise

db4
Doug Coleman 2009-06-10 16:05:17 -04:00
parent ae034f1f09
commit b8b0e11492
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/noise/noise.factor
View File

@ -1,8 +1,9 @@
USING: byte-arrays combinators fry images kernel locals math USING: accessors arrays byte-arrays combinators
combinators.short-circuit fry hints images kernel locals math
math.affine-transforms math.functions math.order math.affine-transforms math.functions math.order
math.polynomials math.vectors random random.mersenne-twister math.polynomials math.private math.vectors random
sequences sequences.product hints arrays sequences.private random.mersenne-twister sequences sequences.private
combinators.short-circuit math.private ; sequences.product ;
IN: noise IN: noise
: <perlin-noise-table> ( -- table ) : <perlin-noise-table> ( -- table )
@ -60,7 +61,10 @@ HINTS: hashes { byte-array fixnum fixnum fixnum } ;
[ 255.0 * >fixnum ] B{ } map-as ; [ 255.0 * >fixnum ] B{ } map-as ;
: >image ( bytes dim -- image ) : >image ( bytes dim -- image )
swap [ L f ] dip image boa ; image new
swap >>dim
swap >>bitmap
L >>component-order ;
:: perlin-noise-unsafe ( table point -- value ) :: perlin-noise-unsafe ( table point -- value )
point unit-cube :> cube point unit-cube :> cube