Haiku Gallery
( jet color palette ) ( (c) <darkstar> 2018 ) : r ( x -> r ) 3 * 1 - ; : g ( x -> g ) 0.5 - abs 6 * 2 swap - ; : b ( x -> b ) 1 swap - 2 * 1 - ; : x x x * y y * t cos * + t 5 / + 1 mod ; : jet x r x g x b ; jet
jet color palette Redux
DarkstarAG
'25 Jul 07
( jet color palette ) ( (c) <darkstar> 2018 ) : r ( x -> r ) 3 * 1 - ; : g ( x -> g ) 0.5 - abs 6 * 2 swap - ; : b ( x -> b ) 1 swap - 2 * 1 - ; : x x y t cos * + t 5 / + 1 mod ; : jet x r x g x b ; jet
jet color palette
DarkstarAG
'25 Jul 07
: v t 20 * sin .005 * + ; : d .4 v ; : r d 2 / ; : bound r max 1 r - min ; : x x mx bound - ; : y y my bound - ; x 2 ** y 2 ** + sqrt r < 1 x abs y abs * - 999 **
stuck in box
陳爽
'25 Jul 07
my sin y sin / t sin my sin - my sin *
Test
Shosh Melly
'25 Jul 07
\ base data & tranforms : xm 5 ; : xo t 1.3 * sin ; : ym 5 ; : yo t 0.6 * cos ; : x0 x xo + xm * ; : y0 y yo + ym * ; \ code \ \ RED x0 pi * sin y0 pi * sin * dup * t sin 1 + 2 / * x0 1.1 * pi * cos y0 1.2 * pi * cos * dup * t sin 1 + 2 / * + dup dup * dup sin
Untitled
Anonymous
'25 Jul 07
: r y > swap x > and swap y < rot x < and and not and ; : v x > swap x < and or ; : h y > swap y < and or ; : vl 0 0.06 v 0.08 0.20 v 0.22 0.68 v 0.70 0.78 v 0.80 0.86 v 0.88 0.90 v ; : hl 0 0.31 h 0.33 0.43 h 0.45 0.66 h 0.68 1 h ; : grid 0 vl 0 hl and ; : r1 0.45 0 0.50 0.03 r ; : r2 0.70 0 0.86 0.03 r ; : r3 0 0.21 0.06 0.27 r ; : r4 0 0.33 0.06 0.43 r ; : r5 0 0.79 0.06 1 r ; : r6 0.88 0.45 0.90 0.66 r ; : r7 0.22 0.03 0.86 0.05 r ; : r8 0.08 0.37 0.78 0.39 r ; : r9 0 0.75 0.06 0.79 r ; : r10 0.22 0.75 0.68 0.77 r ; : r11 0.22 0.96 0.68 0.98 r ; grid r5 r7 r8 r9 r10 r11 grid r1 r3 r5 r6 r7 r8 r9 r10 r11 grid r1 r2 r3 r4 r6 r7 r8 r9 r10 r11
Mondrian-Lines-2
Chen-Hanson Ting
'25 Jul 07
: r y > swap x > and swap y < rot x < and and not and ; : v x > swap x < and or ; : h y > swap y < and or ; : vl 0 0.14 v 0.16 0.26 v 0.28 0.34 v 0.36 0.39 v 0.41 0.59 v 0.61 0.78 v 0.80 0.84 v 0.86 0.94 v 0.96 1 v ; : hl 0 0.19 h 0.22 0.34 h 0.37 0.46 h 0.49 0.63 h 0.66 1 h ; : grid 0 vl 0 hl and ; : r1 0 0 0.14 0.19 r ; : r2 0.61 0.66 0.78 0.83 r ; : r3 0.61 0.83 0.84 0.86 r ; : r4 0.16 0.85 0.39 0.89 r ; : r5 0.96 0.85 1 0.89 r ; : r6 0.61 0.93 0.84 0.96 r ; grid r3 r4 r6 grid r2 r3 r4 r5 r6 grid r1 r2 r3 r5 r6
Mondrian-Lines-1
Chen-Hanson Ting
'25 Jul 07
: r y > swap x > and swap y < rot x < and and or ; : r1 0 0.11 0.15 0.23 r ; : r2 0.17 0.11 0.32 0.23 r ; : r3 0.34 0.11 0.56 0.23 r ; : r4 0.58 0.11 0.87 0.23 r ; : r5 0 0.25 0.15 0.45 r ; : r6 0.17 0.25 0.32 0.45 r ; : r7 0.34 0.25 0.56 0.45 r ; : r8 0.58 0.25 0.87 0.45 r ; : r9 0 0.47 0.15 0.76 r ; : r10 0.17 0.47 0.32 0.66 r ; : r11 0.34 0.47 0.56 0.76 r ; : r12 0.58 0.47 0.87 0.76 r ; : r13 0.17 0.68 0.32 0.76 r ; : r14 0 0.78 0.15 0.88 r ; : r15 0.17 0.78 0.32 0.88 r ; : r16 0.34 0.78 0.56 0.88 r ; : r17 0.58 0.78 0.87 0.88 r ; : r18 0.89 0.11 1 0.23 r ; : r19 0.89 0.25 1 0.45 r ; : r20 0.89 0.47 1 0.76 r ; : r21 0.89 0.78 1 0.88 r ; 0 r1 r2 r3 r4 r5 r6 r7 r9 r10 r11 r12 r13 r14 r15 r16 r17 r18 r19 r20 r21 0 r1 r2 r3 r4 r5 r7 r9 r10 r11 r12 r13 r14 r15 r16 r17 r18 r19 r20 r21 0 r1 r2 r3 r4 r5 r7 r8 r9 r10 r11 r12 r14 r15 r16 r17 r18 r19 r20 r21
Mondrian-3
Chen-Hanson Ting
'25 Jul 07
: r y > swap x > and swap y < rot x < and and or ; : r1 0 0 0.09 0.33 r ; : r2 0.11 0 0.45 0.33 r ; : r3 0.47 0 0.75 0.04 r ; : r4 0.77 0 1 0.33 r ; : r5 0.47 0.06 0.75 0.33 r ; : r6 0 0.35 0.45 0.57 r ; : r7 0.47 0.35 1 0.57 r ; : r8 0 0.59 0.45 1 r ; : r9 0.47 0.59 1 1 r ; 0 r1 r2 r3 r4 r6 r7 r8 r9 0 r1 r2 r3 r4 r6 r7 r9 0 r2 r3 r4 r5 r6 r7 r9
Mondrian-2
Chen-Hanson Ting
'25 Jul 07
: r y > swap x > and swap y < rot x < and and or ; : r1 0 0 0.11 0.23 r ; : r2 0.13 0 0.37 0.11 r ; : r3 0.38 0 0.93 0.04 r ; : r4 0.95 0 1 0.23 r ; : r5 0.39 0.13 0.62 0.23 r ; : r6 0.39 0.25 0.62 0.36 r ; : r7 0.64 0.25 0.93 0.36 r ; : r8 0.64 0.06 0.93 0.23 r ; : r9 0 0.25 0.11 0.61 r ; : r10 0.13 0.38 0.62 0.87 r ; : r11 0.64 0.38 0.78 0.61 r ; : r12 0.8 0.38 0.93 0.61 r ; : r13 0.64 0.63 0.93 0.87 r ; : r14 0.95 0.25 1 1 r ; : r15 0 0.63 0.11 0.87 r ; : r16 0 0.89 0.24 1 r ; : r17 0.26 0.89 0.62 1 r ; : r18 0.64 0.89 0.93 1 r ; 0 r1 r2 r3 r4 r5 r5 r6 r7 r9 r10 r11 r12 r13 r14 r15 r16 r17 r18 0 r1 r2 r3 r4 r5 r5 r6 r7 r9 r11 r12 r13 r14 r15 r16 r17 r18 0 r2 r3 r4 r5 r5 r6 r7 r8 r9 r11 r12 r14 r15 r16 r17
Mondrian-1
Chen-Hanson Ting
'25 Jul 07
x abs .01 < y abs .01 < or x abs .99 > or y abs .99 > or x y + dup .99 > swap 1.01 < and or
Triangles
Anonymous
'25 Jul 07
: mm over * swap .3 > .3 * max ; : w t 16 + ; : d dup ; : f 1 mod ; : p w 2 * sin .3 * .5 + ; : c y * floor 3 mod swap / - d 0 > ; : r / f 0.5 - d 0 > 2 * 1 - * 2 * ; : by w 3.1 r ; x 16 * f .04 > y 32 * f .07 > * y .69 > * 5 16 c 6 32 c 8 8 c drop by d w .02 - 3.1 r - 0 < * w 1 by - 1.55 * - 7 r 16 * floor .52 + 16 / x - abs 0.03 < * y .72 < y .69 > * * 2 / x w 7 r - d * y by .64 * .038 + - d * + sqrt .015 < 2 * + y .028 < x w 7 r p over - by * + - abs .06 < * + d d >r >r + rot r> + rot r> + rot x y bwsample push r@ mm rot r@ mm rot r@ mm rot pop drop
Arkanoid Video
Anonymous
'25 Jul 07
: x' x .5 - dup * y .5 - dup * + sqrt ; : y' y .5 - x .5 - atan2 ; : x x' y' t + cos * .5 + ; : y x' y' t + sin * .5 + ; : xc x .5 - ; : yc y .5 - ; : yt y .7 - ; : yb y .3 - ; : r1 .16 ; : r2 .04 ; : r3 .005 ; : len dup * swap dup * + ; : c1 xc yc len r1 < ; : c2 xc yc len r1 - dup .008 > swap .012 < and ; : lr x .5 < ; : wb xc yt len r2 < ; : bb xc yb len r2 > ; : ws xc yb len r3 < ; : bs xc yt len r3 > ; c1 lr min bb min wb max bs min ws max c2 max x y bwsample * dup dup
Duality Video
Anonymous
'25 Jul 07
: c t 0.01398413 + sin t -0.9132423 + sin ; : iterate 2dup z* c z+ ; : norm dup * swap dup * + ; : j 2dup >r >r norm 4 > + r> r> iterate ; : scale 0.5 - 2 pi * * 0.5 * ; : sclxy scale swap scale swap ; : julia 0 x y sclxy j j j j j j j j j j j j j j j j drop drop ; julia 16 / x y bwsample over .1 < * + dup dup
Julia grayscale Vision
Anonymous
'25 Jul 07
( greetings to BradN, Boomlinde, Digimind, DarkstarAG, Ivanq, Vort, Frag_, Stainless, demoscene.ru ) : zoom t 5 / sin 10 / ; : xx x .5 - .8 zoom - * t cos 5 / negate + ; : yy y .3 - .8 zoom - * zoom + ; : a t sin 3 / + ; : line 2dup sin * negate xx + swap a tan * swap yy + swap - 160 * 1 min 0 max ; : wings .025 .12 line .025 -.12 line * -.025 .12 line - -.025 -.12 line - ; : flaps 0.045 .8 line 0.006 .4 line - 0.045 -.8 line 0.006 -.4 line - + + 0 max ; : tail -0.057 0 line xx .065 - yy atan2 a 0 > - xx .065 + yy atan2 a 0 < - 0 max + xx .0065 + yy atan2 a 55 * 1 min 0 max xx .0065 - yy atan2 a 55 * 1 min 0 max - + ; : cut 1 -0.064 0 line - * 0.019 0 line * ; : circle dup 0 a cos * xx - 2 ** swap 0 a sin * yy - 2 ** + - 3999 * 0 max 1 min ; : engine 0.0008 .05 circle + 0.0008 -.05 circle + ; : fire 0.0002 random 8000 / + dup >r .05 circle r> -.05 circle + 5 * ; : run 4 1 y 1.3 * - / t dup floor - 6 * + floor 2 mod dup y 1.6 * + 1 min .6 * swap 0 = y 1.6 * + 1 min .5 * ; : sun 1 x .5 - 2 ** y .94 - 2 ** + .2 ** - ; run sun + wings flaps tail cut engine dup -rot - -rot - dup 0 > fire dup dup >r >r + rot r> + rot r> .65 * + 0 max .27 ** dup .05 < .36 * + x y bwsample push r@ * rot r@ * rot r@ * rot pop drop
Planet of Zoom Video
Anonymous
'25 Jul 07
: q 2 ** ; 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 .2 - push max ; : j l l l l ; j j j j pop + + push x y sample r@ * rot r@ * rot r@ * rot pop drop
3D Wire Torus Video
Anonymous
'25 Jul 07
x y bwsample x .02 - y bwsample / x .01 - y bwsample x y .01 - bwsample
Anemia
Anonymous
'25 Jul 07
: x x .5 - ; : y y .5 - ; x dup * y dup * + sqrt y x atan2 1 mod sample
Shattered
Anonymous
'25 Jul 07
x 0.5 > if 255 0 0 1 else Y 0.5 > if 255 0 0 1 else 0 0 255 1 then then
test X Y R G B A
Wesley
'25 Jul 07
1 2 3 1
Untitled
Anonymous
'25 Jul 07
: bar * sin + ; : barx x bar ; : bary y bar ; : foo 0 11 barx 17 bary 19 barx 0 3 bary 5 barx 7 bary * + 7 * sin ; t 0.33 * foo t 0.67 * foo t foo
oily Redux Animated
foo
'25 Jul 07
: x x 10 * 4 - ; : y y 10 * 4 - ; x y + x y * > x 1 - abs .1 < y 1 - abs .1 < or x 0 - abs .1 < y 0 - abs .1 < or
a + b > a * b
BradN
'25 Jul 07
x y bwsample
Darkroom TV
Anonymous
'25 Jul 07
: sc 40 ; : df .1 ; x sc * floor .5 + sc / y sc * floor .5 + sc / bwsample push x sc * floor .5 + sc / y sc * floor .5 + sc / sample r@ df + / rot r@ df + / rot pop df + / rot x y bwsample push r@ df + * rot r@ df + * rot pop df + * rot
LowRes Chroma Fixed
BradN
'25 Jul 07
: sc 40 ; : df .1 ; x sc * floor sc / y sc * floor sc / bwsample push x sc * floor sc / y sc * floor sc / sample r@ df + / rot r@ df + / rot pop df + / rot x y bwsample push r@ df + * rot r@ df + * rot pop df + * rot
LowRes Chroma
BradN
'25 Jul 07
: d dup ; : m 1 min ; : f d floor - ; : c cos abs ; : j t 4 + 2 * x 8 * floor 8 / + 4 * c 2 / t 4 + 2 / c 4 ** * - ; : a 1 x x 8 * floor 0.5 + 8 / - d * y ; : b - d * + sqrt 50 * 8 ** ; : p x t 4 + pi / f 1.6 * - 0.2 + ; : v t 4 + pi 2 * / f ; a j 0.5 b - v d 0.5 < * 4 * m * 1 p d * y 0.5 - d * + 36 * 30 ** m - y 0.5 - p atan2 abs t 10 * c 0.8 * - 16 * m * 0 max a 0.5 b - 0 max d p 16 * < * + p d * y 0.58 b m * v 0.5 >= * + d 0.2 x y sample push push push rot pop max rot pop max rot pop max
PACMAN TV
Anonymous
'25 Jul 07
: kk x 2 / .5 + y sample swap -rot + .3 - > ; : mix swap over 1 swap - * -rot * + ; x 2 / y sample x 2 / .5 + y sample push push push rot pop kk mix rot pop kk mix rot pop kk mix
ChromaKey
BradN
'25 Jul 07
: r x 0.5 - 2 ** y 0.5 - 2 ** + ; : a push push y t pop * sin 0.5 * - r t pop * cos 0.5 * - atan2 ; : sine r 10 * - 0.5 ** 1 swap - ; 1 1.1 a sine sine 1.3 1.5 a sine sine 1.7 1.9 a sine sine x y sample push push push pop * rot pop * rot pop * rot
continuous plasmoid TV
Anonymous
'25 Jul 07
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup push push push x y sample pop min rot pop min rot pop min rot
Tunnel Vision
Anonymous
'25 Jul 07
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : xor + abs 2 mod ; : b / floor 2 mod ; : m 256 * floor ; : a dup rot swap b -rot b xor ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot a * ; 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w + + + + + + + 256 / dist * dup dup push push push x y sample pop min rot pop min rot pop min rot
Tunnel Vision
Anonymous
'25 Jul 07
: z t 1 + cos 4 + 3 / * ; : a 1.1 x .5 - y .5 - atan2 t ; : b * dup sin swap 2 / t 5 * + cos t 3 / sin 2 / 1 + * - 30 / x .5 - z 2 ** y .5 - z 2 ** + + - 4 ** ; a 1.7 / + 10 b t cos 1 + 5 / + a 1.9 / - 8 b a 2.1 / - 6 b t 2.7 * cos 1 + 5 / + push push push x y sample pop * rot pop * rot pop * rot
Light at the end of the tunnel
Anonymous
'25 Jul 07
: 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 19 19 web * y x * + 31 31 web 7 7 web * y + push push push x y sample pop * rot pop * rot pop * rot
streak TV
Anonymous
'25 Jul 07
: d dup ; : ' .40 - ; : r x ' d * y ' d * + sqrt ; : lx t 7 + 1.45 * sin 2 / ; : ly t 7 + 1.7 * sin 2 / ; : lr lx d * ly d * + .506 + sqrt ; : z r 420 * sin .7 * ; : m lr / * 0 max ; x ' r / z * lx m y ' r / z * ly m r 80 * cos .40 * .59 + .4 r 20 * cos 1 + 6 / + m + + 1 x ' lx - d * y ' ly - d * + sqrt - 0 max * push x y sample r@ * rot r@ * rot pop * rot
hyptonyze your eyes view
Anonymous
'25 Jul 07
x y sample random > rot random > rot random > rot
Static Color TV
Anonymous
'25 Jul 07
x 80 * floor 80 / y 80 * floor 80 / 2dup bwsample -rot .05 + bwsample - abs .1 < push x y sample r@ * rot r@ * rot pop * rot
Sludge TV
Anonymous
'25 Jul 07
x y bwsample random > dup dup
Static TV
Anonymous
'25 Jul 07
x 80 * floor 80 / y 80 * floor 80 / bwsample x 80 * floor y 80 * floor + 3 mod .5 + 4 / > dup dup
Monochrome Dither
BradN
'25 Jul 07
x y t sin 1 + 2 /
Untitled
Anonymous
'25 Jul 07
x y bwsample x .01 + y bwsample + x y .01 + bwsample + x .01 - y bwsample + x y .01 - bwsample + 5 / dup sin dup sin 1.3 pow
Blurry Photo
Anonymous
'25 Jul 07
x 4 * y 3 * t 2 * + 3 + sin + 1.5 - dup push y sample pop dup 0 > swap 1 < * push r@ * r@ 1 < x * + rot r@ * rot r@ * rot pop drop
Wiggly View
Anonymous
'25 Jul 07
Next