Haiku Gallery
( 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
'25 Aug 29
: 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
'25 Aug 29
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
'25 Aug 29
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
'25 Aug 29
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
'25 Aug 29
x .5 - y .5 - atan2 3.1415926 1 + / t 2 / + 1 mod
Walking clock haiku
Manwe/SandS
'25 Aug 29
x 0.5 - dup * y 0.5 - dup * + 5 * t sin + sin
Heartbeat
Heartbeat
'25 Aug 29
: 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
'25 Aug 29
: t' t 3 / 20 mod ; : magic pi t' ** ; : foo x y * magic * + sin 1 + 2 / ; 5 foo 4 foo 3 foo
squaring circles
Anonymous
'25 Aug 29
: 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
'25 Aug 29
: 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
'25 Aug 29
: 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
'25 Aug 29
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 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 < * -
方塊時鐘
陳爽
'25 Aug 29
: 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
'25 Aug 29
: i 2dup z* log ; x .4 - t .9 * sin * y .4 - t .2 * sin * i i i log over
Flower fly Redux
Mie
'25 Aug 29
x 5.0 * sin y 0 + 5.0 * 2.5 0 + - - abs 0.01 <
sine
f.
'25 Aug 29
: distance dup * swap dup * + sqrt ; mx x distance my y distance + 2 / dup dup
Untitled
Anonymous
'25 Aug 29
: 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
'25 Aug 29
: 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
'25 Aug 29
\ 方塊時鐘 \ 以 小紅塊 作 時針 中綠塊 作 分針 大藍塊 作 秒針 : 秒動角度 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 方塊 \ 大藍塊 作 秒針 ; 方塊時鐘
方塊時鐘
陳爽
'25 Aug 29
\ 顯示 在 位置 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
陳爽
'25 Aug 29
\ 顯示 在 位置 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
轉動的方框
陳爽
'25 Aug 29
: 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
'25 Aug 29
: 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
'25 Aug 29
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
'25 Aug 29
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
'25 Aug 29
: 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
'25 Aug 29
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
'25 Aug 29
y 11 * sin y 31 * sin + y 51 * sin + y 17 * sin + 4 / x <
Toxic Sea Redux
Anonymous
'25 Aug 29
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
'25 Aug 29
: sq dup * ; : dist sq swap sq + sqrt ; x t sin / y dist 0.5 <
pulse
jersni
'25 Aug 29
: 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
'25 Aug 29
: 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
'25 Aug 29
: i if 1 else 1 + -rot 2dup z* 1 @ 2 @ z+ 2dup push push rot pop pop 2 ** swap 2 ** + 4 > then ; x 0.5 - 5 * 1 ! y 0.5 - 5 * 2 ! 0 0 0 0 i i i i i i i i i i i i i i i i i i i i * -rot drop drop 8 / 3 ! t t t sin 3 @ * rot 2 + sin 3 @ * rot 4 + sin 3 @ *
rainbow mandelbrot
janpitokiala
'25 Aug 29
: 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
color ring
陳爽
'25 Aug 29
: 1- 1 swap - ; : x x .5 - ; : y y .5 - ; : tc0 t dup 5 - 20 mod 10 > if -1 else 1 then swap 10 mod 5 - abs * exp ; : tc1 1 tc0 / ; : tf0 tc0 * ; : tf1 tc1 * ; x 6 * cos tf0 y 6 * cos tf1 + y 6 * cos tf0 x 6 * cos tf1 + x y + 6 * cos tf0 x negate y + 6 * cos tf1 + x y - 2 * cos tf0 x negate y - 2 * cos tf1 +
Flop Focus
mml
'25 Aug 29
: 1- 1 swap - ; : x x .5 - ; : y y .5 - ; : cosh ( n -- n ) dup exp swap negate exp + 0.5 * ; : sinh ( n -- n ) dup exp swap negate exp - 0.5 * ; : zcos ( a b -- a b ) 2dup cosh swap cos * -rot sinh swap sin * ; : z x y zcos ; : u z drop ; : v z swap drop ; : m t sin 8 * ; : b t cos 1 + 10 / ; : b2 pi 2 / t + cos 1 + 10 / ; : d - abs ; : u u .87 - .23 / .5 - ; : v v .25 + .5 / .5 - ; u v m * - .1 mod b d .09 / v u m * - .1 mod b2 d .09 / 2dup + .5 * 1- swap
Cosine Chameleon
mml
'25 Aug 29
1 0 0
Untitled
Anonymous
'25 Aug 29
: sqr dup * ; : x x .5 - ; : y y .5 - ; : u x x sqr y sqr + / ; : v y x sqr y sqr + / ; : m t 5 / sin 5 * ; : b t cos 1 + 2 * ; : d - abs ; : r u sqr v sqr + sqrt ; u v m * - 4 mod b d r 20 t 10 / sin abs * mod 1 swap - v u m * - 4 mod b d
Quadratic Peony
mml
'25 Aug 29
: x x .5 - ; : y y .5 - ; : u x y / sqrt log ; : v x y * sqrt ; : m t sin ; : b t cos 1 + 4 / ; : d - abs ; u v m * - .4 mod b d .1 < 0 v u m * - .4 mod b d .1 <
Interstellar Cuttlefish
mml
'25 Aug 29
Next