Haiku Gallery
random random random
Color Static
Anonymous
'25 Sep 18
random dup dup
White Static
Anonymous
'25 Sep 18
x y x 0.7 * + * 0.4 + dup 3 pow dup 3 pow x 0.2 + dup * y 0.4 - dup * + 0.1 < x y * 2 * * +
orbit Redux2
test
'25 Sep 18
: xx x 0.5 - 2 * ; : yy y 0.5 - 2 * ; : square dup * ; 1 xx 0.2 - square yy 0.1 - square + - xx square yy square + 0.6 < * 1 xx 0.3 - square yy 0.3 - square + - xx square yy square + 0.6 < * 20 pow dup xx square yy square + 0.6 <
red ball clipped
BradN
'25 Sep 18
: xx x 0.5 - 2 * ; : yy y 0.5 - 2 * ; : square dup * ; 1 xx 0.2 - square yy 0.1 - square + - xx square yy square + 0.6 < * 1 xx 0.3 - square yy 0.3 - square + - xx square yy square + 0.6 < * 20 pow dup
red ball
BradN
'25 Sep 18
: hue dup sin over pi 3 / + sin push swap pi 2 * 3 / + sin pop swap ; x 5 * y 2 * + 3.25 + hue x 0.5 - 2.1 * dup * y 0.5 - 2.1 * dup * + 10 pow 1 swap -
prismforth
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 x 0.5 - dup * y 0.5 - dup * + 0.25 / 1 swap -
falling icon
BradN
'25 Sep 18
X y + 1.23 + x * y * y sin 2dup * over < x -
autumn
BradN
'25 Sep 18
X .4 + y 2dup z* + dup .9 * dup 1.1 * cos x + sqrt
noon
BradN
'25 Sep 18
X 5 * sin y mod 1 y x z* over exp swap 2dup z* / x
fount
BradN
'25 Sep 18
X y * x 4 y z* 9 x z+ x y z* cos over x z*
hand of man
BradN
'25 Sep 18
: z** 2dup z* ; X y z** sqrt z** sin z** Y z** cos z** z**
squeeze ready
BradN
'25 Sep 18
: iii x y z* Sin ; x 5 * x y - iii exp y iii
light drop
BradN
'25 Sep 18
: foil x 31 * Sin y 19 * cos z* ; y X foil y foil
pointilli
j art
'25 Sep 18
x .2 * .3 .4 x y - / / 40 * sin / y 2dup z* x 2dup z*
first line 7 syllables. please continue Redux Redux
Anonymous
'25 Sep 18
x .2 * .3 .4 x y - / / 40 * sin /
first line 7 syllables. please continue Redux
Anonymous
'25 Sep 18
x .2 * .3 .4 x y -
first line 7 syllables. please continue
carl hanse
'25 Sep 18
x 30 * sin y min y 20 * sin x < + dup 0.7 * 0.2
Difference Engine
BradN
'25 Sep 18
x y x 5 * sin y 7 * sin z+ over over + swap 2dup z*
Fusion
BradN
'25 Sep 18
0 0 0 x 33 * sin y 7 * cos / log cos x 3 * cos y 25 * sin dup * / log cos +
fiberellum b/w Redux Redux
Anonymous
'25 Sep 18
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
Next