Haiku Gallery
: c t 0.01398413 + sin t -0.9132423 + tan ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 8 pi * * 0.2 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j jjjjjjjk drop drop ; julia 2 / dup dup
細胞分裂
沈光祈
'24 Oct 19
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 3 / rotate 4 * 1 mod 8 * floor negate d
Untitled
410227470余奐均
'24 Oct 19
x y t sin 5 / 0.3 +
顏色
王建寰
'24 Oct 19
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 3 / rotate 4 * 1 mod 8 * floor negate d
123
Anonymous
'24 Oct 19
: d ( x n - d ) 2 swap ** / floor 2 mod ; : rotate dup sin swap cos z* ; x y t 5 / rotate 6 * 1 mod 8 * floor negate d
Binary Carpet 2 Redux
Anonymous
'24 Oct 19
( f = sin[x/|y| — y/|x|] ) : k 20 ; : x' x .7 - k / ; : y' y .7 - k / ; : part ( x y - f ) abs / 2 pow ; : f ( k - q ) x' y' part y' x' part - t cos * * tan ; q 9 dup f t 8 mod f
Ummmmm Redux
陳申瑞
'24 Oct 19
\ 參考Eye - DarkstarAG \ 參考Up and to the Right haiku - adg \ 參考Audio 6 - Anonymous : sq t * cos 0 > ; 8 sq .8 * 4 sq .5 * + 2 sq .3 * + 1 sq .2 * + .1 + : ' .5 - 1 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ^2 ; r^2 dup y .5 - * 65 * cos swap 2< * : f 80 * floor 1 / ; x f y f max t cos abs mod
我呼嚨你
吳采霖33
'24 Oct 19
: :) t 4 * sin 4 pow 2 / + 12 / + ; : z- ( a ib c id - a-c i[b-d] ) -1 0 z* z+ ; : r ( x y - r ) over over negate z* + sqrt ; : c ( x y r - k ) >r x y z- r r> < ; 0.4 0.6 0.025 c 0.6 0.6 0.025 c or 0.5 0.5 0.25 c < 0.5 0.51 0.2 c 0.48 x 3 * cos :) 0.58 y 4 * sin :) y 4 * sin 35 / + 0.23 y :) c > : :) x t sin 3 / .5 + ; : :) y t cos 3 / .5 + ;
笑臉
黃芷涵
'24 Oct 19
: :) t 5 * sin 3 pow 10 / + 6 / + ; : z- ( a ib c id - a-c i[b-d] ) -1 0 z* z+ ; : r ( x y - r ) over over negate z* + sqrt ; : c ( x y r - k ) >r x y z- r r> < ; 0.4 0.6 0.02 c 0.6 0.65 0.02 c or 0.5 0.5 0.25 c < 0.5 0.51 0.2 c 0.48 x 3 * cos :) 0.58 y 4 * sin :) y 4 * sin 35 / + 0.23 y :) c >
Untitled
Anonymous
'24 Oct 19
: square dup * ; : dist square swap square + sqrt ; : center 0.5 - swap 0.5 - ; x y center 2dup dist push atan2 pop swap dup 5 * t - sin 2 + 4.5 / swap 50 * t 10 * + sin 30 / + - abs 1 + 1 swap / square square
旋轉的花
羅詣凱
'24 Oct 19
: px x 5 * ; : py y 5 * t - ; : z dup floor - ; : mix dup push * swap 1 pop - * + ; : a z dup dup 5 * 5 swap - * * ; : r -1 exp * sin 5 exp * z ; : v px floor py floor 4 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 2 + r px a mix py a mix y 0.5 * 0.2 + > dup dup push push push 0.3 c 0.5 c 0.9 c
液化的格子
沈振德
'24 Oct 19
: px x 5 * ; : py y 5 * t - ; : z dup floor - ; : mix dup push * swap 1 pop - * + ; : a z dup dup 5 * 5 swap - * * ; : r -1 exp * sin 5 exp * z ; : v px floor py floor 4 exp * + ; : c y * y pop mix ; v r v 1 + r px f mix v 3 exp + dup push r pop 2 + r px a mix py a mix y 0.5 * 0.2 + > dup dup push push push 0.3 c 0.5 c 0.9 c
LavaLamp Redux
沈振德
'24 Oct 19
\ 參考自彩虹雨 part 2 - 黃綺萱 \ 及星際透視鐘 - 陳爽 : 繁星 x y ** 90 * sin t sqrt 100 / * 31 swap * dup swap floor - 1000 * 999 - 0 max ; : r y dup * x x * + 1 ** ; \ 彩虹半徑 r 0.6 繁星 + < r 0.5 繁星 - > r 0.35 繁星 + < r 0.3 繁星 + > and or and r 0.55 繁星 t * + < r 0.4 繁星 + > and r 0.45 繁星 + < r 0.3 繁星 + > 繁星 + and
彩虹她懂得夜的黑
蘇約寧
'24 Oct 19
//參考自彩虹雨 part 2 - 黃綺萱 //及星際透視鐘 - 陳爽 : 繁星 x y ** 90 * sin t sqrt 100 / * 31 swap * dup swap floor - 1000 * 999 - 0 max ; : r y dup * x x * + 1 ** ; //彩虹半徑 r 0.6 繁星 + < r 0.5 繁星 - > r 0.35 繁星 + < r 0.3 繁星 + > and or and r 0.55 繁星 t * + < r 0.4 繁星 + > and r 0.45 繁星 + < r 0.3 繁星 + > 繁星 + and
彩虹她懂得夜的黑
蘇約寧
'24 Oct 19
x 6 * cos y 6 * tan t 5 * cos * * dup t 2 * sin * dup t 3 * sin *
糖果紙
關睿
'24 Oct 19
: 直線 x mx .01 - > x mx .01 + < and ; : 橫線 y my .01 - > y my .01 + < and ; : 頭x t sin 3 / .5 + ; : 頭y t cos 3 / .5 + ; : 頭 x 頭x - 2 ** y 頭y - 2 ** + sqrt ; : 眼x 頭x .04 - ; : 眼x2 頭x .04 + ; : 眼y 頭y .02 + ; : 眼 x 眼x - 2 ** y 眼y - 2 ** + sqrt ; : 眼2 x 眼x2 - 2 ** y 眼y - 2 ** + sqrt ; : 鏡 x mx - 2 ** y my - 2 ** + sqrt ; 直線 橫線 + 頭 .1 < or 鏡 .6 < 鏡 .55 > and or 直線 橫線 + 眼 .02 < or 眼2 .02 < or 鏡 .6 < 鏡 .55 > and or 直線 橫線 + 眼 .02 < or 眼2 .02 < or 鏡 .6 < 鏡 .55 > and or
狙擊手
黃承皓
'24 Oct 19
: q dup * ; : dst q swap q + sqrt ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : ' 0.5 - ; : l x ' y ' dst ; : in? l r < ; : z r q l q - sqrt ; : th y ' acos 2 * pi / ; : ph z x ' atan2 pi / t 10 / + ; ( : txtr 25 25 z* cos >r cos r> < 0.3 max ; ) : r@ r> dup >r ; : j r> r> dup >r swap >r ; : v * floor 3 mod 1 = ; : l dup dup r@ v swap j v and swap 3 * ; : txtr >r >r 0 3 l l l l l drop + + + + + r> drop r> drop ; ph th txtr z * in? * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 4 + sin swap dup 3 * 5 + sin swap drop ; t 15 / sin 6 * + rainbow
設計數學max
張家佶
'24 Oct 19
: x x mx .005 - - ; : y y my .04 - - ; : p 30 * 0.1 - ; : r x p x * y y * p + sqrt ; : i r 10 * floor ; 2 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / sin r i * 10 / * 10 * - t 2 / sin 20 * + + cos 2 / 0.1 + 50 / r + 10 * floor 12 / - dup 2 / 2dup ** -rot
黃昏太陽
徐錞瀚
'24 Oct 19
: d dup ; : m 0.5 * 0.4 + - ; : r t swap / d floor - 1.96 * 0.98 - d 0 > 2 * 1 - * 0.01 + ; : e 4.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 .15 < p 3 * sin m e * - a 0.03 < * p 2 * cos m 1 e - * - a 0.97 > *
DVD待機畫面
410254370
'24 Oct 19
x 0.3 * y 0.3 * x y ** 50 t + * sin 5 * dup floor - 1000 * 990 - 0 max 4 x .6 - y .6 - atan2 t 2 / 1 mod pi * - * pi / floor 2 / dup floor -
閃爍旋轉
盧品含
'24 Oct 19
1 y t * y 10 + mod - 0 1 x t * x 10 + mod -
random lines
吳修齊
'24 Oct 19
x 50 * cos y 50 * tan t 5 * sin * * dup t 3 * tan * dup t 2 * sin *
舞動畫布2
410227111
'24 Oct 19
90 : s * tan * ; 1 y 6000 s x 6000 s t 2000 s dup t 2 s dup t 2 s
舞動畫布
410227111賴瑩珊
'24 Oct 19
x .8 - 2.5 * t * cos y .5 * > dup 2 /
愉悅的音律
陳婕妤
'24 Oct 19
x 100 * sin y 50 * sin t 4 * sin * * dup t 10 * sin * dup t 2 * sin *
Untitled
葉柏巖
'24 Oct 19
x 20 * sin y 20 * sin t 4 * sin * * dup t 5 * sin * dup t 5 * sin *
Untitled
周律慈
'24 Oct 19
x 50.4 * sin y 9.4 * sin t 4 * sin * * dup t 4 * sin * dup t 3 * sin *
Untitled
吳程榆
'24 Oct 19
: q dup * ; : d2 q swap q + ; : acos dup q .75 - negate sqrt swap .5 + atan2 4 * ; : r 0.45 ; : r2 r q ; : tl 1.43 t sin 6 / + ; : ' 0.5 - ; : 's ' tl cos * ; : 'c ' tl sin * ; : x' x 'c y 's - ; : y' y 'c x 's + ; : l2 x ' y ' d2 ; : in? l2 r2 < ; : z r2 l2 - sqrt ; : th y' acos 2.5 * pi / ; : ph z x' atan2 pi / t 7 / + ; : txtr 25 25 z* cos >r cos r> < ; z in? * 1.75 * ph th txtr over dup
rotateball
許齊文
'24 Oct 19
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 v h n m u j i 0 1 1 1 1 1 1 1 8 9 10 11 12 13 14 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'24 Oct 19
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 v h n m u j i 0 1 1 1 1 1 1 1 8 9 10 11 12 13 14 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'24 Oct 19
: s * sin * ; 10 x 1 s \ 直排 y 1 s \ 橫排 t 2 s dup t 1 s \ 變換速度 dup t 50 s
煙火2
羅中瑋
'24 Oct 19
: x0 t cos 5 + 5 / ; : y0 t cos 3 - 5 / ; : a x x0 - y y0 - atan2 ; : x a t + x + ; : y a t + y + ; : club a x sin 10 * floor 2 mod + a y cos 10 * floor 2 mod + * ; club club + club + a + dup a + dup a +
color club Redux
Anonymous
'24 Oct 19
: m .8 - +5 / ; .3 x m pi * t 2 / + cos y m + t 2 * + cos .6 * + .6 y m pi / t 4 / + tan x m + t 9 - - tan .2 * + - dup negate log dup 4 ** 10 / swap negate
彩虹跳躍
蔡宛渝
'24 Oct 19
x 20 * sin y 20 * sin t 9 * sin * * dup t 10 * sin * dup t 12 * sin *
high
余柏翰
'24 Oct 19
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 q a w s e d r f 1 1 1 1 1 1 1 1 1 2 3 4 5 6 7 8 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
sammy
'24 Oct 19
: d dup ; : ' .1 + ; : r x ' d * y ' d * - sqrt ; : lx t 7 + 1.9 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .16 - sqrt ; : z r 80 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .15 * .85 + .4 r 40 * cos 1 - 6 / + m + - 2 sin - cos 8 x ' lx - d * y ' ly - d * + sqrt - 0 max * d d * 2 /
百葉
資傳四B高名誼
'24 Oct 19
( 滑鼠點灰色區域, 然後敲下列字母鍵以檢視效果 a b c d e f g h 0 0 0 0 0 0 0 0 8 7 6 5 4 3 2 1 ) x 7 * button y * x 7 * 1 mod y 8* 7 + 90 mod
按鍵互動
Anonymous
'24 Oct 19
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; \ (x - 0.5)^2 + (y - 0.5)^2 : a push push y t pop * sin 0.5 * - y t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; \ -(r * 10)^0.5 - 1 ( R ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( G ) 5 1 y t + x 0.2 + mod * sine a sine sine sine ( B ) 5 1 y t + x 0.2 + mod * sine a sine sine sine my 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 >= ; : mr 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 >= ; : mg 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 ) my mr over + swap mg 4 / + 2dup + 0 = dup -rot 2 / + swap
Signs of life Redux
Anonymous
'24 Oct 19
x 30 * cos random + y 30 * tan random + 100 mod + t 25 mod + dup sin t *
金鱗
資傳四B高名誼
'24 Oct 19
: s * sin * ; 10 x 1 s \ 直排 y 1 s \ 橫排 t 0.5 s dup t 2 s \ 變換速度 dup t 50 s
煙火
410227878 資傳三B 羅中瑋
'24 Oct 19
Next