Haiku Gallery
: scale 20 t sin * ; : z x scale * ; : w y scale * ; z z * w w * + 50 z w + / sin z z * w w * - * /
Basic butterfly
Stainless
'25 Jul 15
: x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * cos x y * 11 * cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * *
gforth icon
BradN
'25 Jul 15
: 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 + * swap
Continuity Redux
Anonymous
'25 Jul 15
: 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 + * + + 3 / 1 swap -
ContinuityNegate
Anonymous
'25 Jul 15
: x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * cos x y * 11 * cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * *
gforth icon
BradN
'25 Jul 15
: x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * cos x y * 11 * cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * *
gforth icon
BradN
'25 Jul 15
: x x 0.5 + 1.7 / ; : y y 0.4 + 1.7 / ; : ox x 0.5 - ; : oy y 0.6 - ; : x x 0.3 - 11 * y * sin ; : y y 1.1 - 7 * x * cos ; x 21 * sin y 23 * cos x y * 11 * cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * *
gforth icon
BradN
'25 Jul 15
: x2 x 0.5 - ; : y2 y 0.5 - ; : x3 x2 t sin * y2 t cos * + ; : y3 x2 t cos * y2 t sin * - ; : radius x3 x3 * y3 y3 * + sqrt ; : angle x3 y3 atan2 ; angle cos abs radius / angle sin abs radius / radius 0.2 <
Ahhh a flower Redux Redux
Stainless
'25 Jul 15
: x2 x 0.5 - ; : y2 y 0.5 - ; : radius x2 x2 * y2 y2 * + sqrt ; : angle x2 y2 atan2 ; angle cos abs radius / angle sin abs radius / radius 0.2 <
Ahhh a flower Redux
Stainless
'25 Jul 15
: x2 x 0.5 - ; : y2 y 0.5 - ; : radius x2 x2 * y2 y2 * + sqrt ; : angle x2 y2 atan2 ; angle cos abs radius / angle sin abs radius /
Ahhh a flower
Stainless
'25 Jul 15
: t2 t sin 6 * abs ; x 0.5 - dup * y 0.5 - dup * + sqrt dup pi * 17 * sin swap pi * t2 * tan x 4 * y tan *
Radar Redux Redux
Stainless
'25 Jul 15
y 60 * x 30 * + dup cos swap sin > x 60 * y 30 * + dup cos swap sin > x 60 * y 30 * + dup cos swap sin <
Twead
Stainless
'25 Jul 15
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 10 * tan ; 0.2 t spiral 0.7 0.3 spiral 0.4 t 0,5 * spiral * * dup x * 0.5 x - 0.3 y - + 0.95 *
membrane Redux
Stainless
'25 Jul 15
: 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 t sin abs <=
TriLobe Redux 2 Redux
Stainless
'25 Jul 15
: 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 0.5 <=
TriLobe Redux 2
Stainless
'25 Jul 15
: ds dup * 2 * swap 4 * + sin 0.5 * 1 + ; : dc dup * 2 * swap 8 * + sin 0.5 * 1 + ; : gc 2dup dc - swap drop ; : 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 x2 y2 atan2 x2 x2 * y2 y2 * + sqrt fc abs x2 y2 atan2 x2 x2 * y2 y2 * + sqrt gc abs
QuadLobe Redux 2 Redux
Stainless
'25 Jul 15
: ds dup * 2 * swap 4 * + 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 x2 y2 atan2 x2 x2 * y2 y2 * + sqrt fc abs
QuadLobe Redux 2
Stainless
'25 Jul 15
: lobes t sin 16 * abs 3 + ; : ds dup * 2 * swap lobes * sin + 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
QuadLobe Redux
Stainless
'25 Jul 15
: ds dup * 2 * swap 4 * + 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
QuadLobe
Stainless
'25 Jul 15
: 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 y t - cos x + t2 + cos z+ x t2 + cos y + t1 + cos
Limited Redux
Stainless
'25 Jul 15
: 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
'25 Jul 15
: 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
'25 Jul 15
: 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
'25 Jul 15
: ang y 0.5 - x 0.3 - atan2 20 * ; ang 10 + sin y * ang 2 + cos y * sin1 dup * cos
warpspeed Redux Redux
Anonymous
'25 Jul 15
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 10 + sin y * ang 2 + cos y * ang1 dup * cos
warpspeed Redux
Anonymous
'25 Jul 15
: 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
'25 Jul 15
: 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
'25 Jul 15
: 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
'25 Jul 15
hmghmdhm
gdmgm
gmdgdhmgdhm
'25 Jul 15
: 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 Jul 15
dup sin swap dup cos swap dup log swap
Untitled
Anonymous
'25 Jul 15
a/
Untitled
Anonymous
'25 Jul 15
x y +
Untitled
Anonymous
'25 Jul 15
: 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 Jul 15
atan (45)
Untitled
Anonymous
'25 Jul 15
x
Untitled
Anonymous
'25 Jul 15
: 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 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 < * ; 0.1 0.1 mant
inkblot mandelbrot Redux
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 * 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 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 * + ; : 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 Jul 15
Next