Haiku Gallery
: y y 2 * .8 - ; : y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y 1.8 * sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
B
Anonymous
'25 Jul 15
: y y 2 * .5 - ; : y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
A Redux
BradN
'25 Jul 15
: y 1 y - ; : x x y cos .3 * - ; x .1 > x .2 < * x .1 > swap : x x y sin .3 * - ; x .1 > x .2 < * + y .7 > y .8 < * + x .2 < * *
A
BradN
'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
: ^2 dup * ; : s t * sin 0.5 * 0.5 + ; : s2 t * sin abs ; : circle y - ^2 swap x - ^2 + 0.01 < ; : map 10 s2 0.5 > swap dup 10 t * sin * 10 s + swap 3 t * sin * 4 s + circle and ; 1.5 s2 0.1 map + 1.5 t * cos abs 0 map - 10 s2 -0.1 map +
All Colours Are Beautiful 2
berdario
'25 Jul 15
t sin abs t cos abs t 100 * sin abs
All Colours Are Beautiful
berdario
'25 Jul 15
: t^2 x t - sin * y t sin * - abs 0.1 < ; y x x t^2
my first forth haiku, small change on a swoosh Redux
berdario
'25 Jul 15
: t^2 x t - sin * y t sin * - abs 0.1 < ; y x x
my first forth haiku, small change on a swoosh
berdario
'25 Jul 15
: foo x ; : x y ; : y foo ; x y x 5 * sin y 7 * t + sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux Redux Redux
Anonymous
'25 Jul 15
1 2 + .
Untitled
Anonymous
'25 Jul 15
x 4 * sin y -
test1
Anonymous
'25 Jul 15
rr3
Untitled
Anonymous
'25 Jul 15
: cent x .5 - 2 * y .5 - 2 * ; : square dup * ; : ang cent atan2 pi + pi / 2 / ; : dist cent square swap square + sqrt ; ang 5 * 1 mod dist .3 - <
Untitled
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^2 xc yc len r1 swap / ; : c2^3 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 + *
Orbiting Eclipse
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 cos 2 * ; x y spiral x y spiral x y spiral
Untitled
Anonymous
'25 Jul 15
dtrew
Untitled
Anonymous
'25 Jul 15
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : 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 + : scale t sin * .5 min ; scale push scale push scale pop pop
streak tile throb
Stainless
'25 Jul 15
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : 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 + : scale .3 * .5 min ; scale push scale push scale pop pop
streak tile Redux
BradN
'25 Jul 15
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : 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 +
streak tile
BradN
'25 Jul 15
vcxzc xcv cv
Untitled
Anonymous
'25 Jul 15
: permute dup 34 * 5 + * 289 mod ; : scale 0.5 - ; 1 x - scale permute y scale permute 1 x - scale y scale + scale permute
Channel 4 logo
Stainless
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : 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 ; : bb x ox - y oy - min * ; x 21 * sin y 23 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth7
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : 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 ; : bb x y * 3 * sin * ; x 21 * sin y 23 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth6
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : bb y x * cos / ; : 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 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth5
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : bb x / ; : 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 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth4
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : bb y * ; : 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 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth3
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : bb x * ; : 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 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth2
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : bb x y / * ; : 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 * bb cos x y * 11 * bb cos x x * y y * + 1.1 - ox ox * oy oy * + 0.08 swap - dup push 0 > * pop 35 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop 2dup bb z* push push sm pop sm pop sm
gforth1
Anonymous
'25 Jul 15
: sm x pi * sin * 1 min .6 * ; : 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 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop push push sm pop sm pop sm
gforth background blend
BradN
'25 Jul 15
: x x y 11 * sin .1 * + 1.1 * ; : y y x 13 * sin .1 * + 1.1 * ; : x x y 13 * cos .1 * + 1.1 * .1 - ; : y y x 11 * cos .1 * + 1.3 * .2 - ; : 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 Redux
Anonymous
'25 Jul 15
: x x y 7 * cos .1 * - ; : y y x 13 * sin .1 * + 0.2 + ; : 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 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop
gforth background Redux Redux
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 * * 0 max 1 min swap over * push swap over * push * pop pop x + push y - pop
gforth background Redux
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 * * 0 max 1 min swap over * push swap over * push * pop pop
gforth background
BradN
'25 Jul 15
: z x y atan2 60000 / ; : noise 1 z / dup floor - ; noise
Gaussian noise
Stainless
'25 Jul 15
: z x 100 t sin * / ; : w y 100 t cos * / ; 1 z / dup floor - 1 w / dup floor - 1 z w + / dup floor -
Gaussian noise ish
Stainless
'25 Jul 15
: z x 100 / ; 1 z / dup floor -
Basic gauss map
Stainless
'25 Jul 15
: z x ; : w y 0.5 - 4 * ; : r z z * w w * + sqrt ; : a w z atan2 ; : n 2 ; r n a * - cos 6 * sin r n a * - cos 12 * sin r n a * - cos 3 * sin
Basic swirl Redux Redux
Stainless
'25 Jul 15
: z x 0.5 - 4 * ; : w y 0.5 - 4 * ; : r z z * w w * + sqrt ; : a w z atan2 ; : n 2 ; r n a * - cos 6 * sin r n a * - cos 12 * sin r n a * - cos 3 * sin
Basic swirl Redux
Stainless
'25 Jul 15
: z x 0.5 - 4 * ; : w y 0.5 - 4 * ; : r z z * w w * + sqrt ; : a w z atan2 ; : n t cos 16 * floor ; r n a * - cos 6 * sin
Basic swirl
Stainless
'25 Jul 15
: scale 20 t sin * ; : z x scale * ; : w y scale * ; z z * w w * + 50 z w + / sin z z * w w * - * / abs dup 3 / swap dup 4 / swap 5 /
Extended butterfly
Stainless
'25 Jul 15
Next