Haiku Gallery
: t1 t sin 1 - ; : t2 t cos ; x t + cos y + t1 + cos y t1 + cos x + t + cos x t2 + cos y + t1 + cos
Limited
Stainless
'12 Oct 23
: ds dup * 2 * swap 3 * + sin 0.5 * 1 + ; : fc 2dup ds - swap drop ; : x2 x 0.5 - 2 * ; : y2 y 0.5 - 2 * ; y2 x2 atan2 x2 x2 * y2 y2 * + sqrt fc abs dup *
TriLobe Redux
Stainless
'12 Oct 23
: ds dup * 2 * swap 3 * + sin 0.5 * 1 + ; : fc 2dup ds - swap drop ; : x2 x 0.5 - 2 * ; : y2 y 0.5 - 2 * ; y2 x2 atan2 x2 x2 * y2 y2 * + sqrt fc abs
TriLobe
Stainless
'12 Oct 23
: ang y 0.5 - x 0.3 - atan2 20 * ; ang 10 + sin y * ang 2 + cos y * sin1 dup * cos
warpspeed Redux Redux
Anonymous
'12 Oct 02
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 10 + sin y * ang 2 + cos y * ang1 dup * cos
warpspeed Redux
Anonymous
'12 Oct 02
: web push push x 0.1 + y 0.5 + * pop * sin 1 max x 0.1 + y 0.1 + * pop * sin 1 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 Oct 02
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.1 + 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 Oct 02
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 1.7 * tan ; t 0.2 + 0.2 spiral 0.7 t 0.3 + spiral t 0.4 / t 0.6 / spiral * * tan x over / y over /
membrane shorn
Anonymous
'12 Sep 28
hmghmdhm
gdmgm
gmdgdhmgdhm
'12 Sep 08
: x' x 0.8 - 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 x 0.5 - dup * y 0.5 - dup * + 0.25 / 1 swap -
falling icon Redux - test
Anonymous
'12 Jul 28
dup sin swap dup cos swap dup log swap
Untitled
Anonymous
'12 Jun 03
a/
Untitled
Anonymous
'12 May 31
x y +
Untitled
Anonymous
'12 Apr 22
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 10 * tan ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 0.5 x - 0.3 y - + 0.95 *
membrane
Hans N.
'12 Apr 22
atan (45)
Untitled
Anonymous
'12 Apr 22
x
Untitled
Anonymous
'12 Mar 26
: web push push x 0.5 + y 0.3 + * 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 + + + 1 mod dup dup
streak Redux
Anonymous
'12 Mar 21
: 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 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; 0.1 0.1 mant
inkblot mandelbrot Redux
Anonymous
'12 Mar 08
: 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 * t cos * 100 swap - sqrt + 3 + cos .4 + polar 132 * t cos * 102 swap - sqrt + 3.1 + cos .4 + polar * 134 t cos * 104 swap - sqrt + 3.2 + cos .4 +
nh2 Redux
Stainless
'12 Mar 06
: 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 * + ; : x2 t sin 0.001 + x * 0.5 + ; : y2 t sin 0.001 + y * 0.5 + ; : mant y2 0.7 - 3 * x2 0.5 - 3 * many drop drop len dup 1 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
inkblot mandelbrot Redux 4
Stainless
'12 Mar 06
: 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.5 + t sin * 0.7 - 3 * x 0.5 + t sin * 0.5 - 3 * many drop drop len dup 1 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
inkblot mandelbrot Redux 3
Stainless
'12 Mar 06
: 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 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; t cos 1 t cos - mant dup dup
inkblot mandelbrot Redux 2
Stainless
'12 Mar 06
: 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 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; t sin t sin mant t cos t cos mant 0.2 0.2 mant
inkblot mandelbrot Redux
Stainless
'12 Mar 06
: uu 4 * t sin 2 * - ; : vv 4 * t cos 2 * + ; x vv y uu * x vv y vv * y uu x vv *
Wipeout
Stainless
'12 Mar 06
wtorlgpsuitbmpo, http://www.mrrwucbpok.com voqvmxlieo
zujlmtwv
bqnqtdlxnh
'12 Feb 29
redtugpsuitbmpo, <a href="http://www.ntxivggkgw.com">qcmyilzlib</a>
miibjghd
mbvvzetsza
'12 Feb 28
yxrnegpsuitbmpo, <a href="http://www.klgqmbsjxd.com">ygjauxxedl</a> , [url=http://www.ulvpogtopn.com]iuofmecsos[/url], http://www.fboefnrtxy.com ygjauxxedl
sjhjqiue
ounqbmrsqx
'12 Feb 28
zyaijgpsuitbmpo, <a href="http://www.kipdixtvuh.com">zdvhymjlon</a> , [url=http://www.klghsfqfag.com]vhveniclwh[/url], http://www.ltmreznlbz.com zdvhymjlon
whgqolwz
prmmkamzkj
'12 Feb 27
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 20 * sin ; 0.2 t + 0.2 t + spiral 0.7 t + 0.3 t + spiral 0.4 0.6 spiral * * dup x * 1 x - 1 y - + 0.25 *
burn Redux
Stainless
'12 Feb 25
: ang y 0.5 - x 0.5 - atan2 20 * ; ang t + cos x * ang 2 t * + cos y * ang dup * t t + + cos
warpspeed Redux
Stainless
'12 Feb 25
: x2 x 0.5 - t cos * y 0.5 - t sin * + 0.5 + ; : y2 y 0.5 - t cos * x 0.5 - t sin * - 0.5 + ; : dot x2 - 10 * dup * swap y2 - 10 * dup * + 1 swap - 0 max - ; : edge 1 x2 .5 - 2 * dup * y2 .5 - 2 * dup * + 20 pow - * ; : dots .35 .35 dot .35 .65 dot .65 .35 dot .65 .65 dot edge ; 1 x2 .3 - dup dup * * y2 .2 - dup * + - dots 1 x2 .2 - dup dup * * y2 .1 - dup * + - dots .95 * 2dup + 5 / x2 2 pow y * 2 / + 1 x2 .5 - 2 * dup * y2 .5 - 2 * dup * + 8 pow -
naclforth Redux Redux
Stainless
'12 Feb 24
: 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 ; : x2 x t cos * y t sin * + ; : y2 y t cos * x t sin * - ; 1 x2 .3 - dup dup * * y2 .2 - dup * + - dots 1 x2 .2 - dup dup * * y2 .1 - dup * + - dots .95 * 2dup + 5 / x2 2 pow y * 2 / + 1 x2 .5 - 2 * dup * y2 .5 - 2 * dup * + 8 pow -
naclforth Redux
Stainless
'12 Feb 24
26.1 x * sin 1 + 2 / 31.1 x * sin 1 + 2 / 39.2 x * sin 1 + 2 /
C Minor 1+2/
C. H. Ting
'12 Jan 26
26.1 x * sin 1 + 2 / 33 x * sin 1 + 2 / 39.2 x * sin 1 + 2 /
C Major 1+2/
C. H. Ting
'12 Jan 26
130 x * sin 156 x * sin 196 x * sin
C Minor Mid
C. H. Ting
'12 Jan 26
130 x * sin 165 x * sin 196 x * sin
C Major Mid
c
'12 Jan 26
26.1 x * sin 33 x * sin 39.2 x * sin
C Major
C. H. Ting
'12 Jan 26
261 x * sin 330 x * sin 392 x * sin
C Major high
C. H. Ting
'12 Jan 26
261 x * sin 311 x * sin 392 x * sin
C Minor high
C. H. Ting
'12 Jan 26
26.1 x * sin 31.1 x * sin 39.2 x * sin
C Minor
C. H. Ting
'12 Jan 26
Next