Haiku Gallery
: 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
'25 Sep 22
: 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
'25 Sep 22
: x y t 50 / sin + ; : foil x 31 * Sin y 33 * sin z* ; y t cos + X foil y sin
Row
Anonymous
'25 Sep 22
square
Untitled
Anonymous
'25 Sep 22
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle atan2 dup 0.25 * sunangle 3.141597 /
Dawn Redux
Stainless
'25 Sep 22
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle - dup 0.25 * sunangle 0 max
Dawn
Stainless
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: x x t 3 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli Redux
Anonymous
'25 Sep 22
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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
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
'25 Sep 22
t 3 / x - sin t 4 / x + cos abs max y t sin
Penta Redux
Anonymous
'25 Sep 22
t x - 5 * cos t y - 5 * cos
Untitled Redux
Anonymous
'25 Sep 22
0.5 x - 5 * cos 0.5 y - 5 * cos
Untitled
Anonymous
'25 Sep 22
: 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
'25 Sep 22
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
'25 Sep 22
t 11 mod t 7 mod * sin 1 x - * t 3 mod t 5 mod * sin x * + dup y > over x <
Tracking
BradN
'25 Sep 22
t sin t 3 / sin abs + .3 max 1 x - * t 5 * sin abs x * + dup y * 1 mod 2dup - x >
Wiggle
BradN
'25 Sep 22
t 3 / x - sin t 5 / x + cos abs max y t sin
Penta
BradN
'25 Sep 22
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
'25 Sep 22
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
'25 Sep 22
t sin t 5 / sin mod x + t cos over 2dup z* 2dup y * 2dup z* +
Blinded by the Light
BradN
'25 Sep 22
: 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
'25 Sep 22
x 20 * t sin swap / 0.6 + y 2dup > push max pop max x 2dup z*
asunder Redux
Stainless
'25 Sep 22
: z** 2dup z* ; X y z** sqrt z** t + sin z** Y z** t + cos z** z**
squeeze ready Redux
Stainless
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
x y t sin x y - z* t 2 * sin y z* 2dup - exp
Glimpse
BradN
'25 Sep 22
t 2 * sin 15 * x 6.2 * sin / log sin y 2dup z* dup
On Off
BradN
'25 Sep 22
x t + sin abs x y * sin 2dup z* cos y t + sin abs
Drifter
BradN
'25 Sep 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
'25 Sep 22
: grid 7 * sin swap 7 * cos * dup * ; : led x 1 + y grid x y grid x + x y grid ; led + + t sin - abs dup 0.3 - swap dup 0.2 - swap 0.1 - led + + t 11 * cos * sin +
Blinding
Anonymous
'25 Sep 22
: x x 0.2 + ; : y y 0.2 + ; : t t 4 / ; t x + 9.1 * cos y / cos t y + 9.2 * cos x / cos t x y - + 9.3 * cos x y + / cos 2dup z* push 2dup z* pop dup z+ + sin dup 1.3 * dup 1.3 *
Oceanic
BradN
'25 Sep 22
t x + 9.1 * cos y / cos t y + 9.2 * cos x / cos t x y - + 9.3 * cos x y + / cos 2dup z* push 2dup z* pop
Jumble
BradN
'25 Sep 22
t x + sin t y + cos 2dup z* + dup 10 * t 1.1 * + sin swap dup 11 * t + sin swap 12 * t 1.2 * + sin
Tumbling
BradN
'25 Sep 22
: 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 <> ; : stripe y 4100 hundredth * sin 0.0 < ; : star x 71 * sin 9 tenth > y 54 * sin 9 tenth > and x 71 * sin -9 tenth < y 54 * sin -9 tenth < and or ; : stripes 1.0 stripe stripe ; : stars star star 1.0 ; : usa x 5 tenth > y 46 hundredth < or dup stripes push push over * swap pop over * swap pop swap * push push push 1 swap - stars push push over * swap pop over * swap pop swap * ( add 3 ) pop swap push swap push + pop pop pop swap push + pop pop + ; usa push push push pop clip ox oy * 3 / + pop clip oy 3 / + pop clip ox 3 / +
USA
CH Ting
'25 Sep 22
: 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 <> ; : armenia y 33 hundredth < y 66 hundredth > or y 33 hundredth < 2 / over 0 = ; armenia push push push pop clip ox oy * 3 / + pop clip oy 3 / + pop clip ox 3 / +
Armenia
CH Ting
'25 Sep 22
Next