Haiku Gallery
: z x ; : w y 0.5 - 4 * ; : r z z * w w * + sqrt ; : a w z atan2 ; : n 2 ; r n a * - cos 6 * sin r n a * - cos 12 * sin r n a * - cos 3 * sin
Basic swirl Redux Redux
Stainless
'24 May 17
: square dup * ; : dist square swap square + sqrt ; : 2dup over over ; : spiral 0.5 - swap 0.5 - 2dup dist push atan2 0.01 * pop + 100 * sin ; x y spiral x y spiral x y spiral
Untitled
Anonymous
'24 May 17
: dist x 0.5 - dup * y 0.5 - dup * + sqrt ; 0 dist 100 * x 0.5 - y 0.5 - atan2 20 * sin 3 * + sin
flower
boomlinde
'24 May 17
: (n -- n) q 256 * 128 - dup * ; x q y q + t 2 / - 2 * dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'24 May 17
: x' t cos x 0.5 - * t sin y 0.5 - * + ; : y' t cos y 0.5 - * t sin x 0.5 - * - ; x' 9 t sin 6 * + * 3 mod floor 1 = y' 9 t sin 6 * + * 3 mod floor 1 = and
rotation
boomlinde
'24 May 17
: r dup push swap y 12 pow + * sin x pop * cos + dup floor - ; 0.085 18.8 r 0.12 12.6 r 0.06 25.2 r dup rot /
Candy Waterfall
Manwe
'24 May 17
: 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.4 web * x + 23 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak Redux
Anonymous
'24 May 17
: b .5 - 362 * dup * ; x b y b + t - dup 2 * dup 2 * sin -rot sin -rot sin
Moire Redux
Anonymous
'24 May 17
: k 1 32 / ; : s 1 + swap 1 + ; : f s atan2 556677 * 1 mod ; : c dup k mod - ; : d c k + ; : a k / 1 mod ; : b a negate 1 + ; : sd swap dup ; : q1 c sd b swap c rot f * ; : q2 c sd a swap d rot f * ; : q3 d sd b swap c rot f * ; : q4 d sd a swap d rot f * ; : q12 2dup q1 -rot q2 + ; : q34 2dup q3 -rot q4 + ; : l 2dup dup b -rot q12 * -rot dup a -rot q34 * + ; x y l dup dup
Blurred noise
Vort
'24 May 17
: z mod floor 0.87 x - 8 * floor 2 swap ** / floor 2 mod 0.92 y - 8 * floor pop = and ; 5 push t floor 60 z 3 push t 60 / 60 z 1 push t 3600 / 24 z
Binary Clock 47 words
Christer Nilsson
'24 May 17
: l 2dup z* .019 t 5 / cos * .6328 z+ ; : f l l l l l l l l l l ; y .5 - .5 x - f f f f f f .45 max -.2 rot - 2dup + abs 2 **
Fractal 125 bytes
Manwe
'24 May 17
t sin 1 + 2 / x .5 - abs / y * sin 20 * sin 2 / 5 + 2 pow : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rainbow
Pavo
DarkstarAG
'24 May 17
: sq t * sin 0 > ; 16 sq .1 * 8 sq .2 * + 4 sq .2 * + 2 sq .1 * + 1 sq .1 * + .1 + x .5 < * 16 sq 128 sq + x .5 > * +
Audio 9
Anonymous
'24 May 17
: line y - abs 0.002 < ; : z 0.75 line 0.25 line + ; x 0.5 + 2 * pi * sin 4 / 0.25 + y < z + x 2 * pi * cos 4 / 0.75 + y < z + z
Sinus Cosinus 47 words
Christer Nilsson
'24 May 17
: k t sin 1 + 2 * random + ; : mx x random / ; : my y 0.5 - k * ; mx mx * my log + 0.0001 <
some log shit
noob
'24 May 17
( basic operations on a complex numbers ) : z x .5 - y .5 - ; ( a complex number stored as a pair of numbers ) : z- ( difference between two complex numbers ) swap -rot - push - pop ; : z1/ ( 1 divided by a complex number ) over dup * over dup * + rot over / -rot / ; : zmodule ( module of a complex number ) dup * swap dup * + sqrt ; : zarg ( arg of a complex number ) swap atan2 ; : e^ ( e raised to a complex power ) over exp over cos * -rot sin swap exp * ; : zln ( logarithm of a complex number ) 2dup zmodule log -rot zarg ; : z^ ( complex number raised to a complex power ) push push zln pop pop z* e^ ; : a 18 1.4 ; : b 3 -4 ; : c -2 2.9 ; : d 1 -1.7 ; a z z* b z+ c z z* d z+ c z^ z1/ e^ z* zln abs swap abs 3 / 2dup zmodule 3.5 / swap
TFKP 3
Manwe
'24 May 17
( looks good only with animation ) : w t 9999 / sin 2 / .6 + / x .5 - over * 2 ** y .5 - rot * 2 ** + ; 30 w sin 60 w cos over + 90 w sin over + sqrt
Samarkand
Manwe
'24 May 17
0 1 y t * x 1.5 + mod -
Matrix? Redux
Anonymous
'24 May 17
: s t 8 * floor - ; : ' 20 * 1 mod ; : l dup -0.2 >= swap 0.2 < * ; : _ 20 * floor 5 + ; : r x _ y _ s 7 + cos x _ sin / * 1 mod 0.5 >= ; : d r dup x ' y ' - l * swap 1 swap - 1 x ' - y ' - l * + ; 0.2 1 d - * 0.42 d * + 0.15 1 d - * 0.37 d * + 0.47 1 d - * 0.71 d * +
10 PRINT CHR$(205.5+RND(1)); : GOTO 10
boomlinde
'24 May 17
: p 2 * 1 - ; : r x p x p * y p y p * + sqrt ; : i r 10 * floor ; 1 y p x p atan2 128 i 10 / ** floor * 123.34 i * t 2 / cos r i * 10 / * 100 * - t 2 / sin 20 * + + cos 2 / .5 + 10 / r + 10 * floor 10 / - dup 2 / 2dup + -rot ( GLSL shader by FabriceNeyret2 )
SunFlower 3
Manwe
'24 May 17
x .5 < x .5 < x .5 >
Signal Flags - King
Daniel Kalny
'24 May 17
x t y * * pi 2 * * sin
Flow
Anonymous
'24 May 17
t sin t cos x y + 512 / sin
Untitled
Anonymous
'24 May 17
: sq dup * ; : norm * sin 1 + 2 / ; : tt t 10 mod ; : xc tt 10 / ; : в 0 drop ; : вечерним x xc 0.25 + 0.75 > 1 * xc - abs 0.25 + ; : вьюнком - sq ; : я y 0.5 - sq ; : плен + ; : захвачен… sqrt t 60 mod sin * ; : недвижно dup tt 10 * norm ; : стою over 70 t 50 mod + norm ; : забытьи. rot 80 norm ;
Untitled
Anonymous
'24 May 17
: square dup * ; : dist square swap square + sqrt ; : center 0.5 - swap 0.5 - ; x y center 2dup dist push atan2 pop swap dup 3 * t - sin 1 + 4 / swap 20 * t 2 * + sin 10 / + - abs 1 + 1 swap / square square
Camomile 2
digiMIND
'24 May 17
: trail t 4 * x + + sin y 2 * 1 - - abs 1 swap - ; t y + trail t sin x - trail t cos trail
Rainbow Wave Redux
DarkstarAG
'24 May 17
: mx x 3 * 2 - ; : my y 2 * 1 - ; : sqabs dup * over dup * + ; 0 0 mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ 2dup z* mx my z+ sqabs 4 >
Mandelbrot
Anonymous
'24 May 17
: one x y - abs .1 < ; : two x 1 y - - abs .1 < ; : both one two or ; both both 1
Signal Flags - Mike
Daniel Kalny
'24 May 17
x y t sin 2 / 0.5 +
Minimal animation Redux
Anonymous
'24 May 17
: x x .5 - 4 * ; : y y .6 - 4 * ; : dot dup * swap dup * + ; : l dup +0.0001 * r> r> 2dup * 2 * x - >r 2dup z* drop y + r> 2dup >r >r dot + abs rot min swap rot over 1 - t * r> r> 2dup >r >r rot dup tan -1 * swap sin -1 * z+ dot min -rot 0.4 + ; y x >r >r 2 1 1 l l l l l l l l l l l drop log 10 / negate swap log 10 / negate dup >r 1 * 0.1 ** + r> r> r> drop drop
橘色油漆流動(改)
資工四B陳禮弘
'24 May 17
: z 60 mod pi * 30 / dup sin swap cos ; : circle ( r cx cy -- bool ) 2.5 / 0.5 + y - 2.5 ** swap 2.5 / 0.5 + x - 2.5 ** + sqrt > ; 0.04 t z circle 0.03 t 60 / z circle 0.02 t 1800 / z circle
Sergel Clock
Christer Nilsson
'24 May 17
: s swap ; : 3l rot ; : 3r -rot ; : d dup ; : len d * s d * + sqrt ; : dist 3l - 3r - len ; : wave x y dist d >r * s t * s - + cos * r> / ; .5 0 10 20 .5 .45 wave .5 0 10 100 .5 .55 wave + .5 2 10 20 .5 .45 wave .5 2 10 100 .5 .55 wave + .5 4 10 20 .5 .45 wave .5 4 10 100 .5 .55 wave +
Waves interference
PPA
'24 May 17
: ' .5 - 5 * ; : sq dup * ; : ^ ' t pi * .7 * sin sq -.5 * exp * ; : quad dup sq * ; : heart x ^ sq y ^ 3 * 2.5 1 - + 3 / x ^ abs sqrt - sq + 1 - ; : ish heart 0.0000001 < ; : noh heart 0.0000001 >= ; : dh heart abs ; noh -3 dh * exp * ish +
heart
rafuck
'24 May 17
: bar * sin + ; : barx x bar ; : bary y bar ; : foo t sin 17 barx 3 bary 5 barx t sin 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo 3 foo
electrified larva
BradN
'24 May 17
: x x t 3 / sin + ; : foil x 31 * Sin y 19 * cos z* ; y t sin + X foil y foil
pointilli Redux
Anonymous
'24 May 17
: pt x 0.5 - y 0.5 - ; : sq dup * ; : dist sq swap sq + sqrt ; pt dist 50 * pt atan2 + pt atan2 10 * sin + sin dup 0.05 + floor swap dup 0.05 + floor
BACTERIA
boomlinde
'24 May 17
: x' x 0.5 - t sin 0.2 * + ; : y' y 0.5 - t 1.5 * cos 0.2 * + ; : dist x' x' * y' y' * + sqrt ; : b / floor 2 mod ; : w dup x' y' atan2 pi / 512 * t 100 * + 256 mod 128 dist / t 500 * + 256 mod rot dup rot swap b -rot b + abs 2 mod * + ; 0 4 w 8 w 16 w 32 w 64 w 128 w 256 / dist * dup dup
xor tunnel shorter
Anonymous
'24 May 17
: width 64 ; : tile 11 ; : =? width * floor tile mod = ; : ! y =? swap x =? and or ; : crane 0 3 8 ! 4 8 ! 5 8 ! 2 7 ! 6 7 ! 1 6 ! 7 6 ! 0 5 ! 8 5 ! 0 4 ! 8 4 ! 0 3 ! 8 3 ! 1 2 ! 7 2 ! 2 1 ! 6 1 ! 2 0 ! 3 0 ! 4 0 ! 5 0 ! 6 0 ! 2 5 ! 6 5 ! 4 4 ! 3 2 ! 5 2 ! 4 1 ! ; crane
Pixel Draw
DarkstarAG
'24 May 17
: a x .5 - y .5 - atan2 ; : r x .5 - 2 ** y .5 - 2 ** + sqrt 2 * .1 + 2 * a 3 * t 2 * + sin 4 / + a 7 * t 3 / + sin 8 / + a 20 * sin 20 / + ; : x' a cos r * ; : y' a sin r * ; : c x' 2 ** y' 2 ** + 1 - abs .4 ** 1.2 swap - abs 3 ** ; c
Polar Plot
DarkstarAG
'24 May 17
: q dup * ; : dst q swap q + sqrt ; : acos dup q 1 - negate sqrt swap 1 + atan2 2 * ; : r 0.5 ; : ' 0.5 - ; : l x ' y ' dst ; : in? l r < ; : z r q l q - sqrt ; : th y ' acos 2 * pi / ; : ph z x ' atan2 pi / t 10 / + ; ( : txtr 25 25 z* cos >r cos r> < 0.3 max ; ) : txtr 25 -25 z* cos swap cos max abs 16 pow ; : xy x .5 - y .5 - t 2 * 4 + sin 9 / t 6 * y + sin 5 / z+ ; : r xy t 3 * sin 3 / t 4 * sin 5 / z+ 2dup negate z* + sqrt ; : a atan2 24 / ; : r'' a abs log 2 / ; : txtr r'' r - .12 - abs 2 ** .01 - ; ph th txtr z * in? * : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; t 12 / sin 5 * + rainbow
Apple!
DarkstarAG
'24 May 17
Next