Haiku Gallery
: z 0.87 x - 8 * floor 2 swap ** / floor 2 mod 0.92 y - 8 * floor ; t floor 60 mod z 5 = and t 60 / 60 mod floor z 3 = and t 3600 / 24 mod floor z 1 = and
Binary Clock 50 words
Christer Nilsson
'24 May 17
: x0 x 0.5 - ; : y0 y 0.5 - ; : center x0 x0 * y0 y0 * + 2 * ; center t 15 * * sin dup 1 swap - t
Mandala Redux
Anonymous
'24 May 17
x y t sin 0.5 * 0.5 +
Untitled
Anonymous
'24 May 17
t x + y / sin
Untitled
Anonymous
'24 May 17
: r x 0.5 - 2 ** y 0.5 - 2 ** + 5 * ; : a x 10 - y 10 - atan2 ; : sine push a * t sin 2 ** 20 * pop * + sin r 0.5 - 5 * - 0.5 ** 1 swap - ; 5 x sine 7 y sine 9 x y + 2 / sine
string theory
fnord
'24 May 17
: fract dup floor - ; x 1 + 55 * floor y 4 - 55 * floor 199.8347 / ** t 89485 + 4107.731 / * sin 237.371 * dup floor - 2 ** x 55 * pi * sin abs y 55 * pi * sin abs * * dup 2 ** swap
Virus Colony
Manwe
'24 May 17
: n 1 + 2 / ; : w 64 * floor ; : d 2 swap ** / floor 2 mod ; : ms t 1000 * 1000 mod floor ; : ss t floor 60 mod ; : mm t 60 / 60 mod floor ; : hh t 3600 / 12 mod floor ; : ~ ( bits x0 y0 - f ) y x 7 * sin 5 / n + w 2 - 8 mod = -rot x w - 20 + t -15 * floor + 64 mod d and or ; 0 572680 00 4 ~ 198809 20 4 ~ 205284 38 4 ~ 565512 00 3 ~ 297125 20 3 ~ 41108 38 3 ~ 1030408 00 2 ~ 297637 20 2 ~ 41108 38 2 ~ 565545 00 1 ~ 305829 20 1 ~ 205968 38 1 ~ 572878 00 0 ~ 206105 20 0 ~ 47588 38 0 ~
Hello, World!
DarkstarAG
'24 May 17
( fixed animation ) : w t 360 mod 38000 + 9999 / sin 2 / .55 + / x .5 - over * dup * y .5 - rot * dup * + ; 30 w sin 60 w cos over + 1
Samarkand
Manwe
'24 May 17
: 閃耀星星 >r 1024 / 1 swap - y - abs swap 1024 / x - abs + 20 * 0.3 ** r> ** 1 - negate 20 * t 10 * x y + 10 * + sin 1.5 + 3 / * ; : ! max ; : c 256 / * ; : 雨從天降 x .5 - dup * y .0 - dup * + sqrt ; : 閃亮晶晶 x y ** 90 * sin t sqrt 100 / * 40 swap * dup swap floor - 1000 * 999 - 0 max ; : g dup x pi * * cos abs .992 > swap y pi * * cos abs .992 > or ; 19 g : f ( n y -- ) swap 2dup 19 / > -rot 1 + 19 / < and ; : h ( y -- ) y f or ; 0 h 18 h : v ( x -- ) x f or ; 0 v 18 v : p ( x y -- ) y f swap x f and or ; \ 3 5 p : 橫 ( x y n -- ) swap ( x n y ) y over 19 / > ( x n y f ) y rot 1 + 19 / < and ( x n f ) -rot ( x f n ) >r ( f x ) x over 19 / > ( f x f ) x rot r> + 19 / < ( f f f ) and and or ; : 直 ( x y n -- ) rot ( y n x ) x over 19 / > ( y n x f ) x rot 1 + 19 / < and ( y n f ) -rot ( y f n ) >r ( f y ) y over 19 / > ( f x f ) y rot r> + 19 / < ( f f f ) and and or ; : 城城是你 2 6 3 橫 2 8 3 橫 3 6 4 直 6 4 1 直 7 11 9 橫 7 8 3 橫 7 4 8 直 10 6 3 直 13 4 10 直 14 4 1 橫 15 13 1 橫 12 6 1 橫 14 6 1 橫 ; 0 城城是你 閃亮晶晶 ( 閃耀星星的亮點 ) 0 320 160 .1 閃耀星星 250 c ! 590 520 .1 閃耀星星 250 c ! 100 700 .1 閃耀星星 250 c ! 880 270 .1 閃耀星星 250 c ! 820 800 .1 閃耀星星 250 c ! + + dup rot t sin 5 / 0.9 + y t + x 0.2 + mod - ( Reference from Orion Blink , chinese 中 , 彩虹雨 , 星際透視鐘 )
雨中漫步見金城
CSIE105A 410125791 sheep
'24 May 17
: c -1 t sin 0.3 * ; : i 2dup z* c z+ ; : n 3.6 * 1.8 - ; : i4 i i i i ; : clamp min max ; x n y n i4 i4 i4 i4 0.25 pow
j
icedp
'24 May 17
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 20 * sin ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 1 x - 1 y - + 0.25 *
burn
BradN
'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
1
2
'24 May 17
: dot x - 10 * dup * swap y - 10 * dup * + 1 swap - 0 max - ; : edge 1 x .5 - 2 * dup * y .5 - 2 * dup * + 20 pow - * ; : dots .35 .35 dot .35 .65 dot .65 .35 dot .65 .65 dot edge ; 1 x .3 - dup dup * * y .2 - dup * + - dots 1 x .2 - dup dup * * y .1 - dup * + - dots .95 * 2dup + 5 / x 2 pow y * 2 / + 1 x .5 - 2 * dup * y .5 - 2 * dup * + 8 pow -
naclforth
BradN
'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
: square dup * ; : 2dup over over ; : len square swap square + sqrt ; : spiral x - swap y - 2dup len push atan2 pop + 10 * tan ; 0.2 0.2 spiral 0.7 0.3 spiral 0.4 0.6 spiral * * dup x * 0.5 x - 0.3 y - + 0.95 *
membrane
Hans N.
'24 May 17
: x x pi * 2 * ; : y y pi * 2 * ; : x x y cos + sin ; : y y x sin + sin ; : 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 +
streak tile
BradN
'24 May 17
( Boo - oops! 18+ :O ) ( : to-moderator too-explicit if remove-it then ; ) : cir ( r x y ) y - dup * swap x - dup * + sqrt - 25 * exp 3 / + ; : p1 t 4 * sin 1 - 12 / + ; : p2 t 4 * -.75 + sin 1.2 - 17 / + ; : *censored* x .05 < x .95 > or y .05 < or y .95 > or ( .05 + ) * ; : rr 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir 1 min ; : gg 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir .05 min ; : bb 0 .35 .2 .0 p1 cir .05 .2 .28 p2 cir .35 .8 .0 p1 cir .05 .8 .28 p2 cir .2 min ; rr *censored* gg *censored* bb *censored*
Boo - oops! WARNING: 18+
DarkstarAG
'24 May 17
( Visualization of f[x,y] ) ( Multiple viewport ) ( Animation ) : n 1 + 2 / ; : ^2 dup * ; : ^3 dup dup * * ; : c+ ( a b c d e f - a+d b+e c+f ) rot >r z+ rot r> + -rot ; : c*k ( a b c k - ka kb kc ) 0 over >r z* rot r> * -rot ; : clip 0 max 1 min ; : xy x y -.5 -.5 z+ ; : item ( x - d x' ) dup 256 mod 256 / swap 256 / floor ; : color ( x - r g b ) 16777216 * floor item item item drop ; : pack-color ( r g b - .f ) 256 * + 256 * + 256 * 16777618 / ; : fix8 ( x - x' ) 256 * floor 256 / ; : banana ( x y - ) over ^2 - ^2 100 * 1 swap - ^2 + ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; : cells ( x y - f ) sin swap sin * 1 + 2 / ; : astroida ( x y R - f ) 0.6667 ** swap .6667 ** - swap .6667 ** - negate ; : heart ( x y - f ) 2dup ^2 swap ^3 + 1 - ^3 -rot ^3 swap ^2 * - ; ( astroida ) xy .25 -.25 z+ 25 0 z* 1 astroida t 2 * sin .4 * + clip rainbow x .5 < y .5 > * c*k ( cells ) xy 25 0 z* cells rainbow x .5 < y .5 < * c*k c+ ( banana ) xy -.25 -.1 z+ 4 0 z* banana t sin + clip rainbow x .5 > y .5 > * c*k c+ ( cardioida heart ? ) xy -.22 .25 z+ 10 0 z* heart 3 ** abs t sin + rainbow x .5 > y .5 < * c*k c+
Surfaces MultiViews
DarkstarAG
'24 May 17
: m .5 - -4 * ; : l y m pi * t 5 / + cos x m + t 9 / - cos .02 * + swap x m pi * t 3 / + cos y m + t 7 / + cos .02 * + swap ; .3 .6 l l l l l l l l l l l l l l l l l l l l l l l l l l l - dup negate log dup negate swap 3 ** swap over 2 ** + swap 7 / swap
Plasma 256 bytes
www.manwe.ru
'24 May 17
: z t sin over / y + 15 * + sin ; 1 z 0.9 z 1.1 z
Color Lines 49 b
DarkstarAG
'24 May 17
: q pop ; : new push ; : d dup ; : ^2 d * ; : zm ^2 swap ^2 + sqrt ; : u rot q q over * 1 rot d new - rot * + ; : year u u u q drop ; : happy new new new ; : 8p happy happy new new ; : w 1 1 1 ; : b x y 0 q - q t + 1 mod 1 - z+ zm .01 < ; : 4b b b b b or or or ; : c .5 1.5 .3 1 .6 1.2 .1 1.5 .9 .5 .4 1.2 .8 1.74 .17 1.1 8p 8p 4b 4b or ; : s .2 .1 x * - 0 .2 .05 x * - ; : ee .1 1 x 2 / - .1 ; : t x y max x y min 2dup new new 2 * < q d q - .2 * q d .1 - new + - abs .02 q d new .1 + * < and or ; : m x y - abs 0.03 x * 0.005 + < ; : e m .8 new t t t t t t t t q drop ; : r 1 1.6 * x - 1.6 x 1.9 * - .1 ; : rb x y -.6 -.45 z+ zm 0.15 < ; : a 1 x .5 - 1.3 * - 0 0 ; : b y .4 > y x 1.2 * .2 - < y 1.25 x 1.2 * - < and and ; : bl 0 0 0 ; : bll y .4 > y x .15 * .325 + < y .685 x .4 * - < and and ; s w happy c new year ee happy e new year r happy rb new year a happy b new year bl happy bll new year
Happy new year, REKSOFT
Aleksei Sukontsev
'24 May 17
( тогда уж так ) : x x t - 1.41 mod ; : l y t 3 * sin abs 2 / - 64 * floor = * 2 x .37 - 64 * floor ** floor / 2 mod + ; : my 0 28672 15 l 28672 14 l 24576 13 l 1408 12 l 3536 11 l 15248 10 l 480 9 l 4064 8 l 3 5 l 2311 4 l 2 3 l 1 >= ; : mr 0 992 14 l 8176 13 l 1088 7 l 2176 6 l 3968 5 l 5872 4 l 8176 3 l 8160 2 l 1008 1 l 112 0 l 1 >= ; : mg 0 29296 12 l 29224 11 l 17512 10 l 15896 9 l 4096 8 l 3004 7 l 18302 6 l 16508 5 l 24576 4 l 24584 3 l 24604 2 l 14 1 l 2 0 l 1 >= ; ( www.thesands.ru/forth-demotool ) my mr over + swap mg 4 / + 2dup + 0 = dup -rot 2 / + swap
Jumping Mario
Ivanq
'24 May 17
: z x .05 - 1.7 * y .64 - 1.7 * ; : z1 over dup * over dup * + rot over / -rot / ; : zmodule dup * swap dup * + sqrt ; : zarg swap atan2 ; : ep over exp over cos * -rot sin swap exp * ; : zln 2dup zmodule log -rot zarg ; : zp push push zln pop pop z* ; : a 2 2.1 ; : b .3 -2 ; : c -2 1.6 ; : d -1.4 -1.75 ; : f 2dup >r >r a z* b z+ r> r> c z* d z+ c zp z1 ep z* zln ; z f f f f f f f f f abs swap abs 3 / 2dup zmodule 3.5 / swap
TFKP 4 Flower
Manwe
'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 7 * t + sin 1 + 4 / - abs 1 + 1 swap / square square
Camomile
digiMIND
'24 May 17
( Make harmonique ) : harm ( a b c d x - a+b*sin[x*d+c] ) * + sin * + ; ( Fourier Series ) 0 1 3 t 2 / + 8 t x + harm .7 2 t 3 * + 3 t 4 / x + harm .5 3 t 7 * + 17 t x + harm .7 6 t 11 * + 13 t 13 / x + harm 5 / .5 + y - abs 0.01 - 1 - negate abs dup 4 ** swap 20 **
Fourier Series
DarkstarAG
'24 May 17
: x x .6 - 1 / ; : y y 0.15 - 1 / ; : l 2dup * 2 * .635 + -rot dup * swap dup * - .04 t 5 / cos * + ; : f l l l l l l l l l l l ; y x f f f f 2dup dup 1 - * swap dup 1.5 t 3 / sin * - * + sqrt -rot over sqrt + rot
Fractal 1
Manwe
'24 May 17
x 9.4 * sin y 9.4 * sin t 4 * sin + / dup t 2 * sin * dup t 3 * sin *
Untitled
Anonymous
'24 May 17
: d ( x n - d ) 2 swap ** / floor 2 mod ; y x atan2 y t + cos 10 * floor negate d
BlackHole Binary Carpet
DarkstarAG
'24 May 17
: time t 10 mod .1 * pi * sin mod ; y x * time 2 * y time mod 2 * x time mod 2 * 0 over .035 >
opal
E.A.
'24 May 17
: foil x 31 * Sin y 19 * cos z* ; y X foil y foil
pointilli
j art
'24 May 17
: bar * sin + ; : barx x bar ; : bary y bar ; : foo 0 17 barx 3 bary 5 barx 0 7 bary 11 barx 13 bary * atan2 4 * cos ; 1 foo 2 foo 3 foo
electric larva
BradN
'24 May 17
: x x t + 1.3 * sin y t + 1.1 * sin * dup * x + ; : y y t + 1.1 * sin x y + 1.3 * sin * dup * y + ; : 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 swap / ; : c2 xc yc len r1 - dup .008 / swap .012 swap / min ; : lr 0.5 x - 0.5 y - 6 / - pi * 2 / sin 1 + 10 pow ; : wb xc yt len r2 swap / ; : bb xc yb len r2 / ; : ws xc yb len r3 swap / ; : bs xc yt len r3 / ; c1 lr min bb min wb max bs min ws max c2 max 0.1 - dup dup x 0.6 + *
Temporal Continuity
BradN
'24 May 17
: sinc dup t 0.5 * * sin swap / ; x 0.5 - 31 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 23 * sinc 0.7 + 2 / y - abs 0.03 < x 0.5 - 17 * sinc 0.7 + 2 / y - abs 0.03 <
sinc Redux
Stainless
'24 May 17
: ox x ; : oy y ; : x x 1.1 * ; : y y 1.5 * 0.25 - ; : x x t + .7 * sin y x min 1.3 * t + 1.1 * sin * dup * 10 / x + ; : y y t + 1.1 * sin x .7 * sin * dup * y + ; : clip x 0 > x 1 < * y 0 > * y 1 < * * ; : iclip 1 1 clip - * ; : sun ox 0.5 + oy * 4 pow ; : tenth 10 / ; : hundredth 100 / ; : xor <> ; : japan 1.0 x 5 tenth - dup * y 5 tenth - dup * + 7 hundredth > dup ; japan push push push pop clip pop clip pop clip
Japan
CH Ting
'24 May 17
audio : hz t * pi * 2 * sin ; : note 2 swap 12 / pow 110 * hz ; t sin 3 * floor 3 * 10 + note
La de da -- DEPRECATED
BradN
'24 May 17
0.5 x - 5 * cos 0.5 y - 5 * cos
Untitled
Anonymous
'24 May 17
26.1 x * sin 1 + 2 / 33 x * sin 1 + 2 / 39.2 x * sin 1 + 2 /
C Major 1+2/
C. H. Ting
'24 May 17
: z^2 2dup z* ; : layer push push z^2 pop pop 2dup push push z+ pop pop ; : many layer layer layer layer layer layer layer layer layer layer ; : len dup * swap dup * + ; : mant y 0.7 - 3 * x 0.5 - 3 * many drop drop len dup 1 < * ; t cos 1 t cos - mant dup dup
inkblot mandelbrot Redux 2
Stainless
'24 May 17
x
Untitled
Anonymous
'24 May 17
: web push push x 0.5 + y 0.3 + * pop * sin 0 max x 0.1 + 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 +
streak Redux
Anonymous
'24 May 17
Next