Haiku Gallery
: d rot - dup * -rot swap - dup * + sqrt ; : m 1 + 2 / ; : v m x y d ; : o1 t sin m t cos m x y d ; : o2 t 1.5 * cos m t 0.7 * sin v ; : o3 t 0.9 * cos m t 2.3 * sin v ; : o4 t 2.4 * cos m t 3.1 * sin v ; o1 o2 o4 - - 10 * t sin 1.1 + * sin dup 0.5 * o3 swap
bend
boomlinde
'25 Feb 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 20 20 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'25 Feb 18
: r dup y 8 ** * t + sin swap x * cos + 1 mod ; 128 r 5 r dup 12 r /
Candy 69 bytes Redux
pagus
'25 Feb 18
\ Memory: \ 0 1 2 | 3 4 5 | 6 | 7 8 9 | 10 11 12 13 | 14 15 \ x y z |dx dy dz |est| sdf | dist cx cy cz | hash \ pos mx 4 * 2 - 0 ! my 4 * 2 - 1 ! 0 2 ! \ dir \ screen is -.5 <-> .5 along x/y camera is at <0,0,-.5> x .5 - 2 ** y .5 - 2 ** + .5 2 ** + sqrt 1 swap / \ Normalization factor. dup dup x .5 - * 3 ! y .5 - * 4 ! .5 * 5 ! 0 10 ! 0 11 ! 0 12 ! 0 13 ! : sdf 0 @ 1 mod .5 - 2 ** 1 @ 1 mod .5 - 2 ** 2 @ t + 1 mod .5 - 2 ** + + sqrt .15 - dup 6 ! 10 @ + 10 ! ; : step sdf 6 @ dup dup 3 @ * 0 @ + 0 ! 4 @ * 1 @ + 1 ! 5 @ * 2 @ + 2 ! ; step step step step step step step step step step step step step step step \ hash the resulting sphere. 0 @ floor 12.1031 * 1 @ floor 33.1010 * 2 @ t + floor 57.9323 * + + sin 1 mod 100 * floor 14 ! 6 @ 0.005 > if 0 else 1 10 @ 14 @ sin .5 * 1.5 + ** / 0 @ 1 mod .5 - 3 @ * 1 @ 1 mod .5 - 4 @ * + 2 @ t + 1 mod .5 - 5 @ * + 2 ** 10 * t 14 @ + .3 * sin * 6 @ 1000 * t 14 @ + .5 * sin * + + then 6 ! \ color the resulting position 14 @ dup dup sin .5 * .5 + 6 @ * rot 2 + sin .5 * .5 + 6 @ * rot 4 + sin .5 * .5 + 6 @ *
Spheres
Snail
'25 Feb 18
:length (vec3 addr -- length of vec) 1000 ! (copy arg into [1000]) 1000 @ dup 1 + dup 1 + ([xloc, yloc, zloc]) @ 2 ** rot @ 2 ** rot @ 2 ** + + sqrt (vec length) ; x .5 - 2 * 0 ! y .5 - 2 * 1 ! 1 2 ! 0 length 1 mod
Untitled
Anonymous
'25 Feb 18
: x x .5 - ; : y y .5 - ; \ origin moved to center .5,.5 : box0 ( v -- box0 ) \ .4*.4 square of rolling speed v/2/pi t * dup cos .29 * x - abs .2 < swap sin .29 * y - abs .2 < and ; : box ( R G B r g b v -- R-R*box0+r*box0 G-G*box0+g*box0 B-B*box0+b*box0 ) box0 ( R G B r g b box0 ) 0 ! ( R G B r g b ) 0 @ * ( R G B r g b*box0 ) 1 ! ( R G B r g ) 0 @ * ( R G B r g*box0 ) 2 ! ( R G B r ) 0 @ * ( R G B r*box0 ) 3 ! ( R G B ) 1 0 @ - ( R G B 1-box0 ) 0 ! ( R G B ) 0 @ * ( R G B-B*box0 ) 1 @ + ( R G B-B*box0+b*box0 ) >r 0 @ * ( R G-G*box0 ) 2 @ + ( R G-G*box0+g*box0 ) >r 0 @ * ( R-R*box0 ) 3 @ + ( R-R*box0+r*box0 ) r> ( R-R*box0+r*box0 G-box0+g*box0 ) r> ( R-box0+r*box0 G-box0+g*box0 B-box0+b*box0 ) ; .3 0. 0. \ back ground 0. 0. 0. 1.0 box 0. 1. 0. 1.2 box 1. 1. 0. 1.4 box 0. 0. 1. 1.6 box 1. 0. 1. 1.8 box 0. 1. 1. 2.0 box 1. 1. 1. 2.2 box 1. .5 0. 2.4 box .5 .5 .5 2.6 box
rolling squares
陳爽
'25 Feb 18
: b ( i -- ) t * x .5 - over cos .25 * - abs .24 < y .5 - rot sin .25 * - abs .24 < * ; .2 b .4 b .6 b
Box going in a circle Redux
陳爽
'25 Feb 18
x .5 - t cos .25 * - abs .24 < y .5 - t sin .25 * - abs .24 < * dup dup
Box going in a circle Redux
陳爽
'25 Feb 18
: a t pi 2 * mod ; : x x .5 - a cos .25 * - ; : y y .5 - a sin .25 * - ; x abs .24 < y abs .24 < * dup dup
Box going in a circle Redux
陳爽
'25 Feb 18
: a t pi 2 * mod ; : anoc a not 0.25 + ; : cx 0.25 a cos * x + anoc ; : cy 0.25 a sin * y + anoc ; cx >= cy >= and cx - 0.5 <= cy - 0.5 <= and and dup dup
Box going in a circle
Uber
'25 Feb 18
\ fraction of time. The smaller the number (but bigger than zero), the more often the return : fr t swap mod ; \ The larger the number on the stack, the lower the return (in the range 0.0 and 1.0 -- 1.0 and 0.0 ) : rev 1 - abs ; \ The farther from 5 the number on the stack, the closer to 0.5 the return ( in the range 0.0 and 1.0 -- 0.0 and 0.5 ) : 0to5 0.5 - abs ; y 0to5 x 0to5 + fr dup dup
hypnosis reverse
Arsen
'25 Feb 18
\ fraction of time. The smaller the number (but bigger than zero), the more often the return : fr t swap mod ; \ The larger the number on the stack, the lower the return (in the range 0.0 and 1.0) : rev 1 - abs ; \ The farther from 5 the number on the stack, the closer to 0.5 the return ( on the stack in the range 0.0 and 1.0 -- ) : 0to5 0.5 - abs ; y 0to5 x 0to5 + rev fr dup dup
hypnosis
Arsen
'25 Feb 18
: c .5 - ; : x x c ; : y y c ; : λ x x * y y * + sqrt ; λ .31 < x abs .292 < y abs .292 < * x y - abs .4 < x y + abs .4 < * λ .48 <
square and circle
陳爽
'25 Feb 18
: n 2 ; : c 1 mod .5 - ; : d n * ; : x x d ; : ix x floor ; : x x c ; : y y d ; : iy y floor ; : y y c ; : | iy n * ix + = * ; : λ x x * y y * + sqrt ; λ .3 < 0 | x abs .050 < y abs .050 < + 3 | + x abs .292 < y abs .292 < * 1 | x abs .150 < y abs .150 < + 3 | + x y - abs .4 < x y + abs .4 < * 2 | x abs .250 < y abs .250 < + 3 | + λ .48 <
graphics Redux
陳爽
'25 Feb 18
: n 3 ; : c 1 mod .5 - ; : d n * ; : x x d ; : ix x floor ; : x x c ; : y y d ; : iy y floor ; : y y c ; : | iy n * ix + = * + ; : λ x 2 ** y 2 ** + sqrt ; : θ x y atan2 ; : n 0 @ ; : n! 0 ! ; : α pi 9 / ; \ half inner angle : a pi n / ; \ outer angle : β θ a 2 * mod a - abs ; : star ( r n -- star ) n! >r pi 9 / sin r> * pi 9 / cos β sin * β cos pi 9 / sin * + / λ > ; : polygon ( r n -- polygon ) n! >r pi 2 / sin r> * pi 2 / cos β sin * β cos pi 2 / sin * + / λ > ; x abs .45 < y abs .45 < * \ red 0 \ green λ .35 < 7 | x abs .292 < y abs .292 < * 0 | x y - abs .4 < x y + abs .4 < * 1 | .22 3 polygon 4 | .45 5 star 2 | .44 8 star 5 | .33 7 polygon 3 | .35 12 polygon 6 | .43 12 star 8 | 0 \ blue brightness x abs .49 < y abs .49 < * \ trasparency
graphics
陳爽
'25 Feb 18
: n 50 t sin 30 * + ; : x x t sin 12 / + ; : y y t sin 8 / + ; : a ( dy dx -- angle ) atan2 t sin 5 * + ; : r ( dy dx -- dist ) dup * swap dup * + sqrt ; : s ( x0 y0 n -- spiral ) >r y swap - swap x swap - ( y-y0 x-x0 ) 2dup r ( y-y0 x-x0 dist ) -rot a r@ / + ( dist+angle/n ) r> * ( (dist+angle/n)*n ) pi 2 * mod 1 < ; .500 .500 n s .500 .503 n s x * .503 .500 n s y *
spiral
陳爽
'25 Feb 18
: xo .5 ; : yo .7 ; : 2pi 2 pi * ; : a y yo - x xo - atan2 2pi / .25 + 1 mod ; : levels dup push * floor pop 1 - / ; a 2 * 1 - abs 9.5 levels dup y yo < * swap y * 0 rot
blue hole
陳爽
'25 Feb 18
: x x .5 - ; : flame push x y / sin y r@ / sin 99 * x * sin * pop * + sin y .3 - t 99 * sin 2 / 2.2 + * - sqrt 1 swap - y .7 ** * ; 5 1 flame \ R 3 2 flame \ G 1 3 flame \ B
jet flame
陳爽
'25 Feb 18
: 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
陳爽
'25 Feb 18
: a 2dup z* log ; x .1 + y .1 + a a a a log over
Flower Redux
陳爽
'25 Feb 18
: 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 < *
藍鹛
陳爽
'25 Feb 18
: 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
陳爽
'25 Feb 18
pi x y sin @ dup
pi x y sin @ dup
pi x y sin @ dup
'25 Feb 18
: 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
'25 Feb 18
: 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
.
'25 Feb 18
pi x y sin 1.4
it's the tropics!
Anonymous quads
'25 Feb 18
( 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
'25 Feb 18
: 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
'25 Feb 18
: 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
'25 Feb 18
: 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
'25 Feb 18
x y t
Untitled
Anonymous
'25 Feb 18
x 9.4 * sin y 9.4 * sin t 4 * sin * * dup t 2 * sin *
test1
Anonymous
'25 Feb 18
: 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
'25 Feb 18
( 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
'25 Feb 18
( 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
'25 Feb 18
: 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
'25 Feb 18
mx my y x z* dup pi + random dup -rot + dup * random + sin
you can move you mouse to make da sound
tysmu
'25 Feb 18
( 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
'25 Feb 18
( 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
'25 Feb 18
( 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
'25 Feb 18
Next