Haiku Gallery
: xor 2dup not and -rot swap not and or ; : init 0 @ 0 = if 1 0 ! 0.6 1 ! 0 2 ! 3 3 ! 0 4 ! 0 5 ! 0 6 ! 1 @ 7 ! 2 @ 8 ! 3 @ 9 ! 1 @ 10 ! 2 @ 11 ! 3 @ 12 ! then ; : mx0 x 0.5 - 3 @ * 1 @ - ; : my0 y 0.5 - 3 @ * 2 @ - ; : sq dup * ; : c sq swap sq + 4 > ; : it 2dup push push c + pop pop 2dup z* mx0 my0 z+ ; : zoom 1 @ 7 ! 2 @ 8 ! 3 @ 9 ! mx 1 my - + 1.9 > if 9 @ 3 * 12 ! else mx 0.6667 >= if 7 @ 9 @ 3 / - 10 ! then mx 0.3333 <= if 7 @ 9 @ 3 / + 10 ! then my 0.6667 >= if 8 @ 9 @ 3 / - 11 ! then my 0.3333 <= if 8 @ 9 @ 3 / + 11 ! then 9 @ 3 / 12 ! then 1 6 ! ; : anim 6 @ if t 5 @ - abs 3 * 1 min dup 1 = if 10 @ 1 ! 11 @ 2 ! 12 @ 3 ! 0 6 ! drop else dup dup >r >r >r 7 @ 10 @ 7 @ - r> * + 1 ! 8 @ 11 @ 8 @ - r> * + 2 ! 9 @ 12 @ 9 @ - r> * + 3 ! then then ; : handle-click 0 button if 4 @ if else t 5 ! zoom 1 4 ! then else 0 4 ! then ; : grid x 0.3333 mod 0.002 < y 0.3333 mod 0.002 < or x 1 y - + 1.9 > or ; init handle-click anim 0 mx0 my0 it it it it it it it it it it it it it it it it it it it drop drop 0.8 swap dup 20 / swap 20 / 1.2 * 1 min >r >r >r grid not dup dup r> * -rot r> * swap r> *
mandelbroat colored Redux Redux
SAKURA
'24 Dec 21
: xor 2dup not and -rot swap not and or ; : init 0 @ 0 = if 1 0 ! 0.6 1 ! 0 2 ! 3 3 ! 0 4 ! then ; : mx0 x 0.5 - 3 @ * 1 @ - ; : my0 y 0.5 - 3 @ * 2 @ - ; : sq dup * ; : c sq swap sq + 4 > ; : it 2dup push push c + pop pop 2dup z* mx0 my0 z+ ; : zoom mx 1 my - + 1.9 > if 3 @ 3 * 3 ! else mx 0.6667 >= if 1 @ 3 @ 3 / - 1 ! then mx 0.3333 <= if 1 @ 3 @ 3 / + 1 ! then my 0.6667 >= if 2 @ 3 @ 3 / - 2 ! then my 0.3333 <= if 2 @ 3 @ 3 / + 2 ! then 3 @ 3 / 3 ! then ; : handle-click 0 button if 4 @ if else zoom 1 4 ! then else 0 4 ! then ; : grid x 0.3333 mod 0.002 < y 0.3333 mod 0.002 < or x 1 y - + 1.9 > or ; init handle-click 0 mx0 my0 it it it it it it it it it it it it it it it it it it it \ it drop drop 0.8 swap dup 20 / swap 20 / 1.2 * 1 min >r >r >r grid not dup dup r> * -rot r> * swap r> *
mandelbroat colored Redux
SAKURA
'24 Dec 21
: rgb 13 @ 8 / dup cos 0.4 swap ; : gr x 0.3333 mod 0.002 < y 0.3333 mod 0.003 < or ; : sq dup * ; : dist sq swap sq + sqrt ; : center rot - -rot swap - ; : dot x y center 2dup dist push atan2 pop swap 13 @ * t + sin 1 + 100 13 @ 10 * - / - 0.01 < 13 @ 0 > and ; : upd dup dup >r >r * rot r> * rot r> * 11 @ + 11 ! 10 @ + 10 ! 12 @ + 12 ! ; : draw 12 ! 11 ! 10 ! 0 @ 13 ! rgb 0.167 0.167 dot upd 1 @ 13 ! rgb 0.500 0.167 dot upd 2 @ 13 ! rgb 0.833 0.167 dot upd 3 @ 13 ! rgb 0.167 0.500 dot upd 4 @ 13 ! rgb 0.500 0.500 dot upd 5 @ 13 ! rgb 0.833 0.500 dot upd 6 @ 13 ! rgb 0.167 0.833 dot upd 7 @ 13 ! rgb 0.500 0.833 dot upd 8 @ 13 ! rgb 0.833 0.833 dot upd 10 @ 11 @ 12 @ ; : f 3 * floor ; : fmx mx f ; : fmy my f ; : cell 3 * + ; : mcell fmx fmy cell ; : rc random 9 * floor ; : swap-cell 2dup @ >r @ swap ! r> swap ! ; : swap-mouse-cell fmx 1 - 0 max fmy cell dup @ 0 = if mcell swap-cell else drop then fmx fmy 1 + 2 min cell dup @ 0 = if mcell swap-cell else drop then fmx 1 + 2 min fmy cell dup @ 0 = if mcell swap-cell else drop then fmx fmy 1 - 0 max cell dup @ 0 = if mcell swap-cell else drop then ; : rswap rc rc swap-cell ; : init 0 @ 0 = 1 @ 0 = and if ( 0 0 ! ) 1 1 ! 2 2 ! 3 3 ! 4 4 ! 5 5 ! 6 6 ! 7 7 ! 8 8 ! rswap rswap rswap rswap then ; : handle-click 0 button if 9 @ if else swap-mouse-cell 1 9 ! then else 0 9 ! then ; init handle-click gr dup dup draw
Camomile Redux 8 puzzle
SAKURA
'24 Dec 21
: q 2 ** ; 0 0 4 push : l x .5 - r@ 1 + * r@ 3 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 2.7 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .2 - push max ; : j l l l l ; j j j j pop drop 1.5 * dup 2 ** swap
3D Wire Torus Redux
Anonymous
'24 Dec 21
: grid x 100 * 25 mod 0.2 < y 400 * and y 100 * 25 mod 0.2 < x 400 * and or ; : offset swap 0.25 * 0.125 + swap 0.25 * 0.125 + ; : dot ( R G B r y x -- R G B ) rot 16 mod dup >r -rot offset x - 2 ** swap y - 2 ** + swap 2 ** .00003 * < r> 16 / * dup pi * sin >r + -rot r> + rot ; : init 0 @ 0 = 1 @ 0 = and if 0 16 + 0 ! 1 1 ! 2 2 ! 3 3 ! 4 4 ! 5 5 ! 6 6 ! 7 7 ! 8 8 ! 9 9 ! 10 10 ! 11 11 ! 12 12 ! 13 13 ! 14 14 ! 15 15 ! then ; : draw ( r g b -- r g b ) 0 @ 0 0 dot 1 @ 0 1 dot 2 @ 0 2 dot 3 @ 0 3 dot 4 @ 1 0 dot 5 @ 1 1 dot 6 @ 1 2 dot 7 @ 1 3 dot 8 @ 2 0 dot 9 @ 2 1 dot 10 @ 2 2 dot 11 @ 2 3 dot 12 @ 3 0 dot 13 @ 3 1 dot 14 @ 3 2 dot 15 @ 3 3 dot ; : f 4 * floor ; : fmx mx f ; : fmy my f ; : cell 4 * + ; : mcell fmx fmy cell ; : swap-cell 2dup @ >r @ swap ! r> swap ! ; : swap-mouse-cell fmx 1 - fmy cell dup @ 16 mod 0 = if mcell swap-cell else drop then fmx fmy 1 + cell dup @ 16 mod 0 = if mcell swap-cell else drop then fmx 1 + fmy cell dup @ 16 mod 0 = if mcell swap-cell else drop then fmx fmy 1 - cell dup @ 16 mod 0 = if mcell swap-cell else drop then ; : handle-click 0 button if 0 @ 16 / floor 0 <> if swap-mouse-cell 0 @ 16 mod 0 ! then else 0 @ 16 mod 16 + 0 ! then ; init handle-click grid dup dup draw
15Puzzle Redux
SAKURA
'24 Dec 21
: grid x 100 * 25 mod 0.2 < y 400 * and y 100 * 25 mod 0.2 < x 400 * and or ; : offset swap 0.25 * 0.125 + swap 0.25 * 0.125 + ; : dot offset x - 2 ** swap y - 2 ** + swap 16 mod dup * .00003 * < or ; : init 0 @ 0 = 1 @ 0 = and if 0 16 + 0 ! 1 1 ! 2 2 ! 3 3 ! 4 4 ! 5 5 ! 6 6 ! 7 7 ! 8 8 ! 9 9 ! 10 10 ! 11 11 ! 12 12 ! 13 13 ! 14 14 ! 15 15 ! then ; : draw 0 @ 0 0 dot 1 @ 0 1 dot 2 @ 0 2 dot 3 @ 0 3 dot 4 @ 1 0 dot 5 @ 1 1 dot 6 @ 1 2 dot 7 @ 1 3 dot 8 @ 2 0 dot 9 @ 2 1 dot 10 @ 2 2 dot 11 @ 2 3 dot 12 @ 3 0 dot 13 @ 3 1 dot 14 @ 3 2 dot 15 @ 3 3 dot ; : f 4 * floor ; : fmx mx f ; : fmy my f ; : cell 4 * + ; : mcell fmx fmy cell ; : swap-cell 2dup @ >r @ swap ! r> swap ! ; : ccell 2dup dup 4 < swap 0 >= and swap dup 4 < swap 0 >= and and if cell else drop drop -1 then ; : swap-mouse-cell fmx 1 - fmy ccell dup 0 >= if @ 16 mod 0 = if fmx 1 - fmy ccell mcell swap-cell then else drop then fmx fmy 1 + ccell dup 0 >= if @ 16 mod 0 = if fmx fmy 1 + ccell mcell swap-cell then else drop then fmx 1 + fmy ccell dup 0 >= if @ 16 mod 0 = if fmx 1 + fmy ccell mcell swap-cell then else drop then fmx fmy 1 - ccell dup 0 >= if @ 16 mod 0 = if fmx fmy 1 - ccell mcell swap-cell then else drop then ; : handle-click 0 button if 0 @ 16 / floor 0 <> if swap-mouse-cell 0 @ 16 mod 0 ! then else 0 @ 16 mod 16 + 0 ! then ; init handle-click grid draw dup dup
15Puzzle
SAKURA
'24 Dec 21
: grid ( -- f ) x 0.25 mod 0.0025 < y 400 * sin 0 > and y 0.25 mod 0.0025 < x 400 * sin 0 > and or ; : wave ( sampling -- f ) 1 + 2 / y - abs 0.005 < ; : sin-wave ( hz sec -- level ) * 2 * pi * sin ; : sound1 ( hz sec -- level ) sin-wave random 5 / 0.125 - + ; : sound2 ( hz sec -- level ) sin-wave 0 > if 0.3 else -0.3 then ; : do 261.63 ; : melody ( -- hz ) do ; : sound ( hz sec -- level ) dup >r dup 1 < if sound1 else dup 2 < if sound2 else sin-wave then then r> 1 mod 1 swap - * ; : t1 ( -- mod ) t 3 mod ; : trigger ( -- ) melody t1 sin-wave 0 < melogy t1 0.0001 + sin-wave 0 >= and if t1 0 ! then ; melody t1 sound 0.5 * audio trigger grid grid melody x 200 / 0 @ + sound 0.5 * wave or grid
Audio Test2
SAKURA
'24 Dec 21
( hope you're doing well! ) ( classic amiga effect not so faithfully recreated ) : z .71 * 4 mod 2 - abs 1 - ; : x x 4 * 2 - t z + ; : y y 4 * 1 - t 2 * sin abs - ; : r x dup * y dup * + sqrt ; : m r 1 < * ; : n r 1 >= * ; : m m rot m rot m rot ; : n n rot n rot n rot ; : h rot r> + ; : v >r >r >r h h h ; 1 1 r - sqrt - r / dup x * 1.5 * 1 mod swap y * 1.5 * 1 mod swap t z 2 * + swap 2 * floor swap 2 * floor + 2 mod 1 swap dup m 0.1 0.1 0.7 n v ( sound ) : sin-wave ( hz sec -- level ) * 2 * pi * sin ; : sound1 ( hz sec -- level ) sin-wave random 5 / 0.125 - + ; : do 261.63 ; : sound ( hz sec -- level ) dup >r sound1 r> pi 2 / swap - * \ envelop ; : t1 ( -- mod ) t pi 2 / mod ; do 2 / t1 sound 0.5 * audio
amiga Redux with Sound
SAKURA
'24 Dec 21
: grid ( -- f ) x 100 * 25 mod 0.2 < y 400 * sin 0 > and y 100 * 25 mod 0.2 < x 400 * sin 0 > and or ; : wave ( sampling -- f ) 1 + 2 / y - abs 0.005 < \ t 1 mod x - abs 0.002 < and ; : sin-wave ( hz sec -- level ) * 2 * pi * sin ; : sound1 ( hz sec -- level ) sin-wave ; : sound2 ( hz sec -- level ) 2dup swap 3 * swap sin-wave rot rot sound1 3 / + 2 / ; : sound3 ( hz sec -- level ) 2dup swap 5 * swap sin-wave rot rot sound2 3 * 5 / + 2 / ; : sound4 ( hz sec -- level ) sin-wave 0 > if 1 else -1 then ; : do 261.63 ; : re 293.66 ; : mi 329.63 ; : fa 349.23 ; : sol 392.0 ; : la 440.0 ; : ti 493.88 ; : melody ( -- hz ) t 4 / 1.7 mod dup 0.1 < if do else dup 0.2 < if re else dup 0.3 < if mi else dup 0.4 < if fa else dup 0.5 < if sol else dup 0.6 < if la else dup 0.7 < if ti else dup 0.8 < if do 2 * else dup 0.9 < if do 2 * else dup 1.0 < if ti else dup 1.1 < if la else dup 1.2 < if sol else dup 1.3 < if fa else dup 1.4 < if mi else dup 1.6 < if re else do then then then then then then then then then then then then then then then swap drop ; : sound ( hz sec -- level ) t 4 / 1 mod dup 0.25 < if drop sound1 else dup 0.5 < if drop sound2 else dup 0.75 < if drop sound3 else drop sound4 then then then ; melody t sound 0.01 * audio grid grid melody x 200 / sound 0.8 * wave or grid
Audio Test1
SAKURA
'24 Dec 21
x .5 - y .5 - atan2 3.1416 1.05 + / t -3 / + 0.5 mod dup .48 > 9 * + dup 2 / over .4 pow
Purple Propeller 40 bytes less
Manwe
'24 Dec 21
x .5 - 128 * dup * y .5 - 128 * dup * + t 5 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin abs ( the original version was designed for 256x256 screen )
Samarkand 512x512
Manwe
'24 Dec 21
x .5 - y .5 - atan2 3.1416 1.05 + / t -3 / + 0.5 mod dup dup .48 > max swap 2 / dup dup .24 > max swap 2 * dup .48 > max .4 pow
Purple Propeller
Manwe/SandS
'24 Dec 21
x .5 - y .5 - atan2 3.1415926 1 + / t 2 / + 1 mod
Walking clock haiku
Manwe/SandS
'24 Dec 21
x 0.5 - dup * y 0.5 - dup * + 5 * t sin + sin
Heartbeat
Heartbeat
'24 Dec 21
: xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
F
none
'24 Dec 21
: t' t 3 / 20 mod ; : magic pi t' ** ; : foo x y * magic * + sin 1 + 2 / ; 5 foo 4 foo 3 foo
squaring circles
Anonymous
'24 Dec 21
: y0 y 1.6 * .45 - ; : d dup ; : c rot d >r ; : l c c c >r swap >r over * over d r> * swap r> * 4 + d * swap d * + over d * + 7 - swap 1 + min + r> r> r> ; 0 x 1.7 * .85 - d d * y0 d * + 4 + sqrt d d >r >r / y0 r> / -2 t 6.2 + 9 / sin 2 / + r> / l l l l l l l l l l l l l l l l drop drop drop 3.7 / d d * over sqrt -rot
Coffee (final) Redux
Anonymous
'24 Dec 21
: x x .5 - ; : y .7 y - ; : r x dup * y dup * + sqrt ; : a x y atan2 2 pi * / 1 mod ; y x atan2 21 * sin 1 + 2 / 2 ** 0 0 a r + .65 < 1 a - r + .65 < +
heart3
SamMiemieSophieChen
'24 Dec 21
: x x .5 - ; : y .7 y - ; : r x dup * y dup * + sqrt ; : a x y atan2 2 pi * / 1 mod ; y x atan2 21 * sin 1 + 2 / 2 ** 0 0 a r + .5 < 1 a - r + .5 < +
heart2
SamMiemieSophieChen
'24 Dec 21
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 08 @ ; pi 2 * 60 / 08 ! : 分動角度 09 @ ; pi 2 * 60 / 09 ! : 時動角度 10 @ ; pi 2 * 12 / 10 ! : 修正方向 15 @ + ; pi 4 / 15 ! : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : 方塊 ( a0 L -- s ) 2 / 05 ! 03 ! y .5 - x .5 - atan2 a0 - pi 2 * mod 11 ! y .5 - 2 ** x .5 - 2 ** + .5 ** 12 ! r a cos * 13 ! \ 計算 極座標 任意點之 橫標 x' r a sin * 14 ! \ 計算 極座標 任意點之 縱標 y' x' h - abs h - 06 ! \ 計算 改以方塊心為原點 任意點之 橫標 x" y' h - abs h - 07 ! \ 計算 改以方塊心為原點 任意點之 縱標 y" x" d < y" d < * ; : 秒針方向 60 t t 1 mod - 60 mod - 秒動角度 * 修正方向 ; : 分針方向 60 t 60 / 60 mod - 分動角度 * 修正方向 ; : 時針方向 12 t 3600 / 12 mod - 時動角度 * 修正方向 ; : 方塊時鐘 時針方向 .21 方塊 1 over - dup 04 ! \ 小紅塊 作 時針 分針方向 .25 方塊 * 1 over - \ 中綠塊 作 分針 秒針方向 .29 方塊 * 04 @ * \ 大藍塊 作 秒針 ; 方塊時鐘 1 r .44 > r .46 < y .5 - x .5 - atan2 pi 6 / mod * .02 < * -
方塊時鐘
陳爽
'24 Dec 21
: t t * sin .38 * - .5 - ; : b x over t y rot dup + t dup * swap dup * + sqrt .07 < ; : b0 1.0 b ; : b1 1.1 b ; : b2 1.2 b ; : b3 1.3 b ; : b4 1.4 b ; : b5 1.5 b ; : b6 1.6 b ; : b7 1.7 b ; : b8 1.8 b ; b0 b1 b4 b7 b3 2 / + + + + b0 b5 b2 b3 b4 2 / swap 2 / rot 2 / + + + + B8 + b3 b5 b6 b7 + + + x .5 - abs .45 < .2 + y .5 - abs .45 < .2 + *
balls Redux
Sophiechen
'24 Dec 21
: i 2dup z* log ; x .4 - t .9 * sin * y .4 - t .2 * sin * i i i log over
Flower fly Redux
Mie
'24 Dec 21
x 5.0 * sin y 0 + 5.0 * 2.5 0 + - - abs 0.01 <
sine
f.
'24 Dec 21
: distance dup * swap dup * + sqrt ; mx x distance my y distance + 2 / dup dup
Untitled
Anonymous
'24 Dec 21
: web push push x t + 0.5 + y t + 0.3 + * pop * sin 0 max x t + 0.3 + y t + 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'24 Dec 21
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 + * pop * sin 0 max + ; 31 23 web 17 17 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y + t +
streak Redux
Anonymous
'24 Dec 21
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 08 @ ; pi 2 * 60 / 08 ! : 分動角度 09 @ ; pi 2 * 60 / 09 ! : 時動角度 10 @ ; pi 2 * 12 / 10 ! : 修正方向 15 @ + ; pi 4 / 15 ! : a0 03 @ ; : l 04 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : 方塊 ( a0 L -- s ) 2 / 05 ! 03 ! y .5 - x .5 - atan2 a0 - pi 2 * mod 11 ! y .5 - 2 ** x .5 - 2 ** + .5 ** 12 ! r a cos * 13 ! \ 計算 極座標 任意點之 橫標 x' r a sin * 14 ! \ 計算 極座標 任意點之 縱標 y' x' h - abs h - 06 ! \ 計算 改以方塊心為原點 任意點之 橫標 x" y' h - abs h - 07 ! \ 計算 改以方塊心為原點 任意點之 縱標 y" x" d < y" d < * ; : 秒針方向 60 t t 1 mod - 60 mod - 秒動角度 * 修正方向 ; : 分針方向 60 t 60 / 60 mod - 分動角度 * 修正方向 ; : 時針方向 12 t 3600 / 12 mod - 時動角度 * 修正方向 ; : 方塊時鐘 時針方向 .21 方塊 \ 小紅塊 作 時針 分針方向 .25 方塊 \ 中綠塊 作 分針 r .45 > r .46 < * y .5 - x .5 - atan2 pi 6 / mod * .02 > + 秒針方向 .29 方塊 \ 大藍塊 作 秒針 ; 方塊時鐘
方塊時鐘
陳爽
'24 Dec 21
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! \ 邊長 03 ! \ 方向 y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! \ 向度 a y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! \ 徑度 r r l .5 * < r l .25 * > * r a cos * 13 ! \ x0,y0 方向 a0 之 新座標 x' r a sin * 14 ! \ x0,y0 方向 a0 之 新座標 y' l 2 / 05 ! \ 邊長 l 的一半 h x' h - abs h - 06 ! \ 方框中心 之 最終座標 x" y' h - abs h - 07 ! \ 方框中心 之 最終座標 y" x" abs d < + y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框 Redux
陳爽
'24 Dec 21
\ 顯示 在 位置 x0,y0 方向 a0 邊長 l 粗細 d 之 方框 sq .005 00 ! : d 00 @ ; .5 01 ! : x0 01 @ ; .5 02 ! : y0 02 @ ; : a0 03 @ ; : a 11 @ ; : r 12 @ ; : x' 13 @ ; : y' 14 @ ; .06 04 ! : l 04 @ ; : h 05 @ ; : x" 06 @ ; : y" 07 @ ; : sq ( a0 l -- s ) 04 ! 03 ! y y0 - x x0 - atan2 a0 - pi 2 * mod 11 ! y y0 - 2 ** x x0 - 2 ** + .5 ** 12 ! r a cos * 13 ! r a sin * 14 ! l 2 / 05 ! x' h - abs h - 06 ! y' h - abs h - 07 ! x" abs d < y" abs d < + x" d < y" d < * * ; t 1.1 * .21 sq t 1.6 * .25 sq t 2.1 * .29 sq
轉動的方框
陳爽
'24 Dec 21
: xx x ; : yy y ; : y y t 0.5 * + ; : x x t 0.1 * + ; x 30 * sin y 21 * sin * x 7 * sin * y 11 * sin * x 71 * sin * y 41 * sin * x y .3 * + 77 * sin * 0.5 > xx 3 * sin 0.1 * yy > or dup dup
Snow
BradN
'24 Dec 21
: x x t + ; x 31 * sin 10 pow x 11 * sin 10 pow + x 7 * sin 10 pow + x 91 * sin 10 pow + 4 / dup 0.4 + y < swap 0.3 + y < dup
Icicles Redux
Anonymous
'24 Dec 21
x 31 * sin 10 pow x 11 * sin 10 pow + x 7 * sin 10 pow + x 91 * sin 10 pow + 4 / dup 0.4 + y < swap 0.3 + y < dup
Icicles
BradN
'24 Dec 21
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 8 / x + 1 y - sqrt * 0.7 * dup 0.7 * swap y 10 * sin y 32 * sin + y 52 * sin + y 18 * sin + 8 / x < 1 y - sqrt *
Frozen Lake
BradN
'24 Dec 21
: square dup * ; : circle ( r x y ) y - square swap x - square + sqrt swap < ; 0.2 0.5 0.2 circle 0.15 0.5 0.45 circle + 0.13 0.5 0.65 circle + 0.02 0.45 0.68 circle - 0.02 0.55 0.68 circle - 0.01 0.45 0.62 circle - 0.01 0.47 0.61 circle - 0.01 0.49 0.61 circle - 0.01 0.51 0.61 circle - 0.01 0.53 0.61 circle - 0.01 0.55 0.62 circle - dup dup
Snowman
BradN
'24 Dec 21
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 8 / 0.5 + x - abs 0.01 < t 10 mod 10 / y - abs 0.01 < and
Wispy Red
Anonymous
'24 Dec 21
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x <
Toxic Sea Redux
Anonymous
'24 Dec 21
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x + y 10 * sin y 32 * sin + y 52 * sin + y 18 * sin + 4 / x < 2dup z* dup y *
Toxic Sea
BradN
'24 Dec 21
: sq dup * ; : dist sq swap sq + sqrt ; x t sin / y dist 0.5 <
pulse
jersni
'24 Dec 21
: x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : 2pi pi pi + ; : a x y atan2 t 10 / + 2pi / 1 mod ; a .1875 > a .3125 < * a .9375 > a .0625 < + + \ red light a .4375 > a .5625 < * a .9375 > a .0625 < + + \ green light a .6825 > a .8125 < * a .9375 > a .0625 < + + \ blue light r .25 > r .30 < * r .45 > r .50 < * + \ transparency push + + 3 / dup dup pop
bwring Fixed
Anonymous
'24 Dec 21
: x x .5 - ; : y y .5 - ; : r x x * y y * + sqrt ; : 2pi pi pi + ; : a x y atan2 t 10 / + 2pi / 1 mod ; a .1875 > a .3125 < * a .9375 > a .0625 < + + \ red light a .4375 > a .5625 < * a .9375 > a .0625 < + + \ green light a .6825 > a .8125 < * a .9375 > a .0625 < + + \ blue light r .25 > r .30 < * r .45 > r .50 < * + \ transparency push + + 3 / pop
bwring
Anonymous
'24 Dec 21
Next