Haiku Gallery
: q .6 - 5 * dup 1 mod * ; x q y q + t sin - 1 mod dup .3 ** .5
Nenuphar 63 bytes
Manwe
'25 Feb 18
: z t sin over / y 100 t sin + + sin x 0.5 - atan2 + 15 * cos + sin ; 1 z 0.9 z 1.1 z
Color Lines BaechBall
DarkstarAG
'25 Feb 18
: z t sin over / y x 0.5 - atan2 + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines Pavo 63 b Redux
DarkstarAG
'25 Feb 18
: z t sin over / y x 0.5 - atan2 + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines Pavo 63 b Redux
DarkstarAG
'25 Feb 18
: z t sin over / y + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines 49 b
DarkstarAG
'25 Feb 18
: b t * sin 3 / .6 + y - dup abs .2 < * 16 * sin ; 1 b .9 b 1.1 b
Color Bars 65 byres
Manwe
'25 Feb 18
: b t * sin 2.5 / .6 + y - dup abs .24 < * 13 * sin ; 1 b .9 b 1.1 b
Color Bars 68 byres
Manwe
'25 Feb 18
: b t * cos 2.4 / .5 + y over - 12.6 * cos swap y - abs .12 < * ; 1 b .9 b 1.1 b
Color Bars 80 byres
Manwe
'25 Feb 18
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 15 * x 8 * floor 8 / + 4 * c 2 / t 10 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'25 Feb 18
: x x 2 * 1 - ; : y y 2 * 1 - ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 - : x x negate ; : y y negate ; y x t sin * atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 + push + pop
blempfler Redux
Stainless
'25 Feb 18
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2
PACMAN Redux
Anonymous
'25 Feb 18
: x x 2 * 1 - ; : y y 2 * 1 - ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 - : x x negate ; : y y negate ; y x atan2 pi / 3 * x x * y y * + 6 * cos 6 / + dup .5 + push + pop
blempfler
BradN
'25 Feb 18
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * tan * dup t 3 * tan *
Rep Redux Redux
xxxxxxx
'25 Feb 18
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * tan * dup t 3 * tan *
Disco Redux Redux
xxxxxxx
'25 Feb 18
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * cos * dup t 3 * sin *
Disco Redux
xxxxxxx
'25 Feb 18
Untitled
Anonymous
'25 Feb 18
Untitled
Anonymous
'25 Feb 18
SUKA
Anonymous
'25 Feb 18
: iii x y z* sin x / ; x 5 * x y - iii exp y iii
Untitled
Anonymous
'25 Feb 18
: wave t sin sin 50 * ; wave y + wave y * sin x +
Linear Pulse Reloaded haiku
pop
'25 Feb 18
: wave t sin 50 * ; wave y wave y * sin x
Linear Pulse Reloaded
pop
'25 Feb 18
y x * t sin * abs x tan + x y * t cos * abs x tan + x t * t tan * x tan -
strange bars
wormsbiysk \ LSA
'25 Feb 18
: sh 2 * 1 - dup * ; x sh y sh - .1 < dup
Sanduhr
vaxman
'25 Feb 18
x 2 * 1 - dup * y 2 * 1 - dup * + x y
Without title no. 1
vaxman
'25 Feb 18
: pulse t sin abs 10 * ; pulse x * pulse y * 2 y *
Linear Pulse
sy2002
'25 Feb 18
1 0 0
red Redux
Anonymous
'25 Feb 18
random t * sin 1 + 2 / dup dup
It's not a Random!
DarkstarAG
'25 Feb 18
: d dup ; : fract d floor - ; : x x .5 - ; : y y .5 - ; : len x d * y d * + sqrt ; : len2 x 2 * d * y 2 * d * + sqrt ; : mix 1 over - z* swap drop ; : f fract 3 over 2 * - over * * ; : uvx x y atan2 pi 2 * / .5 + 48 * ; : uvy len .4 * t .05 * - 48 * ; : uvz .5 t .01 * + 48 * ; : v 3 mod floor ; : uv0x uvx v ; : uv1x uvx 1 + v ; : uv0y uvy v 100 * ; : uv1y uvy 1 + v 100 * ; : uv0z uvz v 10000 * ; : uv1z uvz 1 + v 10000 * ; : vx uv0x uv0y uv0z + + ; : vy uv1x uv0y uv0z + + ; : vz uv0x uv1y uv0z + + ; : vw uv1x uv1y uv0z + + ; : ra .001 * sin 100000 * fract ; : rb uv1z + uv0z - ra ; : r0 vx ra vy ra uvx f mix vz ra vw ra uvx f mix uvy f mix ; : r1 vx rb vy rb uvx f mix vz rb vw rb uvx f mix uvy f mix ; 3 len2 3 * - .5 r0 r1 uvz f mix 2 * 1 - * + ( color correction ) 0 max d 2 ** .4 * over 3 ** .15 * ( based on “Ball of Fire” GLSL shader by Trisomie21 )
Kolovrat
thesands.ru/forth
'25 Feb 18
: d dup ; : fract d floor - ; : px x .5 - ; : py y .5 - ; : len px d * py d * + sqrt ; : mix 1 over - z* swap drop ; : f fract 3 over 2 * - over * * ; : power pop d push ; : uvx px py atan2 pi 2 * / .5 + power * ; : uvy len .4 * t .05 * + power * ; : uvz .5 t .01 * + power * ; : v power mod floor ; : uv0x uvx v ; : uv1x uvx 1 + v ; : uv0y uvy v 100 * ; : uv1y uvy 1 + v 100 * ; : uv0z uvz v 10000 * ; : uv1z uvz 1 + v 10000 * ; : vx uv0x uv0y uv0z + + ; : vy uv1x uv0y uv0z + + ; : vz uv0x uv1y uv0z + + ; : vw uv1x uv1y uv0z + + ; : ra .001 * sin 100000 * fract ; : rb uv1z + uv0z - ra ; : r0 vx ra vy ra uvx f mix vz ra vw ra uvx f mix uvy f mix ; : r1 vx rb vy rb uvx f mix vz rb vw rb uvx f mix uvy f mix ; 2 len 6 * - 1.5 2 / 16 push r0 r1 uvz f mix 2 * 1 - * + pop drop ( color correction ) abs sqrt 1 swap - 0 max 1.5 * d 2 ** .4 * over 3 ** .15 * rot ( 3 / d 2.5 * over sqrt ) ( based on “Ball of Fire” GLSL shader by Trisomie21 )
Ink
thesands.ru/forth
'25 Feb 18
Untitled
Anonymous
'25 Feb 18
: ^2 dup * ; : ^3 dup dup * * ; : xy' x y -.5 -.5 z+ 100 0 z* ; xy' ^2 swap ^2 + 1 - .33 ** t 10 * * tan log ^2 -.3 +
Carpet 5
DarkstarAG
'25 Feb 18
( math 3-dim vectors ) : ^2 dup * ; : r@ r> dup >r ; : 3dup ( abc - abc abc ) dup >r >r 2dup r> -rot r> ; : 3r ( abc - r ) ^2 swap ^2 + swap ^2 + sqrt ; : nn ( abc - abc/d ) 3dup 3r >r r@ / -rot r@ / -rot r> / ; : dot ( v1:abc v2:def - cos[a] ) >r rot r> * >r ( ab de R:c*f ) rot * -rot * + r> + ; : asin ( x - y ) 1 over ^2 - sqrt / 1 atan2 ; : xy' x y -.5 -.5 z+ ; : r ( xy - r ) ^2 swap ^2 + sqrt ; : normal xy' 2dup r 1 - negate asin pi / ; : light t 3 * sin ^2 t 5 * cos ^2 t sin t cos * ; : asin-test xy' swap pi 0 z* asin < ; : in? xy' r .5 < ; ( asin-test ) normal nn light nn dot in? * dup dup
Moon Light
DarkstarAG
'25 Feb 18
: ^2 dup * ; : xy x y -.5 -.5 z+ ; : r xy ^2 swap ^2 + sqrt ; : xy' xy r 20 * tan 0 z* ; : c ( a b - k:=sin[angle*b+a*t] ) xy' atan2 * swap t * + sin ; 12 13 c 5 9 c 3 17 c
Roulette
DarkstarAG
'25 Feb 18
: x x .5 - 2 dup * * 2 * tan 1 + 2 / ; : y y .5 - 2 dup * * 2 * tan 1 + 2 / ; : q dup * ; : d2 q swap q + ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : r2 r q ; : tl 1.58 t sin 5 / + ; : ' 0.5 - ; : 's ' tl cos * ; : 'c ' tl sin * ; : x' x 'c y 's - ; : y' y 'c x 's + ; : l2 x ' y ' d2 ; : in? l2 r2 < ; : z r2 l2 - sqrt ; : th y' acos 2 * pi / ; : ph z x' atan2 pi / t 9 / + ; : zydup ( zyx - zyzyx ) >r 2dup r> ; : zydrop ( zyx - x ) >r drop drop r> ; : to-r ( x - x R: x ) dup >r ; : f ( N - k ) to-r to-r th pi * * tan ph pi * r> * tan 2dup z* t sin t sin exp z* atan2 cos 1 + 2 / r> / + ; : tile 0 4 f 8 f 16 f 32 f ( 64 f 128 f ) 2 * ; : txtr tile zydrop ; z in? * 1.5 * ph th txtr over * dup rot
Shperes Field
DarkstarAG
'25 Feb 18
: c x y -.5 -.5 z+ atan2 * swap t * + sin ; 11 7 c 9 5 c 5 11 c
Simple Rays
DarkstarAG
'25 Feb 18
0 x y t sin / * cos tan
Untitled
Anonymous
'25 Feb 18
: q dup * ; : dst q swap q + sqrt ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : ' 0.5 - ; : l x ' y ' dst ; : in? l r < ; : z r q l q - sqrt ; : th y ' acos 2 * pi / ; : ph z x ' atan2 pi / t 10 / + ; ( : txtr 25 25 z* cos >r cos r> < 0.3 max ; ) : r@ r> dup >r ; : j r> r> dup >r swap >r ; : v * floor 3 mod 1 = ; : l dup dup r@ v swap j v and swap 3 * ; : txtr >r >r 0 3 l l l l l drop + + + + + r> drop r> drop ; ph th txtr z * in? * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; t 12 / sin 5 * + rainbow
Sierpinski Globe
DarkstarAG
'25 Feb 18
: q dup * ; : dst q swap q + sqrt ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : ' 0.5 - ; : l x ' y ' dst ; : in? l r < ; : z r q l q - sqrt ; : th y ' acos 2 * pi / ; : ph z x ' atan2 pi / t 10 / + ; ( : txtr 25 25 z* cos >r cos r> < 0.3 max ; ) : txtr 25 -25 z* cos swap cos max abs 16 pow ; : xy x .5 - y .5 - t 2 * 4 + sin 9 / t 6 * y + sin 5 / z+ ; : r xy t 3 * sin 3 / t 4 * sin 5 / z+ 2dup negate z* + sqrt ; : a atan2 24 / ; : r'' a abs log 2 / ; : txtr r'' r - .12 - abs 2 ** .01 - ; ph th txtr z * in? * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; t 12 / sin 5 * + rainbow
Apple!
DarkstarAG
'25 Feb 18
: ' .5 - ; : ^2 dup * ; : x' x ' 1 y ' ^2 - pi * cos * ; : y' y ; : tex ( x y - t ) 25 -25 z* cos swap cos max abs 16 pow ; x' y' tex
Lattice 2
DarkstarAG
'25 Feb 18
x y 25 -25 z* cos swap cos max abs 16 pow
Lattice
DarkstarAG
'25 Feb 18
Next