Haiku Gallery
( based on my complex library ) : z1/ ( 1 divided by a complex number ) over dup * over dup * + rot over / -rot / ; : zmodule ( module of a complex number ) dup * swap dup * + sqrt ; : zarg ( arg of a complex number ) swap atan2 ; : e^ ( e raised to a complex power ) over exp over cos * -rot sin swap exp * ; : zln ( logarithm of a complex number ) 2dup zmodule log -rot zarg ; : z^ ( complex number raised to a complex power ) push push zln pop pop z* e^ ; : a .1 .5 ; : b -.1 .9 ; : c -2 t 30 / sin 2 * 1 + ; : d .6 .5 ; : f 2dup push push a z* b z+ c pop pop z* d z+ c z^ z1/ zln z* e^ ; x .5 - y .5 - f f f f f 2dup zmodule swap abs
Zebra glitch
Manwe
'25 Jul 09
( based on my complex library ) : z1/ ( 1 divided by a complex number ) over dup * over dup * + rot over / -rot / ; : zmodule ( module of a complex number ) dup * swap dup * + sqrt ; : zarg ( arg of a complex number ) swap atan2 ; : e^ ( e raised to a complex power ) over exp over cos * -rot sin swap exp * ; : zln ( logarithm of a complex number ) 2dup zmodule log -rot zarg ; : z^ ( complex number raised to a complex power ) push push zln pop pop z* e^ ; : a .1 .5 ; : b -.1 .9 ; : c -2 t 30 / sin 2 * 1 + ; : d .6 .5 ; : f 2dup push push push push a pop pop z* b z+ c pop pop z* d z+ c z^ z1/ e^ z* zln ; x 9 / y 9 / f f f 2dup zmodule swap abs rot
Microscope
Manwe
'25 Jul 09
: dec dup floor - ; : s t 20 / dec ; : a pi * sin ; x s + a y s + a * x s - a y s - a * x s + a y s - a *
Unfocused merging balls Redux [Slow]
Christer Nilsson
'25 Jul 09
: dec dup floor - ; t dec x + pi * sin t dec y + pi * sin * x t dec - pi * sin y t dec - pi * sin * x t dec + pi * sin y t dec - pi * sin *
Unfocused merging balls
Christer Nilsson
'25 Jul 09
: n 12 * 6 - ; y n 3 / x n sin - abs : d x n cos negate dup * 1 + sqrt ; d / 0.12 pow dup dup
simple sine
Anonymous
'25 Jul 09
x y *
Untitled
Anonymous
'25 Jul 09
: sq dup * ; : xs 10 mod .1 * ; : xpos xs x - abs ; : ypos xs y - abs ; : rad sq swap sq + sqrt ; : circle rot xpos rot ypos rad swap .01 * > ; : n negate ; : bl t t ; : tl bl n ; : br tl swap ; : tr br n ; : pulsar t xs * tan circle ; : s dup x swap > swap y < = ; : m 600 pulsar = ; : l 800 pulsar = ; .4 .4 br m bl m br m tl m tr m 1 bl l br l tl l tr l .00 s .04 s .06 s .08 s .92 s .94 s .96 s 1 s = = = = = = =
blue sky phosphenes
E.A.
'25 Jul 09
x y sqrt max x y dup * min
flame
E.A.
'25 Jul 09
( BATMAN CODE ) : rotate ( x y a - x' y' ) dup push sin pop cos z* ; : xy x y -0.5 -0.5 z+ t 0.8 * sin 2 / 1.57 + rotate 0.5 0.5 t sin 4 / 0 z+ z+ ; : x xy drop ; : y xy swap drop ; : sqr dup * ; : /x/ ( f l u - [l<x && x<=u]*f ) x >= push x < pop and and ; : /y/ ( f l u - [l<y && y<=u]*f ) y >= push y < pop and and ; : k 0.003 ; : kurve - abs k < ; : par1-l x sqrt 3 / y 0.5 - kurve ; : par1-r 1 x - sqrt 3 / y 0.5 - kurve ; : par2-l 0.4 x - sqr 10 * y 0.59 - kurve ; : par2-r 0.6 x - sqr 10 * y 0.59 - kurve ; : head x 0.5 - 1.6 * abs 4 * 0.31 - abs 0.15 - abs y 0.59 - - abs 0.013 < x 0.5 - abs 0.04 > * ; : head-ln x 0.5 - abs 0.04 > y 0.68 - kurve ; : par3 x 0.5 - 1.2 / sqr y 0.372 - 1.2 * kurve ; : par4 x 0.5 - 20 * sin abs sqrt x 0.5 - sqrt + 8 / y 0.283 - kurve ; 0 0 par1-l 0.0 0.3 /x/ par1-r 0.7 1.0 /x/ or par2-l 0.3 0.43 /x/ or par2-r 0.57 0.7 /x/ or head 0.43 0.57 /x/ or head-ln or par3 0.4238 0.51 /y/ or par4 0.2 0.8 /x/ or
Batman Flying
DarkstarAG
'25 Jul 09
( BATMAN CODE ) : sqr dup * ; : /x/ ( f l u - [l<x && x<=u]*f ) x >= push x < pop and and ; : /y/ ( f l u - [l<y && y<=u]*f ) y >= push y < pop and and ; : k 0.003 ; : kurve - abs k < ; : par1-l x sqrt 3 / y 0.5 - kurve ; : par1-r 1 x - sqrt 3 / y 0.5 - kurve ; : par2-l 0.4 x - sqr 10 * y 0.59 - kurve ; : par2-r 0.6 x - sqr 10 * y 0.59 - kurve ; : head x 0.5 - 1.6 * abs 4 * 0.31 - abs 0.15 - abs y 0.59 - - abs 0.013 < x 0.5 - abs 0.04 > * ; : head-ln x 0.5 - abs 0.04 > y 0.68 - kurve ; : par3 x 0.5 - 1.2 / sqr y 0.372 - 1.2 * kurve ; : par4 x 0.5 - 20 * sin abs sqrt x 0.5 - sqrt + 8 / y 0.283 - kurve ; 0 0 par1-l 0.0 0.3 /x/ par1-r 0.7 1.0 /x/ or par2-l 0.3 0.43 /x/ or par2-r 0.57 0.7 /x/ or head 0.43 0.57 /x/ or head-ln or par3 0.4238 0.7 /y/ or par4 0.2 0.8 /x/ or
Batman
DarkstarAG
'25 Jul 09
: d x .25 - dup * y .5 - dup * + ; : w t 3 * cos 2.5 - ; : v t 2 * sin 3.5 - ; d 25 w * x * * cos d 17 v * y * * sin d v * w * cos
Throbbing Laser Tonsil
Anonymous
'25 Jul 09
: ' .5 - 5 * ; : sq dup * ; : ^ ' t 1 * sin sq -.2 * exp * ; : x2 x ^ sq ; : y2 y ^ sq ; : t1 x2 y2 + 3 pow ; : t2 x2 y2 - sq ; : quadrifolium t1 t2 - ; : ish quadrifolium 0.0000001 < ; : noh quadrifolium 0.0000001 >= ; noh -3 quadrifolium * * ish .19 -
Quadrifolium
adg
'25 Jul 09
: ' .5 - 15 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : a 1.2 ; : b 3.2 ; : c 2.3 ; : a2 a sq ; : b2 b sq ; : c2 c sq ; : x2 x ^ sq ; : y2 y ^ sq ; : x2y2 x2 y2 + ; : x2y2b2 x2y2 b2 - ; : term2 x2y2b2 a2 - c2 + ; : term3 a2 y2 * 4 * x2y2b2 * ; : watt x2y2 term2 sq * term3 + ; : ish watt 0.0000001 < ; : noh watt 0.0000001 >= ; noh -3 watt * * ish +
Watt's curve
adg
'25 Jul 09
: ' .3 - 25 * ; : '' .7 - 25 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : ^' '' t 5 - abs pi * .7 * sin sq -.5 * exp * ; : heart x ^ sq y ^ 4 * 2.5 1 - + 3 / x ^ sqrt - sq + 15 - ; : heart2 x ^' sq y ^' 4 * negate 2.5 1 - + 3 / x ^' sqrt - sq + 15 - ; : ish heart 0.0000001 < ; : noh heart 0.0000001 >= ; : ish2 heart2 0.0000001 < ; : noh2 heart2 0.0000001 >= ; noh -3 heart * exp * ish / noh2 -3 heart2 * exp * ish2 / y x dup sin swap sin z+
binary heart redux
adg
'25 Jul 09
: ' .5 - 25 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : ^' ' t 5 - abs pi * .7 * sin sq -.5 * exp * ; : quad dup sq * ; : heart x ^ sq y ^ 4 * 2.5 1 - + 3 / x ^ sqrt - sq + 15 - ; : heart2 x ^' sq y ^' 4 * negate 2.5 1 - + 3 / x ^' sqrt - sq + 15 - ; : ish heart 0.0000001 < ; : noh heart 0.0000001 >= ; : ish2 heart2 0.0000001 < ; : noh2 heart2 0.0000001 >= ; : dh heart ; : dh2 heart2 ; noh -3 dh * exp * ish + noh2 -3 dh2 * exp * ish2 +
binary heart (was: heart)
adg
'25 Jul 09
: trail t 4 * y + + tan x 1.5 * 1 - - abs 1 swap - ; t y + trail t sin x - trail t cos trail dup
Torciglione
adg
'25 Jul 09
: skin over z* ; y x t tan skin over sin sin over tan skin /
Tan skin over sin / Sin over tan skin (5, 7, 5)
adg
'25 Jul 09
: n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / 12 / pi * 2 * ; : m t 3600 mod 60 / ceil 60 / pi * 2 * ; : s t 60 mod 60 / pi * 2 * ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; : hhand h d dup 0 > swap 0.3 < * push dup 0.03 < swap -0.03 > * pop * ; : mhand m d dup 0 > swap 0.6 < * push dup 0.02 < swap -0.02 > * pop * ; : shand s d dup 0 > swap 0.8 < * push dup 0.01 < swap -0.01 > * pop * ; shand mhand hhand sc2 +
Clock fixed
Anonymous
'25 Jul 09
x 12.4 * sin y 12.4 * sin t 10 * tan - * dup t 10 * sin * dup t 3 * tan *
Disco Inferno (was: Disco)
adg
'25 Jul 09
x 22.4 * sin y 22.4 * sin t 17 * tan + + dup t 15 * sin * dup t 20 * sin *
Forth Epilepsy (was: Disco Redux)
adg
'25 Jul 09
y t - x y mod mod pi *
Prismatic Horizon #1
adg
'25 Jul 09
: hand push dup 0 > swap pop < * push dup 0.01 < swap 0.01 negate > * pop * ; : n 2 * 1 - ; : xn x n ; : yn y n ; : h t 3600 / ceil 12 / pi * ; : m t 3600 mod 60 / ceil 60 / pi * 2 * ; : s t h 3600 * - m 60 * - 60 / pi 2 * * ; : d dup dup dup >r >r >r >r xn pop cos * yn pop sin * - xn pop sin * yn pop cos * + ; : sc dup 0.8 > swap 0.9 < * push dup 0.015 < swap 0.015 negate > * pop * ; : pi6 pi 6 / ; : sc2 0 d sc pi6 d sc + pi6 2 * d sc + pi6 3 * d sc + pi6 4 * d sc + pi6 5 * d sc + pi6 6 * d sc + pi6 7 * d sc + pi6 8 * d sc + pi6 9 * d sc + pi6 10 * d sc + pi6 11 * d sc + ; s d 0.9 hand sc2 h d 0.5 hand m d 0.8 hand +
clock
icedp
'25 Jul 09
: n 1 + 2 / ; : x t 10 / x 2 * + sin n ; : y t 10 / y + cos n ; : f ( k x t - k' x' ) dup .1 + >r sin 10 * tan * 1 + 2 / r> ; t x y * y + x log 1 + / sqrt f f f f f f t sin x 2 * y sin 10 / + f f f f f f y x * 13 * cos * f f f f f f f f z* 2dup z* 2dup 2dup z* z*
Ashamed t added to Super Mad Piccasso Redux Redux
arlucena
'25 Jul 09
: strange pi -rot pow * t * sin ; x t y log strange y x log 60 * strange
ashamed t insert in the Drum Sand Redux
arlucena
'25 Jul 09
: n 1 + 2 / ; : x t 10 / x 2 * + sin n ; : y t 10 / y + cos n ; : f ( k x - k' x' ) dup .1 + >r sin 10 * tan * 1 + 2 / r> ; t x y * y + x log 1 + / sqrt f f f f f f t sin x 2 * y sin 10 / + f f f f f f y x * 13 * cos * f f f f f f f f z* 2dup z* 2dup 2dup z* z*
Super Mad Piccasso Redux
DarkstarAG
'25 Jul 09
: trail t 4 * x + + sin y 2 * 1 - - abs 1 swap - ; t y + trail t sin x - trail t cos trail
Rainbow Wave Redux
DarkstarAG
'25 Jul 09
: ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : x x 2 * ; : y t 2 * floor 10 mod y - 2 * ; : _ 20 * floor 5 + ; x _ y _ ( t 8 * floor - ) 7 + cos x _ sin / * 1 mod 0.5 >= dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + dup dup 0.22 * 0.2 + swap 0.22 * 0.15 + rot 0.24 * 0.47 +
10 PRINT... changing
DarkstarAG
'25 Jul 09
: ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : x x 2 * ; : y t 4 / ( floor ) 1 mod y - 2 * ; : _ 20 * floor 5 + ; x _ y _ ( t 8 * floor - ) 7 + cos x _ sin / * 1 mod 0.5 >= dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + dup dup 0.22 * 0.2 + swap 0.22 * 0.15 + rot 0.24 * 0.47 +
10 PRINT... rolling up
DarkstarAG
'25 Jul 09
: strange pi -rot pow * t * sin ; x y log strange y x log 60 * strange
Drum Sand
BB
'25 Jul 09
: rand random 0.5 - t sin * ; : x0 x 0.5 - 4 * rand + ; : y0 y 0.5 - 4 * rand + ; : r t 15 mod 1 + 3 / ; : dist x0 r ** y0 r ** + 1 r / ** ; dist 1 < random * dup random * dup random * 3 *
Shape Shifter
BB
'25 Jul 09
: rand random 0.5 - t sin * ; : x0 x 0.5 - 4 * rand + ; : y0 y 0.5 - 4 * rand + ; : r 4.5 ; : dist x0 r ** y0 r ** + 1 r / ** ; dist 1 < dup dup
Untitled
Anonymous
'25 Jul 09
: time t 3 / sin 1.5 * abs negate 0.1 + ; : c 0.3 time + 0 ; : i 2dup z* c z+ ; : n 3.1 * 1.55 - ; : i4 i i i i ; : m2 dup * swap dup * + ; : len m2 sqrt ; : j n swap n swap i4 i i m2 0.75 pow ; x 0.01 - y j x y j x 0.01 + y j
j Redux Redux
Anonymous
'25 Jul 09
: time t 3 / sin abs negate ; : c 0.3 time + 0 ; : i 2dup z* c z+ ; : n 3.1 * 1.55 - ; : i4 i i i i ; : m2 dup * swap dup * + ; : len m2 sqrt ; : j n swap n swap i4 i i m2 0.75 pow ; x 0.01 - y j x y j x 0.01 + y j
j Redux
icedp
'25 Jul 09
: square dup * ; : len square swap square + sqrt ; : dist swap -rot - -rot - len ; : pos 1.0 + 2.0 / ; : ball t * cos pos swap t * sin pos x y dist 2 sqrt / ; 2 3 ball 3 2 ball 7 5 ball
Colorama
kaoD
'25 Jul 09
: c -1 t sin 0.3 * ; : i 2dup z* c z+ ; : n 3.6 * 1.8 - ; : i4 i i i i ; : clamp min max ; x n y n i4 i4 i4 i4 0.25 pow
j
icedp
'25 Jul 09
random sin : the random sin ; : behold the random sin ; behold
random sin
strangeloop
'25 Jul 09
: fan 10 / x + y mod ; : sq .5 - dup * ; -5 fan 0 fan -10 fan x sq y sq + sqrt .2 <
pie not pi
E.A.
'25 Jul 09
: a .5 - ; : xy x y * ; : mirror x a y a 10 * * ; xy dup t t 20000 + max * tan swap dup mirror
Parallel Worlds (midnight singularity fix)
E.A.
'25 Jul 09
: sq dup * ; : xs 10 mod 10 / ; : q rot - sq ; : ab xs swap xs x q y q + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; 5 5 ab .2 random xs - < 5 5 ab .3 < 5 4 ab .4 < dup
crescent
E.A.
'25 Jul 09
: sq dup * ; : xs 10 mod 10 / ; : q rot - sq ; : ab xs swap xs x q y q + sqrt ; : n negate ; : bl t dup ; : br bl n ; : tl br swap ; : tr tl n ; bl ab .2 < br ab .2 < tl ab .2 < -5 -5 ab .5 <
magic doughnut
E.A.
'25 Jul 09
Next