1 files changed, 42 insertions, 0 deletions
diff --git a/history/data_structures/CMSCOPE.js b/history/data_structures/CMSCOPE.js
new file mode 100644
index 0000000..b4d2e3d
--- /dev/null
+++ b/history/data_structures/CMSCOPE.js
@@ -0,0 +1,42 @@
+function CMSCOPE () {
+
+
+	var win = -1;
+
+	var in1 = [[1],[1]];
+
+	var wdim = [[-1],[-1]];
+
+	var wpos = [[-1],[-1]];
+
+	var clrs = [[1],[3],[5],[7],[9],[11],[13],[15]];
+
+	var N = 20;
+
+	var ymin = [[-1],[-5]];
+
+	var ymax = [[1],[5]];
+
+	var per = [[30],[30]];
+
+	var yy = [[...transpose(ymin)],[...transpose(ymax)]];
+
+	var period = ...transpose(per);
+
+	var model = scicos_model();
+	model.sim=list(new ScilabString(["cmscope"]),new ScilabDouble([4]));
+	model.in1.push(new ScilabDouble([in1]));
+	model.in2 = new ScilabDouble([1],[1]);
+	model.intyp = new ScilabDouble([1],[1]);
+	model.evtin = new ScilabDouble([1]);
+	model.rpar = new ScilabDouble([0],[...period],[...yy]);
+	model.ipar = new ScilabDouble([win;...colon_operator(size,in1,"*")],[N],[...wpos],[...wdim],[...in1],[clrs(1,sum(in1))]);
+	model.blocktype = new ScilabString(["c"]);
+	model.dep_ut = new ScilabBoolean([true,false]);
+
+	var exprs = [[strcat(string(in1)," ");strcat(string(clrs)," ");string(win);sci2exp([]);sci2exp([]);strcat(string(ymin)," ");strcat(string(ymax)," ");strcat(string(per)," ")],[string(N)],[string(0)],[emptystr()]];
+
+	var gr_i = [];
+	this.x=new standard_define(new ScilabDouble([2,2]),model,exprs,gr_i);
+	return new BasicBlock(this.x)
+}