function  ob = fsol(Lo,la,x0,y0,z0,or,tp)
% function  ob = fsol(Lo,la,x0,y0,z0,or,tp)
% Lo = longueur
% la = largeur
% x0 = position en x
% y0 = position en y
% z0 = position en z
% or = orientation
% tp = type (1=surf;2=surfl)

[x,y]=meshgrid(0:Lo/5:Lo,0:la/5:la);
z=0*x;

switch tp
case 1
   switch or
   case 1
      ob=surf(z+x0,x+y0,y+z0);
   case 2
      ob=surf(x+x0,z+y0,y+z0);
   case 3
      ob=surf(x+x0,y+y0,z+z0);
   end   
case 2
   switch or
   case 1
      ob=surfl(z+x0,x+y0,y+z0);
   case 2
      ob=surfl(x+x0,z+y0,y+z0);
   case 3
      ob=surfl(x+x0,y+y0,z+z0);
   end   
end

%© by Cédric Blaser / 27.11.2001