From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/lib/sinus.frt | 50 ---------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 amforth-6.5/common/lib/sinus.frt (limited to 'amforth-6.5/common/lib/sinus.frt') diff --git a/amforth-6.5/common/lib/sinus.frt b/amforth-6.5/common/lib/sinus.frt deleted file mode 100644 index e2a6733..0000000 --- a/amforth-6.5/common/lib/sinus.frt +++ /dev/null @@ -1,50 +0,0 @@ -\ Sinus and Cosinus -\ Use table calculating integer sin. -\ Get values scaled by 10K. - -\ tested ok on amforth-1.5 build 24.09.08 - -decimal - -create sintab \ 0...90 degrees, Index in degrees -0000 , 0175 , 0349 , 0523 , 0698 , 0872 , -1045 , 1219 , 1392 , 1564 , 1736 , 1908 , -2079 , 2250 , 2419 , 2588 , 2756 , 2924 , -3090 , 3256 , 3420 , 3584 , 3746 , 3907 , -4067 , 4226 , 4384 , 4540 , 4695 , 4848 , -5000 , 5150 , 5299 , 5446 , 5592 , 5736 , -5878 , 6018 , 6157 , 6293 , 6428 , 6561 , -6691 , 6820 , 6947 , 7071 , 7193 , 7314 , -7431 , 7547 , 7660 , 7771 , 7880 , 7986 , -8090 , 8192 , 8290 , 8387 , 8480 , 8572 , -8660 , 8746 , 8829 , 8910 , 8988 , 9063 , -9135 , 9205 , 9272 , 9336 , 9397 , 9455 , -9511 , 9563 , 9613 , 9659 , 9703 , 9744 , -9781 , 9816 , 9848 , 9877 , 9903 , 9925 , -9945 , 9962 , 9976 , 9986 , 9994 , 9998 , -10000 , - -: sinus@ sintab + @i ; -: sin ( degrees -- sinus ) - dup 0< >r abs - 360 mod - dup 180 > if 180 - 1 >r else 0 >r then - dup 90 > if 180 swap - then - sinus@ - r> if negate then - r> if negate then ; -: cos 90 + sin ; - -( finis) - -\ Notes: - -\ In gforth it has to be : sinus@ ( degree -- ) cell * sintab + @i ; -\ Since @i increments by 2 bytes each step in an atmega flash, -\ there is no need for cell adjustment in amforth. - -\ In the phrase -\ dup 180 > if 180 - 1 >r else 0 >r then -\ 1 and 0 act as flags; TRUE and FALSE do this in gforth. - -\ mk -- cgit v1.2.3