I have this feature implemented in my game "Ninja Kura" in the credits at the end. Bare in mind that the backdrop colour is black. You can download the source here
http://www.darkbasicpro.com/apollo/view.php?t=9309&b=5
This Plain Is Used As Background
Make Object Plain 12, 160, 120
Position Object 12, 0, 0, 99
Ghost Object On 12, 1
Color Object 12, RGB(255, 255, 255)
Color Backdrop 0
Lock Object On 12
For Fading In:
Function FadeInThumbNail(Obj)
If N=0 Then G#=255 : FD#=0.0 : N=1
If G#=<0.0 then G#=0.0
If FD#>=100.0 Then FD#=100.0
Color Object 12, RGB(Int(G#), Int(G#), Int(G#))
Fade Object Obj, Int(FD#)
Set Ambient Light Int(FD#)
FD# = FD# + 0.3
G# = G# - 0.765
If (FD#>=100.0) AND (G#=<0.0) Then N=0 : ExitFunction 1
EndFunction
For Fading Out:
Function FadeOutThumbNail(Obj)
If N=0 Then G#=0.0 : FD#=100.0 : N=1
If G#>=255.0 then G#=255.0
If FD#=<0.0 Then FD#=0.0
Color Object 12, RGB(Int(G#), Int(G#), Int(G#))
Fade Object Obj, Int(FD#)
Set Ambient Light Int(FD#)
FD# = FD# - 0.3
G# = G# + 0.765
If (FD#=<0.0) AND (G#>=255.0) Then N=0 : ExitFunction 1
EndFunction
Hope this helps.
Asri CE Crew
Anak Brunei!
