diff options
Diffstat (limited to 'macros/Sinks/CLKOUTV_f.sci')
| -rw-r--r-- | macros/Sinks/CLKOUTV_f.sci | 126 |
1 files changed, 126 insertions, 0 deletions
diff --git a/macros/Sinks/CLKOUTV_f.sci b/macros/Sinks/CLKOUTV_f.sci new file mode 100644 index 00000000..d1dd1804 --- /dev/null +++ b/macros/Sinks/CLKOUTV_f.sci @@ -0,0 +1,126 @@ +// Scicos +// +// Copyright (C) INRIA - METALAU Project <scicos@inria.fr> +// Copyright (C) 2011 - Bernard DUJARDIN <bernard.dujardin@contrib.scilab.org> +// +// 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]=CLKOUTV_f(job,arg1,arg2) + x=[]; + y=[]; + typ=[]; + select job + case "plot" then + xf=60; + yf=40; + orig=arg1.graphics.orig; + sz=arg1.graphics.sz; + orient=arg1.graphics.flip; + prt=arg1.model.ipar; + pat=xget("pattern"); + xset("pattern",default_color(-1)); + thick=xget("thickness"); + xset("thickness",2); + x=orig(1)+sz(1)*[1/2;1; 1;0;0 ]; + y=orig(2)+sz(2)*[0; 1/3;1;1;1/3]; + xo=orig(1); + yo=orig(2)+sz(2)/3; + + gr_i=arg1.graphics.gr_i; + if type(gr_i)==15 then + coli=gr_i(2); + pcoli=xget("pattern"); + xfpolys(x,y,coli); + xset("pattern",coli); + xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5); + xset("pattern",pcoli); + xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5); + else + xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5); + xpoly(x,y,"lines",1); + end + in= [-1/14 1/7 + 0 0 + 1/14 1/7 + -1/14 1/7]*diag([xf,yf]); + xfpoly(in(:,1)+ones(4,1)*(orig(1)+sz(1)/2),.. + in(:,2)+ones(4,1)*(orig(2)+sz(2)),1); + xset("thickness",thick); + xset("pattern",pat); + + ident = arg1.graphics.id + if ident <> [] & ident <> "" then + font=xget("font"); + xset("font", options.ID(1)(1), options.ID(1)(2)); + rectangle = xstringl(orig(1), orig(2), ident); + w = rectangle(3); + h = rectangle(4); + xstringb(orig(1)+sz(1)/2-w/2, orig(2)-3*h/2 , ident , w, h); + xset("font", font(1), font(2)); + end + x=[];y=[]; + case "getinputs" then + orig=arg1.graphics.orig; + sz=arg1.graphics.sz; + x=orig(1)+sz(1)/2 + y=orig(2)+sz(2) + typ=-ones(x) + case "getoutputs" then + x=[]; + y=[]; + typ=[]; + case "getorigin" then + [x,y]=standard_origin(arg1) + case "set" then + x=arg1; + graphics=arg1.graphics; + model=arg1.model; + exprs=graphics.exprs; + while %t do + [ok,prt,exprs]=scicos_getvalue([msprintf(gettext("Set %s block parameters"),"CLKOUTV_f");" ";gettext("Event output port")],.. + gettext("Port number"),list("vec",1),exprs) + if ~ok then + break, + end + prt=int(prt) + if prt<=0 then + block_parameter_error(msprintf(gettext("Wrong value for ''Port Number'' parameter: %d."),prt), .. + gettext("Strictly positive integer expected.")); + else + model.ipar=prt + model.evtin=1 + graphics.exprs=exprs + x.graphics=graphics; + x.model=model + break + end + end + case "define" then + prt=1 + model=scicos_model() + model.sim="output" + model.evtin=1 + model.ipar=prt + model.blocktype="d" + model.firing=[] + model.dep_ut=[%f %f] + + exprs=string(prt) + x=standard_define([1 1],model,exprs," ") + end +endfunction |