'11:37 21/02/2021
'
function SineGen(int n,single**t) as int
'generates 360 degree sinewave table in n steps
  sys m=getmemory(n*4)
  int i
  @t=m
  double ni=pi()*2/n
  double pi2=2*pi()
  for i=0 to n-1
    t=sin(i*ni)
    @t+=4 'stride
  next
  @t=m 'reset t base
end function
'
single *SineTable 'MUST be a pointer
SineGen(720,SineTable) 'half degree steps
indexbase 0
print SineTable(60) '.5
...
freememory @SineTable
