*

: 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

comments powered by Disqus