Haiku Gallery
X 0.3 - y 0.6 - atan2 2 * dup * dup Cos swap sin x atan2 cos x
spark
BradN
'25 Sep 18
X 30 * sin y 40 * sin atan2 y * x / sin dup y / Dup x /
melting
BradN
'25 Sep 18
X 0.6 + dup * y y * 5 * sin / 0.3 * Dup dup * 2 * Dup dup * 3 *
frozen pond
BradN
'25 Sep 18
x y + 6 * sin abs 1 x - y + 10 * sin abs * dup dup * x 3 * y 4 * min 10 * sin
L cut
BradN
'25 Sep 18
x 15 * sin y 10 * cos / log cos x 14 * cos y 10 * sin / log cos x 10 * cos y 9 * cos / log cos x 10 * sin y 10 * sin / log cos over + push over + push + pop pop
fiberellum
BradN
'25 Sep 18
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x y spiral x y spiral
Look into my Eyes
BradN
'25 Sep 18
: t^2 dup * y - abs 0.1 < ; x y x t^2
paraswoosh
BradN
'25 Sep 18
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x 0.03 - y spiral x y 0.03 - spiral x * y x spiral y *
fingers on chalkboard
BradN
'25 Sep 18
x 0.5 - y 0.5 - / x log + x 0.3 - y 0.7 - / x + x 0.2 - y 0.9 - / y /
light spoon
BradN
'25 Sep 18
: ova dup * 4 * sin swap dup * 4 * sin * ; : flash x 15 * sin dup * 0.3 * y 14 * sin + 0.15 * ; x y ova x 0.1 + y 0.1 - ova + flash + x y ova flash + x y ova 0.8 * flash 1.1 * +
ova
BradN
'25 Sep 18
: 2dup over over ; : dist dup * swap dup * + sqrt ; : spiral-dist y 0.7 - x 0.3 - 2dup atan2 swap dist + cos ; spiral-dist spiral-dist x * spiral-dist x * 0.2 * 1 x - y * 0.4 * +
so grow to a point
BradN
'25 Sep 18
: grid 7 * sin swap 7 * cos * dup * ; x 1 + y grid x y grid x + x y grid
led
BradN
'25 Sep 18
: base x y * x y - 0.5 + * ; base x 0.1 * 0.9 + y < 0.4 * + base base y 0.2 * +
red rest
BradN
'25 Sep 18
x y * 10 * sin x 0.5 - y 0.5 - 5 * cos * y 0.3 - x 0.3 - 9 * sin *
in too close
BradN
'25 Sep 18
x sin y cos * y 100 * cos * x cos y sin * x 100 * cos * x cos y cos * x y + 100 * cos *
trisect
BradN
'25 Sep 18
x x * 100 * cos 1 x - dup * 100 * cos x 0.5 - dup * 100 * cos
odd stripe
BradN
'25 Sep 18
x 100 * sin y 100 * sin x dup * y >
x^2
BradN
'25 Sep 18
x 0.4 * y 0.5 * - 0.7 + 0.6 min y < x dup * y dup * + 0.3 > x 0.2 > * dup 1 y - max
corner pool
BradN
'25 Sep 18
x dup * y min y dup * x min 1 x - 1 y - *
pinch
Anonymous
'25 Sep 18
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
warpspeed
BradN
'25 Sep 18
x 20 * sin y 20 * sin * x 19 * sin y 19 * sin * x 18 * sin y 18 * sin *
diffraction
BradN
'25 Sep 18
x y * 100 * cos x y * 100 * sin x y * 100 * cos negate
tv
BradN
'25 Sep 18
x y * x 4 * sin > x y * y 4 * cos < x y * x y - 3 * tan <
gape
BradN
'25 Sep 18
x y * 4 * sin x 1 y - + 4 * cos x y / 4 * sin
beacons
BradN
'25 Sep 18
x y < x * y + dup dup 0.8 *
envelope
BradN
'25 Sep 18
x y * dup dup * dup 0.9 *
red planet
Anonymous
'25 Sep 18
x y - 1 x - y - y 0.5 -
triforce
Anonymous
'25 Sep 18
0 1 0
green
Anonymous
'25 Sep 18
1 0 0
red
Anonymous
'25 Sep 18
black
Anonymous
'25 Sep 18
x y x y * 10 * 1 mod
super rainbow
BradN
'25 Sep 18
x y 0
rainbow
BradN
'25 Sep 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 Sep 18
audio : hz pi * 2 * t * sin ; 220 hz .6 * 440 hz .3 * 880 hz .1 * + +
Hammond Organ -- DEPRECATED
BradN
'25 Sep 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 Sep 18
audio : hz 2 * t * pi * sin ; : tone 12 / 2 swap pow 220 * hz ; t 3 * 20 mod floor tone
Scale -- DEPRECATED
BradN
'25 Sep 18
audio : hz 2 * t * sin ; 440 hz 0 > t 4 * sin x * 0 max *
Left Right -- DEPRECATED
BradN
'25 Sep 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 Sep 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 Sep 18
x pi * 4 * sin abs .4 pow x .125 < * 1 x - x .125 > * + y >
Envelope -- DEPRECATED
BradN
'25 Sep 18
Next