getmodulePosition()

[Azur]

V5b5-X86 Win7-64
The position is not fetched lineary and seems delayed regarding the actual module position

Code: Select all

EnableExplicit

InitSprite()
InitSound()
LoadModule(0,"track.xm")

OpenWindow(0,0,0,640,480,"",#PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0)

Define quit=0
PlayModule(0)

Repeat
	Select WaitWindowEvent(10)
		Case #PB_Event_CloseWindow
			quit=1
	EndSelect

	Define v=GetModuleRow(0)

	StartDrawing(ScreenOutput())
		DrawText(10,10,Str(v)+"  ")
	StopDrawing()

	FlipBuffers()
Until quit=1