Haiku Gallery
: 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
x y * 4 +
Untitled Redux
Anonymous
'11 Jun 13
x dup * log y dup * log + dup log swap dup sin swap cos
boomerang
Greg S
'11 Jun 12
x dup * y dup * + dup 1 and swap dup 2 and swap 4 and 1
Untitled
Anonymous
'11 Jun 12
x dup * y dup * + 15 and
Untitled
Anonymous
'11 Jun 12
x y *
Untitled
Anonymous
'11 Jun 12
: 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 < ; : 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
Leo
'11 Jun 11
: z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * + ; : mant y 0.7 - 8 * x 0.5 - 9 * many drop drop len dup 1 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
inkblot mandelbrot Redux
Anonymous
'11 Jun 11
1 1 +
Untitled
Anonymous
'11 Jun 11
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang 0.5 * dup * cos
warpspeed Redux(shows back pattern)
Stanless
'11 Jun 11
x 0.5 - dup * y 0.5 - dup * + sqrt dup pi * 17 * sin swap pi * -2 * tan x 4 * y tan *
Radar Redux
Stainless
'11 Jun 11
x dup * y dup * + sqrt dup pi * 17 * sin swap pi * 2 * cos x 4 * y tan *
Radar
Stainless
'11 Jun 11
Pi x mod pi y mod 100 +
pied Redux
Anonymous
'11 Jun 11
10 10
Untitled
Anonymous
'11 Jun 11
0.01 x + y 0.01 + 8001 * swap 1723 * * cos dup .32711008 * 0.01
Interferences1
p71
'11 Jun 10
: f .5 - 1000 * swap 100 * * cos ; x y f dup exch
Mosaic
p71
'11 Jun 10
: f .5 - 500 * swap .5 - 10 * * tan ; x y f
Roses
p71
'11 Jun 10
: scale random atan2 ; y 41 * pi + sin scale x 167 * sin scale
Prisoner
p71
'11 Jun 10
x y x y *
Untitled
Anonymous
'11 Jun 10
: b x * sin ; : e y * cos / log cos ; 8 b 16 e 17 b 10 e 5 b 9 e
fiberellum Redux
Anonymous
'11 Jun 10
y .333 > .333 max dup 1 = y .666 < and .333 y > .333 *
República ya!
Jorge Acereda
'11 Jun 09
: sq dup * ; : ss over + sq sin ; x y ss x ss
Whatever
Anonymous
'11 Jun 09
: sq dup * ; : ss over sq + not ; x y ss y ss
Crystalines Redux
Anonymous
'11 Jun 09
x 0.5 - exp y 0.5 - exp
shows bug in exp function
Stainless
'11 Jun 09
x 0.5 < x 0.5 < x 0.5 < if 0.5 ;
Fusion Redux Redux
Anonymous
'11 Jun 09
x y x 5 * sin y 7 * sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux
Testing for bugs
'11 Jun 09
y x / y + x y / x + x y * y * 42 *
Untitled
Anonymous
'11 Jun 09
y x / y + x y / x + x y * 2 /
Untitled
Anonymous
'11 Jun 09
x 10 * 1 mod x y + 10 * 1 mod y 10 * 1 mod
Crystalines
p71
'11 Jun 09
: co 0.1 mod 0.05 - dup * ; : o * 1 mod ; : f >r x co y co + dup sin swap r> + / ; .002 f 50 o .001 f 11 o .003 f 20 o
carpet
alex wegel
'11 Jun 09
: wander random random + random + random + random + 5 / ; x 0.2 - dup * y 0.3 - dup * + wander 0.3 * < dup wander * x wander *
genesis
BradN
'11 Jun 08
Next