Sub Globals
Private canvas1 As B4XCanvas
Private lblC As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.White
lblC.Initialize("")
Activity.AddView(lblC,0,80%y,100%x,100%y-80%y - 20dip)
canvas1.Initialize(lblC)
Dim siriV As siriview
siriV.Initialize(5) 'the refresh rate depends on the device, on pc 20 is fine but on android, 5 seems fine
siriV.SiriWaveFunc(canvas1,lblC.Width, lblC.Height,1,1,0.12,6,0.005, 0.05,46,46,46,True)
Sleep(5000)
siriV.siriwave_setAmplitude(0.01)
Sleep(1000)
siriV.siriwave_setAmplitude(0.8)
End Sub