This works (tested with my own shadow system), but I don't know if it's wise to use it as I don't think any geometry will get clipped by the far clip plane at all.
You might want to also have a GetTransform() to record the Projection Matrix so you can reset it later.
Function GetProjectionMatrix(m.mat)
GetTransform 3,m
End Function
Have a mess about with it, see what happens :)
;D3DMATRIX
Type mat
Field m1#,m2#,m3#,m4#
Field m5#,m6#,m7#,m8#
Field m9#,m10#,m11#,m12#
Field m13#,m14#,m15#,m16#
End Type
Function InfiniteFarClipPlane()
Local m.mat = New mat
GetTransform(3,m)
;infinite far clip plane
e#=0.00000001
m\m11 = 1.0 - e
m\m15 = .1*(e - 1.0) ;.1 = camera near
SetTransform 3,m
End Function
p.s I dunno if I left Get/Set Transform in the DX7 DLL you have now, if not lemme know and I'll put up a new .decls
Tom