Haiku Gallery
22
Untitled
Anonymous
'12 Jan 23
: x' x 0.5 - 1.6 * ; : y' y 0.5 - 1.6 * ; : len dup * swap dup * + sqrt ; : polar x' y' atan2 x' y' len ; polar 130 * 100 swap - sqrt + 3 + cos .4 + polar 132 * 102 swap - sqrt + 3.1 + cos .4 + polar 134 * 104 swap - sqrt + 3.2 + cos .4 +
nh2
Anonymous
'12 Jan 13
: 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 ; x y spiral x y spiral x y spiral
Untitled
Anonymous
'12 Jan 02
: web push push x 0.5 + y 0.9 + * 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 7 web * y +
streak Redux
Anonymous
'12 Jan 01
: bar * sin + ; : barx x bar ; : bary y bar ; : foo t sin 20 barx 3 bary 5 barx t sin 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo \ 3 foo
electrified larva Redux Redux
Anonymous
'12 Jan 01
: iii x y z* Sin ; x t * x y - iii exp y iii
light drop Redux
Anonymous
'12 Jan 01
: frac dup floor - ; : a * sin + ; : b sin t swap 5 a y 9 a x 7 a frac pi * sin ; x b y b t 2 / b
color flow
Cedric
'11 Dec 31
: x' x 0.5 - 2 * ; : y' y 0.5 - 2 * ; : len dup * swap dup * + sqrt ; : polar x' y' atan2 x' y' len ; polar swap 11 * + sin polar 10 * + cos polar 30 * + negate sin t - x 0.5 - dup * y 0.5 - dup * + 0.25 / 1 swap -
falling icon Redux
Anonymous
'11 Dec 30
: x y t 50 / sin + ; : foil x 31 * Sin y 33 * sin z* ; y t cos + X foil y sin
Row
Anonymous
'11 Dec 30
square
Untitled
Anonymous
'11 Dec 30
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle atan2 dup 0.25 * sunangle 3.141597 /
Dawn Redux
Stainless
'11 Dec 27
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle - dup 0.25 * sunangle 0 max
Dawn
Stainless
'11 Dec 27
: bar * sin + ; : barx x bar ; : bary y bar ; : foo t sin 17 barx 3 bary 5 barx t sin 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo \ 3 foo
electrified larva Redux
Anonymous
'11 Dec 03
: x x t 3 / sin + ; : y y t 7 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli round
Anonymous
'11 Nov 18
: x x t 3 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli Redux
Anonymous
'11 Nov 18
t sin 4 * floor 4 / 1 mod t sin 3 * floor 3 / 1 mod t 3 * floor 3 / 1 mod dup push over push + + x + pop pop
Solid
BradN
'11 Nov 16
: d t over * floor swap / ; 3 d .7 d + .11 d + .13 d + 1 mod x + x 0 = x 1 = or * x y .2 - * 5 * sin + x .3 + t 10 * * sin y / y .4 + t 11 * * sin x /
Arecibo
BradN
'11 Nov 16
: x t sin 0.2 * x + ; : y t .3 * sin 0.2 * y + ; : 2square 2 * dup * ; t floor 5 / 1 mod t 3.1 * floor 3 / 1 mod + 1 mod t 11 / 1 mod + x 0.4 - 2square y 0.7 - 2square + x 0.6 - 2square y 0.2 - 2square + min 1 min * x 2 / + x .3 - over / y .2 - / sin over 2dup z*
Ingress
BradN
'11 Nov 16
t 4 / 11 mod floor t 8 / 13 mod floor + t 7 / 17 mod floor + 10 mod 10 / 1 x - * t 3 * 13 mod sin t 5 / 17 mod cos + t 7 * 11 mod sin + 10 mod 10 / x * .6 + + dup y min 2dup -
Fit Redux
Anonymous
'11 Nov 16
t 3 / x - sin t 4 / x + cos abs max y t sin
Penta Redux
Anonymous
'11 Nov 16
t x - 5 * cos t y - 5 * cos
Untitled Redux
Anonymous
'11 Nov 16
0.5 x - 5 * cos 0.5 y - 5 * cos
Untitled
Anonymous
'11 Nov 16
: dot x - 10 * dup * swap y - 10 * dup * + 1 swap - 0 max - ; : edge 1 x .5 - 2 * dup * y .5 - 2 * dup * + 20 pow - * ; : dots .35 .35 dot .35 .65 dot .65 .35 dot .65 .65 dot edge ; 1 x .3 - dup dup * * y .2 - dup * + - dots 1 x .2 - dup dup * * y .1 - dup * + - dots .95 * 2dup + 5 / x 2 pow y * 2 / + 1 x .5 - 2 * dup * y .5 - 2 * dup * + 8 pow -
naclforth
BradN
'11 Nov 02
t 3 / 11 mod floor t 5 / 13 mod floor + t 7 / 17 mod floor + 10 mod 10 / 1 x - * t 3 * 13 mod sin t 5 / 17 mod cos + t 7 * 11 mod sin + 10 mod 10 / x * .6 + + dup y min 2dup -
Fit
BradN
'11 Oct 27
t 11 mod t 7 mod * sin 1 x - * t 3 mod t 5 mod * sin x * + dup y > over x <
Tracking
BradN
'11 Oct 27
t sin t 3 / sin abs + .3 max 1 x - * t 5 * sin abs x * + dup y * 1 mod 2dup - x >
Wiggle
BradN
'11 Oct 27
t 3 / x - sin t 5 / x + cos abs max y t sin
Penta
BradN
'11 Oct 27
t 5 / sin t 4 / x + sin max t 7 / sin abs min t 3 / x - cos abs max dup x 3 * sin * 2dup z* y 2dup z*
Blue
BradN
'11 Oct 27
t sin t 5 / sin mod x + 1 mod 1 x - + t cos over 2dup z* 1 mod 2dup y * 2dup z* + 1 mod
Blinded by the Light Redux
Anonymous
'11 Oct 26
t sin t 5 / sin mod x + t cos over 2dup z* 2dup y * 2dup z* +
Blinded by the Light
BradN
'11 Oct 26
: x' x 0.5 - 2 * ; : y' y 0.5 - 2 * ; : len dup * swap dup * + sqrt ; : polar x' y' atan2 x' y' len ; polar 130 * 100 swap - sqrt + 3 + t + cos .4 + polar 132 * 102 swap - sqrt + 3.1 + t + cos .4 + polar 134 * 104 swap - sqrt + 3.2 + t + cos .4 + x 0.5 - dup * y 0.5 - dup * + .25 / 10 pow 1 swap -
nh1 Redux
Stainless
'11 Sep 24
x 20 * t sin swap / 0.6 + y 2dup > push max pop max x 2dup z*
asunder Redux
Stainless
'11 Sep 09
: z** 2dup z* ; X y z** sqrt z** t + sin z** Y z** t + cos z** z**
squeeze ready Redux
Stainless
'11 Sep 09
: x' x 0.5 - 2 * ; : y' y 0.5 - 2 * ; : len dup * swap dup * + sqrt ; : polar x' y' atan2 x' y' len ; polar 130 * 100 swap - sqrt + 3 + cos .4 + polar 132 * 102 swap - sqrt + 3.1 + cos .4 + polar 134 * 104 swap - sqrt + 3.2 + cos .4 + x 0.5 - dup * y 0.5 - dup * + .25 / 10 pow 1 swap -
nh1
Anonymous
'11 Aug 10
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : iclip 1 1 clip - * ; : sun ox 0.5 + oy * 4 pow ; : tenth 10 / ; : hundredth 100 / ; : xor <> ; : round 0.5 + floor ; : spike x 25 hundredth - y 75 hundredth - atan2 60 tenth * pi / dup round - abs 16 hundredth * ( star ) x 25 hundredth - dup * y 75 hundredth - dup * + sqrt + 20 hundredth < ; : box x 5 tenth < y 5 tenth > and ; : taiwan box 1 swap - spike + spike box ; taiwan push push push pop clip ox oy + 4 / + pop clip ox oy + 3 / + pop clip ox oy + 2 / +
Taiwan
CH Ting
'11 Jul 23
: x x 0.3 - ; : y y 0.4 - ; x y atan2 dup t sin - abs 0.1 - sin swap dup t 1.1 * sin - abs 0.2 - sin swap t 1.3 * sin - abs 0.3 - sin
Singularity
BradN
'11 Jul 22
x y t sin x y - z* t 2 * sin y z* 2dup - exp
Glimpse
BradN
'11 Jul 22
t 2 * sin 15 * x 6.2 * sin / log sin y 2dup z* dup
On Off
BradN
'11 Jul 22
x t + sin abs x y * sin 2dup z* cos y t + sin abs
Drifter
BradN
'11 Jul 22
: x x 0.5 - ; : y y 0.5 - ; : too t sin dup * ; : tee t 7 * sin dup * ; too x * tee y * - too 1 y - * tee x * - sin tee too - x * y tee * -
Northern Lights
BradN
'11 Jul 22
Next