Haiku Gallery
hmghmdhm
gdmgm
gmdgdhmgdhm
'25 Sep 22
: 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
'25 Sep 22
dup sin swap dup cos swap dup log swap
Untitled
Anonymous
'25 Sep 22
a/
Untitled
Anonymous
'25 Sep 22
x y +
Untitled
Anonymous
'25 Sep 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.
'25 Sep 22
atan (45)
Untitled
Anonymous
'25 Sep 22
x
Untitled
Anonymous
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: uu 4 * t sin 2 * - ; : vv 4 * t cos 2 * + ; x vv y uu * x vv y vv * y uu x vv *
Wipeout
Stainless
'25 Sep 22
wtorlgpsuitbmpo, http://www.mrrwucbpok.com voqvmxlieo
zujlmtwv
bqnqtdlxnh
'25 Sep 22
redtugpsuitbmpo, <a href="http://www.ntxivggkgw.com">qcmyilzlib</a>
miibjghd
mbvvzetsza
'25 Sep 22
yxrnegpsuitbmpo, <a href="http://www.klgqmbsjxd.com">ygjauxxedl</a> , [url=http://www.ulvpogtopn.com]iuofmecsos[/url], http://www.fboefnrtxy.com ygjauxxedl
sjhjqiue
ounqbmrsqx
'25 Sep 22
zyaijgpsuitbmpo, <a href="http://www.kipdixtvuh.com">zdvhymjlon</a> , [url=http://www.klghsfqfag.com]vhveniclwh[/url], http://www.ltmreznlbz.com zdvhymjlon
whgqolwz
prmmkamzkj
'25 Sep 22
: 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
'25 Sep 22
: 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
'25 Sep 22
: 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
'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 ; : 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
'25 Sep 22
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
'25 Sep 22
26.1 x * sin 1 + 2 / 33 x * sin 1 + 2 / 39.2 x * sin 1 + 2 /
C Major 1+2/
C. H. Ting
'25 Sep 22
130 x * sin 156 x * sin 196 x * sin
C Minor Mid
C. H. Ting
'25 Sep 22
130 x * sin 165 x * sin 196 x * sin
C Major Mid
c
'25 Sep 22
26.1 x * sin 33 x * sin 39.2 x * sin
C Major
C. H. Ting
'25 Sep 22
261 x * sin 330 x * sin 392 x * sin
C Major high
C. H. Ting
'25 Sep 22
261 x * sin 311 x * sin 392 x * sin
C Minor high
C. H. Ting
'25 Sep 22
26.1 x * sin 31.1 x * sin 39.2 x * sin
C Minor
C. H. Ting
'25 Sep 22
26.1 x * sin 33 x * sin 39.2 x * sin
C Major Redux
C. H. Ting
'25 Sep 22
26.1 sin 33 sin 39.2 sin
C Major
C. H. Ting
'25 Sep 22
22
Untitled
Anonymous
'25 Sep 22
: 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 * 100 swap - sqrt + 3 + cos .4 + polar 132 * 102 swap - sqrt + 3.1 + cos .4 + polar 134 * 104 swap - sqrt + 3.2 + cos .4 +
nh2
Anonymous
'25 Sep 22
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x y spiral x y spiral
Untitled
Anonymous
'25 Sep 22
: web push push x 0.5 + y 0.9 + * 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 +
streak Redux
Anonymous
'25 Sep 22
: bar * sin + ; : barx x bar ; : bary y bar ; : foo t sin 20 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 Redux
Anonymous
'25 Sep 22
: iii x y z* Sin ; x t * x y - iii exp y iii
light drop Redux
Anonymous
'25 Sep 22
Next