Haiku Gallery
: 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
'11 Jul 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 <> ; : 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
'11 Jul 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 / ; : 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
'11 Jul 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 <> ; : 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
'11 Jul 20
: 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
'11 Jul 20
: 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
'11 Jul 20
: 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
'11 Jul 20
t sin abs x 23 * sin 2 / y max / sin dup sqrt dup exp
4spire Redux
Anonymous
'11 Jun 28
x y x 5 * sin y 7 * t + sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux Redux
Stainless
'11 Jun 28
X 5 * t + sin y mod 1 y x z* over exp swap 2dup z* / x
fount Redux
Stainless
'11 Jun 26
: 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
'11 Jun 26
: 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
'11 Jun 26
: 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
'11 Jun 26
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t + 100 * sin ; x 0.03 - y spiral x y 0.03 - spiral x * y x spiral y *
Hypnotism 2
Stainless
'11 Jun 26
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + t + 100 * sin ; x y spiral x y spiral x y spiral
Hypnotism 1
Stainless
'11 Jun 26
: 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 + ; : xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
Temporal Continuity
BradN
'11 Jun 25
: foo t sin - / sin ; x y foo y x foo 2dup dup z*
Untitled
Anonymous
'11 Jun 25
: trail t 4 * x + + sin y 2 * 1 - - abs 1 swap - ; 0 trail 1 trail 2 trail
Rainbow Wave
BradN
'11 Jun 25
t x + sin t y + cos x / sin swap y / sin 2dup /
Swell
BradN
'11 Jun 25
: xy x 0.5 - y 0.5 - ; : ang xy atan2 pi / 1 + 2 / .5 + 1 mod ; : second t 60 mod floor 60 / ; : minute t 60 / 60 mod floor 60 / ; : hour t 60 / 60 / 12 mod floor 12 / ; : incircle xy dup * swap dup * + .25 < * ; : hand ang - abs 0.01 < incircle ; second hand minute hand hour hand
clock
BradN
'11 Jun 25
: square dup * ; : spot y - square swap x - square + > x y atan2 20 * sin abs * ; 0.2 0.1 t sin spot 0.1 0.6 t cos spot 0.15 0.4 0.7 spot
primary fan Redux
Stainless
'11 Jun 25
: ang y 0.5 - x 0.5 - atan2 t + 20 * ; : tang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * tang 0.5 * dup * cos
warpspeed Animated
Stainless
'11 Jun 25
: sincy t * dup sin atan2 ; x sincy y sincy - sincy dup log dup
Circhequity Redux
Stainless
'11 Jun 25
t x + 5 * 1.2 - sin y x * 22 * sin atan2 dup sin y sqrt
Tower Redux
Stainless
'11 Jun 25
: foo x 0.3 t cos abs * 4 * - 2 * dup * y 0.55 t sin abs * - 2 * dup * + ; x foo / sin x + y foo / sin y + over over / sin
bouncing iris
Anonymous
'11 Jun 25
: x' x 0.3 - ; : y' y 0.1 + ; x' y' * 40 t sin 5 * + * sin 1 x' - y' * 30 t 1.11 * sin 11 * + * sin * x' 1 y' - * 20 t 1.31 * sin 7 * + * sin * dup x' / sin dup y' / cos 1 x - 1 y - + *
scales breathing
Anonymous
'11 Jun 25
x t sin 5 / + 5 * sin y 5 * sin + t cos + dup x + swap dup 0.5 t sin dup * * *
sol Redux
Anonymous
'11 Jun 25
: sinc dup sin swap / ; : square dup * ; : len square swap square + sqrt ; : 2dup over over ; : burst x - swap y - 2dup len push atan2 pop 10 * + sin ; : junk 2dup 0.2 + swap 0.3 + burst push 2dup 0.7 + swap 0.2 + burst push 0.4 + swap 0.7 + burst pop pop * * ; t sin 0 junk x y * + dup 0.2 t 1.1 * sin + 0.7 junk y + 0.7 * + dup 0.7 0.2 t 1.3 * sin + junk x + +
rippling
Anonymous
'11 Jun 25
: x x t sin 2 + * ; : y y t sin 2 + * ; : x x t .2 * sin + ; x x 23 * sin 2 / y max / t + sin y x 23 * sin 2 / y max / t + sin over over / t + sin
nspire
BradN
'11 Jun 25
: 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
BradN
'11 Jun 25
: xx x 0.5 - ; : yy y 0.5 - ; 0.5 yy 1.13983 * + 0.5 xx -0.39465 * + yy -0.58060 * + 0.5 xx 2.03211 * +
PAL/SECAM YUV Colorspace
BradN
'11 Jun 21
: xx x 2 * 1 - ; : yy y 2 * 1 - ; 1 xx 0.9563 * + yy 0.6210 * + 2 / 1 xx -0.2721 * + yy -0.6474 * + 2 / 1 xx -1.1070 * + yy 1.7046 * + 2 /
NTSC YIQ Colorspace
BradN
'11 Jun 21
: sincy 15.7 * dup sin atan2 ; x sincy y sincy - sincy dup log dup
Circhequity
BradN
'11 Jun 21
: bar * sin + ; : barx x bar ; : bary y bar ; : foo 0 17 barx 3 bary 5 barx 0 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo 3 foo
electric larva
BradN
'11 Jun 21
: bar * sin + ; : barx x bar ; : bary y bar ; : foo 0 11 barx 17 bary 19 barx 0 3 bary 5 barx 7 bary * + 7 * sin ; 0 foo 1 foo 2 foo
oily
BradN
'11 Jun 20
x 5 * 1.2 - sin y x * 22 * sin atan2 dup sin y sqrt
Tower
Anonymous
'11 Jun 20
: xc x .5 - ; : yc y .5 - ; : yt y .2 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .008 > swap .012 < and ; : lr x .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max dup dup
Duality Redux
Anonymous
'11 Jun 20
: xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 swap / ; : c2 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
Continuity
Anonymous
'11 Jun 16
x y * y x * * y x * x y tan tan tan tan tan tan abs pi /
Frontier lines
Miguel A. Chico
'11 Jun 15
x y * y x * * y x * x y
Summer sky
Miguel A. Chico (Lobosoft)
'11 Jun 15
Next