Haiku Gallery
: i 2dup z* log ; x y -.5 dup z+ over 3 z* i i i
Zhostovo detail (haiku 5,7,5)
adg
'25 Sep 16
: i 2dup z* log cos ; x y -.5 dup z+ i i i log over
Violet (haiku 5,7,5)
adg
'25 Sep 16
x y
Simple Gradient
Anonymous
'25 Sep 16
: p .5 - ; : r x p x p * y p y p * + sqrt ; : i r 10 * floor ; 1 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / cos r i * 10 / * 100 * - t 2 / sin 20 * + + cos 2 / .5 + 10 / r + 10 * floor 10 / - dup 2 / 2dup + -rot ( GLSL shader by FabriceNeyret2 )
SunFlower 3 Redux
Manwe
'25 Sep 16
: p 2 * .8 - ; : r x x * p y y * p + sqrt ; : i r 10 * floor ; 1 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / cos r i * 10 / * 100 * - t -5 / 1 mod pi * 20 * + + cos 2 / .5 + 10 / r + 10 * floor 10 / - dup 2 / swap 2dup + ( based on SunFlower 3 by FabriceNeyret2 )
Flow
Manwe
'25 Sep 16
: p 2 * 1 - ; : r x p x p * y p y p * + sqrt ; : i r 10 * floor ; 1 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / cos r i * 10 / * 100 * - t 2 / sin 20 * + + cos 2 / .5 + 10 / r + 10 * floor 10 / - dup 2 / 2dup + -rot ( GLSL shader by FabriceNeyret2 )
SunFlower 3
Manwe
'25 Sep 16
: sq t * sin 0 > ; 4 sq 16 sq * .1 * 8 sq .2 * + 8 sq 4 sq * .1 * + 16 sq 2 sq * .1 * + 32 sq 2 sq * .1 * + 16 sq 1 sq * .1 * + .1 + x .5 < * 16 sq 8 sq * 4 sq 1 swap - 8 sq * + 8 sq 1 swap - 32 sq * + x .5 > * +
Audio 11
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 16 sq .1 * 8 sq .2 * + 4 sq .2 * + 2 sq .1 * + 1 sq .2 * + .1 + x .5 < * 16 sq 4 sq 1 swap - + 8 sq 1 swap - + x .5 > * +
Audio 11
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 16 sq .1 * 8 sq .2 * + 4 sq .2 * + 2 sq .1 * + 1 sq .1 * + .1 + x .5 < * 16 sq 4 sq + 128 sq + x .5 > * +
Audio 10
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 16 sq .1 * 8 sq .2 * + 4 sq .2 * + 2 sq .1 * + 1 sq .1 * + .1 + x .5 < * 16 sq 128 sq + x .5 > * +
Audio 9
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 8 sq .2 * 4 sq .2 * + 2 sq .1 * + 1 sq .2 * + .1 + x .5 < * 16 sq 32 sq + 64 sq + 128 sq + x .5 > * +
Audio 8
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 8 sq .2 * 4 sq .1 * + 2 sq .2 * + 1 sq .2 * + .1 + x .5 < * 16 sq 32 sq + x .5 > * +
Audio 7
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 8 sq .2 * 4 sq .1 * + 2 sq .2 * + 1 sq .2 * + .1 + x .5 < * 32 sq x .5 > * +
Audio 6
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 16 3 / sq .2 * 16 5 / sq .1 * + 16 4 / sq .2 * + 16 6 / sq .2 * + .1 + x .5 < * 32 sq x .5 > * +
Audio 5
Anonymous
'25 Sep 16
: sq t * sin 0 > ; 16 3 * sq .2 * 16 5 * sq .1 * + 16 4 * sq .2 * + 16 6 * sq .2 * + .1 + x .5 < * 16 sq x .5 > * +
Audio 4
Anonymous
'25 Sep 16
t sin 1 + 2 / t 3 * cos 1 + 2 / + t 7 * cos 1 + 2 / + 2 / .7 > x .5 > * : t t .1 + ; t sin 1 + 2 / t 3 / cos 1 + 2 / + t 7 / cos 1 + 2 / + 3 / x .5 < * +
Audio 3
BradN
'25 Sep 16
t sin 1 + 2 / t 3 * cos 1 + 2 / + t 7 * cos 1 + 2 / + 2 / x .5 > * : t t .1 + ; t sin 1 + 2 / t 3 / cos 1 + 2 / + t 7 / cos 1 + 2 / + 2 / x .5 < * +
Audio 2
BradN
'25 Sep 16
t 11 * sin 1 + 2 / x .5 > * t sin 1 + 2 / t 3 * cos 1 + 2 / + t 7 / cos 1 + 5 / + + 2 /
Audio 1
BradN
'25 Sep 16
t x 10 * + sin .1 * 0 1 x 10 * cos .1 t cos * * y - .5 + sqrt -
Sea Change Redux
Anonymous
'25 Sep 16
: z .5 - t 11 / sin 2 + / ; : asin t 3 / sin 2 / 1 + over dup * - sqrt atan2 ; : l 2dup dup * swap dup * + sqrt dup >r -rot r> dup * swap over / -rot / t .154 * - sin asin swap t .2485 * + sin asin 2dup dup * swap dup * + 1 swap - 0 max 1 mod 6 * 3 - abs 0 max 1 min >r rot 1 r> - * 1 + r> + >r ; 0 >r x z y z l l l l r> 4 / / over 1 swap - ( welcome to http://thesands.ru/forth-demotool/ )
Psychedelic
Manwe
'25 Sep 16
: i 2dup z* log ; x .5 - y .5 - i i i log over
Primrose flower (haiku)
adg
'25 Sep 16
: f .5 - t tan * 50 * ; x f y f 2dup z* log
Quadricuspid Valve (haiku)
adg
'25 Sep 16
( Simple transformations ) : rotate ( x y angle - x' y' ) dup push sin pop cos negate z* ; : tran ( x y dx dy - x' y' ) z+ ; : scale ( x y k - x' y' ) dup negate z* ; y x atan2 x dup * -.5 -.5 tran 5 scale t rotate
X
DarkstarAG
'25 Sep 16
( : >z0 -.5 -.5 z+ ; : rotate [ x y a - x' y' ] dup sin >r cos r> z* ; : x x y >z0 2 2 z* t rotate drop ; : y x y >z0 2 2 z* t rotate swap drop ; ) : x x .5 + 2 / 0.24 - ; : y y .5 + 2 / 0.06 - ; : hexagon ( - k ) x y 3 sqrt / - abs 0.1 < x 0.5 - y 3 sqrt / + abs 0.1 < and y 0.435 - abs 0.091 < and ; hexagon
Hexagon 0
DarkstarAg
'25 Sep 16
: x x 2 * ; : y y 2 * ; : :) sin abs t sin 0.2 + 10 * pow 1.2 / ; x 2.1 * y - 15 * t + :) x 0.6 * y - 25 * t - :) x -6.1 * y - 5 * t - :)
Blinds
DarkstarAg
'25 Sep 16
: x x y 7 * sin 6 / + ; : k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 100 pow ; t 3 * y k * + f x 7 * 2.9 + cos 1 + sqrt 3 pow
Yellow Way Redux2
DarkstarAg
'25 Sep 16
: x x y 7 * sin 6 / + ; : k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 100 pow ; t 3 * y k * + f x 7 * 2.9 + cos 1 + sqrt 3 pow
Yellow Way Redux2
DarkstarAg
'25 Sep 16
: x x y x 4 * cos * 5 * sin 4 / + ; : k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 100 pow ; t 3 * y k * + f x 7 * 2.9 + cos 1 + sqrt 3 pow
Yellow Way Redux
DarkstarAg
'25 Sep 16
: i 2dup z* t sin dup z+ ; x y i i i i i sqrt
Julia haiku
adg
'25 Sep 16
: f t sin log abs .32 + 200 * dup push * floor pop / ; : x x f ; : y y f ; : c t 0.01398413 + sin t -0.9132423 + sin ; : i 2dup z* c z+ ; : n dup * swap dup * + ; : j 2dup >r >r n 16 > + r> r> i ; : scale .5 - t sin abs .64 * 1.6 + pi * * .5 * ; : sclxy scale swap scale swap ; : i4 j j j j ; : julia 0 x y sclxy i4 i4 i4 i4 drop drop ; 0 julia dup push 16 / pop sqrt
Focusing on Julia
adg
'25 Sep 16
: f t sin log abs 100 * dup push * floor pop / ; : x x f ; : y y f ; 1 y 2 * - x y 2 * 8 ** t 9 / sin * + .5 - abs 2dup > .5 y - * -rot 45 * > 3 1 y 1.8 * - / t 1 mod 6 * + floor 2 mod 1 y 1.8 * - * 4 / * + dup 0 = .5 y - * .75 ** y .5 < * over + over 1 x t 9 / cos + 12 * sin 30 / y .6 - < * + 1.5 y 1.3 * - y .5 > * -
Falling Asleep (was: Night Road Redux)
adg
'25 Sep 16
: sqr 2 ** ; : rep * dup floor - ; : rou 2 * 1 - sqr ; : cir y rep rou swap x rep rou + ; : neg 1 - negate ; : to1 1 + 2 / ; : mul * 3 / + sin to1 - ; : t10 t pi 6 mul ; : t11 t pi 3 mul ; : t20 t pi 2 mul ; : t21 t pi 5 mul ; : t30 t pi 4 mul ; : t31 t pi 1 mul ; 3 t10 3 t10 cir neg t10 3 t10 3 t10 cir neg t11 max 3 t20 3 t20 cir neg t20 3 t20 3 t20 cir neg t21 max 3 t30 3 t30 cir neg t30 3 t30 3 t30 cir neg t31 max
Circles pulse
Shabohin
'25 Sep 16
1 t x 10 * + sin .1 * y - 0.5 + sqrt - 0 1 x 10 * cos .1 t cos * * y - .5 + sqrt -
Sea Change
hektor441
'25 Sep 16
1 x 0.7 - dup * x sqrt * 3.3 * y - 0.3 + sqrt - random 0.3 *
x*x*sqrt(x)
hektor441
'25 Sep 16
: f 16 * floor 16 / ; x f y f max t sin abs mod
Up and to the Right haiku
adg
'25 Sep 16
: xy x y + t cos abs + ; : yx y x - t cos abs + ; : x' x t sin abs + ; : y' y t sin abs + ; x' 0.1 > x' 0.2 < and x' 0.3 > x' 0.4 < and or x' 0.5 > x' 0.6 < and or x' 0.7 > x' 0.8 < and or x' 0.9 > x' 1.0 < and or x' 1.1 > x' 1.2 < and or x' 1.3 > x' 1.4 < and or x' 1.5 > x' 1.6 < and or x' 1.7 > x' 1.8 < and or t cos abs * y' 0.1 > y' 0.2 < and y' 0.3 > y' 0.4 < and or y' 0.5 > y' 0.6 < and or y' 0.7 > y' 0.8 < and or y' 0.9 > y' 1.0 < and or y' 1.1 > y' 1.2 < and or y' 1.3 > y' 1.4 < and or y' 1.5 > y' 1.6 < and or y' 1.7 > y' 1.8 < and or t cos abs * xy 0.2 > xy 0.4 < and xy 0.6 > xy 0.8 < and or xy 1.0 > xy 1.2 < and or xy 1.4 > xy 1.6 < and or xy 1.8 > xy 2.0 < and or xy 2.2 > xy 2.4 < and or xy 2.6 > xy 2.8 < and or t sin abs * yx -1.2 > yx -1.0 < and yx -0.8 > yx -0.6 < and or yx -0.4 > yx -0.2 < and or yx 0.0 > yx 0.2 < and or yx 0.4 > yx 0.6 < and or yx 0.8 > yx 1.0 < and or yx 1.2 > yx 1.4 < and or yx 1.6 > yx 1.8 < and or - t sin abs * 1 z*
Tessellation #5
adg
'25 Sep 16
: xy x y + t cos abs + ; : yx y x - t cos abs + ; : x' x t sin abs + ; : y' y t sin abs + ; x' 0.1 > x' 0.2 < and x' 0.3 > x' 0.4 < and or x' 0.5 > x' 0.6 < and or x' 0.7 > x' 0.8 < and or x' 0.9 > x' 1.0 < and or x' 1.1 > x' 1.2 < and or x' 1.3 > x' 1.4 < and or x' 1.5 > x' 1.6 < and or x' 1.7 > x' 1.8 < and or t cos abs * y' 0.1 > y' 0.2 < and y' 0.3 > y' 0.4 < and or y' 0.5 > y' 0.6 < and or y' 0.7 > y' 0.8 < and or y' 0.9 > y' 1.0 < and or y' 1.1 > y' 1.2 < and or y' 1.3 > y' 1.4 < and or y' 1.5 > y' 1.6 < and or y' 1.7 > y' 1.8 < and or t cos abs * xy 0.2 > xy 0.4 < and xy 0.6 > xy 0.8 < and or xy 1.0 > xy 1.2 < and or xy 1.4 > xy 1.6 < and or xy 1.8 > xy 2.0 < and or xy 2.2 > xy 2.4 < and or xy 2.6 > xy 2.8 < and or t sin abs * yx -1.2 > yx -1.0 < and yx -0.8 > yx -0.6 < and or yx -0.4 > yx -0.2 < and or yx 0.0 > yx 0.2 < and or yx 0.4 > yx 0.6 < and or yx 0.8 > yx 1.0 < and or yx 1.2 > yx 1.4 < and or yx 1.6 > yx 1.8 < and or - t sin abs * 1 z+
Tessellation #4
adg
'25 Sep 16
: xy x y + ; : yx y x - ; x 0.1 > x 0.2 < and x 0.3 > x 0.4 < and or x 0.5 > x 0.6 < and or x 0.7 > x 0.8 < and or x 0.9 > x 1.0 < and or y 0.1 > y 0.2 < and y 0.3 > y 0.4 < and or y 0.5 > y 0.6 < and or y 0.7 > y 0.8 < and or y 0.9 > y 1.0 < and or xy 0.2 > xy 0.4 < and xy 0.6 > xy 0.8 < and or xy 1.0 > xy 1.2 < and or xy 1.4 > xy 1.6 < and or xy 1.8 > xy 2.0 < and or yx -0.8 > yx -0.6 < and yx -0.4 > yx -0.2 < and or yx 0.0 > yx 0.2 < and or yx 0.4 > yx 0.6 < and or yx 0.8 > yx 1.0 < and or z*
Tessellation #3
adg
'25 Sep 16
: xy x y + ; : yx y x - ; x 0.1 > x 0.2 < and x 0.3 > x 0.4 < and or x 0.5 > x 0.6 < and or x 0.7 > x 0.8 < and or x 0.9 > x 1.0 < and or y 0.1 > y 0.2 < and y 0.3 > y 0.4 < and or y 0.5 > y 0.6 < and or y 0.7 > y 0.8 < and or y 0.9 > y 1.0 < and or xy 0.2 > xy 0.4 < and xy 0.6 > xy 0.8 < and or xy 1.0 > xy 1.2 < and or xy 1.4 > xy 1.6 < and or xy 1.8 > xy 2.0 < and or yx -0.8 > yx -0.6 < and yx -0.4 > yx -0.2 < and or yx 0.0 > yx 0.2 < and or yx 0.4 > yx 0.6 < and or yx 0.8 > yx 1.0 < and or z+
Tessellation #2
adg
'25 Sep 16
: xy x y + ; : yx y x - ; x 0.1 > x 0.2 < and x 0.3 > x 0.4 < and or x 0.5 > x 0.6 < and or x 0.7 > x 0.8 < and or x 0.9 > x 1.0 < and or y 0.1 > y 0.2 < and y 0.3 > y 0.4 < and or y 0.5 > y 0.6 < and or y 0.7 > y 0.8 < and or y 0.9 > y 1.0 < and or xy 0.2 > xy 0.4 < and xy 0.6 > xy 0.8 < and or xy 1.0 > xy 1.2 < and or xy 1.4 > xy 1.6 < and or xy 1.8 > xy 2.0 < and or yx -0.8 > yx -0.6 < and yx -0.4 > yx -0.2 < and or yx 0.0 > yx 0.2 < and or yx 0.4 > yx 0.6 < and or yx 0.8 > yx 1.0 < and or - - -
Tassellation #1
adg
'25 Sep 16
Next