Haiku Gallery
: 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
'25 Feb 11
: 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
陳昕恩
'25 Feb 11
: 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
'25 Feb 11
\ circle : x x .5 - ; : y y .5 - ; \ center : r x x * y y * + sqrt ; \ radius r .4 <
園
陳昕恩
'25 Feb 11
: 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
'25 Feb 11
: f x * sin swap y * cos - ; 5 3 f 3.1 5.1 f 11 13 f
Turple
BradN
'25 Feb 11
: 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
'25 Feb 11
( 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
'25 Feb 11
: 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
'25 Feb 11
: 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
'25 Feb 11
\ light x .5 - .5 * dup * y .5 - .5 * dup * + sqrt 1 swap -
dark Redux
陳爽
'25 Feb 11
\ dark x .5 - .5 * dup * y .5 - .5 * dup * + sqrt
dark
陳爽
'25 Feb 11
: i 2dup z* log ; x .4 - t .9 * sin / y .4 - t .2 * sin / i i i log over
Flower fly
Shinya
'25 Feb 11
\ square x .1 > x .9 < and y .1 > y .9 < and and ( red )
square
陳爽
'25 Feb 11
\ square x .1 > x .9 < and y .1 > y .9 < and and ( red )
squqre
陳爽
'25 Feb 11
: 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
陳爽
'25 Feb 11
: i 2dup z* log ; x .4 - t .9 * sin - y .4 - t .2 * sin * i i i log over
Big Flower
Shinya
'25 Feb 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.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
'25 Feb 11
: 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
陳昕亞
'25 Feb 11
: 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
'25 Feb 11
: 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
'25 Feb 11
x t 3 mod mod t 5 mod y sin 6 x mod mod mod sin
super corrloridor pillilarar hihihihih
aaaj min maageq
'25 Feb 11
: 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
'25 Feb 11
: p 1 pi * * sin ; x p y p t sin * * dup t .9 * x + y + sin *
light
陳昕楷
'25 Feb 11
: 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
陳昕亞
'25 Feb 11
: 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
陳爽
'25 Feb 11
: 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
'25 Feb 11
: c push negate swap negate y x z+ dup * swap dup and * 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 + 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 * * *
monster crab
陳昕恩
'25 Feb 11
: ss 2dup 1.2 + z* ; x y ss t sin x ss z* .3 + 7 t * sin 6 * cos ss
rainbow flash
陳昕亞
'25 Feb 11
: i 2dup z* 2dup z* ; x .5 - 5 * t .9 * sin - y .5 - 5 and t 3 and sin - i i i 4
rainbow rain
陳昕恩
'25 Feb 11
: x x .5 - ; : y y .5 - ; : X .5 - ; : r ( x y - r ) 2dup z* + sqrt ; ( z[r,t] = cos[2 pi r/L]*cos[2 pi t]*exp[-ct] ) : l .02 ; : c .1 ; : waves ( x y t - z ) >r r l.9 / cos r@ cos * c r> * negate exp * ; ( 1 x y r - 12 pow ) : waves2 ( x y t - z ) >r r 51 * r> 25 * - sin 1 + 2 / ; : d1 t 1 and cos 10 / ; : d2 t 2 and cos 20 / ; : d3 t 3 and cos 30 / ; x y d1 or t .23 and waves2 x d2 + y t .3 * waves2 x d3 < y d3 < t .2 and waves2
shining star
陳昕亞
'25 Feb 11
: x x 3 * t - 1.1 mod ; : l y 3 * 1 mod 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> + 2dup + 0 = 7 / r> +
Luigies Redux
Anonymous
'25 Feb 11
: ^2 dup * ; : ^3 dup ^2 * ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : ' .5 - ^2 100 * ; x ' y ' x ' 1 y - sqrt t 4 / 6.6 + cos 13 * sin * ^3 ' negate z* + t cos 1 + 3 / * -1.1 pow rainbow
Alien Biomorph and Infinity 2
DarkstarAG
'25 Feb 11
: ^2 dup * ; : ^3 dup ^2 * ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : ' .5 - ^2 100 * ; x ' y ' x ' 1 y - sqrt t sin * ^3 ' negate z* + t cos 1 + 2 / * -1.1 pow rainbow
Alien Biomorph and Infinity
DarkstarAG
'25 Feb 11
: ss 2dup z* ; x y ss t sin x ss z* t 6 * cos ss
Up Down hanging
陳爽
'25 Feb 11
: l y .1 - 2 * t 5 * sin x t sin * * abs 2 / - 48 * floor = * 2 x 2.3 * t sin + .605 mod .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 >r over + swap 1.5 / lg 1.5 / + r@ - 2dup + 0 = 7 / r> -
seven Luigi Hanging
陳昕楷
'25 Feb 11
: g dup x pi * * cos abs .992 > swap y pi * * cos abs .992 > or ; 19 g : f ( n y -- ) swap 2dup 19 / > -rot 1 + 19 / < and ; : h ( y -- ) y f or ; 0 h 18 h : v ( x -- ) x f or ; 0 v 18 v : p ( x y -- ) y f swap x f and or ; \ 3 5 p : h ( x y n -- ) swap ( x n y ) y over 19 / > ( x n y f ) y rot 1 + 19 / < and ( x n f ) -rot ( x f n ) >r ( f x ) x over 19 / > ( f x f ) x rot r> + 19 / < ( f f f ) and and or ; : v ( x y n -- ) rot ( y n x ) x over 19 / > ( y n x f ) x rot 1 + 19 / < and ( y n f ) -rot ( y f n ) >r ( f y ) y over 19 / > ( f x f ) y rot r> + 19 / < ( f f f ) and and or ; : 中 3 7 13 h 3 13 13 h 3 8 6 v 15 8 6 v 9 2 15 v ; : 文 9 13 4 v 2 13 15 h 3 9 p 4 10 p 5 11 p 6 9 p 7 8 p 8 7 p 9 6 p 10 5 p 11 4 2 h 13 3 2 h 15 2 2 h 13 11 2 v 12 9 2 v 11 8 p 10 7 p 2 2 2 h 4 3 2 h 6 4 2 h 8 5 p ; 0 文 dup
chinese 文
陳爽
'25 Feb 11
: g dup x pi * * cos abs .992 > swap y pi * * cos abs .992 > or ; 19 g : f ( n y -- ) swap 2dup 19 / > -rot 1 + 19 / < and ; : h ( y -- ) y f or ; 0 h 18 h : v ( x -- ) x f or ; 0 v 18 v : p ( x y -- ) y f swap x f and or ; \ 3 5 p : h ( x y n -- ) swap ( x n y ) y over 19 / > ( x n y f ) y rot 1 + 19 / < and ( x n f ) -rot ( x f n ) >r ( f x ) x over 19 / > ( f x f ) x rot r> + 19 / < ( f f f ) and and or ; : v ( x y n -- ) rot ( y n x ) x over 19 / > ( y n x f ) x rot 1 + 19 / < and ( y n f ) -rot ( y f n ) >r ( f y ) y over 19 / > ( f x f ) y rot r> + 19 / < ( f f f ) and and or ; : 中 3 7 13 h 3 13 13 h 3 8 6 v 15 8 6 v 9 2 15 v ; 0 中 dup
chinese 中
陳爽
'25 Feb 11
: sq dup * ; : x x .5 - ; : y y .5 - ; : r x sq y sq + sqrt .11 - ; : t 1.2 t * * sin ; : lx .7 t ; : ly .5 t ; : lr lx sq ly sq + .14 + sqrt ; : z r / r 30 * sin .7 * * ; : m lr / * 0 max ; x z lx m y z ly m dup
陰陽共生
陳爽
'25 Feb 11
: x x .5 - ; : y y .5 - ; : r ( x y - r ) 2dup negate z* + sqrt ; : 2pi 6.2831 drop 1 ; ( z[r,t] = cos[2 pi r/L]*cos[2 pi t]*exp[-ct] ) : l .02 ; : c .1 ; : waves ( x y t - z ) >r r 2pi * l.9 / cos 2pi r@ * cos * c r> * negate exp * ; ( 1 x y r - 12 pow ) : waves2 ( x y t - z ) >r r 51 * r> 25 * - sin 1 + 2 / ; : d1 t 7 * cos 40 / ; : d2 t 5 * cos 40 / ; : d3 t 3 * cos 60 / ; x y d1 or t .23 and waves2 x d2 + y t .3 and waves2 x d3 < y d3 < t .2 * waves2
magic circle
Shin En
'25 Feb 11
Next