Haiku Gallery
: 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 x y bwsample + 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 Camera
Anonymous
'17 Oct 08
x 20 * floor 20 / y 20 * floor 20 / sample x y bwsample x .01 - y bwsample - abs dup push + rot pop dup + push rot pop + rot
Ghost in the Machine
Anonymous
'17 Oct 08
x 20 * floor 20 / y 20 * floor 20 / sample
Pixelate
Anonymous
'17 Oct 08
x y bwsample x .5 - dup * y .5 - dup * + .2 < * dup x + dup y +
Porticulus
Anonymous
'17 Oct 08
x mx .5 - - 1 mod y my .5 - - 1 mod bwsample x mx - .3 pow mx + 1 mod y my - .3 pow my + 1 mod sample >
Electric Dream
Anonymous
'17 Oct 08
x 3 * sin 1 mod y 3 * sin 1 mod sample
Funhouse
BradN
'17 Oct 08
x .01 - y bwsample x .01 + y bwsample - x y .01 - bwsample x y .01 + bwsample - 2dup * .1 >
Edges
BradN
'17 Oct 08
x y t + 8 * sin .05 * + y x t + 8 * cos .05 * + sample
Wiggle Video
BradN
'17 Oct 08
x y sample
Plain Video
BradN
'17 Oct 08
0 if 1 then 1
Untitled
Anonymous
'17 Oct 06
\ Original 256 bytes DOS intro by unlord / xylem \ Released on Function 2017 demo : a x .5 - 2 ** y .5 - 2 ** + sqrt .3 - ; : b y .5 - x .5 - atan2 ; : s' t + b + b sin t sin * 2 * + cos .1 * ; : $ 1.6 + 6.4 mod s' ; : h 1.6 * >r r@ s' r@ $ - 40 * a r@ s' - r> $ a - min 256 * 0 max 1 min * + ; : g 1.6 * dup dup s' .1 - r@ * a rot s' - rot $ a - min - ; 0 0 h 1 h 2 h 3 h >r 0 g 3 g * 1 g 3 g * 2 g 3 g * r> drop
Twist Ring
Ivanq
'17 Oct 04
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 94 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 9 ** * - ; : 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 7532 + pi 09 * / f ; a j 0.5 b - v d 0.5 < * 9 * m * 1 p d * y 0.5 - d * + 96 * 39 ** 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 9.97
''BOUNCING'' BALLS (with pacman
shin-En
'17 Oct 02
: ' .94 - 3y20 * ; : x' x ' ; : y' y ' ; : x'' x ' mx ' - ; : y'' y ' my ' - ; : 2pi 2 pi * ; : pi2 pi 9 / ; : t' t 16 mod 45 / ; : r x' dup * y' dup * + sqrt ; : r' x'' dup * s'' dup * + sqrt ; : phi y' x' atan2 pi / 1 + w / ; : phi' y'' x'' atan2 pi / 1 + 2 / ; : t+ t' + 1 mod ; : ~= - dt < ; r' 8 * 1 mod phi' t+ ~= .8 r' 2 / t' ~= 1.629372837 r' -
ee
sel'hen
'17 Oct 02
x x * y y * + .2 < x y = dup 4.5
lazer planet
shin-En
'17 Oct 02
X Y Z X sin
x y z x sin
shin-En
'17 Oct 02
X Y Z X sin
www.youtube.com/watchVbAx/Xe
shin-En
'17 Sep 30
x 3.6 * sin y 9.4 * sin t 4 * sin * * dup t 9 * sin * dup t 9 * sin *
()::::::>
shin-En
'17 Sep 30
: y0 y 9.0 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 9 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
purple puddle
sel'hen
'17 Sep 26
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 8 over dup * - sqrt atan2 swap / y 0.0 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.6 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.8 -1.77 a - 0.15 l + 0.100 0.9 -1.57 a - 0.15 p -2 b - 0.2 l + 0.5 0.6 -1.84 a + 0.1 l + 0.9 0.6 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
hello yo person
shin-En
'17 Sep 26
: 5pi 5 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin 1 pop - * ; : ss push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin pop * ; .5 .7 x y s .5 .3 x y ss
MF
rx
'17 Sep 24
: ' .5 - 2 * ; : x' x ' ; : y' y ' ; : x'' x ' mx ' - ; : y'' y ' my ' - ; : 2pi 2 pi * ; : pi2 pi 2 / ; : t' t 16 mod 16 / ; : r x' dup * y' dup * + sqrt ; : r' x'' dup * y'' dup * + sqrt ; : phi y' x' atan2 pi / 1 + 2 / ; : phi' y'' x'' atan2 pi / 1 + 2 / ; : t+ t' + 1 mod ; : ~= - abs dt < ; r' 8 * 1 mod phi' t+ ~= .8 r' 2 / t' ~= 1.2 r' -
Siren
rx
'17 Sep 24
: d dup ; : ' .40 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.45 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .506 + sqrt ; : z r 420 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .40 * .59 + .4 r 20 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 51 /
hyptonyze your eyes
shin-En
'17 Sep 12
: web push push x 0.5 + y 0.9 + * pop * sin 0 max x 0.3 + y 0.2 + * pop * sin 0 max + ; 48 23 web 49 17 web * x + 23 31 web 37 49 web * y x * + 27 31 web 20 34 web * y +
moving so fast you can't see it move
shin-En
'17 Sep 12
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.1000 - d 0 > 2 * 1 - * 0.01 + ; : e 8.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.0101 + d t ; e x - d * f y - d * + sqrt 0.08 < p 901 * sin m e * - a 0.08 < * p 901 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the hot air baloon
shin-En
'17 Sep 12
: 5pi 6 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.06 * r@ + 200 * sin 1 pop - * ; : u t sin pi / ; : v t cos pi / ; .4 u + .8 v + x y s .3 u - .7 v - x y s
HYPTONYZE YO' SELV'ES
shin-En
'17 Sep 12
: 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 * 3 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 2.4 < * 6 * m * 1 p d * y 0.5 - d * + 39 * 30 ** m - y 0.29 - p atan2 abs t 10 * c 0.8 * - 20 * 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
''BOUNCING'' BALLS OL' MAN
shin-En
'17 Sep 12
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 8 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
ele'mon suhk' sel'pon' (white)
sel'hen
'17 Sep 11
: i x 14 * floor ; : j y 29 * floor ; : has_bit swap 2 swap ** dup -rot 5 * mod swap >= ; i j - 4 + 37 has_bit i j + 7 - 21 has_bit \ 3 * + dup 1 >= swap 7 = dup rot + swap
welea'sa' (all stairs lead up)
sel'hen
'17 Sep 11
: e .1 ; : x x .7 = ; : y y .5 - ; : x x 7 * cos ; : y y 7 * sin ; : floor >r .5 e * + r> * dup lines - e < ; : net >r x r@ lines y r@ floor x y + r@ lines x y - r> lines or ; t 1 / sin 44 * 4 + net
circles and lines
Shinya
'17 Sep 11
: c push negate swap negate y x z+ dup * swap dup * + pop dup * < ; : l push -rot negate swap negate y x z+ 2dup dup * swap dup * + pop dup * < push atan2 - abs 0.05 < pop * ; : p dup rot dup sin swap cos rot * -rot * rot + -rot + swap ; : a t 3 * sin ; : b a 1.1 * ; : m x 10 * + + sin 9 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.3 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0. l + 0.5 0.7 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0. l + 0.5 0.6 -1.57 a + 0.1 l + 0.5 0.62 -1.57 a + 0.1 p -0.5 b + 0.1 l + 0.5 0.6 -1.57 a - 0.1 l + 0.5 0.6 -1.57 a - 0.1 p -0.5 b - 0.1 l + 0.5 0.7 0.05 c + dup 0 swap 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y 0.2 > * +
SEL'ELA' SUK'AN LAE'SUI' UA'KHAN
sel'hen
'17 Sep 11
: i x 10 * floor ; : j y 10 * floor ; : has_bit swap 2 swap ** dup -rot 2 * mod swap >= ; i j - 2 + 21 has_bit i j + 7 - 21 has_bit \ 2 * + dup 1 >= swap 2 = dup rot + swap
GalaxiesColliding has_bit Redux
陳爽
'17 Sep 10
: 2pi 2 pi * ; : d dup * swap dup * + sqrt t 2pi / sin 5 / + ; : s push - swap pop - 2dup d push atan2 0.01 * r@ + 200 * sin 1 pop - * ; : u t sin pi / ; : v t cos pi / ; .5 u + .5 v + x y s .5 u - .5 v - x y s
rolling spiral
陳爽
'17 Sep 10
: d dup ; : m 0.4 * 0.6 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 8 * 1 - * 0.01 + ; : e 2.4 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.7 * 0.98 + d t ; e x - d * f y - d * + sqrt 0.01 < p 1000 * sin m e * - a 0.03 < * p 100 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the fast ball Redux
shin-En
'17 Sep 10
: g x 6 * floor y 10 * floor ; g + 4 = g + 3 = g + 1 = or or g - 7 = g = g - -9 = or or 4 * + dup 1 >= swap 5 =
unfortunate chess game
Anonymous
'17 Sep 10
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.8 * sin 7 / ; : ly t 7 + 1.7 * sin 3 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 89 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .1 * .20000098 + .200 r 92 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
darkenbrass
shin-En
'17 Sep 10
: d dup ; : m 0.4 * 0.6 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 8 * 1 - * 0.01 + ; : e 2.4 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.7 * 0.98 + d t ; e x - d * f y - d * + sqrt 0.01 < p 1000 * sin m e * - a 0.03 < * p 100 * cos m 1 e - * - a 0.97 > * + + d d
lightning and the disapearing ball
shin-En
'17 Sep 10
: d dup ; : ' .5 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 + sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .1 * .85 + .4 r 40 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
Golden bump Redux
Anonymous
'17 Aug 01
: sq dup * ; : d sq swap sq + sqrt^3 ; : s push - swap pop - 2dup d push atan2 0.01 * pop + 200 * sin ; .5 .5 x y s t sin abs t cos abs x y s + dup dup
Moiré pattern generator #1 Redux
Anonymous
'17 Jun 13
: i x 10 * floor ; : j y 10 * floor ; : has_bit swap 2 swap ** dup -rot 2 * mod swap >= ; i j - 2 + 21 has_bit i j + 7 - 21 has_bit 2 * + dup 1 >= swap 2 =
GalaxiesColliding has_bit
Christer Nilsson
'17 May 27
: g x 10 * floor y 10 * floor ; g + 7 = g + 9 = g + 11 = or or g - 2 = g = g - -2 = or or 2 * + dup 1 >= swap 2 =
GalaxiesColliding
Christer Nilsson
'17 May 27
Next