Haiku Gallery
: mask x y * 0.2 > x y - abs 0.1 < or x y - abs 0.2 < and * ; x y / sin mask y x / sin mask over over * x * 3 *
awl
BradN
'11 Apr 23
: sun x 0.5 + y * 4 pow ; 1 y x 0.4 * + - sun + 1 y x 0.3 * + - sun + 1 y x 0.2 * + - y + sun -
summer
BradN
'11 Apr 23
: x' x 0.5 - 2 * ; : y' y 0.5 - 2 * ; : len dup * swap dup * + sqrt ; : polar x' y' atan2 x' y' len ; polar swap 11 * + sin polar 10 * + cos polar 30 * + negate sin
falling
BradN
'11 Apr 23
X 0.4 * y 0.3 * - 30 * sin y / dup x * dup y *
goldenrods
BradN
'11 Apr 22
X 0.4 + y atan2 8 * 1 mod dup sin / 1 mod Dup dup x atan2 dup *
neon blinds
BradN
'11 Apr 22
Pi x mod pi y mod
pied
BradN
'11 Apr 22
X 0.3 - y 0.6 - atan2 2 * dup * dup Cos swap sin x atan2 cos x
spark
BradN
'11 Apr 22
X 30 * sin y 40 * sin atan2 y * x / sin dup y / Dup x /
melting
BradN
'11 Apr 22
X 0.6 + dup * y y * 5 * sin / 0.3 * Dup dup * 2 * Dup dup * 3 *
frozen pond
BradN
'11 Apr 22
x y + 6 * sin abs 1 x - y + 10 * sin abs * dup dup * x 3 * y 4 * min 10 * sin
L cut
BradN
'11 Apr 22
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
'11 Apr 22
: 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
'11 Apr 22
: t^2 dup * y - abs 0.1 < ; x y x t^2
paraswoosh
BradN
'11 Apr 22
: 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
'11 Apr 22
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
'11 Apr 22
: 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
'11 Apr 22
: 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
'11 Apr 22
: grid 7 * sin swap 7 * cos * dup * ; x 1 + y grid x y grid x + x y grid
led
BradN
'11 Apr 22
: base x y * x y - 0.5 + * ; base x 0.1 * 0.9 + y < 0.4 * + base base y 0.2 * +
red rest
BradN
'11 Apr 22
x y * 10 * sin x 0.5 - y 0.5 - 5 * cos * y 0.3 - x 0.3 - 9 * sin *
in too close
BradN
'11 Apr 22
x sin y cos * y 100 * cos * x cos y sin * x 100 * cos * x cos y cos * x y + 100 * cos *
trisect
BradN
'11 Apr 22
x x * 100 * cos 1 x - dup * 100 * cos x 0.5 - dup * 100 * cos
odd stripe
BradN
'11 Apr 22
x 100 * sin y 100 * sin x dup * y >
x^2
BradN
'11 Apr 22
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
'11 Apr 22
x dup * y min y dup * x min 1 x - 1 y - *
pinch
Anonymous
'11 Apr 22
: ang y 0.5 - x 0.5 - atan2 20 * ; ang 1 + cos x * ang 2 + cos y * ang dup * cos
warpspeed
BradN
'11 Apr 22
x 20 * sin y 20 * sin * x 19 * sin y 19 * sin * x 18 * sin y 18 * sin *
diffraction
BradN
'11 Apr 22
x y * 100 * cos x y * 100 * sin x y * 100 * cos negate
tv
BradN
'11 Apr 22
x y * x 4 * sin > x y * y 4 * cos < x y * x y - 3 * tan <
gape
BradN
'11 Apr 22
x y * 4 * sin x 1 y - + 4 * cos x y / 4 * sin
beacons
BradN
'11 Apr 22
x y < x * y + dup dup 0.8 *
envelope
BradN
'11 Apr 22
x y * dup dup * dup 0.9 *
red planet
Anonymous
'11 Apr 22
x y - 1 x - y - y 0.5 -
triforce
Anonymous
'11 Apr 22
0 1 0
green
Anonymous
'11 Apr 22
1 0 0
red
Anonymous
'11 Apr 22
black
Anonymous
'11 Apr 22
x y x y * 10 * 1 mod
super rainbow
BradN
'11 Apr 22
x y 0
rainbow
BradN
'11 Apr 22
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
'10 Aug 27
audio : hz pi * 2 * t * sin ; 220 hz .6 * 440 hz .3 * 880 hz .1 * + +
Hammond Organ -- DEPRECATED
BradN
'10 Aug 27
Next