Haiku Gallery
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
wtorlgpsuitbmpo, http://www.mrrwucbpok.com voqvmxlieo
zujlmtwv
bqnqtdlxnh
'25 Jul 15
redtugpsuitbmpo, <a href="http://www.ntxivggkgw.com">qcmyilzlib</a>
miibjghd
mbvvzetsza
'25 Jul 15
yxrnegpsuitbmpo, <a href="http://www.klgqmbsjxd.com">ygjauxxedl</a> , [url=http://www.ulvpogtopn.com]iuofmecsos[/url], http://www.fboefnrtxy.com ygjauxxedl
sjhjqiue
ounqbmrsqx
'25 Jul 15
zyaijgpsuitbmpo, <a href="http://www.kipdixtvuh.com">zdvhymjlon</a> , [url=http://www.klghsfqfag.com]vhveniclwh[/url], http://www.ltmreznlbz.com zdvhymjlon
whgqolwz
prmmkamzkj
'25 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
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 Jul 15
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 Jul 15
130 x * sin 156 x * sin 196 x * sin
C Minor Mid
C. H. Ting
'25 Jul 15
130 x * sin 165 x * sin 196 x * sin
C Major Mid
c
'25 Jul 15
26.1 x * sin 33 x * sin 39.2 x * sin
C Major
C. H. Ting
'25 Jul 15
261 x * sin 330 x * sin 392 x * sin
C Major high
C. H. Ting
'25 Jul 15
261 x * sin 311 x * sin 392 x * sin
C Minor high
C. H. Ting
'25 Jul 15
26.1 x * sin 31.1 x * sin 39.2 x * sin
C Minor
C. H. Ting
'25 Jul 15
26.1 x * sin 33 x * sin 39.2 x * sin
C Major Redux
C. H. Ting
'25 Jul 15
26.1 sin 33 sin 39.2 sin
C Major
C. H. Ting
'25 Jul 15
22
Untitled
Anonymous
'25 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: 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 Jul 15
: iii x y z* Sin ; x t * x y - iii exp y iii
light drop Redux
Anonymous
'25 Jul 15
: frac dup floor - ; : a * sin + ; : b sin t swap 5 a y 9 a x 7 a frac pi * sin ; x b y b t 2 / b
color flow
Cedric
'25 Jul 15
: x' x 0.5 - 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 t - x 0.5 - dup * y 0.5 - dup * + 0.25 / 1 swap -
falling icon Redux
Anonymous
'25 Jul 15
: x y t 50 / sin + ; : foil x 31 * Sin y 33 * sin z* ; y t cos + X foil y sin
Row
Anonymous
'25 Jul 15
square
Untitled
Anonymous
'25 Jul 15
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle atan2 dup 0.25 * sunangle 3.141597 /
Dawn Redux
Stainless
'25 Jul 15
: sunangle t sin 3.141592653 * ; : angle 1 y - 1 atan2 ; angle sunangle - dup 0.25 * sunangle 0 max
Dawn
Stainless
'25 Jul 15
: 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 Redux
Anonymous
'25 Jul 15
: x x t 3 / sin + ; : y y t 7 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli round
Anonymous
'25 Jul 15
: x x t 3 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli Redux
Anonymous
'25 Jul 15
t sin 4 * floor 4 / 1 mod t sin 3 * floor 3 / 1 mod t 3 * floor 3 / 1 mod dup push over push + + x + pop pop
Solid
BradN
'25 Jul 15
: d t over * floor swap / ; 3 d .7 d + .11 d + .13 d + 1 mod x + x 0 = x 1 = or * x y .2 - * 5 * sin + x .3 + t 10 * * sin y / y .4 + t 11 * * sin x /
Arecibo
BradN
'25 Jul 15
: x t sin 0.2 * x + ; : y t .3 * sin 0.2 * y + ; : 2square 2 * dup * ; t floor 5 / 1 mod t 3.1 * floor 3 / 1 mod + 1 mod t 11 / 1 mod + x 0.4 - 2square y 0.7 - 2square + x 0.6 - 2square y 0.2 - 2square + min 1 min * x 2 / + x .3 - over / y .2 - / sin over 2dup z*
Ingress
BradN
'25 Jul 15
Next