Haiku Gallery
: mx x 0.7 - 3 * ; : my y 0.5 - 3 * ; : sq dup * ; : c sq swap sq + 4 > ; 0 mx my : it 2dup push push c + pop pop 2dup z* mx my z+ ; it it it it it it it it it it it it it it it it it it it it drop drop 0.8 swap dup 20 / swap 20 / 1.2 * 1 min
mandelbroat colored
visualpaul
'25 Sep 17
: x x t sin y + * ; : r? ( a b x - f ) rot over < -rot > and ; : ? push 0.1 -0.1 z+ pop 4 * r? ; : r x 6 * 6 + sin ; : g x 6 * 5 + sin ; : b x 6 * 4 + sin ; r 0 1 y ? 3 4 y ? or * g 1 2 y ? 3 4 y ? or * b 2 3 y ? 3 4 y ? or *
Spectrum Redux
Anonymous
'25 Sep 17
: r? ( a b x - f ) rot over < -rot > and ; : ? push 0.1 -0.1 z+ pop 4 * r? ; : r x 6 * 6 + sin ; : g x 6 * 5 + sin ; : b x 6 * 4 + sin ; r 0 1 y ? 3 4 y ? or * g 1 2 y ? 3 4 y ? or * b 2 3 y ? 3 4 y ? or *
Spectrum
DarkstarAG
'25 Sep 17
: x1 t cos x .5 - * t sin y .5 - * - .5 + ; : y1 t sin x .5 - * t cos y .5 - * + .5 + ; : xc x1 .5 - ; : yc y1 .5 - ; : yt y1 .7 - ; : yb y1 .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .009 > swap .015 < and ; : lr x1 .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max dup dup
Duality Rotation
DarkstarAG
'25 Sep 17
: width 64 ; : tile 11 ; : =? width * floor tile mod = ; : ! y =? swap x =? and or ; : crane 0 3 8 ! 4 8 ! 5 8 ! 2 7 ! 6 7 ! 1 6 ! 7 6 ! 0 5 ! 8 5 ! 0 4 ! 8 4 ! 0 3 ! 8 3 ! 1 2 ! 7 2 ! 2 1 ! 6 1 ! 2 0 ! 3 0 ! 4 0 ! 5 0 ! 6 0 ! 2 5 ! 6 5 ! 4 4 ! 3 2 ! 5 2 ! 4 1 ! ; crane
Pixel Draw
DarkstarAG
'25 Sep 17
: c 4 * 1 mod .5 > ; x c y c <>
Checkers (31b)
DarkstarAG
'25 Sep 17
: s 25 * t 2 / sin 1 + * sin ; x y * 257 * s dup * x s y s * 0 <
Astral Checkers
DarkstarAG
'25 Sep 17
: xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .008 > swap .012 < and ; : lr x .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max dup dup
Duality Redux
Anonymous
'25 Sep 17
: ' 14.8 * 7.4 - ; : m t 6 + 2 * swap / dup floor - pi * 2 * x ' y ' atan2 - sin .7 > * + + ; : r x ' abs y ' abs + - abs .15 < dup ; 0 0 0 1 r -3.1 m 3 r 3.7 m 5 r -4.1 m 7 r 4.7 m 9 r -5.3 m 11 r 6.1 m 13 r -7.1 m + 2 / 1.3 ** dup .2 ** .2 +
Electro Snakes
Manwe
'25 Sep 17
x 35 * sin y 35 * sin t 30 * sin * * dup t 2 * tan * dup t 3 * tan *
Disco Redux
'25 Sep 17
x 25 * sin y 25 * sin * 0 <
Checker 27bytes
Vort
'25 Sep 17
: f dup floor - ; : z1 x - 3 * t sin * dup dup * * t tan * 0.02 + 0.52 + y swap - abs 0.02 < ; 0.3 z1 0.5 z1 0.7 z1
3 S Redux
Anonymous
'25 Sep 17
: board y 8 * floor x 8 * floor + 2 mod 0.5 + dup 0.5 * dup 0.6 * ; : circle ( l xp yp -- ) y - dup * swap x - dup * + sqrt swap < ; board : wp 0.125 * 0.0625 - swap 0.125 * 0.0625 - swap 0.03 -rot circle dup dup push push + rot pop + rot pop + rot ; : bp 0.125 * 0.0625 - swap 0.125 * 0.0625 - swap 0.03 -rot circle 1 swap - dup dup push push * rot pop * rot pop * rot ; 1 2 wp 2 2 wp 3 2 wp 4 2 wp 5 2 wp 6 2 wp 7 2 wp 8 2 wp 1 7 bp 2 7 bp 3 7 bp 4 7 bp 5 7 bp 6 7 bp 7 7 bp 8 7 bp
chessboard with pawns
kamikazejones
'25 Sep 17
: n 3 mod ceil ; x y 2 * 8 8 z* n dup rot n = x 16 * n rot + 4 = - 2 + 3 / dup 2 / dup 2 /
Qbert 90 bytes
Digimind
'25 Sep 17
: no 1 - abs ; : h sin 43758.5453 * dup floor - ; : b 2dup 2dup 311.7 127.1 z* h swap drop x - dup * -rot 183.3 269.5 z* h swap drop y - dup * + sqrt r> 2dup < dup 2dup >r >r >r >r swap t x + cos * t x + sin * r> * swap r> no * + -rot 2dup + r> * r> no r> * + >r rot >r 1 + ; : a 1 + 0 b b b drop ; 0 >r 999 >r -1 a a a drop r> 400 * cos r> h * 1.7 * dup dup
Rippled Darkness
Manwe + Protarget
'25 Sep 17
x 10 * t 3 * y * 2 * + sin 200 ** dup dup
Rotating Dots Field
DarkstarAG
'25 Sep 17
: d dup ; : px x t pi / d floor - 1.4 * 0.2 - ; : r - d * + sqrt 0.018 < ; : show px - d * y 0.5 - d * + sqrt 0.16 < y 0.5 - px - atan2 abs t 10 * cos abs 0.8 * > * px - d * y 0.58 r - x x 8 * floor 0.5 + 8 / - d * y 0.5 r px > * + d 0 ; 0.5 - d * 1 1
Pacman mini Remix
Anonymous
'25 Sep 17
: d y - dup * swap x - dup * + sqrt ; : z d swap < ; : dr t + pi 0.7 * * sin 1 + 2 / ; : f t * sin 1 + 2 / ; 0.2 0.7 f 0.4 dr z 0.3 2 f 2 dr z 0.25 3 f 3 dr z
Palomino Redux
kamikazejones
'25 Sep 17
: d y - dup * swap x - dup * + sqrt ; : z d swap < ; : dr t + pi 0.7 * * sin 1 + 2 / ; : a - abs 0.02 < ; : f t * sin 1 + 2 / ; : m 0.3 0.3 0.6 z 0.4 0.7 0.7 z 0.5 0.8 0.4 z ; 0.2 0.7 f 0.4 dr z 0.3 2 f 2 dr z 0.25 3 f 3 dr z
Palomino
kamikazejones
'25 Sep 17
: f dup floor - ; : z1 x - 3 * t sin * dup dup * * 0.02 + 0.52 + y swap - abs 0.02 < ; 0.3 z1 0.5 z1 0.7 z1
3 S
kamikazejones
'25 Sep 17
: ' .5 - 10 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : quad dup sq * ; : heart x ^ sq y ^ 3 * 2.5 1 - + 3 / x ^ abs sqrt - sq + 1 - ; : ish heart 0.0000001 < ; : noh heart 0.0000001 >= ; : dh heart abs ; noh -3 dh * exp * ish +
heart Redux
Anonymous
'25 Sep 17
: web push push x 0.1 + y 0.5 + * pop * sin 1 max x 0.1 + y 0.1 + * pop * sin 1 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
Disco Redux
Anonymous
'25 Sep 17
: r x t 5 / 1 mod + 1 x - * pi * 30 * sin 1 + 2 / ; : g y t 5 / 1 mod + y * pi * 30 * sin 1 + 2 / ; : b t 10 * 1 mod ; r g b
Simple Lattice
DarkstarAG
'25 Sep 17
: sq dup * ; : n 1 + 2 / ; : a1 3.12 ; : a2 5.23411 ; : b1 1 ; : b2 1 ; : d1 t pi 2 / + 10 / ; : d2 t 0.1 + 10 / ; : xt t 10 / + a1 * d1 + sin b1 * n ; : yt t 10 / + a2 * d2 + sin b2 * n ; : =? - abs 0.01 <= ; : near ( x1 y1 x2 y2 - k ) rot - sq -rot - sq + sqrt 0.8 / tan 1 - negate ; : k*c ( k r g b - kr kg kb ) push push over * swap pop over * swap pop * ; : c*k ( r g b k - kr kg kb ) swap over * push swap over * push * pop pop ; : bg 1 t 1 mod - 0 t ; : p dup push 10 / xt pop 10 / yt x y near * ; : lissajou 1 0 p 1 p 2 p 3 p 4 p 5 p 6 p 7 p 8 p 9 p 10 p bg k*c ; lissajou
Lissajou tg x
DarkstarAG
'25 Sep 17
: sq dup * ; : n 1 + 2 / ; : a1 3.12 ; : a2 5.23411 ; : b1 1 ; : b2 1 ; : d1 t pi 2 / + 10 / ; : d2 t 0.1 + 10 / ; : xt t + a1 * d1 + sin b1 * n ; : yt t + a2 * d2 + sin b2 * n ; : =? - abs 0.01 <= ; : near ( x1 y1 x2 y2 - k ) rot - sq -rot - sq + sqrt 0.01 / sqrt 1 - negate ; : k*c ( k r g b - kr kg kb ) push push over * swap pop over * swap pop * ; : c*k ( r g b k - kr kg kb ) swap over * push swap over * push * pop pop ; : bg 1 t 1 mod - 0 t ; : lissajou .0 xt .0 yt x y near .1 xt .1 yt x y near * .2 xt .2 yt x y near * .3 xt .3 yt x y near * .4 xt .4 yt x y near * .5 xt .5 yt x y near * .6 xt .6 yt x y near * t 30 * 1 mod sin 13 / bg k*c ; lissajou
Lissajou Flash
DarkstarAG
'25 Sep 17
: k 1 32 / ; : s 1 + swap 1 + ; : f s atan2 556677 * 1 mod ; : c dup k mod - ; : d c k + ; : a k / 1 mod ; : b a negate 1 + ; : sd swap dup ; : q1 c sd b swap c rot f * ; : q2 c sd a swap d rot f * ; : q3 d sd b swap c rot f * ; : q4 d sd a swap d rot f * ; : q12 2dup q1 -rot q2 + ; : q34 2dup q3 -rot q4 + ; : l 2dup dup b -rot q12 * -rot dup a -rot q34 * + ; x y l dup dup
Blurred noise
Vort
'25 Sep 17
: iii x y z* Sin ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Sep 17
: yy t 3 * 30 mod x 5 * + sin 10 / y sin + 1.5 * 0.2 - ; : r? ( x a b - [a<=x && x<=b]?1:0 ) rot swap over >= -rot <= * ; 1 yy 0.00 0.33 r? * 0 yy 0.33 0.66 r? * + 1 yy 0.66 1.00 r? * + 0 yy 0.00 0.33 r? * 0 yy 0.33 0.66 r? * + 1 yy 0.66 1.00 r? * + 0 yy 0.00 0.33 r? * 1 yy 0.33 0.66 r? * + 1 yy 0.66 1.00 r? * +
RU wave!
DarkstarAG
'25 Sep 17
: r? ( x a b - [a<=x && x<=b]?1:0 ) rot swap over >= -rot <= * ; 1 y 0.00 0.33 r? * 0 y 0.33 0.66 r? * + 1 y 0.66 1.00 r? * + 0 y 0.00 0.33 r? * 0 y 0.33 0.66 r? * + 1 y 0.66 1.00 r? * + 0 y 0.00 0.33 r? * 1 y 0.33 0.66 r? * + 1 y 0.6 1.0 r? * +
RU
DarkstarAG
'25 Sep 17
: s - 2 ** ; : d y s swap x s + sqrt >r ; : h 158 t 100 mod 100 / + 2000 / * tan tan tan 1 mod ; : r dup 1 + swap h swap ; : 8r r r r r r r r r ; : 32r 8r 8r 8r 8r ; : 4d d d d d ; : 16d 4d 4d 4d 4d ; : 4p r> r> r> r> ; : 16p 4p 4p 4p 4p ; : 4m min min min min ; : 16m 4m 4m 4m 4m ; : k*c ( k r g b - kr kg kb ) push push over * swap pop over * swap pop * ; 1 32r drop 16d 16p 1 16m 0.5 swap - 2 * 1.0 0.5 0.7 k*c
Cellular Moving Bubbles
DarkstarAG
'25 Sep 17
: k t sin 1 + 2 * random + ; : mx x random / ; : my y 0.5 - k * ; mx mx * my log + 0.0001 <
some log shit
noob
'25 Sep 17
: h sin 43758.5453 * dup floor - ; : b 2dup 2dup 183.3 * swap 269.5 * + h -rot 311.7 * swap 127.1 * + h y - dup * swap x - dup * + sqrt r> 2dup > dup 1 - abs >r >r >r t x - cos * t y - sin * r> r> * swap r> * + >r 1 + ; : a 1 + 0 b b b drop ; 1000 >r -1 a a a a drop r> 256 * cos dup 7 ** over .2 **
LSD is evil
Manwe
'25 Sep 17
: web push push x t 3 * sin + 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 t 7 * cos + + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'25 Sep 17
: a t sin abs ; a dup dup
black to white
funkti0n
'25 Sep 17
x .3 t mod * sin
Untitled Redux
Anonymous
'25 Sep 17
x 3 t * sin
Untitled
Anonymous
'25 Sep 17
x y * t tan abs * 1 t cos x / * 1 t cos y / *
Untitled
Anonymous
'25 Sep 17
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 0 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'25 Sep 17
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .85 + .4 r 40 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 5 /
Golden bump Redux
Anonymous
'25 Sep 17
: square dup * ; : dist square swap square + sqrt 0.05 * ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push t 10 / 1 mod sin 2 * * atan2 sin 0.5 * pop + t * 10 / cos ; x y spiral dup dup
Sprials evolution
DarkstarAG
'25 Sep 17
Next