Haiku Gallery
10 10
Untitled
Anonymous
'11 Jun 11
0.01 x + y 0.01 + 8001 * swap 1723 * * cos dup .32711008 * 0.01
Interferences1
p71
'11 Jun 10
: f .5 - 1000 * swap 100 * * cos ; x y f dup exch
Mosaic
p71
'11 Jun 10
: f .5 - 500 * swap .5 - 10 * * tan ; x y f
Roses
p71
'11 Jun 10
: scale random atan2 ; y 41 * pi + sin scale x 167 * sin scale
Prisoner
p71
'11 Jun 10
x y x y *
Untitled
Anonymous
'11 Jun 10
: b x * sin ; : e y * cos / log cos ; 8 b 16 e 17 b 10 e 5 b 9 e
fiberellum Redux
Anonymous
'11 Jun 10
y .333 > .333 max dup 1 = y .666 < and .333 y > .333 *
República ya!
Jorge Acereda
'11 Jun 09
: sq dup * ; : ss over + sq sin ; x y ss x ss
Whatever
Anonymous
'11 Jun 09
: sq dup * ; : ss over sq + not ; x y ss y ss
Crystalines Redux
Anonymous
'11 Jun 09
x 0.5 - exp y 0.5 - exp
shows bug in exp function
Stainless
'11 Jun 09
x 0.5 < x 0.5 < x 0.5 < if 0.5 ;
Fusion Redux Redux
Anonymous
'11 Jun 09
x y x 5 * sin y 7 * sin z+ over over swap + swap 2dup z* exp dup
Fusion Redux
Testing for bugs
'11 Jun 09
y x / y + x y / x + x y * y * 42 *
Untitled
Anonymous
'11 Jun 09
y x / y + x y / x + x y * 2 /
Untitled
Anonymous
'11 Jun 09
x 10 * 1 mod x y + 10 * 1 mod y 10 * 1 mod
Crystalines
p71
'11 Jun 09
: co 0.1 mod 0.05 - dup * ; : o * 1 mod ; : f >r x co y co + dup sin swap r> + / ; .002 f 50 o .001 f 11 o .003 f 20 o
carpet
alex wegel
'11 Jun 09
: wander random random + random + random + random + 5 / ; x 0.2 - dup * y 0.3 - dup * + wander 0.3 * < dup wander * x wander *
genesis
BradN
'11 Jun 08
random random random
Color Static
Anonymous
'11 Jun 06
random dup dup
White Static
Anonymous
'11 Jun 06
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
'11 Jun 06
: 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
'11 Jun 01
: 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
'11 Jun 01
: 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
'11 Jun 01
: 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
'11 May 21
X y + 1.23 + x * y * y sin 2dup * over < x -
autumn
BradN
'11 May 21
X .4 + y 2dup z* + dup .9 * dup 1.1 * cos x + sqrt
noon
BradN
'11 May 21
X 5 * sin y mod 1 y x z* over exp swap 2dup z* / x
fount
BradN
'11 May 21
X y * x 4 y z* 9 x z+ x y z* cos over x z*
hand of man
BradN
'11 May 21
: z** 2dup z* ; X y z** sqrt z** sin z** Y z** cos z** z**
squeeze ready
BradN
'11 May 21
: iii x y z* Sin ; x 5 * x y - iii exp y iii
light drop
BradN
'11 May 21
: foil x 31 * Sin y 19 * cos z* ; y X foil y foil
pointilli
j art
'11 May 21
x .2 * .3 .4 x y - / / 40 * sin / y 2dup z* x 2dup z*
first line 7 syllables. please continue Redux Redux
Anonymous
'11 May 20
x .2 * .3 .4 x y - / / 40 * sin /
first line 7 syllables. please continue Redux
Anonymous
'11 May 20
x .2 * .3 .4 x y -
first line 7 syllables. please continue
carl hanse
'11 May 20
x 30 * sin y min y 20 * sin x < + dup 0.7 * 0.2
Difference Engine
BradN
'11 May 19
x y x 5 * sin y 7 * sin z+ over over + swap 2dup z*
Fusion
BradN
'11 May 19
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
'11 May 18
2 + 2
two plus two is green
kremlach
'11 May 17
0 0 0 x 33 * sin y 7 * cos / log cos x 3 * cos y 25 * sin / log cos +
fiberellum b/w Redux
gphil
'11 May 17
Next