Haiku Gallery
: foo pi swap x y + 1 - * 3 * pow 1 mod ; : glass push push push x pop * sin foo y pop * sin foo * x y * pop * sin foo * ; 7 17 19 glass dup 17 19 7 glass + dup 19 7 17 glass + swap
jello glass
BradN
'11 Apr 23
: 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 +
streak
BradN
'11 Apr 23
: x' x 0.3 - ; : y' y 0.1 + ; x' y' * 40 * sin 1 x' - y' * 30 * sin * x' 1 y' - * 20 * sin * dup x' / sin dup y' / cos 1 x - 1 y - + *
scales
BradN
'11 Apr 23
: sinc dup sin swap / ; : square dup * ; : len square swap square + sqrt ; : 2dup over over ; : burst x - swap y - 2dup len push atan2 pop 10 * + sin ; : junk 2dup 0.2 + swap 0.3 + burst push 2dup 0.7 + swap 0.2 + burst push 0.4 + swap 0.7 + burst pop pop * * ; 0 0 junk x y * + dup 0.2 0.7 junk y + 0.7 * + dup 0.7 0.2 junk x + +
ghost
BradN
'11 Apr 23
: sinc dup sin swap / ; x 0.5 - 31 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 23 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 17 * sinc 0.7 + 2 / y - abs 0.03 <
sinc
BradN
'11 Apr 23
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 20 * sin ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 1 x - 1 y - + 0.25 *
burn
BradN
'11 Apr 23
: square dup * ; : spot y - square swap x - square + > x y atan2 20 * sin abs * ; 0.2 0.1 0.1 spot 0.1 0.6 0.2 spot 0.15 0.4 0.7 spot
primary fan
BradN
'11 Apr 23
: 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
Next