Odd cameraviewport

So as not to hijack JP's thread,
I was wondering if anyone knows what exactly happens with this code...

It obviously changes something because the view is skewed, rather similar to some CameraZoom effect...

Graphics3D 800,600,32,0
SetBuffer BackBuffer()

cam=CreateCamera()
CameraViewport cam,0,-200,800,800

sphere=CreateSphere(20)

view=1

PositionEntity sphere,0,0,10

While Not KeyDown(1)

If MouseDown(1)
view=(0-view)
Delay 100
FlushMouse
EndIf

If view=-1 Then CameraViewport cam,0,0,800,600
If view=1 Then CameraViewport cam,0,-200,800,800

UpdateWorld
RenderWorld
Flip
Wend

The 800 high viewport seems to get squashed down to 600 lines. No clipping occurs sadly.

If CameraViewport clipped I would be the happiest man on this planet. Seriously.

*goes back to writing clipping code*

Yup, I thought also at first that CameraViewport would act like its name suggests... no dice though. Just think how cool it would be IRL if you look through viewport and see the world squashed ;P

Seriously, how hard would it be to make it work so that it clips...