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

noise-ui, higher fps (x3)

db4
Jon Harper 2012-08-02 04:25:42 +02:00 committed by John Benediktsson
parent 8030432541
commit 858e9210d8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/rosetta-code/image-noise/image-noise.factor
View File

@ -5,8 +5,15 @@ math.parser models models.arrow random sequences threads timers
ui ui.gadgets ui.gadgets.labels ui.gadgets.packs ; ui ui.gadgets ui.gadgets.labels ui.gadgets.packs ;
IN: noise-ui IN: noise-ui
: bits>pixels ( bits -- bits' pixels )
[ -1 shift ] [ 1 bitand ] bi 255 * ; inline
: ?generate-more-bits ( a bits -- a bits' )
over 32 mod zero? [ drop random-32 ] when ; inline
: <random-images-bytes> ( dim -- bytes ) : <random-images-bytes> ( dim -- bytes )
product 2 random-integers [ zero? 0 255 ? ] B{ } map-as ; [ 0 0 ] dip product [
?generate-more-bits
[ 1 + ] [ bits>pixels ] bi*
] B{ } replicate-as 2nip ;
: <random-bw-image> ( -- image ) : <random-bw-image> ( -- image )
<image> <image>