(provide 'sin)

(setq cos-vector [1000 1000 999 999 998 996 995 993 990 988 985 982
978 974 970 966 961 956 951 946 940 934 927 921 914 906 899 891 883
875 866 857 848 839 829 819 809 799 788 777 766 755 743 731 719 707
695 682 669 656 643 629 616 602 588 574 559 545 530 515 500 485 469
454 438 423 407 391 375 358 342 326 309 292 276 259 242 225 208 191
174 156 139 122 105 87 70 52 35 17 0])

(defun cos (x)
  (cond ((< x 0) (cos (- x)))
	((> x 360) (cos (- x 360)))
	((< x 91) (aref cos-vector x))
	((< x 181) (- (aref cos-vector (- 180 x))))
	((< x 271) (- (aref cos-vector (- x 180))))
	(t (aref cos-vector (- 360 x)))))

(defun sin (x)
  (cos (- x 90)))