Haiku Gallery
: sqr dup * ; : dst sqr swap sqr + sqrt ; : acos dup sqr 1 - negate sqrt swap 1 + atan2 2 * ; : rad 0.5 ; : x' x 0.5 - ; : y' y 0.5 - ; : len x' y' dst ; : inside? len rad < ; : z rad sqr len sqr - sqrt ; : theta y' acos 2 * pi / ; : phi z x' atan2 pi / t 10 / + ; : txtr 25 25 z* cos >r cos r> < ; phi theta txtr z * inside? * dup dup
Rotating sphere Redux
Postrediori
'25 Jul 11
: odd 2 mod ; : sqr dup * ; : len sqr swap sqr + sqrt ; : acos dup sqr 1 - negate sqrt swap 1 + atan2 2 * ; : rad 0.5 ; : tiles 10 ; : tile tiles * floor odd ; : dx x 0.5 - ; : dy y 0.5 - ; : dlen dx dy len ; : inside? dlen rad < ; : z rad sqr dlen sqr - sqrt ; : theta dy acos 2 * pi / ; : phi z dx atan2 pi / ; : ofs t 10 / ; : txtr tile swap ofs + tile + odd 0.25 max ; phi theta txtr z * inside? * dup dup
Rotating sphere
Postrediori
'25 Jul 11
: size 8 ; : odd 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard
Postrediori
'25 Jul 11
: size 8 ; : odd 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard
Postrediori
'25 Jul 11
: size 8 ; : odd? 2 mod ; : tile size * floor odd ; x tile y tile + odd dup dup
Chessboard
Postrediori
'25 Jul 11
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 t + 0.01 * pop + 100 * sin ; x y spiral dup t cos * swap t sin * t sin cos
Colored rotating spiral
Postrediori
'25 Jul 11
( greetings to AS's Software Inc. ) : z1/ over dup * over dup * + rot over / -rot / ; : z x .5 - y .5 - ; : zmodule dup * swap dup * + sqrt ; : a 2.3 1 ; : b t sin 4 * -3 ; : c -2 3 ; a z z z* z* b z+ c z z* z1/ z* 4 / abs swap 4 / abs 2dup zmodule ( color correction ) over + 2 / swap t 2 * sin 1.5 + * .9 min
TFKP 2
Manwe
'25 Jul 11
: z x .5 - y .5 - ; ( complex number ) : z1/ over dup * over dup * + rot over / -rot / ; : zmodule dup * swap dup * + sqrt ; : a 2.3 t 2 * sin + 1.4 ; : b 1 -4 t sin - ; : c -2 3 t sin + ; : d 0 t 3 / sin 2 / - 1 ; ( complex function az+b / cz+d ) a z z* b z+ c z z* d z+ z1/ z* 2 / ( i-color correction ) 2dup zmodule 4 / ( module color correction )
TFKP 1
Manwe
'25 Jul 11
0.5 y - 0.5 x - atan2 t * 101 / 13 t * + x cos y sin * + dup sin swap cos 2dup 2dup z+ z*
hypnotic - what am i doing?
kamikazejones
'25 Jul 11
x .5 - y .5 - atan2 t 100 mod * 4 * dup 1 - sin over sin rot 1 + sin
Psyhodelic 2
Ivanq
'25 Jul 11
x .5 - y .5 - atan2 t 100 / 10 mod 300 + * 200 * dup 1 - sin over sin rot 1 + sin
Psyhodelic 1
Ivanq
'25 Jul 11
: f ( r x y - k ) -.5 -.5 z+ 2dup z* + sqrt - t sin * sin ; 0 x x 10 - * y + 40 + t * sin x y f 2 * x y * t + sin x x * y y * f 1.5 * x y * t + 3 + sin x x * y y * f 1.5 * + max
Rain of Scales
DarkstarAG
'25 Jul 11
: f ( r x y - k ) -.5 -.5 z+ 2dup z* + sqrt - t sin * sin ; 0 x x 40 - * y + -40 + t * sin x y f 3 * 0 x y * t + sin x x * y y * f max
Rain
DarkstarAG
'25 Jul 11
: f ( k x - k' x' ) dup .1 + >r sin 10 * tan * 1 + 2 / r> ; t x y * y + x log 1 + / sqrt f f f f f f t sin x 2 * y sin 10 / + f f f f f f y x * 13 * cos * f f f f f f f f z* 2dup z* 2dup 2dup z* z*
Mad Piccasso
DarkstarAG
'25 Jul 11
0 x .5 - pi * tan y .5 - pi * tan t sin t cos negate z* atan2 cos 1 + 2 / 0
Piramid 3D
Dar
'25 Jul 11
: f ( N - k ) dup >r dup >r x pi * * tan y 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 256 f 2 * ; 0 tile 1
Tile3
DarkstarAG
'25 Jul 11
: f ( N - k ) dup >r dup >r x pi * * tan y pi * r> * tan atan2 cos 1 + 2 / r> sqrt / + ; : tile 0 3 f 9 f 27 f ; 0 tile 1
Tile3 3D Redux
DarkstarAG
'25 Jul 11
: f ( N - k ) dup >r dup >r x pi * * tan y pi * r> * tan atan2 cos 1 + 2 / r> / + ; : tile 0 4 f 8 f 16 f 32 f 64 f 128 f 256 f 2 * ; 0 tile 1
Tile2 3D
DarkstarAG
'25 Jul 11
0 x 16 * tan y 16 * tan atan2 cos 1 + 2 / 0
Tile 3D
DarkstarAG
'25 Jul 11
( x y -.5 -.5 z+ t 2 / dup sin swap cos z* t sin 6 * exp 0 z* abs pow tan 4 + ) : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : rainbow2 ( .f - r g b ) dup 3 * 1 + sin exp .5 - swap dup 3 * 0 + sin exp .5 - swap dup 3 * 5 + sin exp .5 - swap drop ; ( x 5 * rainbow ) x 5 * rainbow2
Rainbow2 shader
Darkstar
'25 Jul 11
x y -.5 -.5 z+ t 2 / dup sin swap cos z* t sin 6 * exp 0 z* abs pow tan 4 + : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rainbow
Teleport
DarkstarAG
'25 Jul 11
t sin x 2dup y z*
6 words #2
Bowmanator
'25 Jul 11
x t + y mod dup
6 words
Anonymous
'25 Jul 11
: x x x y t .1 * + + sin + 2.1 * ; : y y x t .07 * + cos + 3 * ; : harm ( a b c d x - a+b*sin[x*d+c] ) * + sin * + ; : xy y .5 - pi * tan x .5 - pi * tan ; : r xy dup * swap dup * + sqrt 2 / ; : a y .5 - x .5 - atan2 ; 0 1 3 t 2 / + 8 t r + harm .7 2 t 3 * + 3 t 4 / a + harm .5 3 t 7 * + 17 t r + harm .7 6 t 11 * + 12 t 13 / a + harm 5 / .5 + r - abs 0.01 - 1 - negate abs dup 4 ** swap 20 **
Fire Cookie Cells
Anonymous
'25 Jul 11
: ' .5 - t 1e8 * * sin ; x ' y ' * t 2 / cos 10 * + : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rainbow
CPU
DarkstarAG
'25 Jul 11
t sin 1 + 2 / x .5 - abs / y * sin 20 * sin 2 / 5 + 2 pow : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rainbow
Pavo
DarkstarAG
'25 Jul 11
x t y * * pi 2 * * sin
Flow
Anonymous
'25 Jul 11
: harm ( a b c d x - a+b*sin[x*d+c] ) * + sin * + ; : xy y .5 - pi * tan x .5 - pi * tan ; : r xy dup * swap dup * + sqrt 2 / ; : a y .5 - x .5 - atan2 ; 0 1 3 t 2 / + 8 t r + harm .7 2 t 3 * + 3 t 4 / a + harm .5 3 t 7 * + 17 t r + harm .7 6 t 11 * + 12 t 13 / a + harm 5 / .5 + r - abs 0.01 - 1 - negate abs dup 4 ** swap 20 **
Tangencial Space Fire Cookie Redux
Anonymous
'25 Jul 11
: f x t + 16 * sin x t 1 * * .1 + sin 3 * + y .1 / 5 - 2 * ; 0 f - abs 0.01 - 1.4 - negate abs -1.2 pow 0
Alien DNA
DarkstarAG
'25 Jul 11
: p pi * 2 * dup cos .5 * swap sin -.5 * .5 .5 z+ ; : l dup * swap dup * + sqrt ; : a -1 * x + swap -1 * y + l dup 2 < swap * -1 * 1 + ; 1 12 / t 5 / + dup p a swap 1 3 / + dup p a swap 1 3 / + p a
rotating colors
kamikazejones
'25 Jul 11
( Hi, BradN! Thank you for your work ! ) : pulse t 2 * sin 2 / ; : x' x .5 - 5 pulse + * ; : y' y .5 - 5 pulse + * ; ( use manual pow: ) : ^2 dup * ; : ^3 dup dup * * ; ( cardioida heart ) : cardioida x' ^2 y' ^2 + 1 - ^3 x' ^2 y' ^3 * - ; cardioida abs .4 pow 4 / : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rainbow
We Love Forth! Redux
DarkstarAG
'25 Jul 11
: sinus ( scale freq ) t * sin * ; : xy 0.4 0.13 sinus x + 0.5 - 0.4 0.17 sinus y + 0.5 - ; : d xy dup * >r dup * r> + sqrt ; : band d 6 * ; : arm xy atan2 d + over * t - * sin band pi * sin * ; 5 arm 3 arm 2 arm
hypnodisk 1
Bowmanator
'25 Jul 11
: xy x .3333 - y 0.3333 - ; : d2 dup * >r dup * r> + ; : arm xy atan2 xy d2 + over * t - * sin ; 5 arm 3 arm 2 arm
sqirals
Bowmanator
'25 Jul 11
: o over ; : d dup ; : 1m swap ; : 2m >r 1m r> 1m ; : len d * 1m d * + sqrt ; : x' x 0.5 - y 0.5 - t sin * 1m t cos * + ; : y' x 0.5 - y 0.5 - t cos * 1m t sin * - ; : r1 12 / cos 2 / ; : r2 2 pi * + 12 / cos 2 / ; : r3 4 pi * + 12 / cos 2 / ; : colour 8 pi * / ; y' x' atan2 pi + d d d r3 1m r2 2m r1 x' y' len d d >r >r > 1m r> > 2m r> > + + 2 pi * * + colour x' y' len 1 1m - * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; 1.5 + rainbow
Spiral Redux
DarkstarAG
'25 Jul 11
: p 5 * 1 mod ; : h * 6 * 1 mod 2 * 1 mod ; : s negate 1 + ; x p y p h x 0.1 + s p y 0.1 + s p h * x s p y s p h * 3 *
Untitled
Anonymous
'25 Jul 11
( so crazy ... ) : 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 xy atan2 ; : r' a abs log 2 / ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; r' r - .12 - abs 2 ** .01 - rainbow
Dat Rainbow Dash Anim
DarkstarAG
'25 Jul 11
: x' x 1 - abs ; : k t sin 1 + ; : kb 3 k / ; : n 0.3 - pi k * * ; : f y n sin abs x' n 0.2 * mod kb * y n sin abs x n 0.2 * mod kb * + ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; f t sin * rainbow
Impulse Redux
DarkstarAG
'25 Jul 11
: xy x .5 - y .5 - ; : r xy 2dup negate z* + sqrt ; : a xy atan2 ; : r' a log ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; r' r - rainbow
Dat Rainbow Dash
DarkstarAG
'25 Jul 11
( Logistic map y' = 1-L*y^2 ) ( Bifurcation ) : xz x 2 * ; : yz y ; : ' 128 * floor ; : z ( y - 1-xyy ) dup * xz * 1 - negate ; yz z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z z y - abs 1.2 - abs 111 pow sin
Logistic Map 4 Cancer Chaos
DarkstarAG
'25 Jul 11
: k 2 * 1 mod ; : neg negate ; : inv neg 1 + ; : a + 5 * 1 mod ; : x' x y a ; : y' x y neg a ; : o x neg y a neg 1 + ; : o' x y a neg 1 + ; x' y' * k k x' inv y' inv * k k o' o * k k o' inv o inv * k k 12 *
round dream Redux
D
'25 Jul 11
Next