Haiku Gallery
: 2drop drop drop ; : px 4 * dup 1 mod - ; : chess >r px r> px + 2 mod 1 < ; : bound >r dup * r> dup * + 1 < ; : map >r r@ dup * negate 1 + sqrt / r> ; : spin >r t - 1 mod r> ; : map-chess 2dup bound if map spin chess else 2drop 0 then ; : center >r 2 * 1 - r> 2 * 1 - ; x y center map-chess dup dup
Map Chess 2
FSD
'24 May 07
: 2drop drop drop ; : px 8 * dup 1 mod - ; : chess >r px r> px + 2 mod 1 < ; : bound dup * negate 1 + sqrt < ; : map >r r@ dup * negate 1 + sqrt / r> ; : spin >r t - 1 mod r> ; : map-chess 2dup bound if map spin chess else 2drop 0 then ; x y map-chess dup dup
Map Chess
FSD
'24 May 07
: 2drop drop drop ; : px 8 * dup 1 mod - ; : chess >r px r> px + 2 mod 1 < ; : half negate 1 + < ; : half-chess 2dup half if chess else 2drop 0 then ; x y half-chess dup dup
Half Chess
FSD
'24 May 07
: x x 100 * 4 - ; : y y 100 * 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 Redux
Anonymous
'24 May 07
0.5 0.7 0.9 : harmonize rot t * sin x + pi * sin 1 + 2 / ; harmonize harmonize harmonize : normalize rot 0.9 dup 0.6 - rot * - ; normalize normalize normalize
Harp
Renha
'24 May 07
x y t
Untitled
Anonymous
'24 May 07
: sc 8 ; x sc * floor sc 1 - / y sc * floor sc 1 - / 2dup 3 * + 4 / rot
Bidural2
Anonymous
'24 May 07
: sc 8 ; x sc * floor sc 1 - / y sc * floor sc 1 - / 2dup + 2 / rot
Bidural
Anonymous
'24 May 07
: center 2 * 1 - ; : xc x center ; : yc y center ; : r xc 2 ** yc 2 ** + sqrt ; : s r * t 3 * - ; 7 s 1.0139 * pi 2 / + cos 2 s 0.8143 * cos 14 s 1.2101 * pi + cos
Untitled
jgravelle
'24 May 07
: center 2 * 1 - ; : xc x center ; : yc y center ; t xc / sin t y ** sin / dup 2 * dup 1.5 yc * + rot rot xc 2 ** yc 2 ** + 1 <
Untitled
jgravelle
'24 May 07
my sin y sin / t sin my sin - my sin *
test
Yoda
'24 May 07
: pat dup pi * x * sin swap pi * y * sin * abs ; : in 12 t 0.63 * sin 2 * + pat y / 0.1 >= 6 t 0.3 * sin - pat * x 0.1 + * 0.05 >= ; : out in not ; 13 pat 17 pat * 1 x - 0.65 ** * y in 1.6 * t * sin * x out *
Untitled
jgravelle
'24 May 07
: b / floor 2 mod ; : m 512 * floor ; : a dup rot swap b -rot / floor 2 mod 0.5 * swap 0.6 * + floor ; : w x m y m rot a ; 0 1 w 2 w 4 w 8 w 16 w 32 w 64 w 128 w 256 w 512 w + + + + + + + + + 0.5 <
sierpinski 512 pix
DarkstarAG
'24 May 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 x * y y * t cos * + t 5 / + 1 mod ; : jet x r x g x b ; jet
jet color palette Redux
DarkstarAG
'24 May 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
'24 May 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
陳爽
'24 May 07
my sin y sin / t sin my sin - my sin *
Test
Shosh Melly
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 07
x y bwsample x .02 - y bwsample / x .01 - y bwsample x y .01 - bwsample
Anemia
Anonymous
'24 May 07
: x x .5 - ; : y y .5 - ; x dup * y dup * + sqrt y x atan2 1 mod sample
Shattered
Anonymous
'24 May 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
'24 May 07
1 2 3 1
Untitled
Anonymous
'24 May 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
'24 May 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
'24 May 07
x y bwsample
Darkroom TV
Anonymous
'24 May 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
'24 May 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
'24 May 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
'24 May 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
'24 May 07
Next