add macros from scicos_blocks from scilab 5.5.2

1 files changed, 246 insertions, 0 deletions

diff --git a/macros/Sources/FROMWSB.sci b/macros/Sources/FROMWSB.sci
new file mode 100644
index 00000000..a97c0c9d
--- /dev/null
+++ b/macros/Sources/FROMWSB.sci
@@ -0,0 +1,246 @@
+//  Scicos
+//
+//  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
+//
+// This program is free software; you can redistribute it and/or modify
+// it under the terms of the GNU General Public License as published by
+// the Free Software Foundation; either version 2 of the License, or
+// (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+// GNU General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+//
+// See the file ../license.txt
+//
+
+function [x,y,typ] = FROMWSB(job,arg1,arg2)
+    x=[];
+    y=[];
+    typ=[];
+    select job
+    case "set" then
+        // look for the internal edge trigger block
+        for i=1:length(arg1.model.rpar.objs) do
+            o = arg1.model.rpar.objs(i);
+            if typeof(o) == "Block" & o.gui == "FROMWS_c" then
+                ppath = list(i);
+                break;
+            end
+        end
+        newpar=list();
+        y=0;
+        for path=ppath do
+            np=size(path,"*")
+            spath=list()
+            for k=1:np
+                spath($+1)="model"
+                spath($+1)="rpar"
+                spath($+1)="objs"
+                spath($+1)=path(k)
+            end
+            xx=arg1(spath)// get the block
+            execstr("xxn="+xx.gui+"(''set'',xx)")
+            if ~isequalbitwise(xxn,xx) then
+                model=xx.model
+                model_n=xxn.model
+                if ~is_modelica_block(xx) then
+                    modified=or(model.sim<>model_n.sim)|..
+                    ~isequal(model.state,model_n.state)|..
+                    ~isequal(model.dstate,model_n.dstate)|..
+                    ~isequal(model.odstate,model_n.odstate)|..
+                    ~isequal(model.rpar,model_n.rpar)|..
+                    ~isequal(model.ipar,model_n.ipar)|..
+                    ~isequal(model.opar,model_n.opar)|..
+                    ~isequal(model.label,model_n.label)
+                    if or(model.in<>model_n.in)|or(model.out<>model_n.out)|..
+                        or(model.in2<>model_n.in2)|or(model.out2<>model_n.out2)|..
+                        or(model.outtyp<>model_n.outtyp)|or(model.intyp<>model_n.intyp) then
+                        needcompile=1
+                    end
+                    if or(model.firing<>model_n.firing) then
+                        needcompile=2
+                    end
+                    if (size(model.in,"*")<>size(model_n.in,"*"))|..
+                        (size(model.out,"*")<>size(model_n.out,"*")) then
+                        needcompile=4
+                    end
+                    if model.sim=="input"|model.sim=="output" then
+                        if model.ipar<>model_n.ipar then
+                            needcompile=4
+                        end
+                    end
+                    if or(model.blocktype<>model_n.blocktype)|..
+                        or(model.dep_ut<>model_n.dep_ut) then
+                        needcompile=4
+                    end
+                    if (model.nzcross<>model_n.nzcross)|(model.nmode<>model_n.nmode) then
+                        needcompile=4
+                    end
+                    if prod(size(model_n.sim))>1 then
+                        if model_n.sim(2)>1000 then
+                            if model.sim(1)<>model_n.sim(1) then
+                                needcompile=4
+                            end
+                        end
+                    end
+                else
+                    modified=or(model_n<>model)
+                    eq=model.equations;eqn=model_n.equations;
+                    if or(eq.model<>eqn.model)|or(eq.inputs<>eqn.inputs)|..
+                        or(eq.outputs<>eqn.outputs) then
+                        needcompile=4
+                    end
+                end
+                //parameter or states changed
+                arg1(spath)=xxn// Update
+                newpar(size(newpar)+1)=path// Notify modification
+                y=max(y,needcompile)
+            end
+        end
+        x=arg1
+        typ=newpar
+    case "define" then
+        scs_m_1=scicos_diagram(..
+        version="scicos4.2",..
+        props=scicos_params(..
+        wpar=[-159.096,811.104,-121.216,617.984,1323,1008,331,284,630,480,1426,231,1.4],..
+        Title="FROMWSB",..
+        tol=[0.0001,0.000001,1.000D-10,100001,0,0],..
+        tf=100000,..
+        context=" ",..
+        void1=[],..
+        options=tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],..
+        list([5,1],[4,1]),[0.8,0.8,0.8]),..
+        void2=[],..
+        void3=[],..
+        doc=list()))
+        scs_m_1.objs(1)=scicos_block(..
+        gui="FROMWS_c",..
+        graphics=scicos_graphics(..
+        orig=[260.37067,261.584],..
+        sz=[70,40],..
+        flip=%t,..
+        theta=0,..
+        exprs=["V";"1";"1";"0"],..
+        pin=[],..
+        pout=4,..
+        pein=2,..
+        peout=2,..
+        gr_i=[],..
+        id="",..
+        in_implicit=[],..
+        out_implicit="E"),..
+        model=scicos_model(..
+        sim=list("fromws_c",4),..
+        in=[],..
+        in2=[],..
+        intyp=1,..
+        out=-1,..
+        out2=-2,..
+        outtyp=-1,..
+        evtin=1,..
+        evtout=1,..
+        state=[],..
+        dstate=[],..
+        odstate=list(),..
+        rpar=[],..
+        ipar=[1;-31;1;1;0],..
+        opar=list(),..
+        blocktype="d",..
+        firing=0,..
+        dep_ut=[%f,%t],..
+        label="",..
+        nzcross=0,..
+        nmode=0,..
+        equations=list()),..
+        doc=list())
+        scs_m_1.objs(2)=scicos_link(..
+        xx=[295.37067;295.37067;233.23733;233.23733;295.37067;295.37067],..
+        yy=[255.86971;223.45067;223.45067;337.85067;337.85067;307.29829],..
+        id="drawlink",..
+        thick=[0,0],..
+        ct=[5,-1],..
+        from=[1,1,0],..
+        to=[1,1,1])
+        scs_m_1.objs(3)=scicos_block(..
+        gui="OUT_f",..
+        graphics=scicos_graphics(..
+        orig=[358.9421,271.584],..
+        sz=[20,20],..
+        flip=%t,..
+        theta=0,..
+        exprs="1",..
+        pin=4,..
+        pout=[],..
+        pein=[],..
+        peout=[],..
+        gr_i=[],..
+        id="",..
+        in_implicit="E",..
+        out_implicit=[]),..
+        model=scicos_model(..
+        sim="output",..
+        in=-1,..
+        in2=-2,..
+        intyp=-1,..
+        out=[],..
+        out2=[],..
+        outtyp=1,..
+        evtin=[],..
+        evtout=[],..
+        state=[],..
+        dstate=[],..
+        odstate=list(),..
+        rpar=[],..
+        ipar=1,..
+        opar=list(),..
+        blocktype="c",..
+        firing=[],..
+        dep_ut=[%f,%f],..
+        label="",..
+        nzcross=0,..
+        nmode=0,..
+        equations=list()),..
+        doc=list())
+        scs_m_1.objs(4)=scicos_link(..
+        xx=[338.9421;358.9421],..
+        yy=[281.584;281.584],..
+        id="drawlink",..
+        thick=[0,0],..
+        ct=[1,1],..
+        from=[1,1,0],..
+        to=[3,1,1])
+        model=scicos_model(..
+        sim="csuper",..
+        in=[],..
+        in2=[],..
+        intyp=1,..
+        out=-1,..
+        out2=-2,..
+        outtyp=1,..
+        evtin=[],..
+        evtout=[],..
+        state=[],..
+        dstate=[],..
+        odstate=list(),..
+        rpar=scs_m_1,..
+        ipar=[],..
+        opar=list(),..
+        blocktype="h",..
+        firing=[],..
+        dep_ut=[%f,%f],..
+        label="",..
+        nzcross=0,..
+        nmode=0,..
+        equations=list())
+        //## modif made by hand
+        gr_i=[]
+        x=standard_define([5 2],model,[],gr_i)
+    end
+endfunction