Haiku Gallery
\ 顯示 左下角 x0,y0 右上角 x1,y1 的矩形 : 矩 ( x0 y0 x1 y1 -- 矩形 ) y > ( x0 y0 x1 y1>y ) rot ( x0 x1 y1>y y0 ) y < ( x0 x1 y1>y y0<y ) * ( x0 x1 y1>y*y0<y ) >r ( x0 x1 ) x > ( x0 x1>x ) swap ( x1>x x0 ) x < ( x1>x x0>x ) * ( x1>x*x0>x ) r> ( x1>x*x0>x y1>y*y0<y ) * ( x1>x*x0>x*y1>y*y0<y ) ; \ 顯示 相反亮度 : 反 ( 亮度 -- 相反亮度 ) 0 max \ 若亮度小於0, 就將亮度變為0 1 min \ 若亮度大於1, 就將亮度變為1 1 swap - \ 亮度0的地方變為1, 1的地方變為0 ; \ 紅 橫矩形 .10 .20 .90 .80 矩 \ 綠 豎矩形 .20 .10 .80 .90 矩 \ 藍 框 .01 .01 .99 .99 矩 .09 .09 .91 .91 矩 反 *
矩形
陳爽
'25 Jul 12
: nip swap drop ; : 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : gap maxmin - ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : reddish 3dup 3max nip nip = ; : greenish 3dup 3max nip = nip ; : bluish 3dup 3max = nip nip ; : hue 3dup maxmin = if 3drop 0 else 3dup reddish if 3dup gap >r - nip r> / else 3dup greenish if 3dup gap >r nip swap - r> / 2 + else 3dup gap >r drop - r> / 4 + then then then ; : hsl 3dup lum >r 3dup sat >r hue r> r> ; x y sample hsl rot 6 / -rot
Hassle 2
FSD
'25 Jul 12
: nip swap drop ; : 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : reddish 3dup 3max nip nip = ; : greenish 3dup 3max nip = nip ; : bluish 3dup 3max = nip nip ; x y sample 3dup bluish >r 3dup greenish >r reddish r> r>
Reggie B.
FSD
'25 Jul 12
: 3dup >r 2dup r@ -rot r> ; : 3drop drop drop drop ; : 3max max max ; : 3min min min ; : maxmin 3dup 3min >r 3max r> ; : lum maxmin + 2 / ; : sat 3dup lum 0.5 <= if maxmin 2dup + >r - r> / else maxmin 2dup + negate 2 + >r - r> / then ; : hsl 3dup lum >r 3dup sat >r 3drop .5 r> r> ; x y sample hsl
Hassle
FSD
'25 Jul 12
: 2drop drop drop ; : contrast .4 - 20 * negate exp 1 + 1 swap / ; : flicker t 16 * 1 mod .25 > .3 * .7 + ; : classic bwsample contrast flicker * dup dup ; x y classic
Silent
FSD
'25 Jul 12
: 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
'25 Jul 12
: 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
'25 Jul 12
: 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
'25 Jul 12
: 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
'25 Jul 12
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
'25 Jul 12
x y t
Untitled
Anonymous
'25 Jul 12
: sc 8 ; x sc * floor sc 1 - / y sc * floor sc 1 - / 2dup 3 * + 4 / rot
Bidural2
Anonymous
'25 Jul 12
: sc 8 ; x sc * floor sc 1 - / y sc * floor sc 1 - / 2dup + 2 / rot
Bidural
Anonymous
'25 Jul 12
: 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
'25 Jul 12
: 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
'25 Jul 12
my sin y sin / t sin my sin - my sin *
test
Yoda
'25 Jul 12
: 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
'25 Jul 12
: 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
'25 Jul 12
( 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 12
( 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 12
: 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 12
my sin y sin / t sin my sin - my sin *
Test
Shosh Melly
'25 Jul 12
\ 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 12
: 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 12
: 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 12
: 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 12
: 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 12
: 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 12
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 12
: 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 12
: 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 12
: 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 12
( 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 12
: 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 12
x y bwsample x .02 - y bwsample / x .01 - y bwsample x y .01 - bwsample
Anemia
Anonymous
'25 Jul 12
: x x .5 - ; : y y .5 - ; x dup * y dup * + sqrt y x atan2 1 mod sample
Shattered
Anonymous
'25 Jul 12
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 12
1 2 3 1
Untitled
Anonymous
'25 Jul 12
: 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 12
: 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 12
Next