Concatenative topics
Concatenative meta
Other languages
Meta
http://viznut.fi/en/ is a demoscene artist who found the following bitart pattern that looks like a block of birds flying rightward:
abs(((x + y) & (x - y)) % 24) > 9
@viznut ( -> ) ( theme ) #0f7f #08 DEO2k INC INC DEO2k INC INC DEO2 ( window ) #0100 #22 DEO2k INC INC DEO2 #0000 &>x ( -- ) DUP #29 DEO #0000 &>y ( -- ) DUP #2b DEO ( x y + ) ADD2k STH2 ( x y - ) SUB2k STH2r ( &24 % ) AND2 #0018 DIV2k MUL2 SUB2 ( 9 > ) #0009 GTH2 #2e DEO INC2 DUP ?&>y POP2 INC2 DUP ?&>x POP2 BRK
USING: accessors byte-vectors images images.viewer kernel math ranges sequences sequences.deep ; IN: capital.viznut : bitbash ( -- bits ) 256 [1..b] dup [ swap [ + ] [ - ] 2bi bitand 24 mod abs 9 > 255 0 ? ] cartesian-map flatten >byte-vector ; : viznut ( -- image ) <image> { 256 256 } >>dim bitbash >>bitmap L >>component-order ubyte-components >>component-type ; ! Run inside the listener: viznut image.
This revision created on Sun, 10 Mar 2024 16:52:12 by neauoire