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

use unsigned<->signed unpacking for normal-noise because SSE doesn't have an unsigned->unsigned pack instruction

db4
Joe Groff 2009-10-16 22:03:55 -05:00
parent 551b1aca8f
commit 2f8fec9a43
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/noise/noise.factor
View File

@ -38,10 +38,10 @@ CONSTANT: normal-noise-count 4
TYPED: normal-noise-map ( seed: integer dim -- bytes ) TYPED: normal-noise-map ( seed: integer dim -- bytes )
'[ _ product normal-noise-count * random-bytes >byte-array ] with-seed '[ _ product normal-noise-count * random-bytes >byte-array ] with-seed
[ [
[ ushort-8{ 0 0 0 0 0 0 0 0 } ushort-8{ 0 0 0 0 0 0 0 0 } ] normal-noise-count ndip [ short-8{ 0 0 0 0 0 0 0 0 } short-8{ 0 0 0 0 0 0 0 0 } ] normal-noise-count ndip
[ uchar-16 ushort-8 vconvert [ v+ ] bi-curry@ bi* ] normal-noise-count napply [ uchar-16 short-8 vconvert [ v+ ] bi-curry@ bi* ] normal-noise-count napply
[ normal-noise-pow vrshift ] bi@ [ normal-noise-pow vrshift ] bi@
ushort-8 uchar-16 vconvert short-8 uchar-16 vconvert
] data-map( uchar-16[normal-noise-count] -- uchar-16 ) ; inline ] data-map( uchar-16[normal-noise-count] -- uchar-16 ) ; inline
: normal-noise-image ( seed dim -- image ) : normal-noise-image ( seed dim -- image )