Hi!

Does anyone know how to build an orthogonal projection of a surface?

points = Table[{i ^ 1 , j + i, ((-1)^(i + j))}, {i, 10}, {j, 10}];
surface = Graphics3D[{BSplineSurface[points], Blue, Point /@ points}]
Show[surface /. 
  Graphics3D[gr_, opts___] :> 
   Graphics3D[
    GeometricTransformation[gr, 
     ScalingTransform[10^-3, {1, 0, 0}, {1, 1, 0}]], opts], 
 Lighting -> Automatic, ImageSize -> Full, Axes -> True, 
 AxesStyle -> Black, ViewPoint -> {-\[Infinity], 0, 0}, Boxed -> True,
  Background -> RGBColor[0.84, 0.92, 1.]
 ]

Is it possible to use transformation matrices or Projection function to build a projection? All I have now is a projection on one axis.