Concatenative topics
Concatenative meta
Other languages
Meta
Viznut 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 #00 &>x ( -- ) DUP #29 DEO #00 &>y ( -- ) DUP #2b DEO ( x + y ) ADDk STH ( y - x ) SUBk STHr ( & 24 % ) AND #18 DIVk MUL SUB ( 9 > ) #09 GTH #2e DEO INC DUP ?&>y POP INC DUP ?&>x POP 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 06:02:46 by CapitalEx (fix imports)