Haiku Gallery
2 + 2
two plus two is green
kremlach
'25 Sep 18
0 0 0 x 33 * sin y 7 * cos / log cos x 3 * cos y 25 * sin / log cos +
fiberellum b/w Redux
gphil
'25 Sep 18
x 0.5 + y 0.1 + 2dup z* dup 0.7 * y x atan2 * 0.9 *
Attuned
BradN
'25 Sep 18
0 0 0 x 15 * sin y 10 * cos / log cos x 14 * cos y 10 * sin / log cos +
fiberellum b/w
BradN
'25 Sep 18
x x 23 * sin 2 / y max / sin y x 23 * sin 2 / y max / sin over over / sin x 0.6 - dup * y 0.4 - dup * + 7 * 1 swap -
4spire porthole soft
Anonymous
'25 Sep 18
0 0.6 0 y 0.5 - abs 0.25 <
Libya
Anonymous
'25 Sep 18
x 5 * sin y 5 * sin + dup x + swap dup 0.5 *
sol
BradN
'25 Sep 18
x x 23 * sin 2 / y max / sin y x 23 * sin 2 / y max / sin over over / sin x 0.6 - dup * y 0.4 - dup * + 0.1 <
4spire porthole
Anonymous
'25 Sep 18
1 x 2 y sin
Blorf
Anonymous
'25 Sep 18
1 2 +
Blorf
Anonymous
'25 Sep 18
x 20 * dup sin swap / 0.6 + y 2dup > push max pop max x 2dup z*
asunder
BradN
'25 Sep 18
x 30 * sin y min y 20 * sin x < + dup 0.7 * dup 0.4 *
Difference Engine
BradN
'25 Sep 18
x 20 * exp sin y / x y 2dup z* + y 20 * exp sin x /
Untitled
Anonymous
'25 Sep 18
: flame x log sin y log cos 2dup z* + ; x flame atan2 y flame atan2 x
Untitled
Anonymous
'25 Sep 18
x y x 5 * sin y 7 * sin z+ over over swap + swap 2dup z* exp
Fusion
BradN
'25 Sep 18
x y 2dup z* 0.3 + 2dup 2dup z* 2dup z* + push x y * * pop sqrt
true blue
BradN
'25 Sep 18
: z^2 2dup z* ; : many z^2 z^2 z^2 z^2 ; x 0.6 - 10 * y 0.3 - 10 * many 1000000 / sin dup x swap / sin
blue ribbon
BradN
'25 Sep 18
: z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * + ; : mant y 0.7 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; 0 0 mant 0.1 0.1 mant 0.2 0.2 mant
inkblot mandelbrot
BradN
'25 Sep 18
: scale dup x * swap y * ; : tooth scale 10 * 2 mod swap 10 * 2 mod + 2 < ; 3 tooth 4 tooth 5 tooth
phaser
bowmanator
'25 Sep 18
x y x 128.4 * y 63.9 * + sin
pinstripe
bowmanator
'25 Sep 18
: square dup * ; : dist abs swap abs + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x 0.5 < and x y spiral y 0.5 > and x y spiral
quadtile
bowmanator
'25 Sep 18
x .5 - dup * y .5 - dup * + dup .05 < swap dup .15 < swap .3 <
Air Force
bowmanator
'25 Sep 18
x y x 0.7 * + * 0.4 + dup 3 pow dup 4 pow x 0.2 - dup * y 0.4 - dup * + 0.1 < x y * 5 * * +
orbit
BradN
'25 Sep 18
x x 23 * sin 2 / y max / sin y x 23 * sin 2 / y max / sin over over / sin
4spire
BradN
'25 Sep 18
: foo x 0.3 - 2 * dup * y 0.55 - 2 * dup * + ; x foo / sin x + y foo / sin y + over over / sin
unblinking iris
BradN
'25 Sep 18
x 1 x 0.5 - 2 * / 1 y 0.5 - 2 * / + cos / y 1 x 0.5 - 2 * / 1 y 0.5 - 2 * / + cos / over over *
arc lite
BradN
'25 Sep 18
x 0.5 - 10 * floor 10 / y * 30 * sin y 0.3 - 10 * floor 10 / x * 30 * sin x 0.7 - 10 * floor 10 / y * 30 * sin
pixels
BradN
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
: 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
'25 Sep 18
X 0.4 * y 0.3 * - 30 * sin y / dup x * dup y *
goldenrods
BradN
'25 Sep 18
X 0.4 + y atan2 8 * 1 mod dup sin / 1 mod Dup dup x atan2 dup *
neon blinds
BradN
'25 Sep 18
Pi x mod pi y mod
pied
BradN
'25 Sep 18
Next