isosurf.cpp

实现VC与MATLAB的无缝对接

  #include "matlib.h"
  #pragma hdrstop
  
  #include "isosurf.h"
  
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06, Mm in07, Mm in08, Mm in09, Mm in10, i_o_t, Mm&  \
    out01__o, Mm& out02__o, Mm& out03__o, Mm& out04__o, Mm& out05__o) {
    begin_scope
    in01.setname("in01"); in02.setname("in02"); in03.setname("in03"); in04.setname("in04"); in05.setname("in05");  \
      in06.setname("in06"); in07.setname("in07"); in08.setname("in08"); in09.setname("in09"); in10.setname("in10");  \
      
    dMm(out01); dMm(out02); dMm(out03); dMm(out04); dMm(out05); 
    
    #line 1 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    call_stack_begin;
    #line 1 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    // nargin, nargout entry code
    double old_nargin=nargin_val; if (!nargin_set) nargin_val=10.0;
    nargin_set=0;
    double old_nargout=nargout_val; if (!nargout_set) nargout_val=5.0;
    nargout_set=0;
    
    // translated code
    
    int nlhs=nargout_val;
    Mm* plhs[call_mex_max_arguments];
    Mm* prhs[call_mex_max_arguments];
    call_mex_prhs(prhs[0],in01);
    call_mex_prhs(prhs[1],in02);
    call_mex_prhs(prhs[2],in03);
    call_mex_prhs(prhs[3],in04);
    call_mex_prhs(prhs[4],in05);
    call_mex_prhs(prhs[5],in06);
    call_mex_prhs(prhs[6],in07);
    call_mex_prhs(prhs[7],in08);
    call_mex_prhs(prhs[8],in09);
    call_mex_prhs(prhs[9],in10);
    call_mex("isosurf",nargout_val,plhs,nargin_val,prhs);
    if (nlhs>=1) call_mex_plhs(out01,plhs[0]);
    if (nlhs>=2) call_mex_plhs(out02,plhs[1]);
    if (nlhs>=3) call_mex_plhs(out03,plhs[2]);
    if (nlhs>=4) call_mex_plhs(out04,plhs[3]);
    if (nlhs>=5) call_mex_plhs(out05,plhs[4]);
    
    goto return_from_isosurf;
    
    #line 2 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //ISOSURF  Isosurface extraction.
    #line 3 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   [VERTICES, FACES] = ISOSURF(V, ISOVALUE, NOSHARE, VERBOSE)
    #line 4 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   extracts an isovalue surface from data V at ISOVALUE.
    #line 5 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   The algorithm is edge based and returns the result (in patch
    #line 6 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   format) in arrays VERTICES and FACES (both transposed). If 
    #line 7 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   NOSHARE is 1, shared vertices are not created. If VERBOSE 
    #line 8 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   is 1, progress messages are printed as the computation 
    #line 9 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   progresses.
    #line 10 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //
    #line 11 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   Example:
    #line 12 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //       [v f] = isosurf(flow, -3, 0, 1);
    #line 13 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //       v = v'; f = f';
    #line 14 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //       p = patch('Vertices', v, 'Faces', f, 'FaceColor', 'red');
    #line 15 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //       view(3); daspect([1 1 1])
    #line 16 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //       camlight
    #line 17 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //
    #line 18 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   See also ISOSURFACE.
    
    #line 20 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   Copyright (c) 1984-98 by The MathWorks, Inc.
    #line 21 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
    //   $Revision: 1.4 $  $Date: 1998/07/09 21:29:22 $
    
    #line 23 "g:/matlabr11/toolbox/matlab/specgraph/private/isosurf.m"
_   error(TM("Missing MEX-file ISOSURF"));
    
    
    
    return_from_isosurf: call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    in01.setname(NULL); in02.setname(NULL); in03.setname(NULL); in04.setname(NULL); in05.setname(NULL); in06.setname( \
      NULL); in07.setname(NULL); in08.setname(NULL); in09.setname(NULL); in10.setname(NULL); 
    out01__o=out01; out02__o=out02; out03__o=out03; out04__o=out04; out05__o=out05; 
    return x_M;
    end_scope
  }
  
  
  Mm isosurf() {
    begin_scope
    double old_nargin=nargin_val; nargin_val=0.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in01); dMm(in02); dMm(in03); dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10);  \
      dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=1.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in02); dMm(in03); dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o) \
      ; dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in03); dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o) \
      ; dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=3.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm( \
      out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=4.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o) \
      ; dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=5.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o) \
      ; dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=6.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o) \
      ; 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06, Mm in07) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=7.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in08); dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06, Mm in07, Mm in08) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=8.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in09); dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06, Mm in07, Mm in08, Mm in09) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=9.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(in10); dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(Mm in01, Mm in02, Mm in03, Mm in04, Mm in05, Mm in06, Mm in07, Mm in08, Mm in09, Mm in10) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=10.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(out01__o); dMm(out02__o); dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(out01__o);
    end_scope
  }
  
  Mm isosurf(i_o_t, Mm& out01__o, Mm& out02__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=0.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=2.0; nargout_set=1;
    dMm(in01); dMm(in02); dMm(in03); dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10);  \
      dMm(out03__o); dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }
  
  Mm isosurf(Mm in01, i_o_t, Mm& out01__o, Mm& out02__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=1.0; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=2.0; nargout_set=1;
    dMm(in02); dMm(in03); dMm(in04); dMm(in05); dMm(in06); dMm(in07); dMm(in08); dMm(in09); dMm(in10); dMm(out03__o) \
      ; dMm(out04__o); dMm(out05__o); 
    isosurf(in01, in02, in03, in04, in05, in06, in07, in08, in09, in10, i_o, out01__o, out02__o, out03__o, out04__o, \
       out05__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }