Haiku Gallery
: n 5 ; : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x n * floor 0.5 + n / - d * y ; : b - d * + sqrt 50 * 20 pow ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; .98 p d * y 0.5 - d * + 36 * 20 ** 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 y 0.58 b m * v 0.5 >= * \ pacman eating a j .68 b - v d .4 < * m * + \ beans prepared
Fish
Anonymous
'25 Jul 11
: n 5 ; : d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x n * floor 0.5 + n / - d * y ; : b - d * + sqrt 50 * 20 pow ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; .98 p d * y 0.5 - d * + 36 * 20 ** 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 y 0.58 b m * v 0.4 >= * \ pacman eating a j .68 b - v d .4 < * m * + \ beans prepared
PACMAN eat beans
Shin En
'25 Jul 11
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 20 * floor 20 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 20 * floor 0.5 + 20 / - d * y ; : b - d * + sqrt 50 * 20 ** ; : 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 >= * 2 / \ + d 0.2
PACMAN Redux Redux
陳昕楷
'25 Jul 11
: e .7 ; : x x .7 - ; : y y .7 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .7 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 4 + net
net Redux Redux
Shin En
'25 Jul 11
: x x .5 - 6 * t .9 * sin + ; : y y .5 - 6 * t .2 * sin + ; : r x x * y y * + sqrt ; : a y x atan2 pi 8 / t sin * + ; : x a cos r * ; : y a sin r * ; x y ( R G ) : i 2dup z* ; i i i log ( R G ) .8 t 5 * sin .5 * + r - ( R G B ) 1.7 r - ( R G B T )
alive Z virus
陳爽
'25 Jul 11
: x x .5 - 4 * t .9 * sin + ; : y y .5 - 4 * t .2 * sin + ; : r x x * y y * + sqrt ; x y ( R G ) : i 2dup z* ; i i i log ( R G ) .8 r - ( R G B ) 1.7 r - ( R G B T )
Z virus
陳爽
'25 Jul 11
: x x .5 - ; : y y .5 - ; \ 原點 : r x x * y y * + sqrt ; \ 距離 r .3 > \ R 紅圓框 x .07 - y / abs 1 r - * \ G 綠光 .6 r - r .2 < * \ B 藍圓 r .5 < \ 透視彩圓
color circle
陳爽
'25 Jul 11
: s dup * ; : o .5 - 2 * t sin rot * + s ; : q o s ; .12 x q s s s .21 y q + \ R .02 y q .23 x q - abs \ G x o y o + sqrt dup >r .1 - \ B r> .5 t sin .45 * + < \ object x .5 - 2 * s y .5 - 2 * s + sqrt .4 -
wriggling
陳爽
'25 Jul 11
: x x .5 - ; : y y .6 - ; : r x x * y y * + sqrt ; r .3 > x y * abs >r r@ .01 < or r@ .003 < r> .001 < 1 r -
The Cross
陳爽
'25 Jul 11
: q 1.2 + 2 / ; : x t sin q 9 * x * sin q ; : y t sin q 9 * y * cos q ; : x x .5 t sin * - ; : y y .5 t cos * - ; : l 2dup * 2 * .635 + -rot dup * swap dup * - .04 t \ 5 * cos * + ; x y l l 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
strange rainbol
陳昕楷
'25 Jul 11
: ^2 dup * ; : x x .5 - ; : y y .5 - ; : r ( x y - r ) over over negate z* + sqrt ; : d >r random 15 / + t r> * sin 5 / + ; random x 3.1678 d y 2.937 d r 25 * cos ^2 * random 2 / random 2 /
Random Rings
DarkstarAG
'25 Jul 11
random random random
Snow
Anonymous
'25 Jul 11
\ move origin to center \ change height and width to 2 : x x .5 - 2 * ; : y y .5 - 2 * ; \ cross of size d, 0 < d <= 1 : c ( d -- ) x y x y z* + sqrt - ; \ shining cross .5 t sin .2 * + c dup \ lines : l ( v n -- v' ) pi 2 / * * sin 20 pow ; \ blue net ( n by n grid ) : n ( n -- ) >r x r@ l y r> l max ; 7 n
shining cross
陳爽
'25 Jul 11
: smoothstep ( e0 e1 x ) -rot over - -rot - swap / 0 max 1 min dup dup * swap -2 * 3 + * ; 0.2 0.8 x 4 * t + 1 mod smoothstep 0.1 1 y 8 * t + 1 mod smoothstep 0.5 1 x y * t - 1 mod smoothstep
smoothstep
charlie
'25 Jul 11
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' + y' y' + * sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup
star tunel
陳昕恩
'25 Jul 11
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 20 * floor 20 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 20 * floor 0.5 + 20 / - d * y ; : b - d * + sqrt 50 * 20 ** ; : 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
陳昕楷
'25 Jul 11
: e .1 ; : x x .5 - ; : y y .5 - ; : x x 7 * cos ; : y y 7 * sin ; : lines >r .5 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 4 + net
net Redux
陳昕楷
'25 Jul 11
: pi 3.1415926 ; : pi2 pi 2 / ; : tau pi 2 * ; : h x 20 * t -1.5 * + sin ; : v y 20 * t -1.3 * + cos ; 1 h t tau * sin + v pi * cos + - 1 h t pi * sin * v pi * sin + - 1 v t pi * cos * h pi2 * sin + -
Untitled
Anonymous
'25 Jul 11
: n 21 ; : x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : f n 2 / floor ; : q sin f * n 2 / ceil + ; : th x y atan2 t q * ; : tr th cos th 3 * cos 9 / - th 5 * cos 25 / + ; : st 0.2 tr 15 / + r > ; : b * sin 2 / .5 + * ; : c r 3 * ; : r st t 3 b ; : g st t 5 b ; : b st t 7 b ; r g b c
Daisy Redux Redux
陳爽
'25 Jul 11
: n 21 ; : x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : f n 2 / floor ; : q sin f * n 2 / ceil + ; : th x y atan2 t q * ; : tr th cos th 3 * cos 9 / - th 5 * cos 25 / + ; : st 0.2 tr 15 / + r > ; : b * sin 2 / .5 + * ; : r st t .33 b ; : g st t .55 b ; : b st t .77 b ; r g b
Daisy Redux
陳爽
'25 Jul 11
: e .03 ; : x x .5 - ; : y y .5 - ; : lines >r .5 e * + r> * dup floor - e < ; : net >r x r@ lines y r@ lines or x y + r@ lines x y - r> lines or ; t sin 3 * 4 + net
net
陳爽
'25 Jul 11
: angle 10 x * pi * ; : tri angle sin angle 3 * sin 9 / - angle 5 * sin 25 / + ; : wave tri 2.5 + 5 / y < ; : radius x 0.5 - dup * y 0.5 - dup * + sqrt ; : theta x 0.5 - y 0.5 - atan2 t 20 mod 3 + * ; : triangle theta sin theta 3 * sin 4 / - theta 5 * sin 8 / + ; : star 0.2 triangle 10 / + radius > ; : red star t sin 1 + * ; : green star t 7 + sin 1 + * ; : blue star t 14 + sin 1 + * ; red green blue
Daisy Redux Redux
Chen-Hanson Ting
'25 Jul 11
: angle 10 x * pi * ; : tri angle sin angle 3 * sin 9 / - angle 5 * sin 25 / + ; : wave tri 2.5 + 5 / y < ; : radius x 0.5 - dup * y 0.5 - dup * + sqrt ; : theta y 0.5 - x 0.5 - atan2 t 20 mod * ; : triangle theta sin theta 3 * sin 9 / - theta 5 * sin 25 / + ; : star 0.2 triangle 15 / + radius > ; : red star t sin 1 + * ; : green star t 7 + sin 1 + * ; : blue star t 14 + sin 1 + * ; red green blue
Daisy Redux
Anonymous
'25 Jul 11
: angle 10 x * pi * ; : tri angle sin angle 3 * sin 9 / - angle 5 * sin 25 / + ; : wave tri 2.5 + 5 / y < ; : radius x 0.5 - dup * y 0.5 - dup * + sqrt ; : theta y 0.5 - x 0.5 - atan2 t 21 mod * ; : triangle theta sin theta 3 * sin 9 / - theta 5 * sin 25 / + ; : star 0.2 triangle 15 / + radius > ; : red star t 21 mod 21 / * ; : green star t 7 + 21 mod 21 / * ; : blue star t 14 21 mod 21 / * ; red green blue
Daisy
Chen-Hanson Ting
'25 Jul 11
: points 10 pi * ; : color x points * sin x points * 3 * sin 9 / - x points * 5 * sin 25 / + 2.5 + 5 / y < ; 0 color 0
Triangle Wave
Chen-Hanson Ting
'25 Jul 11
: 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.9 + 8 / - d * y ; : b - d * + sqrt 20 * 8 ** ; : p x t 4 + pi / f 1 * - 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 en
Shin En
'25 Jul 11
: s .2 ; : c t * 1 mod 2 s - * 1 s - - dup 0 > 2 * 1 - * 0.01 + ; : x c 1 s 2 * - * s + x - ; : y c 1 s 2 * - * s + y - ; : r x dup * swap y dup * + sqrt ; : b r s < ; .25 .33 b .1 .3 b .2 .44 b .31 .25 b .29 .34 b or .8 .5 b or
rgba
陳爽
'25 Jul 11
( move center of coordinates to [0,0] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius and angle ) : r ( x y - r ) over over negate z* + sqrt ; : a ( x y - a ) swap atan2 0.5 + ; ( make grid lines ) : s 50.5 * cos 15 pow ; ( rotate point ) : rotate ( x y a - x' y' ) dup sin swap cos negate z* ; ( convert polar to cartesian ) : ra2xy ( r a - x y ) over over cos * rot rot sin * ; 1 x y r - 2 pow ( deform space ) : xy x y over over r 1 - negate 5 * t cos * rotate ; : x xy drop ; : y xy swap drop ; ( WOW! ) x s y s max max 2 / : b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
Space Deform 3 Redux
DarkstarAG
'25 Jul 11
( move center of coordinates to [0,0] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius and angle ) : r ( x y - r ) over over negate z* + sqrt ; : a ( x y - a ) swap atan2 0.5 + ; ( make grid lines ) : s 50.5 * cos 15 pow ; ( rotate point ) : rotate ( x y a - x' y' ) dup sin swap cos negate z* ; ( convert polar to cartesian ) : ra2xy ( r a - x y ) over over cos * rot rot sin * ; ( 1 x y r - 2 pow ) ( deform space ) : xy x y over over r 1 - negate 5 * t cos * rotate ; : x xy drop ; : y xy swap drop ; ( WOW! ) ( x s y s max swap ) : s .25 ; : c t * 1 mod 2 s - * 1 s - - dup 0 > 2 * 1 - * 0.01 + ; : x c 1 s 2 * - * s + x - ; : y c 1 s 2 * - * s + y - ; : r x dup * swap y dup * + sqrt ; : b r s < ; .25 .33 b .1 .3 b .2 .44 b
rgb Redux
DarkstarAG
'25 Jul 11
( move center of coordinates to [0,0] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius and angle ) : r ( x y - r ) over over negate z* + sqrt ; : a ( x y - a ) swap atan2 0.5 + ; ( make grid lines ) : s 50.5 * cos 15 pow ; ( rotate point ) : rotate ( x y a - x' y' ) dup sin swap cos negate z* ; ( convert polar to cartesian ) : ra2xy ( r a - x y ) over over cos * rot rot sin * ; 1 x y r - 2 pow ( deform space ) : xy x y over over r 1 - negate 5 * t cos * rotate ; : x xy drop ; : y xy swap drop ; ( WOW! ) ( x s y s max swap ) : b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 0.5 <
Space Deform 3
DarkstarAG
'25 Jul 11
( move center of coordinates to [0,0] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius and angle ) : r ( x y - r ) over over negate z* + sqrt ; : a ( x y - a ) swap atan2 0.5 + ; ( make grid lines ) : s 50.5 * cos 15 pow ; ( rotate point ) : rotate ( x y a - x' y' ) dup sin swap cos negate z* ; ( convert polar to cartesian ) : ra2xy ( r a - x y ) over over cos * rot rot sin * ; 1 x y r - 2 pow ( deform space ) : xy x y over over r 1 - negate 5 * t cos * rotate ; : x xy drop ; : y xy swap drop ; ( WOW! ) x s y s max swap
Space Deform 2
DarkstarAG
'25 Jul 11
: s .25 ; : c t * 1 mod 2 s - * 1 s - - dup 0 > 2 * 1 - * 0.01 + ; : x c 1 s 2 * - * s + x - ; : y c 1 s 2 * - * s + y - ; : r x dup * swap y dup * + sqrt ; : b r s < ; .25 .33 b .1 .3 b .2 .44 b
rgb
陳爽
'25 Jul 11
( move center of coordinates to [0,0] ) : x x .5 - 2 * ; : y y .5 - 2 * ; ( radius and angle ) : r ( x y - r ) over over negate z* + sqrt ; : a ( x y - a ) swap atan2 0.5 + ; ( make grid lines ) : s 50.5 * cos 15 pow ; ( rotate point ) : rotate ( x y a - x' y' ) dup sin swap cos negate z* ; ( convert polar to cartesian ) : ra2xy ( r a - x y ) over over cos * rot rot sin * ; ( deform space ) : xy x y r dup x y a t cos + + ra2xy ; : x xy drop ; : y xy swap drop ; ( WOW! ) x s y s max 1 x y r - 2 pow
Space Deform
DarkstarAG
'25 Jul 11
: x x y atan2 ; x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku Redux
Anonymous
'25 Jul 11
x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku
Manwe
'25 Jul 11
: y y .5 t 2 * sin 2 / .5 + * - ; : x x .5 t 2 * cos 2 / .5 + * - ; : r x x * y y * + sqrt ; : r dup push swap r + * t .15 * + sin pop x x * t .15 * + * cos + dup round - ; 10 10 50 r 1 r z* 4 r
zen acne Round
陳爽
'25 Jul 11
: r dup push swap y 2.89 pow + * t + 666 + sin x pop * cos + dup round - ; 10.185 3 r 2 r 9 r
zen acne Redux
陳爽
'25 Jul 11
: d dup ; : m 0.4 * 0.5 + - ; : a y - abs 0.1 < x ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 2.9 r 0.94 * 0.03 + ; : f 3.7 r ; : p f 0.9 * 0.1 + d t ; e x - d * f y - d * + sqrt 0.02 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > *
rgb PONG
陳昕楷
'25 Jul 11
: r dup push swap y 2.89 pow + * t + 666 + sin x pop * cos + dup floor - ; 10.185 3.1 r 2.3 r 1.06 2.2 r 0.06 1.6 r dup rot /
zen acne
xor
'25 Jul 11
( How to add rotation to any haiku: ) : ^2 dup * ; : r ( x y - r ) ^2 swap ^2 + sqrt ; : fade x t 1.1 * cos - y t 1.3 * sin - r 1.1 + t 5 / sin 1 + 2 / 1.1 * pow ; : x' t cos x .5 - * t sin y .5 - * - ; : y' t sin x .5 - * t cos y .5 - * + ; : x x' .5 + fade * ; : y y' .5 + fade * ; : 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 )
Volvox from SunFlower 3 Redux
DarkstarAG
'25 Jul 11
Next