Quicker drop-off speed

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Jim Brown

I need a bit of scary maths stuff here. Have a look at this image:

What I want to do is decrease the speed quicker the lower it gets.
Currently, what I have is a gradual drop-off speed as shown by the RED in the image. Code example:

' speed drop-off

Const sw=640,sh=480

Graphics sw,sh,0
SetColor $fc,$30,$20

Local speed#=460.0
Local x%

Repeat
	speed:/1.009
	x:+1
	DrawLine x,sh-speed,x,sh
Until speed<1

Flip
WaitKey
End

What I want to achieve is something like the BLUE indicates. That is, the slower the speed is, the quicker the decelleration. Think of a snooker ball and how its slows down quicker because of the friction of the felt.
My example feels too linear. Any ideas?