Haiku Gallery
x dup * y min y dup * x min 1 x - 1 y - *
pinch
Anonymous
'25 Jul 18
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
warpspeed
BradN
'25 Jul 18
x 20 * sin y 20 * sin * x 19 * sin y 19 * sin * x 18 * sin y 18 * sin *
diffraction
BradN
'25 Jul 18
x y * 100 * cos x y * 100 * sin x y * 100 * cos negate
tv
BradN
'25 Jul 18
x y * x 4 * sin > x y * y 4 * cos < x y * x y - 3 * tan <
gape
BradN
'25 Jul 18
x y * 4 * sin x 1 y - + 4 * cos x y / 4 * sin
beacons
BradN
'25 Jul 18
x y < x * y + dup dup 0.8 *
envelope
BradN
'25 Jul 18
x y * dup dup * dup 0.9 *
red planet
Anonymous
'25 Jul 18
x y - 1 x - y - y 0.5 -
triforce
Anonymous
'25 Jul 18
0 1 0
green
Anonymous
'25 Jul 18
1 0 0
red
Anonymous
'25 Jul 18
black
Anonymous
'25 Jul 18
x y x y * 10 * 1 mod
super rainbow
BradN
'25 Jul 18
x y 0
rainbow
BradN
'25 Jul 18
audio : hz pi * 2 * t * sin ; : tone 12 / 2 swap pow 220 * dup hz .6 * over 2 * hz .3 * + swap 4 * hz .1 * + ; t 3 * 10 mod floor 3 * tone
Hammond Organ by 3 -- DEPRECATED
BradN
'25 Jul 18
audio : hz pi * 2 * t * sin ; 220 hz .6 * 440 hz .3 * 880 hz .1 * + +
Hammond Organ -- DEPRECATED
BradN
'25 Jul 18
audio : hz 2 * t * pi * sin ; : tone 12 / 2 swap pow 220 * hz ; t 3 * 10 mod floor 3 * tone
By 3 -- DEPRECATED
BradN
'25 Jul 18
audio : hz 2 * t * pi * sin ; : tone 12 / 2 swap pow 220 * hz ; t 3 * 20 mod floor tone
Scale -- DEPRECATED
BradN
'25 Jul 18
audio : hz 2 * t * sin ; 440 hz 0 > t 4 * sin x * 0 max *
Left Right -- DEPRECATED
BradN
'25 Jul 18
audio : x t 2 * 1 mod ; : shape x pi * 4 * sin abs .4 pow x .125 < * 1 x - x .125 > * + ; : hz pi * 2 * t * sin ; 440 hz shape *
Ding Ding Ding -- DEPRECATED
BradN
'25 Jul 18
audio : x t 4 * 1 mod ; : shape x pi * 4 * sin abs .4 pow x .125 < * 1 x - x .125 > * + ; random shape *
Bang Bang Bang -- DEPRECATED
BradN
'25 Jul 18
x pi * 4 * sin abs .4 pow x .125 < * 1 x - x .125 > * + y >
Envelope -- DEPRECATED
BradN
'25 Jul 18
audio : hz pi * 2 * t * sin ; : ah 730 hz .5 * 1090 hz .4 * 2440 hz .1 * + + ; : shape t 3 / 1 mod 1 swap - 2 pow * ; ah shape
Ah Bell -- DEPRECATED
BradN
'25 Jul 18
audio : part t 1 mod ; : part1 1 part - ; 500 t * sin part * 1000 t * sin part1 * +
Beat -- DEPRECATED
BradN
'25 Jul 18
audio : hz pi * 2 * t * sin ; : t t 4 * ; 941 hz t sin 0 > * 697 hz t sin 0 < * + t 2 * sin 0 > * 770 hz t sin 0 > * 852 hz t sin 0 < * + t 2 * sin 0 < * + 1336 hz t 4 * sin 0 > * 1209 hz t 4 * sin 0 < * + + 2 / t 8 * sin 0 > *
Dialing Redux -- DEPRECATED
BradN
'25 Jul 18
audio : hz pi * 2 * t * sin ; : dualtone hz swap hz + 2 / ; : tone0 941 1336 dualtone ; : tone1 697 1209 dualtone ; : tone2 697 1336 dualtone ; : tone3 697 1477 dualtone ; : tone4 770 1209 dualtone ; : tone5 770 1336 dualtone ; : tone6 770 1477 dualtone ; : tone7 852 1209 dualtone ; : tone8 852 1336 dualtone ; : tone9 852 1477 dualtone ; tone0 t 3 * 4 mod floor 0 = * tone2 t 3 * 4 mod floor 2 = * +
Dialing -- DEPRECATED
BradN
'25 Jul 18
: wave x t 3 * + * sin .3 * 0.5 + y - 0.1 - abs ; 7 wave 1 wave 3 wave audio : hz pi * 2 * t * sin ; 480 hz 620 hz + 2 / t 1 mod 0.5 > *
Busy -- DEPRECATED
BradN
'25 Jul 18
: wave x t 3 * + * sin .3 * 0.5 + y - 0.1 - abs ; 3 wave 4 wave 5 wave audio : hz pi * 2 * t * sin ; 350 hz 440 hz + 2 /
Dial Tone -- DEPRECATED
BradN
'25 Jul 18
audio : hz t * pi * 2 * sin ; : note 2 swap 12 / pow 110 * hz ; t sin 3 * floor 3 * 10 + note
La de da -- DEPRECATED
BradN
'25 Jul 18
x t + sin y t sin + audio 500 t * sin 10 t * sin *
test2 -- DEPRECATED
Anonymous
'25 Jul 18
x y audio t 500 * sin t 10 * sin *
test -- DEPRECATED
Anonymous
'25 Jul 18