Fun with Ray Casting

[a740g]

Sorry, I don't want to trash your code I just got carried away because I really like it and studied it a bit.
If you rewrite this in 'Renderframe', the landscape will darken proportionally to the distance and improve the 3d experience a bit. The bigger the ".001", the bigger the effect. At ".01" it's like walking at night with a flashlight.

Code: (Select All)

 
If heightOnScreen < hiddenY(i) Then
  Dim col As Long
  col = map(MAP_COLOR, mapPos.x, mapPos.y)
  Dim multi As Single
  multi = 1 - Abs(z) * .001
  Line (i, heightOnScreen)-(i, hiddenY(i)), _RGB32(_Red(col) * multi, _Green(col) * multi, _Blue(col) * multi)
  hiddenY(i) = heightOnScreen
End If

Thanks! Glad you like it.

No worries. That's a solid tip which I am going to shamelessly steal.