Haiku Gallery
: x x 0.5 - 2 * ; : y y 0.5 - 2 * ; : d x x * y y * + ; y x atan2 2 * d 5 * + sin y x atan2 5 * d 2 * + sin 2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap -rot random .2 * + 4 * floor 3 / rot random .2 * + 4 * floor 3 / swap drop 2dup swap 2 * + 3 / random .2 * + 4 * floor 3 / swap
sibyl rand dither
Anonymous
'25 Jul 12
x 4 * floor 3 / y 4 * floor 3 / 2dup min swap
16 of 64 red Redux
Anonymous
'25 Jul 12
x 4 * floor 3 / y 4 * floor 3 / 2dup max swap
16 of 64 yelleo
Anonymous
'25 Jul 12
: c x 8 * floor y 8 * floor 8 * + ; c 4 mod 3 / c 4 / floor 4 mod 3 / c 16 / floor 4 mod 3 /
EGA
Anonymous
'25 Jul 12
x 4 * floor 3 / y 4 * floor 3 / 2dup + 2 / 4 * floor 3 / swap
16 of 64 Redux
Anonymous
'25 Jul 12
x 4 * floor 3 / y 4 * floor 3 / 2dup swap 2 * + 3 / 4 * floor 3 / swap
16 of 64
Anonymous
'25 Jul 12
x y t sin + sample
Untitled
Anonymous
'25 Jul 12
x y 20 pow - .6 swap - x 1 y - 20 pow - .6 swap - + 1 x - y 20 pow - .6 swap - 1 x - 1 y - 20 pow - .6 swap - + * 1 swap - dup 1 mod dup 2 mod
I Redux
Anonymous
'25 Jul 12
x y 20 pow - .6 < x 1 y - 20 pow - .6 < or 1 x - y 20 pow - .6 < 1 x - 1 y - 20 pow - .6 < or and 1 swap - dup dup
I
BradN
'25 Jul 12
: x x 0.5 - ; : y y 0.5 - ; y x atan2 x x * y y * + sqrt 10 * + t 10 mod - abs 1 - 1 mod y x atan2 2 * x x * y y * + sqrt 7 * + t 10 mod - abs 1 - 1 mod y x atan2 3 * x x * y y * + sqrt 5 * + t 10 mod - abs 1 - 1 mod over z* 2dup + swap
Blades Redux
Anonymous
'25 Jul 12
: x x 0.5 - ; : y y 0.5 - ; y x atan2 x x * y y * + sqrt 10 * + t 10 mod - abs 1 - 1 mod y x atan2 2 * x x * y y * + sqrt 7 * + t 10 mod - abs 1 - 1 mod y x atan2 3 * x x * y y * + sqrt 5 * + t 10 mod - abs 1 - 1 mod
Blades
BradN
'25 Jul 12
: x x 0.5 - ; : y y 0.5 - ; x 5 * 2 pow 1 mod 1 y - 5 * 2 pow 1 mod * x 5.2 * 2 pow 1 mod 1 y - 5.1 * 2 pow 1 mod * 2dup + 2 / swap rot y x .4 * + + -rot
Metropolis
BradN
'25 Jul 12
1 0 0
ryb 2 Redux
Anonymous
'25 Jul 12
: g 4 ; : yellow x g * floor y g * floor g * + g g * 1 - / ; : red x g * 1 mod ; : blue y g * 1 mod ; 1 blue 2 / - 1 red 2 / - 1 blue 4 / - * 1 red 2 / - 1 yellow - *
ryb grid
Anonymous
'25 Jul 12
1 y - 1 x - 1 y 2 / - * 1 x - 1 mx - *
ryb 2
Anonymous
'25 Jul 12
1 y 2 / - 1 x 2 / - 1 y 4 / - * 1 x 2 / - 1 mx - *
Untitled
Anonymous
'25 Jul 12
x .3 - sqrt y - t .1 / x + sin 2dup z* dup .7 *
Embeaten
Anonymous
'25 Jul 12
x y .1 mod sqrt / t .2 * sin + y 2dup z* dup .5 *
Blinds at Sunrise Redux
Anonymous
'25 Jul 12
x y .1 mod .2 pow / 1 swap / y 2dup z* dup .5 * sqrt
Blinds at Sunrise
BradN
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : ^2 dup * ; : z^2 over over z* ; : a^2+b^2 ( a b -> a^2+b^2 ) ^2 swap ^2 + ; : r a^2+b^2 ; : a/r,b/r ( a b r -> a/r b/r ) dup >r / swap r> / swap ; : a-b,a+b ( a b -> a-b a+b ) over over + >r - r> ; : 1/z ( a b -> [a-b]/r [a+b]/r, r=a^2+b^2 ) over over a^2+b^2 >r a-b,a+b r> a/r,b/r ; : zdup over over ; : z/ 1/z z* ; : riman ( z -> z/[1+z^2] ) over over z^2 1 0 z+ z/ ; x y riman t 3 * sin t 5 * sin z*
Hypno6
DarkstarAG
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : ^2 dup * ; : z^2 over over z* ; : a^2+b^2 ( a b -> a^2+b^2 ) ^2 swap ^2 + ; : a/r,b/r ( a b r -> a/r b/r ) dup >r / swap r> / swap ; : a-b,a+b ( a b -> a-b a+b ) over over + >r - r> ; : 1/z ( a b -> [a-b]/r [a+b]/r, r=a^2+b^2 ) over over a^2+b^2 >r a-b,a+b r> a/r,b/r ; : zdup over over ; : z/ 1/z z* ; : riman ( z -> 1/[1+z^2] ) z^2 1 0 z+ 1/z ; x y riman t 7 * sin t 3 * sin z*
Hypno5
DarkstarAG
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : f dup * tan dup * ; : r x x * y y * + sqrt 2 * f x * y * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno4
DarkstarAG
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : f >r r@ r> dup * 1 + / ; : r x f y f + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno3
DarkstarAG
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : f >r r@ dup * r> dup * 1 + / ; : r x f y f + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno2
DarkstarAG
'25 Jul 12
: x x .5 - 2 * ; : y y .5 - 2 * ; : r x x * y y * + sqrt 1 swap - 15 * + sin 1 + 2 / ; 1 t * r 3 t * r 5 t * r
Hypno1
DarkstarAG
'25 Jul 12
: x x .5 - ; : y y .4 - ; : r dup * swap dup * + sqrt ; : s x - swap y - 2dup r push atan2 0.2 * pop + 40 * sin ; t sin 6 / t cos 7 / s dup t sin 2 / t cos 3 / s + over t cos 4 / t sin 5 / s +
Moiré pattern generator #1 Redux
陳爽
'25 Jul 12
: x x .1 - ; : y y .1 - ; : r dup * swap dup * + sqrt ; : s x - swap y - 2dup r push atan2 0.2 * pop + 40 * sin ; t sin 1 + 6 / t cos 1 + 7 / s dup t sin 1 + 2 / t cos 1 + 3 / s + over t cos 1 + 4 / t sin 1 + 5 / s +
Moiré pattern generator #1 Redux
陳爽
'25 Jul 12
: x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : ring r < swap r > * ; .2 .1 ring .4 .3 ring
Two Rings
Vera
'25 Jul 12
: sq dup * ; : d sq swap sq + sqrt ; : s push - swap pop - 2dup d push atan2 0.01 * pop + 200 * sin ; .5 .5 x y s t sin abs t cos abs x y s + dup dup 72267043
Moiré pattern generator #1 Redux
Anonymous
'25 Jul 12
: sq dup * ; : d sq swap sq + sqrt ; : s push - swap pop - 2dup d push atan2 0.01 * pop + 200 * sin ; .5 .5 x y s t sin abs t cos abs x y s + dup dup
Moiré pattern generator #1 Redux
Anonymous
'25 Jul 12
: v dup 0.008 - x < Swap 0.008 + x > and ; : h dup 0.008 - y < Swap 0.008 + y > and ; T sin 0.5 * 0.5 + v T 10 + sin 0.5 * 0.5 + h or
2D isotropic harmonic oscillator
Frank Lin
'25 Jul 12
: x x 0.5 - 2 * ; : y y 0.5 - 2 * ; : d x x * y y * + ; y x atan2 2 * d 5 * + sin y x atan2 5 * d 2 * + sin 2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap
sibyl Redux
Anonymous
'25 Jul 12
: x x 0.5 - 2 * ; : y y 0.5 - 2 * ; : d x x * y y * + ; y x atan2 2 * d 5 * + sin y x atan2 5 * d 2 * + sin 2dup - abs -rot * dup 1.7 * swap rot .5 * swap over .5 * + swap d .1 + y x atan2 7 * sin .1 * + 20 pow 1 swap -
sibyl
BradN
'25 Jul 12
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 9 web * y +
streak Redux
Anonymous
'25 Jul 12
2 x 10 * sin y 10 * sin t 1.9 * sin * sin / cos * cos
MBM00001 Redux
1
'25 Jul 12
x t 0.01 * * y mod 2 * 0 1 x - t 0.05 * * 1 y - mod 2 *
Untitled
JIJ
'25 Jul 12
X 0 0
Untitled
Anonymous
'25 Jul 12
: 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 * 2 / 2 +
Golden bump Redux
Anonymous
'25 Jul 12
: 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 2 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
Golden bump Redux
Anonymous
'25 Jul 12
: l dup * swap dup * + sqrt ; : o rot swap l .5 - swap l .2 - ; : a t 2 pi * * ; : b t .25 pi * * ; : y y 2 * 1 - ; : x x 2 * 1 - ; : z y a sin * r@ a cos * + ; : y y a cos * r@ a sin * - ; : q x b cos * y b sin * - ; : w x b sin * y b cos * + ; : s q w z o 0 < 0.2 * + r> .12 + >r ; 0 0 -.65 >r s s s s s s 0 s s s s s r> drop
partially submerged donut
boomlinde
'25 Jul 12
Next