SinusTable.TXT

\  SinusTable.TXT   E.g. for use on 8 bit DAC pins etc... Jan Langevad March 2025
0 value SinusTable
HERE is SinusTable
0 C, \ 0 degrees
4 C,
8 C,
13 C,
17 C,
22 C,
26 C,
31 C,
35 C,
39 C,
44 C,
48 C,
53 C,
57 C,
61 C,
65 C,
70 C,
74 C,
78 C,
83 C,
87 C,
91 C,
95 C,
99 C,
103 C,
107 C,
111 C,
115 C,
119 C,
123 C,
127 C,
131 C,
135 C,
138 C,
142 C,
146 C,
149 C,
153 C,
156 C,
160 C,
163 C,
167 C,
170 C,
173 C,
177 C,
180 C,
183 C,
186 C,
189 C,
192 C,
195 C,
198 C,
200 C,
203 C,
206 C,
208 C,
211 C,
213 C,
216 C,
218 C,
220 C,
223 C,
225 C,
227 C,
229 C,
231 C,
232 C,
234 C,
236 C,
238 C,
239 C,
241 C,
242 C,
243 C,
245 C,
246 C,
247 C,
248 C,
249 C,
250 C,
251 C,
251 C,
252 C,
253 C,
253 C,
254 C,
254 C,
254 C,
254 C,
254 C,
255 C,
254 C,
254 C,
254 C,
254 C,
254 C,
253 C,
253 C,
252 C,
251 C,
251 C,
250 C,
249 C,
248 C,
247 C,
246 C,
245 C,
243 C,
242 C,
241 C,
239 C,
238 C,
236 C,
234 C,
232 C,
231 C,
229 C,
227 C,
225 C,
223 C,
220 C,
218 C,
216 C,
213 C,
211 C,
208 C,
206 C,
203 C,
200 C,
198 C,
195 C,
192 C,
189 C,
186 C,
183 C,
180 C,
177 C,
173 C,
170 C,
167 C,
163 C,
160 C,
156 C,
153 C,
149 C,
146 C,
142 C,
138 C,
135 C,
131 C,
127 C,
123 C,
119 C,
115 C,
111 C,
107 C,
103 C,
99 C,
95 C,
91 C,
87 C,
83 C,
78 C,
74 C,
70 C,
65 C,
61 C,
57 C,
53 C,
48 C,
44 C,
39 C,
35 C,
31 C,
26 C,
22 C,
17 C,
13 C,
8 C,
4 C,
0 C,  \ 180 degrees
\  End of SinusTable - 181 entries

: >Sinus  SinusTable + c@ ;

\ dacWrite	( pin 0-255 -- )	Write to DAC (Esp32 pin 25 or 26)	FORTH

: SinusTest  180 0
             do  25 ( --- pin )
			     I >Sinus ( --- pin value )
                    dacWrite  ( pin value --- )
			 loop
;

: SinusTestS ( n --- )
     0 do SinusTest loop
;