Haiku Gallery
( 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
'24 Nov 26
: x x y atan2 ; x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku Redux
Anonymous
'24 Nov 26
x .5 - 2.3 * t * sin y .5 - 3 * > dup 2 /
2.3 Orange Haiku
Manwe
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳爽
'24 Nov 26
: 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
陳昕楷
'24 Nov 26
: 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
( 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
'24 Nov 26
: 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
'24 Nov 26
: 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 > * +
green red PONG
Shin En
'24 Nov 26
: f x * sin swap y * cos - ; 5 3 f t sin * 3.1 5.1 f t sin + 11 13 f t sin -
Turple Redux
陳昕恩
'24 Nov 26
: g t over / cos * ; : f g swap g swap y * sin swap y * cos - ; 5 3 f 3 5 f 11 13 f 7 6 f z* 7 11 f 2 4.4 f 8.1 3.8 f 1.1 2.2 f z* rot + over .3 * - rot 8 * sin over .3 * - rot 11 * sin over .3 * - rot 3 * sin dup push rot dup push 2dup * rot 2dup - rot + 2dup * rot - - + * dup 1.3 * dup .3 * pop + rot pop over > + -rot
spectrum
Shin En
'24 Nov 26
\ circle : x x .5 - ; : y y .5 - ; \ center : r x x * y y * + sqrt ; \ radius r .4 <
園
陳昕恩
'24 Nov 26
: g t over / cos * ; : f g swap g swap x * sin swap y * cos - ; 5 3 f 3.1 5.1 f 11 13 f 7 6 f z* 7 11 f 2 4.4 f 8.1 3.8 f 1.1 2.2 f z* rot + over .3 * - rot 8 * sin over .3 * - rot 11 * sin over .3 * - rot 3 * sin dup push rot dup push 2dup * rot 2dup - rot + 2dup * rot - - + * dup 1.3 * dup .3 * pop + rot pop over > + -rot
Pigmentary Primacy
BradN
'24 Nov 26
: f x * sin swap y * cos - ; 5 3 f 3.1 5.1 f 11 13 f
Turple
BradN
'24 Nov 26
: x x y t .33 * sin x z* - ; : y x y t cos x z* - ; : f x * t sin t cos y 1.3 * z* ; : g x * t sin y .3 * t cos z* ; .1 f .77 g rot z* .9 f .12 g rot z+ rot +
nlighting
BradN
'24 Nov 26
( breden ... ) : scaled 4 * 1 mod .5 - ; : x x .5 - scaled ; : y y .5 - scaled ; : ^2 dup * ; : r ( x y - r ) over over negate z* + sqrt ; : z 1 x y r - ; : trans ( x y - x' y ' ) t cos t sin z* ; : zxy ( x y - r ) trans swap .5 -.5 z+ atan2 3.14 * 4 * sin 1 + 2 / ; : shade x y atan2 t sin + cos 1 + 2 / ; : d 0.01 + ; : z00 x y zxy ; : zd0 x d y zxy ; : z0d x y d zxy ; : zdd x d y d zxy ; : normal z00 zd0 - zd0 zdd - * zdd z0d - * z0d z00 - * 1e8 * t cos * ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; x y zxy shade 2 / normal * * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; 1e3 / t sin + rainbow
Shaded Cones Redux
DarkstarAG
'24 Nov 26
: x0 x ; : y0 y ; : scaled 4 * 1 mod .5 - ; : x x .5 - scaled ; : y y .5 - scaled ; : ^2 dup * ; : r ( x y - r ) over over negate z* + sqrt ; : z 1 x y r - ; : shade x y atan2 t sin + cos 1 + 2 / ; z shade 1.1 / 0.1 + *
Shaded Cones
DarkstarAG
'24 Nov 26
: x x y .3 + * sin 2 * t sin + ; : l y 2 * t 3 * sin 3 * abs 2 / - 48 * floor = * 2 x .37 - 48 * floor ** / 2 mod + ; : lp 0 28672 15 l 28672 14 l 24576 13 l 1408 12 l 3536 11 l 15248 10 l 480 9 l 4064 8 l 3 5 l 2311 4 l 2 3 l 1 >= ; : lw 0 992 14 l 8176 13 l 1088 7 l 2176 6 l 3968 5 l 5872 4 l 8176 3 l 8160 2 l 1008 1 l 112 0 l 1 >= ; : lg 0 29296 12 l 29224 11 l 17512 10 l 15896 9 l 4096 8 l 3004 7 l 18302 6 l 16508 5 l 24576 4 l 24584 3 l 24604 2 l 14 1 l 2 0 l 1 >= ; ( www.thesands.ru/forth-demotool ) lp y + lw lg x + -rot
Kicking the sun
BradN
'24 Nov 26
\ light x .5 - .5 * dup * y .5 - .5 * dup * + sqrt 1 swap -
dark Redux
陳爽
'24 Nov 26
\ dark x .5 - .5 * dup * y .5 - .5 * dup * + sqrt
dark
陳爽
'24 Nov 26
: i 2dup z* log ; x .4 - t .9 * sin / y .4 - t .2 * sin / i i i log over
Flower fly
Shinya
'24 Nov 26
\ square x .1 > x .9 < and y .1 > y .9 < and and ( red )
square
陳爽
'24 Nov 26
\ square x .1 > x .9 < and y .1 > y .9 < and and ( red )
squqre
陳爽
'24 Nov 26
: m 20 ; \ max at 20 by 20 balls : f ( transform function ) .5 - ( focus at center ) t 3 ( 3 seconds period ) / cos m ( max at m by m balls ) * 2 * pi * * cos 2 / .05 + ; t cos .2 * x + ( variable x ) f t sin .2 * y + f + ( Red ) 0 ( Green ) t cos 2 / .5 + ( Blue )
focusing on one of 20 by 20 balls
陳爽
'24 Nov 26
: i 2dup z* log ; x .4 - t .9 * sin - y .4 - t .2 * sin * i i i log over
Big Flower
Shinya
'24 Nov 26
: 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.05 + 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 > * + + d d
PONG game Redux
Shin En
'24 Nov 26
: x x 2 t * sin + .6 mod ; : l y t 3 * sin abs 2 / - 48 * floor = * 2 x .37 - 48 * floor ** floor / 2 mod + ; : lp 0 28672 15 l 28672 14 l 24576 13 l 1408 12 l 3536 11 l 15248 10 l 480 9 l 4064 8 l 3 5 l 2311 4 l 2 3 l 1 >= ; : lw 0 992 14 l 8176 13 l 1088 7 l 2176 6 l 3968 5 l 5872 4 l 8176 3 l 8160 2 l 1008 1 l 112 0 l 1 >= ; : lg 0 29296 12 l 29224 11 l 17512 10 l 15896 9 l 4096 8 l 3004 7 l 18302 6 l 16508 5 l 24576 4 l 24584 3 l 24604 2 l 14 1 l 2 0 l 1 >= ; ( www.thesands.ru/forth-demotool ) lp lw dup dup >r >r over + swap 1.5 / lg 1.5 / + r> + dup + 0 = 7 / r> +
Two Red Luigi Hanging
陳昕亞
'24 Nov 26
: b / floor 2 mod ; : m 128 * floor ; : a dup rot swap b -rot t 1 mod + / floor t 5 mod mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 64 w 16 w 1 w 8 w 128 w + + + + - + + 0.5 <
siieerpiinskii Reeduux
aaaj min maageq
'24 Nov 26
: n 1 + 2 / ; : xn x .5 - ; : yn y .5 - ; : r@ r> dup >r ; : x' ( t - x1 ) dup cos xn * swap sin yn * - ; : y' ( t - y1 ) dup sin xn * swap cos yn * + ; : line-test ( t p1 p2 - ) >r >r >r r@ y' abs 0.01 - 1 - negate 200 ** r> x' r> ( p1 ) - abs r> ( p1 ) < * ; : arc pi * 2 * 4.86 + ; : subs t arc .17 .26 line-test 10 / ; : ss t floor 60 / arc .70 .23 line-test 10 / ; : mm t 3510 / arc .12 .17 line-test y / ; : hh t 4978 / 17 * arc .05 .11 line-test ; : xy t 1 mod 0.5 - y 0.7 - ; : rr xy 2 ** swap 2 ** + sqrt ; : ticks xy rr dup .39 > swap .43 < * >r atan2 3.1415926535 * 1.4 + sin abs 200 ** 1.0 / r> * + ; : ticks2 xy rr dup .422 > swap .43 < * >r atan2 30 * 1.3 * sin abs 210 ** 1.0 / r> + + ; : circle rr dup .47 - abs 64 * -2 ** * + ; : pimpka rr 1.02 - abs 290 ** 100 * max ; : decor ticks ticks2 circle pimpka ; ss subs .5 - max decor mm subs .25 * max decor hh subs y * max decor 1 swap * rot 1 swap + rot 1 rot - rot 1 x .5 - 2 * dup * y .5 - 2 * dup * + 8 pow -
reeduux Cloock Cuutoouut
aaaj min maageq
'24 Nov 26
x t 3 mod mod t 5 mod y sin 6 x mod mod mod sin
super corrloridor pillilarar hihihihih
aaaj min maageq
'24 Nov 26
: i 2dup z* 2dup z* ; x .5 - 5 * t .9 * sin + y .5 - 5 * t .2 * sin + i i i log dup : p 1 swap - rot ; p p p
White Sun
BradN
'24 Nov 26
: p 1 pi * * sin ; x p y p t sin * * dup t .9 * x + y + sin *
light
陳昕楷
'24 Nov 26
: c cos 9 / - ; : x x .5 - t c ; : y y .5 - pi 2 / t + c ; : s sin 2 / ; : q t * s + ; : r x y 2dup z* + sqrt 8 * t 3 * - s ; r .5 q ( R ) r .6 q ( G ) r .7 q ( B ) r
shinging cross Redux
陳昕亞
'24 Nov 26
: c cos 9 / + ; : x x .5 - t c ; : y y .5 - pi 2 / t + c ; : s sin 2 / ; : q t * s + ; : r x y 2dup z* + sqrt 8 * t 3 * - s ; r .5 q ( R ) r .6 q ( G ) r .7 q ( B )
shinging cross
陳爽
'24 Nov 26
: x x .5 - ; : y y .5 - ; : ^2 dup * ; : r x y 2dup negate z* + sqrt ; y x ^2 t sin t cos z* 2dup 2dup z* sqrt z* 2dup z* + 0.1 pow r 0.45 > 1e-4 < * r 0.1 < + r .49 < r .48 > *
Spidertillator
DarkstarAG
'24 Nov 26
Next