Haiku Gallery
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 18
t 3 / x - sin t 4 / x + cos abs max y t sin
Penta Redux
Anonymous
'25 Sep 18
t x - 5 * cos t y - 5 * cos
Untitled Redux
Anonymous
'25 Sep 18
0.5 x - 5 * cos 0.5 y - 5 * cos
Untitled
Anonymous
'25 Sep 18
: 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 18
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 18
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 18
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 18
t 3 / x - sin t 5 / x + cos abs max y t sin
Penta
BradN
'25 Sep 18
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 18
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 18
t sin t 5 / sin mod x + t cos over 2dup z* 2dup y * 2dup z* +
Blinded by the Light
BradN
'25 Sep 18
: 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 18
x 20 * t sin swap / 0.6 + y 2dup > push max pop max x 2dup z*
asunder Redux
Stainless
'25 Sep 18
: z** 2dup z* ; X y z** sqrt z** t + sin z** Y z** t + cos z** z**
squeeze ready Redux
Stainless
'25 Sep 18
: 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 18
: 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 18
: 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 18
x y t sin x y - z* t 2 * sin y z* 2dup - exp
Glimpse
BradN
'25 Sep 18
t 2 * sin 15 * x 6.2 * sin / log sin y 2dup z* dup
On Off
BradN
'25 Sep 18
x t + sin abs x y * sin 2dup z* cos y t + sin abs
Drifter
BradN
'25 Sep 18
: 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 18
: 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 18
: 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 18
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 18
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 18
: 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 18
: 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 18
: 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 <> ; : japan 1.0 x 5 tenth - dup * y 5 tenth - dup * + 7 hundredth > dup ; japan push push push pop clip pop clip pop clip
Japan
CH Ting
'25 Sep 18
: 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 / ; : 1arm 5 tenth - abs 1 tenth < ; : 1mask dup 2 tenth > swap 8 tenth < and ; : switzerland 1.0 x 1arm y 1mask and y 1arm x 1mask and or dup ; switzerland push push push pop clip pop clip pop clip
Switzerland
CH Ting
'25 Sep 18
: 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 <> ; : red-mask x 6 tenth < x 4 tenth > and y 6 tenth < y 4 tenth > and or x y - abs 1 tenth < or 1.0 x - y - abs 1 tenth < or ; : green-mask x 55 hundredth < x 45 hundredth > and y 55 hundredth < y 45 hundredth > and or x y - abs 5 hundredth < or 1.0 x - y - abs 5 hundredth < or ; : england red-mask green-mask over over xor swap 1.0 xor ; england push push push pop clip pop clip pop clip
England
CH Ting
'25 Sep 18
: 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 ; x clip 1 oy ox 0.4 * + - sun + iclip + y clip 1 oy ox 0.3 * + - sun + iclip + x y * 10 * 1 mod clip 1 oy ox 0.2 * + - y + sun - iclip +
flag prototype Redux
BradN
'25 Sep 18
: 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 < * * ; x clip y clip x y * 10 * 1 mod clip 1 1 clip - .7 * +
flag prototype
BradN
'25 Sep 18
: x x t + 1.3 * sin y t + 1.1 * sin * dup * x + ; : y y t + 1.1 * sin x y + 1.3 * sin * dup * y + ; x 30 * sin y 20 * sin x y - 50 * sin
Wiggle
BradN
'25 Sep 18
t sin abs x 23 * sin 2 / y max / sin dup sqrt dup exp
4spire Redux
Anonymous
'25 Sep 18
x y x 5 * sin y 7 * t + sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux Redux
Stainless
'25 Sep 18
X 5 * t + sin y mod 1 y x z* over exp swap 2dup z* / x
fount Redux
Stainless
'25 Sep 18
: sinc dup t + sin swap / ; x 0.5 - 31 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 23 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 17 * sinc 0.7 + 2 / y - abs 0.03 <
sinc Redux Redux
Stainless
'25 Sep 18
: sinc dup t 0.5 * * sin swap / ; x 0.5 - 31 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 23 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 17 * sinc 0.7 + 2 / y - abs 0.03 <
sinc Redux
Stainless
'25 Sep 18
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t 0.1 * + 100 * sin ; x 0.03 - y spiral x y 0.03 - spiral x * y x spiral y *
Hypnotism 2 Redux
Stainless
'25 Sep 18
Next