Haiku Gallery
: dot x .5 - dup * y .5 - dup * + 1 36 / < ; dot not dot not
Signal Flags - Item
Daniel Kalny
'25 Sep 20
: bars x 3 * 1 mod .5 < ; bars bars bars not
Signal Flags - George
Daniel Kalny
'25 Sep 20
1 x .5 < x .5 <
Signal Flags - How
Daniel Kalny
'25 Sep 20
: b y .5 > ; : -b b not ; -b 0 b
Signal Flags - Easy
Daniel Kalny
'25 Sep 20
: b y .75 < y .25 > and ; : -b b not ; -b -b b
Signal Flags - Dog
Daniel Kalny
'25 Sep 20
: orig y .5 - x .75 - ; : trig x .75 < orig 2 * > orig -2 * < or or not ; : w trig x 0.5 < or ; w w 1
Signal Flags - Able
Daniel Kalny
'25 Sep 20
: orig y .5 - x .75 - ; : trig x .75 < orig 2 * > orig -2 * < or or not ; 1 trig trig
Signal Flags - Baker
Daniel Kalny
'25 Sep 20
: b y .6 > y .4 < or ; : r y .8 < y .2 > and ; : g r b and ; r g b
Signal Flags - Charlie
Daniel Kalny
'25 Sep 20
x .5 < x .5 < x .5 >
Signal Flags - King
Daniel Kalny
'25 Sep 20
: xor 2dup or -rot and not and ; : -quad x .5 > y .5 > xor not ; 1 -quad -quad
Signal Flags - Uncle
Daniel Kalny
'25 Sep 20
: xor 2dup or -rot and not and ; : quad x .5 > y .5 > xor ; quad quad
Signal Flags - Love
Daniel Kalny
'25 Sep 20
: d dup ; : m 1 min ; : f d floor - ; : c sin 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
Poop-man!
KC5TJA
'25 Sep 20
: web push push x 0.5 + y t sin * 0.3 + * pop * sin 0 max x t sin + 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 awesomer
BradN
'25 Sep 20
: web push push x t sin * 0.5 + y 0.3 + * pop * sin 0 max x 0.3 + y 0.5 t cos + + * pop * sin 0 max + ; 31 23 t cos * web 17 17 web * x + 23 t sin * 31 web 19 19 web * y x * + 31 31 web 7 7 web * y +
streak moving
Anonymous
'25 Sep 20
: q pi * 7 * sin 1 + 2 / - ; x y q y x q x y + x y - q x dup * y dup * + .5 -
beams1 trans
Anonymous
'25 Sep 20
: q pi * 7 * sin 1 + 2 / - ; x y q y x q x y + x y - q
beams1
Anonymous
'25 Sep 20
: ww 2dup z* ; : y x y ww ww + ; x y ww ww ww ww ww x y *
slice1er
Anonymous
'25 Sep 20
: ww 2dup z* ; : y x y ww ww + ; x y ww ww ww ww ww x y * x dup * y dup * + .5 -
slice1 Redux
Anonymous
'25 Sep 20
x dup * y dup * + .5 - push : ww 2dup z* ; : y x y ww ww + ; x y ww ww ww ww ww x y * pop
slice1
Anonymous
'25 Sep 20
x 1 + 15 * floor y 4 - 1 * floor 19.47 / ** t 89985 + 4107.731 / * sin 237.371 * dup floor - 6 ** x 15 * pi * sin abs y 15 * pi * sin abs * * dup 3 ** swap
teesttstst
stst
'25 Sep 20
: x x 2 * ; : ^2 dup * ; : clipx ( f x1 x2 - f' ) x > swap x < and * ; : clipy ( f x1 x2 - f' ) y > swap y < and * ; : hyperb ( xpos - f ) push 1 x pop - / y 20 * - abs negate 1 + ; : circle ( xpos - f ) x - ^2 3 * y 0.42 - ^2 3.5 * + sqrt 0.6 - abs negate 1 + 30 pow ; 0.0 hyperb 0.03 0.5 clipx 0.0 0.7 clipy 0.85 circle 1.2 hyperb 1.2 1.8 clipx 0.0 0.7 clipy
LOL Static
DarkstarAg
'25 Sep 20
: x x 2 * ; : ^2 dup * ; : clipx ( f x1 x2 - f' ) x > swap x < and * ; : clipy ( f x1 x2 - f' ) y > swap y < and * ; : hyperb ( xpos - f ) push 1 x pop - / y 20 * - abs negate 1 + ; : circle ( xpos - f ) x - ^2 3 * y 0.42 - ^2 3.5 * + sqrt 0.6 - abs negate 1 + 30 pow ; 0.0 hyperb 0.03 0.5 clipx 0.0 0.7 clipy t 0.6 + cos max 0.85 circle t 1.2 + cos max 1.2 hyperb 1.2 1.8 clipx 0.0 0.7 clipy t 3.4 + cos max
LOL
DarkstarAG
'25 Sep 20
: x x 0.5 - ; : y y 0.5 - ; x x * y y * + sqrt t sin abs 5 * * dup 1 - abs t sin dup *
Untitled
Anonymous
'25 Sep 20
: ' .5 - 2 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ; r^2 dup y .5 - t cos 2 - 22 pow 3 * * * 65 * cos swap 1 < *
Eye Redux
DarkstarAG
'25 Sep 20
: x' x -.5 + t 4 * sin 2 + 1 * pow ; : y' y .5 - 2 pow ; x' 40 * sin y' 15 * sin + 4 pow dup dup
Quadro1 Redux
Anonymous
'25 Sep 20
: ' .5 - 2 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ; r^2 dup y .5 - * 65 * cos swap 1 < *
Eye
DarkstarAG
'25 Sep 20
: ' .5 - 2 * ; : ^2 dup * ; : r^2 x ' ^2 y ' ^2 + ; r^2 dup push 1 - sqrt 1 x ' ^2 1 y ' ^2 - * - 145 * cos * pop 1 < *
Big I
DarkstarAG
'25 Sep 20
: ' .5 - 15 * cos ; : ^2 dup * ; : n 3.1415 * sin 1 + 2 / ; 1 x ' ^2 y ' ^2 + - sqrt
Red Divano
DarkstarAG
'25 Sep 20
: x' x -.5 + t 4 * sin 2 + 1 * pow ; : y' y .5 - 2 pow ; x' 40 * sin y' 15 * sin + 4 pow dup dup
Quadro1
DarkstarAG
'25 Sep 20
: 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
'25 Sep 20
.04 : a * dup cos swap sin z* y ; : b sin .5 * abs - .18 - + dup * swap x ; : c / 1 mod 2 * 1 - dup 0 > 2 * 1 - * ; : cir0 t -2.3 a .6 / t b .6 / t 9.1 c 1.5 * - .1 - + dup * + sqrt - 0 max .25 ** ; .2 0 0 cir0 .055 .075 .075 cir0 - .055 -.075 .075 cir0 - .055 .075 -.075 cir0 - .055 -.075 -.075 cir0 - 4 / max : cir1 t 1.7 a .8 / t b .8 / t 11 c - .15 - + dup * + sqrt - 0 max .2 ** ; .2 0 0 cir1 .055 .075 .075 cir1 - .055 -.075 .075 cir1 - .055 .075 -.075 cir1 - .055 -.075 -.075 cir1 - 2 / max : cir2 t -2 a t .8 * b t 7 / 1 mod 1.4 * .7 - dup 0 > 2 * 1 - * - .15 - + dup * + sqrt - 0 max .15 ** ; .2 0 0 cir2 .055 .075 .075 cir2 - .055 -.075 .075 cir2 - .055 .075 -.075 cir2 - .055 -.075 -.075 cir2 - max .9 * dup sqrt 0 -rot
3 little studs
Manwe
'25 Sep 20
: x x .5 - 9 * ceil ; : y y .5 - 9 * ceil ; x y t sin t cos z* 4 / x t sin + x y t 2.1 * sin t 2.01 * cos z* 4 / z+
Pixels
Ivanq
'25 Sep 20
: x x t - 1.71 mod ; : l y t 3 * sin abs 2 / - 48 * floor = * 2 x .37 - 48 * floor ** floor / 2 mod + ; : lp 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 >= ; : lw 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 >= ; : lg 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 ) lp lw dup dup >r >r over + swap 1.5 / lg 1.5 / + r> + 2dup + 0 = 7 / r> +
Luigi
Ivanwq
'25 Sep 20
: x x t - 1.71 mod ; : l y t 3 * sin abs 2 / - 48 * floor = * 2 x .37 - 48 * floor ** floor / 2 mod + ; : lp 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 >= ; : lw 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 >= ; : lg 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 ) lp lw dup dup >r >r over + swap 1.5 / lg 1.5 / + r> + 2dup + 0 = 7 / r> +
Luigi
Ivanwq
'25 Sep 20
: x x t - 1.71 mod ; : l y t 3 * sin abs 2 / - 48 * floor = * 2 x .37 - 48 * floor ** floor / 2 mod + ; : lp 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 >= ; : lw 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 >= ; : lg 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 ) lp lw dup dup >r >r over + swap 1.5 / lg 1.5 / + r> + 2dup + 0 = 7 / r> +
Luigi
Ivanw
'25 Sep 20
( тогда уж так ) : 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
'25 Sep 20
: x x t - 1 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 Super Mario
DarkstarAG
'25 Sep 20
: 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
Super Mario
Ivanq
'25 Sep 20
: f -.5 dup z+ t sin 3 * t cos -3 * z* ; : i 2dup z* ; : j i i log ; : s t 12 mod ; : t1 0 s <= 3 s > * ; : t2 3 s <= 6 s > * ; : t3 6 s <= 9 s > * ; : t4 9 s <= 12 s > * ; : f1 x y f j j ; : f2 f1 i ; : f3 f2 i ; : f4 f1 j ; : r rot max -rot max ; : d dup push * swap pop * swap ; f1 t1 d f2 t2 d r f3 t3 d r f4 t4 d r
Incremental Dream Catcher fractal
adg
'25 Sep 20
( see http://mathworld.wolfram.com/SwastikaCurve.html ) : ^2 dup * ; : x x .5 - 5 * ; : y y .5 - 5 * ; : rollettcurve y ^2 ^2 x ^2 ^2 - x y * - ; : rainbow ( .f - r g b ) dup 3 * 1 + sin swap dup 3 * 0 + sin swap dup 3 * 5 + sin swap drop ; rollettcurve t 1.5 * sin 14 * - abs t 3 / cos pow rainbow
Rollett Curve
DarkstarAG
'25 Sep 20
Next