Haiku Gallery
: peek pop dup push ; : pos dup push t + sin 0.2 * 0.5 + peek t + pi * sin 0.2 * + peek t + 1.1 * cos 0.2 * 0.5 + pop t + 3 * cos 0.2 * + ; : p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : b / floor 2 mod ; : m 64 * ; : a dup rot swap b -rot b + abs 2 mod ; : w dup x m y m rot a * + ; : dist y - dup * swap x - dup * + sqrt ; : clrball dist 0.08 > * ; : clrplane dist 0.07 <= ; : 2peek pop pop 2dup push push ; : drawball pos push push 2peek clrball rot 2peek clrball rot 2peek clrball rot 2peek clrplane 0.5 * + rot 2peek clrplane 1.0 * + rot pop pop clrplane 0 * + rot ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 200 / 0.5 + t 10 / + col 0.5 * 0.5 + rot 0.5 * 0.5 + rot 0.5 * 0.5 + rot 0 drawball 0.3 drawball 0.6 drawball 0.9 drawball
vector balls
boomlinde
'25 Jul 15
: dist x 0.5 - dup * y 0.5 - dup * + sqrt t 0.5 * sin 16 * * ; : x' t dist + cos x 0.5 - * t dist + sin y 0.5 - * + ; : y' t dist + cos y 0.5 - * t dist + sin x 0.5 - * - ; x' 12 * 3 mod floor 1 <> y' 12 * 3 mod floor 1 <> and 0 over
twister
boomlinde
'25 Jul 15
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : s 0.5 - * ; : z t sin 5 * 7 + * ; : b / floor 2 mod ; : w dup t cos x s t sin y s + z 64 * t cos y s t sin x s - z 64 * rot dup rot swap b -rot b + abs 2 mod * + ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 256 / t + col
rotozoomer
boomlinde
'25 Jul 15
: x' t cos x 0.5 - * t sin y 0.5 - * + ; : y' t cos y 0.5 - * t sin x 0.5 - * - ; x' 9 t sin 6 * + * 3 mod floor 1 = y' 9 t sin 6 * + * 3 mod floor 1 = and
rotation
boomlinde
'25 Jul 15
: b / floor 2 mod ; : m 64 t 64 * 64 mod + * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w 1 y - 0.5 * x + 0.5 + m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski zoom
boomlinde
'25 Jul 15
: d t 2 * 2 mod 1 + / ; : v d * floor 3 mod 1 = ; : l dup dup x v swap y v and swap 3 * ; 0 3 l l l l l drop + + + +
sierpinski carpet zoom
boomlinde
'25 Jul 15
: v * floor 3 mod 1 = ; : l dup dup x v swap y v and swap 3 * ; 0 3 l l l l l drop + + + +
sierpinski carpet
boomlinde
'25 Jul 15
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; t sin 1 + 2 / x - t 1.6 * cos 1 + 2 / y - atan2 pi / t 1.9 * sin 1 + 2 / x - t 1.3 * cos 1 + 2 / y - atan2 pi / + 2 * t 0.9 * sin 5 * + col
spinner
boomlinde
'25 Jul 15
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : dist y - dup * swap x - dup * + sqrt ; t sin 1 + 2 / t 1.6 * cos 1 + 2 / dist t 1.9 * sin 1 + 2 / t 1.3 * cos 1 + 2 / dist t 1.2 * sin 1 + 2 / t 1.8 * cos 1 + 2 / dist + + t 5 / sin * 5 + 5 * tan cos col
flicker
boomlinde
'25 Jul 15
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; : x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : b / floor 2 mod ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot dup rot swap b -rot b + abs 2 mod * + ; 0 4 w 8 w 16 w 32 w 64 w 128 w 256 / t + col dist 2 * * swap dist 2 * * rot dist 2 * *
xor tunnel color
Anonymous
'25 Jul 15
: p 2 * pi * cos 0.5 * 0.5 + ; : col dup dup p swap 1 3 / + p rot 2 3 / + p ; x col
Rainbow
boomlinde
'25 Jul 15
: col dup 1 3 / pi * cos ; x col
Untitled
Anonymous
'25 Jul 15
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : b / floor 2 mod ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot dup rot swap b -rot b + abs 2 mod * + ; 0 4 w 8 w 16 w 32 w 64 w 128 w 256 / dist * dup dup
xor tunnel shorter
Anonymous
'25 Jul 15
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
xor tunnel dark
boomlinde
'25 Jul 15
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dup dup
xor tunnel
boomlinde
'25 Jul 15
: b / floor 2 mod 0.5 * ; : w 1 y - 0.5 * x + 0.5 + 256 * y 256 * rot dup rot swap b -rot b + floor + ; 0 2 w 4 w 8 w 16 w 32 w 64 w 128 w
sierpinski tweet
boomlinde
'25 Jul 15
: b / floor 2 mod ; : m 64 * ; : a dup rot swap b -rot b + abs 2 mod ; : w dup x m y m rot a * + ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 64 /
xor texture tweet size
boomlinde
'25 Jul 15
: xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x m y m rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dup dup
xor texture
boomlinde
'25 Jul 15
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w 1 y - 0.5 * x + 0.5 + m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski Redux
boomlinde
'25 Jul 15
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
sierpinski
boomlinde
'25 Jul 15
: z t sin 2 + ; 0 x t sin + z * 1 mod y t cos + z * 1 mod mod 4 * dup
card zoom
boomlinde
'25 Jul 15
: k 0.5 - ; : s k dup * ; : dist x s y s + sqrt ; 0 dist sqrt sqrt sqrt sqrt sqrt 400 * t 10 * - sin x k y k atan2 dist 10 * sin 0.1 * + t + 10 * sin 5 * *
tunnel
boomlinde
'25 Jul 15
: s 0.5 - dup * ; : dist x s y s + sqrt ; 1 x 0.5 - y 0.5 - atan2 dist t 2 * sin 8 * * + 5 * sin 0.5 + dup
polka spiral
boomlinde
'25 Jul 15
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; x 0.5 - y 0.5 - atan2 + dist 20 * sin
Untitled
Anonymous
'25 Jul 15
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin
BACTERIA Redux
Anonymous
'25 Jul 15
: s dup * ; : a x y 10 * 2 t * + sin 0.1 2 t * sin * * + ; : b dup a < swap 0.15 + a > * ; 0.5 b 0.6 b 0.4 b
rainbow
boomlinde
'25 Jul 15
: q dup * ; : i y + swap x + q swap q + sqrt 50 * sin ; : o -0.5 * 0.5 - ; : p t cos o ; : g t sin o ; p g i g p i + 1 + floor dup dup
chess interference
boomlinde
'25 Jul 15
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + t sin * t 127 * sin + x y t + sin 0.02 * t 2.5 * + + sin 11 * sin y x + sin 15 * cos + t 1.7 * sin * t 157 * sin + x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos + t 2.9 * sin * t 100 * sin +
rave
boomlinde
'25 Jul 15
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + t sin * x y t + sin 0.02 * t 1.5 * + + sin 11 * sin y x + sin 15 * cos + t 1.7 * sin * x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos + t 2.9 * sin *
disco Redux
boomlinde
'25 Jul 15
x y t + sin 0.01 * t + + sin 20 * sin y x + sin 20 * cos + x y t + sin 0.02 * t 1.5 * + + sin 11 * sin y x + sin 15 * cos + x y t + sin 0.02 * t 0.3 * + + sin 11 * sin y x + sin 15 * cos +
disco
boomlinde
'25 Jul 15
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin dup 0.05 + floor swap dup 0.05 + floor
BACTERIA
boomlinde
'25 Jul 15
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; 0 dist 100 * x 0.5 - y 0.5 - atan2 20 * sin 3 * + t -50 * + sin
flower Redux
boomlinde
'25 Jul 15
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; 0 dist 100 * x 0.5 - y 0.5 - atan2 20 * sin 3 * + sin
flower
boomlinde
'25 Jul 15
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ;0 x y spiral
Untitled
Anonymous
'25 Jul 15
: z x y ; : q z / y x ; q drop q drop drop
Lime Horizon
Lyn
'25 Jul 15
: z x y ; : q z / z - ; q / q * q
sunset
Lyn
'25 Jul 15
x 0.2 - 10 * floor 234 / y * 30 * sin x 0.2 - 10 * floor 2 / x * 30 * sin x 0.34 - 20 * floor 2 / y * 354 * sin
||||||||
Anon94
'25 Jul 15
: b x * cos ; : e y * sin / log cos ; 200 b 16 e 135 b 15 e 108 b 1000 e 23 b 342 e
REDUX-XXX
Anon94
'25 Jul 15
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.30 * pop + 5000 * sin ; x y spiral x y spiral x y spiral
Sprial with sprials
Anon94
'25 Jul 15
: scale dup y * swap x / ; : tooth scale 2 * 1 mod swap 10 * 4 mod + 2 / ; 8 tooth 100 tooth 4 tooth
Glitchcore
anon94
'25 Jul 15
Next