Haiku Gallery
: n 2 ; : nx x n * ; : ny y n * ; : row ( pic iy -- pic' ) swap over ny < * swap 1 + ny > * ; : col ( pic ix -- pic' ) swap over nx < * swap 1 + nx > * ; : cell ( pic ix iy -- pic' ) >r col r> row ; : x nx 1 mod ; : y ny 1 mod ; : a y .5 - x .5 - atan2 2 pi * / 1 mod ; : r y .5 - 2 ** x .5 - 2 ** + .5 ** ; : k 2 t 9 mod + ; : pic0 r k * 1 mod ; : pic1 r k * 1 mod a k * 1 mod + ; : pic2 r k * 1 mod a k * 1 mod * ; : pic3 a k * 1 mod ; : fold ( v n -- v ) ; pic0 0 0 cell pic3 1 1 cell + pic1 0 1 cell pic3 1 1 cell + pic2 1 0 cell + 0 r .5 <
n by n pictures
陳爽
'18 Jun 17
: a 2dup z* log ; x .1 + y .1 + a a a a log over
Flower Redux
陳爽
'18 Jun 15
: n 3 ; : a 2dup z* log ; : dx t cos ; : t t n / ; : dy t cos ; : x x .5 - ; : y y .5 - ; : u x n * dx + ; : v y n * dy + ; u v a a log log over swap over a x 2 ** y 2 ** + .5 ** .45 < *
藍鹛
陳爽
'18 Jun 15
: u y 3 * 2.2 - ; : v x 3 * 1.5 - ; : m 2dup 2dup rot * -rot * swap - u + -rot * v + ; 0 0 0 m m m m m m m m m m m m m m m m +
Magic Mirror
陳爽
'18 Jun 15
pi x y sin @ dup
pi x y sin @ dup
pi x y sin @ dup
'18 May 29
: x x 3.5 * 2.5 - ; : y y 3 * 1.5 - ; : m 2dup 2dup rot * -rot * swap - x + -rot 2 * * y + ; 0 0 0 m m m m m m m m m m m m m m m m m m +
I'm uncopyrighted!
Anonymous
'18 May 29
: n 2 + 2 / ; : x .5 y .5 min - .1 y 12 * t .8 * + cos n + x - / sin 3 / ; : k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 154 pow ; t 3 * y k * + f x 7 * 7.9 + cos 1 + sqrt 3 pow
Untitled
.
'18 May 29
pi x y sin 1.4
it's the tropics!
Anonymous quads
'18 May 29
( greets: DarkstarAG BradN Manwe 陳爽 ting Stainless ... and anyone i forget. keep at it! ) : xp t pi * 56 / sin .47 * ; : yp t pi * cos .3 * ; : d dup * swap dup * + sqrt ; : p y .5 - + swap x .5 - + d 1 swap - 5 pow ; : col dup dup .1 > swap .8 < and swap .2 - 8 * * ; xp yp p xp negate yp negate p + col dup 1 pow dup rot swap .1 +
refraction of one light
Anonymous quads
'18 May 29
: scale 3.14 ; : zoom pi 1027 * ; : offset scale 1 / ; : xsize x scale * mx offset ; : ysize y scale * my offset ; : circle xsize + - dup * ysize + - dup * + sqrt dup t zoom / * tan dup ; circle + t circle * circle + sin t * sin + 1.75 * t 8 * sin +
pink redux redux?
Anonymous quads
'18 May 29
: scale pi ; : zoom pi 1000 * ; : offset scale 2 / ; : xsize x scale * mx offset ; : ysize y scale * my offset ; : circle xsize + - dup * ysize + - dup * + sqrt dup t zoom / * tan sin ; circle + t circle * circle + 2 t * sin + 1.75 * t 8 * sin +
Electron/Positron Structure Redux
Franklin Amador
'18 May 26
: t1 21 x * t + 10 mod 10 / ; : t2 37 y * t + 21 mod 21 / ; : t3 x y * t + 33 mod 33 / ; t1 t2 t3
my first
htrof
'18 May 07
x y t
Untitled
Anonymous
'18 May 07
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin *
test1
Anonymous
'18 May 07
: x x 3.5 * 2.5 - ; : y y 3 * 1.5 - ; : m 2dup 2dup rot * -rot * swap - x + -rot 2 * * y + ; 0 0 0 m m m m m m m m m m m m m m m m m m +
mandelbröt
boomlinde
'18 May 02
( greets: DarkstarAG BradN Manwe 陳爽 ting Stainless ... and anyone i forget. keep at it! ) : xp t pi * 4 / sin .3 * ; : yp t pi * cos .3 * ; : d dup * swap dup * + sqrt ; : p y .5 - + swap x .5 - + d 1 swap - 5 pow ; : col dup dup .2 > swap .4 < and swap .2 - 5 * * ; xp yp p xp negate yp negate p + col dup 4 pow dup rot swap .1 +
metadonut fixed
boomlinde
'18 May 01
( greets: DarkstarAG BradN Manwe 陳爽 ting Stainless ... and anyone i forget. keep at it!) : xp t pi * 4 / sin .3 * ; : yp t pi * cos .3 * ; : d dup * swap dup * + sqrt ; : p y .5 - + swap x .5 - + d 1 swap - 5 pow ; : col dup dup .2 > swap .4 < and swap .2 - 5 * * ; xp yp p xp negate yp negate p + col dup 4 pow dup rot swap .1 +
metadonut
boomlinde
'18 May 01
: x x 1 + log 10 log / ; : scale pi * cos ; x 10 * scale 1000 pow y .3 < * x 50 * scale 50 pow y .2 < * + x 100 * scale 10 pow y .1 < * +
Sliderule
Anonymous
'18 Apr 28
mx my y x z* dup pi + random dup -rot + dup * random + sin
you can move you mouse to make da sound
tysmu
'18 Apr 26
( Base fractal of Menger Sponge ) : ifelse ( a b k - k==1?a:b ) dup 1 - z* negate drop ; : n 1 + 2 / ; : k 1.05 ; : f1 ( q -> f ) .5 < ; : f2 ( q -> f ) t cos - abs ; : f ( a b -> f ) k * * cos abs dup f1 swap f2 t cos n .25 < ifelse ; : tri ( k -> c ) 3 swap pow dup >r y f r> x f * ; 1 1 tri - 3 tri - 5 tri - 1 2 tri - 1 4 tri -
Menger2D ifelse
DarkstarAG
'18 Apr 16
( Base fractal of Menger Sponge ) ( stright definition: прямое определение ) : ifelse ( a b k - k==1?a:b ) 1 over - rot * rot rot * + ; ( use complex '*': используем комплексное умножение ) ( [a+ib] * [k+i[1-k]] = ak + ai[1 - k] + ibk - b[1 - k] = ak - b[1 - k] + ai[1-k] + ibk ) ( [a-ib] * [k+i[1-k]] = ak + ai[1 - k] - ibk + b[1 - k] = ak + b[1 - k] + ai[1-k] - ibk ) : ifelse ( a b k - k==1?a:b ) dup 1 - z* negate drop ; x .49 < x .51 > t 1 mod .5 < ifelse
ifelse keyword
DarkstarAG
'18 Apr 16
( Base fractal of Menger Sponge ) : ifelse ( a b k - k==1?a:b ) 1 over - negate z* * ; : n 1 + 2 / ; : k 1.05 ; : f1 ( q -> f ) .5 < ; : f2 ( q -> f ) t cos - abs ; : f ( a b -> f ) k * * cos abs dup f1 swap f2 t cos n .5 < ifelse ; : tri ( k -> c ) 3 swap pow dup >r y f r> x f * ; 1 1 tri - 3 tri - 5 tri - 1 2 tri - 1 4 tri -
Menger2D
DarkstarAG
'18 Apr 16
: n 1 + 2 / ; : x .5 y .5 min - .1 y 12 * t .8 * + cos n + x - / sin 3 / ; : k 42 ; : s t 2 * sin 2 / -0.15 + ; : f sin x k * sin x k 13 / * tan * * s + 100 pow ; t 3 * y k * + f x 7 * 2.9 + cos 1 + sqrt 3 pow
Yellow Way Redux
DarkstarAG
'18 Apr 16
: t t 20 / ; : rbus 5 / t + 1 mod x - abs .01 < ; : lbus 5 / t negate + 1 mod x - abs .01 < ; 0 rbus 1 rbus or 2 rbus or 3 rbus or 4 rbus or 5 rbus or 0.5 lbus 1.5 lbus or 2.5 lbus or 3.5 lbus or 4.5 lbus or 5.5 lbus or
Buses
Anonymous
'18 Apr 15
X sin y 3 * cos > Y x > 2dup .2 * z* / x .5 - 2 ** X 2.2 * cos y tan - swap y .5 - 2 ** + .5 ** dup .3 < swap .5 <
Wilted Redux
陳爽
'18 Apr 12
Y x tan / Y x * tan 1 y - .2 *
Bulbforous
Anonymous
'18 Apr 09
: y y 1.5 * .1 + ; X 3 * sin y / X 5 * sin y * X 7 * sin y * Rot
Rise
Anonymous
'18 Apr 09
X y - 1.113 * sin y .1 mod / .1 * X y - 2 * sin y .1 mod / Over 2 *
Snowy Tree
Anonymous
'18 Apr 09
X sin y 3 * cos > Y cos x cos > X 5 * sin y cos + 2dup z* / X 2 * cos y tan -
Wilted
Anonymous
'18 Apr 09
X sin y 3 * cos > Y cos x cos > X 5 * sin y cos +
Colored Bandage
Anonymous
'18 Apr 09
X 7 mod 23 * sin X / Dup y x z* + Dup y / Dup y /
Ice Bars
Anonymous
'18 Apr 09
X 7 * cos Y 3 * sin / Dup x y * - 2dup x y - z*
Lava Lamps
Anonymous
'18 Apr 09
X y y * / X x * y y y * * / X y /
Solar Bloom
Anonymous
'18 Apr 09
: xx x .8 - ; : yy y .5 - ; : tt t .4 * ; : a .25 * ; : mx xx 2 a tt cos * 2 tt * cos a - + ; : my yy 2 a tt sin * 2 tt * sin a - + ; : mm 2dup Z* mx my z+ ; mx my mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm mm dup * swap dup * + 0 > negate 1 + dup dup
FractaleMandelbrote
Anonimus
'18 Apr 04
: test x' ^2 y' ^2 + 1 - ^3 x' ^2 y' ^3 * - ; test
nul
nul
'18 Apr 03
: q 1 ** ; 0 0 4 push : l x .5 - r@ 1 + * r@ 3 - t 1.9 / cos t 1.9 / sin z* y .5 - r@ 1 + * swap t 2.7 / cos t 2.7 / sin z* -rot q swap q + dup 8 * swap rot q + 1.8 + q - abs .03 < r@ / pop .6 - push max ; : j l l l l ; j j j j pop drop 1.5 * dup 2 ** swap
thrub Redux
Anonymous
'18 Apr 01
: center 2 * 1 - ; : xc x center ; : yc y center ; : r xc 2 ** yc 2 ** + sqrt ; : s r * t 9999 * - ; 1 s 1.0139 * pi 9 / + cos 2 s 0.8143 * cos 14 s 1.9101 * pi + cos dup
bam!
Anonymous
'18 Apr 01
: k t 2 / sin abs ; : dx x 0.5 - t 7 * sin * y 0.5 - t 7 * cos * - ; : dy x 0.5 - t 7 * cos * y 0.5 - t 7 * sin * + ; : r 0.4 k * ; : h r 0.5 * k * ; : w 0.03 k * ; : svastika dx abs w < dy abs h < and dy 0 < if dx h < dx 0 > and else dx 0 < dx 0 h - > and then dy abs h - w + abs w < and or dy abs w < dx abs h < and dx 0 > if dy h < dy 0 > and else dy 0 < dy 0 h - > and then dx abs h - w + abs w < and or or ; : circle dx dx * dy dy * + sqrt r < ; svastika not svastika not circle and svastika not circle and
postironiya Redux
Anonymous
'18 Mar 31
: k t 2 / sin abs ; : dx x t sin * y t cos * + 0.5 - ; : dy x t cos * y t sin * + 0.5 - ; : r 0.4 k * ; : h r 0.5 * k * ; : w 0.03 k * ; : svastika dx abs w < dy abs h < and dy 0 < if dx h < dx 0 > and else dx 0 < dx 0 h - > and then dy abs h - w + abs w < and or dy abs w < dx abs h < and dx 0 > if dy h < dy 0 > and else dy 0 < dy 0 h - > and then dx abs h - w + abs w < and or or ; : circle dx dx * dy dy * + sqrt r < ; svastika not svastika not circle and svastika not circle and
postironiya
Anonymous
'18 Mar 31
: dx x 0.5 - ; : dy y 0.5 - ; : r 0.4 ; : h r 0.5 * ; : w 0.03 ; : svastika dx abs w < dy abs h < and dy 0 < if dx h < dx 0 > and else dx 0 < dx 0 h - > and then dy abs h - w + abs w < and or dy abs w < dx abs h < and dx 0 > if dy h < dy 0 > and else dy 0 < dy 0 h - > and then dx abs h - w + abs w < and or or ; : circle dx dx * dy dy * + sqrt r < ; svastika not svastika not circle and svastika not circle and
vot i vse iskusstvo
Anonymous
'18 Mar 31
Next