annotate sintab.c @ 3:5a977ccbc7a9 default tip

Empty changelog
author darius
date Sat, 06 Dec 1997 05:41:29 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
1 /* $Id: sintab.c,v 1.1.1.1 1997/12/06 05:41:31 darius Exp $ */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
2
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
3 /*
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
4 * sintab.c
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
5 *
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
6 * Also initialize blk_giwdth to 100000 and blk_windgwidth
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
7 * to WINSIDE/blk_gwidth
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
8 */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
9 #include "copyright.h"
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
10
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
11 double *Cos;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
12 double Sin[] = {
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
13 -1.0000, -0.9997, -0.9988, -0.9973, -0.9952, -0.9925,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
14 -0.9892, -0.9853, -0.9808, -0.9757, -0.9701, -0.9638,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
15 -0.9570, -0.9496, -0.9416, -0.9330, -0.9239, -0.9143,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
16 -0.9040, -0.8933, -0.8820, -0.8701, -0.8578, -0.8449,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
17 -0.8315, -0.8176, -0.8033, -0.7884, -0.7731, -0.7573,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
18 -0.7410, -0.7243, -0.7072, -0.6896, -0.6716, -0.6533,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
19 -0.6345, -0.6153, -0.5958, -0.5759, -0.5557, -0.5351,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
20 -0.5142, -0.4930, -0.4715, -0.4497, -0.4277, -0.4054,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
21 -0.3828, -0.3600, -0.3370, -0.3138, -0.2904, -0.2668,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
22 -0.2431, -0.2192, -0.1952, -0.1711, -0.1469, -0.1225,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
23 -0.0982, -0.0737, -0.0492, -0.0247, /* Cos */ -0.0001, 0.0244, /* 90 */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
24 0.0489, 0.0734, 0.0979, 0.1223, 0.1466, 0.1708,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
25 0.1949, 0.2190, 0.2428, 0.2666, 0.2901, 0.3135,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
26 0.3367, 0.3598, 0.3825, 0.4051, 0.4274, 0.4495,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
27 0.4713, 0.4928, 0.5140, 0.5349, 0.5554, 0.5757,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
28 0.5956, 0.6151, 0.6343, 0.6531, 0.6714, 0.6894,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
29 0.7070, 0.7241, 0.7408, 0.7571, 0.7729, 0.7882,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
30 0.8031, 0.8175, 0.8314, 0.8448, 0.8576, 0.8700,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
31 0.8818, 0.8931, 0.9039, 0.9141, 0.9238, 0.9329,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
32 0.9415, 0.9495, 0.9569, 0.9637, 0.9700, 0.9757,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
33 0.9808, 0.9852, 0.9891, 0.9925, 0.9952, 0.9973,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
34 0.9988, 0.9997, 1.0000, 0.9997, 0.9988, 0.9973, /* 180 */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
35 0.9952, 0.9925, 0.9892, 0.9853, 0.9808, 0.9757,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
36 0.9700, 0.9638, 0.9569, 0.9495, 0.9415, 0.9330,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
37 0.9239, 0.9142, 0.9040, 0.8932, 0.8819, 0.8701,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
38 0.8577, 0.8449, 0.8315, 0.8176, 0.8032, 0.7884,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
39 0.7730, 0.7572, 0.7410, 0.7243, 0.7071, 0.6896,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
40 0.6716, 0.6532, 0.6344, 0.6153, 0.5957, 0.5758,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
41 0.5556, 0.5350, 0.5141, 0.4929, 0.4714, 0.4496,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
42 0.4276, 0.4053, 0.3827, 0.3599, 0.3369, 0.3137,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
43 0.2903, 0.2667, 0.2430, 0.2191, 0.1951, 0.1710,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
44 0.1468, 0.1225, 0.0981, 0.0736, 0.0491, 0.0246,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
45 0.0000, -0.0245, -0.0490, -0.0735, -0.0980, -0.1224, /* 270 */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
46 -0.1467, -0.1709, -0.1950, -0.2190, -0.2429, -0.2667,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
47 -0.2902, -0.3136, -0.3368, -0.3598, -0.3826, -0.4052,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
48 -0.4275, -0.4496, -0.4713, -0.4928, -0.5140, -0.5349,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
49 -0.5555, -0.5758, -0.5956, -0.6152, -0.6343, -0.6531,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
50 -0.6715, -0.6895, -0.7071, -0.7242, -0.7409, -0.7572,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
51 -0.7730, -0.7883, -0.8032, -0.8175, -0.8314, -0.8448,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
52 -0.8577, -0.8700, -0.8819, -0.8932, -0.9040, -0.9142,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
53 -0.9238, -0.9330, -0.9415, -0.9495, -0.9569, -0.9638,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
54 -0.9700, -0.9757, -0.9808, -0.9853, -0.9892, -0.9925,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
55 -0.9952, -0.9973, -0.9988, -0.9997, /* }; */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
56 /*
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
57 double Cos[] = {
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
58 0.0000, 0.0245, 0.0491, 0.0736, 0.0980, 0.1224,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
59 0.1467, 0.1710, 0.1951, 0.2191, 0.2430, 0.2667,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
60 0.2903, 0.3137, 0.3369, 0.3599, 0.3827, 0.4052,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
61 0.4275, 0.4496, 0.4714, 0.4929, 0.5141, 0.5350,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
62 0.5556, 0.5758, 0.5957, 0.6152, 0.6344, 0.6532,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
63 0.6715, 0.6895, 0.7071, 0.7242, 0.7409, 0.7572,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
64 0.7730, 0.7883, 0.8032, 0.8176, 0.8315, 0.8448,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
65 0.8577, 0.8701, 0.8819, 0.8932, 0.9040, 0.9142,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
66 0.9239, 0.9330, 0.9415, 0.9495, 0.9569, 0.9638,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
67 0.9700, 0.9757, 0.9808, 0.9853, 0.9892, 0.9925,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
68 0.9952, 0.9973, 0.9988, 0.9997, 1.0000, 0.9997,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
69 0.9988, 0.9973, 0.9952, 0.9925, 0.9892, 0.9853,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
70 0.9808, 0.9757, 0.9700, 0.9638, 0.9570, 0.9495,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
71 0.9416, 0.9330, 0.9239, 0.9142, 0.9040, 0.8933,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
72 0.8819, 0.8701, 0.8578, 0.8449, 0.8315, 0.8176,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
73 0.8032, 0.7884, 0.7731, 0.7573, 0.7410, 0.7243,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
74 0.7072, 0.6896, 0.6716, 0.6532, 0.6344, 0.6153,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
75 0.5958, 0.5759, 0.5556, 0.5351, 0.5142, 0.4930,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
76 0.4715, 0.4497, 0.4276, 0.4053, 0.3828, 0.3600,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
77 0.3370, 0.3138, 0.2904, 0.2668, 0.2431, 0.2192,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
78 0.1952, 0.1710, 0.1468, 0.1225, 0.0981, 0.0737,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
79 0.0492, 0.0246, 0.0001, -0.0244, -0.0490, -0.0735,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
80 -0.0979, -0.1223, -0.1466, -0.1709, -0.1950, -0.2190,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
81 -0.2429, -0.2666, -0.2902, -0.3136, -0.3368, -0.3598,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
82 -0.3826, -0.4051, -0.4275, -0.4495, -0.4713, -0.4928,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
83 -0.5140, -0.5349, -0.5555, -0.5757, -0.5956, -0.6151,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
84 -0.6343, -0.6531, -0.6715, -0.6895, -0.7070, -0.7242,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
85 -0.7409, -0.7571, -0.7729, -0.7883, -0.8031, -0.8175,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
86 -0.8314, -0.8448, -0.8577, -0.8700, -0.8819, -0.8932,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
87 -0.9039, -0.9142, -0.9238, -0.9329, -0.9415, -0.9495,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
88 -0.9569, -0.9637, -0.9700, -0.9757, -0.9808, -0.9853,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
89 -0.9892, -0.9925, -0.9952, -0.9973, -0.9988, -0.9997,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
90 */
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
91
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
92 -1.0000, -0.9997, -0.9988, -0.9973, -0.9952, -0.9925,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
93 -0.9892, -0.9853, -0.9808, -0.9757, -0.9701, -0.9638,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
94 -0.9570, -0.9496, -0.9416, -0.9330, -0.9239, -0.9143,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
95 -0.9041, -0.8933, -0.8820, -0.8702, -0.8578, -0.8449,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
96 -0.8316, -0.8177, -0.8033, -0.7884, -0.7731, -0.7573,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
97 -0.7411, -0.7244, -0.7072, -0.6897, -0.6717, -0.6533,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
98 -0.6345, -0.6154, -0.5958, -0.5759, -0.5557, -0.5351,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
99 -0.5142, -0.4930, -0.4715, -0.4498, -0.4277, -0.4054,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
100 -0.3828, -0.3601, -0.3371, -0.3138, -0.2905, -0.2669,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
101 -0.2432, -0.2193, -0.1953, -0.1711, -0.1469, -0.1226,
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
102 -0.0982, -0.0737, -0.0493, -0.0247};
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
103
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
104 #define WINSIDE 500
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
105 extern int blk_gwidth;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
106 extern float blk_windgwidth;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
107
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
108 void
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
109 inittrigtables()
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
110 {
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
111 Cos = Sin + 64;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
112 blk_gwidth = 100000;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
113 blk_windgwidth = ((float) WINSIDE) / blk_gwidth;
5a977ccbc7a9 Empty changelog
darius
parents:
diff changeset
114 }