mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
17 lines
313 B
Perl
17 lines
313 B
Perl
local N = 32
|
|
local tbl = terralib.new(float[N])
|
|
for i = 1,N do
|
|
tbl[i-1] = math.sin( 2 * math.pi * (i-1)/N)
|
|
end
|
|
|
|
local ctable = terralib.constant(tbl)
|
|
|
|
terra sintable(a : float) : float
|
|
var idx = int(a / (2 * math.pi) * N)
|
|
return ctable[idx]
|
|
end
|
|
|
|
sintable:disas()
|
|
|
|
print(sintable(0))
|
|
print(sintable(math.pi/4)) |