Haiku Gallery
y 0.66 > y 0.33 < or y 0.33 < y 0.66 < y 0.33 > and
Flag of Armenia
Miles
'24 Nov 26
y 0.66 > y 0.33 < or y 0.33 < y 0.33 > y 0.66 < and
Flag of Armenia
Miles
'24 Nov 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 1 over dup * - sqrt atan2 swap / y 0.6 - > ; .51 .7 -1.57 .3 l .49 .42 -1.57 a + 0.15 l + \ 大腿 .49 .42 -1.57 a + .15 p -2 b + .2 l + .5 .4 -1.6 a - .15 l + \ 大腿 .5 .4 -1.6 a - .15 p -2 b - .2 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.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 + 15 1 t 99 / m 20 3 t m + 25 0 t 99 / m 35 4 t 99 / m + + y .54 > * .1 * \ + 1 y - 8 ** + y pi 2 * * sin .5 * y 2 ** + : x x .5 - ; : y y .5 - ; 1 x x * y y * + sqrt .5 - - 299 **
Man running
陳昕楷
'24 Nov 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 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 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.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 + \ 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y .55 > * \ + 1 y - 8 ** + y pi 2 * * sin .5 * y 2 **
Man running
陳昕亞
'24 Nov 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 1 over dup * - sqrt atan2 swap / y 0.6 - > ; 0.5 0.7 -1.57 0.3 l 0.5 0.4 -1.57 a + 0.15 l + 0.5 0.4 -1.57 a + 0.15 p -2 b + 0.2 l + 0.5 0.4 -1.57 a - 0.15 l + 0.5 0.4 -1.57 a - 0.15 p -2 b - 0.2 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.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 + \ 15 1 t 2 / m 20 3 t m + 25 0 t 4 / m 35 4 t 4 / m + + y .55 > * \ +
Man running
陳昕楷
'24 Nov 26
( 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 * -.7 -.7 tran 5 scale t x + y + rotate : t t 3 * ; : x x .5 - .1 t cos * - ; : y y .5 - .1 t sin * - ; 1 x x - y y * + .3 ** -
X Redux
Shin En
'24 Nov 26
\ pacman eating beans : y y .2 + ; : n 5 ; : d dup ; : m 1.03 min ; : f d floor - ; : c cos abs ; : jump ( y -- y' ) t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : flip ( x -- x' ) 1 swap - ; : nth ( v -- v' ) pi n * * c ; : n-fold ( x -- x' ) d n * floor .5 + n / - ; : a ( -- x' y ) x n-fold d * y ; : b ( x' y h -- r' ) - d * + sqrt 25 * 9 ** ; : p ( -- x' ) x t 4 + pi / f 1.6 * - 0.2 + ; : v ( -- t' ) t 4 + pi 2 * / f ; p d * y .5 - d * + 36 * 20 ** m flip y .5 - p atan2 abs t 10 * c .8 * - 16 * m * 0 max \ pacman eating -- color R a .5 b flip 0 max d p 16 * < * p y .5 b m * v .5 >= * \ beans taken & eaten -- color G a jump .7 b flip v v .5 < * 3 * m * \ beans prepared -- color B dup rot + swap \ color B adjusted p d * y .6 - d * + 999 * 20 ** x nth + \ eye blinking
PACMAN eat beans
陳爽
'24 Nov 26
\ pacman eating beans : n 5 ; : d dup ; : m 1.02 min ; : f d floor - ; : c cos abs ; : jump ( y -- y' ) t x n * floor pi / + 2 * c 2 / t 4 + 2 / c 4 ** * - ; : flip ( x -- x' ) 1 swap - ; : n-fold ( x -- x' ) d n * floor .5 + n / - ; : a ( -- x' y ) x n-fold d * y ; : b ( x' y h -- r' ) - d * + sqrt 25 * 9 ** ; : p ( -- x' ) x t 4 + pi / f 1.6 * - 0.2 + ; : v ( -- t' ) t 4 + pi 2 * / f ; p d * y .5 - d * + 36 * 20 ** m flip y .5 - p atan2 abs t 10 * c .8 * - 16 * m * 0 max \ pacman eating -- R a .5 b flip 0 max d p 16 * < * p y .5 b m * v .5 >= * \ beans taken and eaten -- G a jump .7 b flip v d .5 < * 3 * m * \ beans prepared -- B dup rot + swap \ color B adjusted
PACMAN eat beans Redux
陳爽
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
: 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
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
: ^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
'24 Nov 26
random random random
Snow
Anonymous
'24 Nov 26
\ 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
陳爽
'24 Nov 26
: 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
'24 Nov 26
: 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
陳昕恩
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
: 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
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
'24 Nov 26
: 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
陳爽
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
: 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
陳爽
'24 Nov 26
Next