⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 openfig.c

📁 精通Matlab与C_C++混合程序设计.rar 是精通Matlab与C_C++混合程序设计 这本书的配套源码
💻 C
📖 第 1 页 / 共 3 页
字号:
            #line 93 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            }
            /*
             * % reuse the one at the end of the list:
             * fig = figs(end);
             */
            #line 95 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(95);
            #line 95 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mlfAssign(&fig, mlfIndexRef(mclVv(figs, "figs"), "(?)", mlfEnd(mclVv(figs, "figs"), mlfScalar(1), mlfScalar(1))));
        /*
         * end
         */
        #line 96 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(96);
        #line 96 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        }
        #line 96 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mxDestroyArray(v_);
    #line 96 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    }
    /*
     * 
     * % bubble vis to top
     * oldvis = oldvis{1};
     */
    #line 99 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(99);
    #line 99 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mlfAssign(&oldvis, mlfIndexRef(mclVv(oldvis, "oldvis"), "{?}", mlfScalar(1)));
    /*
     * if isstruct(oldvis)
     */
    #line 100 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(100);
    #line 100 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    if (mlfTobool(mlfIsstruct(mclVv(oldvis, "oldvis")))) {
        /*
         * oldvis = oldvis.Visible;
         */
        #line 101 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(101);
        #line 101 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mlfAssign(&oldvis, mlfIndexRef(mclVv(oldvis, "oldvis"), ".Visible"));
    /*
     * else
     */
    #line 102 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(102);
    #line 102 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    } else {
        /*
         * oldvis = get(0,'DefaultFigureVisible');
         */
        #line 103 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(103);
        #line 103 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mlfAssign(&oldvis, mlfNGet(1, mlfScalar(0), mxCreateString("DefaultFigureVisible"), NULL));
    /*
     * end
     */
    #line 104 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(104);
    #line 104 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    }
    /*
     * 
     * % remember all instances of this figure.
     * setappdata(0, TOKEN, figs);
     */
    #line 107 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(107);
    #line 107 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mlfSetappdata(mlfScalar(0), mclVv(TOKEN, "TOKEN"), mclVv(figs, "figs"), NULL);
    /*
     * 
     * % ensure the figure is completely on the screen:
     * movegui(fig, 'onscreen');
     */
    #line 110 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(110);
    #line 110 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mlfMovegui(mclVv(fig, "fig"), mxCreateString("onscreen"), NULL);
    /*
     * 
     * % decide whether to adjust visible
     * if isempty(visible)
     */
    #line 113 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(113);
    #line 113 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    if (mlfTobool(mlfIsempty(mclVa(visible, "visible")))) {
        /*
         * set(fig,'Visible',oldvis);
         */
        #line 114 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(114);
        #line 114 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclAssignAns(&ans, mlfNSet(0, mclVv(fig, "fig"), mxCreateString("Visible"), mclVv(oldvis, "oldvis"), NULL));
    /*
     * else
     */
    #line 115 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(115);
    #line 115 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    } else {
        /*
         * switch visible
         */
        #line 116 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mxArray * v_ = mclInitialize(mclVa(visible, "visible"));
        #line 116 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(116);
        #line 116 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        if (mclSwitchCompare(v_, mxCreateString("invisible"))) {
            /*
             * case 'invisible'
             * set(fig,'Visible','off');
             */
            #line 118 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(118);
            #line 118 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclAssignAns(&ans, mlfNSet(0, mclVv(fig, "fig"), mxCreateString("Visible"), mxCreateString("off"), NULL));
        /*
         * case 'visible'
         */
        #line 119 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(119);
        #line 119 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        } else if (mclSwitchCompare(v_, mxCreateString("visible"))) {
            /*
             * set(fig,'Visible','on');
             */
            #line 120 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(120);
            #line 120 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclAssignAns(&ans, mlfNSet(0, mclVv(fig, "fig"), mxCreateString("Visible"), mxCreateString("on"), NULL));
        /*
         * case 'auto'
         */
        #line 121 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(121);
        #line 121 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        } else if (mclSwitchCompare(v_, mxCreateString("auto"))) {
            /*
             * if reusing
             */
            #line 122 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(122);
            #line 122 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            if (mlfTobool(mclVv(reusing, "reusing"))) {
                /*
                 * % if oldvis is 'on', this will raise the figure to the foreground
                 * % it will do nothing if oldvis is 'off'
                 * set(fig,'Visible',oldvis);
                 */
                #line 125 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
                mclMline(125);
                #line 125 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
                mclAssignAns(&ans, mlfNSet(0, mclVv(fig, "fig"), mxCreateString("Visible"), mclVv(oldvis, "oldvis"), NULL));
            /*
             * else
             */
            #line 126 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(126);
            #line 126 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            } else {
                /*
                 * set(fig,'Visible','off');
                 */
                #line 127 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
                mclMline(127);
                #line 127 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
                mclAssignAns(&ans, mlfNSet(0, mclVv(fig, "fig"), mxCreateString("Visible"), mxCreateString("off"), NULL));
            /*
             * end
             */
            #line 128 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            mclMline(128);
            #line 128 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
            }
        /*
         * end
         */
        #line 129 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(129);
        #line 129 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        }
        #line 129 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mxDestroyArray(v_);
    /*
     * end
     */
    #line 130 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(130);
    #line 130 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    }
    /*
     * 
     * if nargout
     */
    #line 132 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(132);
    #line 132 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    if (nargout_ != 0) {
        /*
         * figOut = fig;
         */
        #line 133 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mclMline(133);
        #line 133 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
        mlfAssign(&figOut, mclVv(fig, "fig"));
    /*
     * end
     */
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMline(134);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    }
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclValidateOutput(figOut, 1, nargout_, "figOut", "openfig");
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(ans);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(path);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(name);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(ext);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(fname);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(flag);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(TOKEN);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(figs);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(reusing);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(fig);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(oldvis);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(visible);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(policy);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mxDestroyArray(filename);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclSetCurrentLocalFunctionTable(save_local_function_table_);
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMlineFunctionReturn()
    #line 134 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    return figOut;
    /*
     * 
     */
    #line 135 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
    mclMlineExitFunctionReturn();
    #line 135 "d:\\matlab6p5\\toolbox\\matlab\\graphics\\openfig.m"
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -