Haiku Gallery
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: ^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 08
random random random
Snow
Anonymous
'25 Jul 08
\ 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
: 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 08
( 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 08
( 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 08
( 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 08
( 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 08
: 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 08
( 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 08
: x x y atan2 ; x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku Redux
Anonymous
'25 Jul 08
x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku
Manwe
'25 Jul 08
: 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 08
: 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 08
: 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 08
: 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 08
( 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 08
( 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 + t 5 / sin 1 + 2 / 5 * 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 * ; : 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 > * +
Universe from green red PONG Redux
DarkstarAG
'25 Jul 08
( 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 / 100 * 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 * ; : square dup * ; : 2dup over over ; : len square swap square + sqrt ; : r ( x y - x' y' ) t sin t cos negate z* ; : spiral x - swap y - r 2dup len push atan2 pop + 10 * tan ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 0.5 x - 0.3 y - + 0.95 *
Universe from membrane
DarkstarAG
'25 Jul 08
( 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 / 100 * 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 * ; : z x .5 - y .5 - ( complex number in polar form ) 2dup dup * swap dup * + sqrt -rot swap atan2 ; : 2pi 2 pi * ; : fix ( angle ) abs 2pi mod pi - ; : norm pi / ; : *_ ( multiply two complex numbers ) -rot + -rot * swap fix ; : /_ ( divide two complex numbers ) -rot swap - -rot / swap ; : ^_ ( raise a complex number to a real power ) rot over ** -rot * ; z z 1 4 *_ /_ t - 5 ^_ ( number of rays ) fix 1 swap - norm swap drop ( color correction ) dup sqrt 2dup + abs .6 *
Universe from Complex Spiral Redux
DarkstarAG
'25 Jul 08
( How to add rotation to any haiku: ) : x' t cos x .5 - * t sin y .5 - * - ; : y' t sin x .5 - * t cos y .5 - * + ; : x x' .5 + ; : y y' .5 + ; \ derived from "Clock Cutout" : 橫心 x .5 - ; \ 橫軸 -.5 ~ .5 : 縱心 y .5 - ; \ 縱軸 -.5 ~ .5 : x ( t -- x(t) ) dup cos 橫心 * swap sin 縱心 * - ; \ 橫軸向右正 : y ( t -- y(t) ) dup sin 橫心 * swap cos 縱心 * + ; \ 縱軸向上正 : 畫針 ( t p1 p2 -- v ) >r >r >r r@ ( t ) y abs 1.012 - negate 200 ** r> ( y(t) t ) x r> ( y(t) x(t) p2 ) - abs r> ( y(t) x'(t) p1 ) < * ; : 轉角 2 * 1.5 + pi * ; : 秒針 t floor 60 / 轉角 .14 .23 畫針 10 / ; : 分針 t 3600 / 轉角 .12 .17 畫針 3 / ; : 時針 t 43200 / 轉角 .05 .11 畫針 ; : 心 橫心 縱心 ; : sq dup * ; : r 心 sq swap sq + sqrt ; : 時標 心 atan2 6 * .5 pi * + sin abs 9 ** r .39 > r .43 < * * + ; : 分標 心 atan2 30 * .5 pi * + sin abs 9 ** r .422 > r .43 < * * + ; : flip 1 swap - ; : 秒標 分標 ; 秒針 秒標 ( 紅 ) 分針 分標 ( 綠 ) 時針 時標 ( 藍 ) : 去框 橫心 2 * sq 縱心 2 * sq + 9 ** flip ; 去框
Rotated Clocks 夜光錶 Redux
DarkstarAG
'25 Jul 08
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : r ( x y - x' y' ) t sin t cos negate z* ; : spiral x - swap y - r 2dup len push atan2 pop + 10 * tan ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 0.5 x - 0.3 y - + 0.95 *
membrane rotated Redux
DarkstarAG
'25 Jul 08
Next