An intriguing challenge with physics

SetBuffer BackBuffer() 

mx# = MouseX() 
my# = MouseY() 

px# = mx + 100 
py# = my  

l# = 40.0 
f# = 2.0

Repeat

	Cls
 
	lmx# = mx# 
	lmy# = my# 

	mx# = MouseX()  
	my# = MouseY()  

	smx# = mx-px+((mx-lmx)*f)
	smy# = my-py+((my-lmy)*f)

	d# = Sqr(smx*smx + smy*smy)  

	px# = mx - ((smx/d)*l) 
	py# = my - ((smy/d)*l) 

	Line mx,my,px,py 
	Flip 

Until KeyHit(1)

Divine Mk. I! :)

Adjust f# to set how fast it turns!