PureBoard

um dieses Thema erneut aufzuwärmen: für eine Anwendung habe ich das ganze ein bisl umgeschrieben und möchte das jetzt hier präsentieren:

; ---------------------------------------------------
; SIN-COS-tables.pbi
; ---------------------------------------------------
; precomputed global SIN/COS ...

Kaeru,

herzlichen Dank für diese Code! Anbei die 4.0 Anpassungen:

; PB 3.x code by Kaeru Gaman - adapted to PB4.x

Dim SinA.f(4095)

For n=0 To 4095
SinA(n) = Sin(#PI / 2048 * n ) ; #pi als erstes, damit ein float übergeben wird
Next

winkel = 0

OpenWindow(0,0,0,800,600, "Sinustest", #PB ...