CMSCOPE
function [x,y,typ]=CMSCOPE(job,arg1,arg2)
// Copyright INRIA
x=[];y=[];typ=[]
select job
case 'plot' then
standard_draw(arg1)
case 'getinputs' then
[x,y,typ]=standard_inputs(arg1)
case 'getoutputs' then
x=[];y=[];typ=[];
case 'getorigin' then
[x,y]=standard_origin(arg1)
case 'set' then
x=arg1;
graphics=arg1.graphics;exprs=graphics.exprs
model=arg1.model;
//dstate=model.in
//pause
while %t do
[ok,in,clrs,win,wpos,wdim,ymin,ymax,per,N,heritance,nom,exprs]=getvalue(..
'Set Scope parameters',..
['Input ports sizes';
'Drawing colors (>0) or mark (<0)';
'Output window number (-1 for automatic)';
'Output window position';
'Output window sizes';
'Ymin vector';
'Ymax vector';
'Refresh period';
'Buffer size';
'Accept herited events 0/1'
'Name of Scope (label&Id)'],..
list('vec',-1,'vec',-1,'vec',1,'vec',-1,'vec',-1,..
'vec','size(%1,''*'')','vec','size(%1,''*'')','vec','size(%1,''*'')',..
'vec',1,'vec',1,'str',1),exprs)
if ~ok then break,end //user cancel modification
mess=[]
if size(in,'*')<=0 then
mess=[mess;'Block must have at least one input port';' ']
ok=%f
end
if mini(in)<=0 then
mess=[mess;'Port sizes must be positive';' ']
ok=%f
end
if size(clrs,'*')<sum(in) then
mess=[mess;'Not enough colors defined (at least '+string(sum(in))+')';' ']
ok=%f
end
if size(wpos,'*')<>0 &size(wpos,'*')<>2 then
mess=[mess;'Window position must be [] or a 2 vector';' ']
ok=%f
end
if size(wdim,'*')<>0 &size(wdim,'*')<>2 then
mess=[mess;'Window dim must be [] or a 2 vector';' ']
ok=%f
end
if win<-1 then
mess=[mess;'Window number can''t be < -1';' ']
ok=%f
end
if size(per,'*')<>size(ymin,'*') then
mess=[mess;'Size of Refresh Period must equal size of Ymin/Ymax vector';' ']
ok=%f
end
for i=1:1:size(per,'*')
if (per(i)<=0) then
mess=[mess;'Refresh Period must be positive';' ']
ok=%f
end
end
if N<2 then
mess=[mess;'Buffer size must be at least 2';' ']
ok=%f
end
if or(ymin>=ymax) then
mess=[mess;'Ymax must be greater than Ymin';' ']
ok=%f
end
if ~or(heritance==[0 1]) then
mess=[mess;'Accept herited events must be 0 or 1';' ']
ok=%f
end
if ~ok then
message(['Some specified values are inconsistent:';
' ';mess])
end
if ok then
in = in(:);
a = size(in,1);
in2 = ones(a,1);
[model,graphics,ok]=set_io(model,graphics,list([in in2],ones(a,1)),list(),ones(1-heritance,1),[]);
end
if ok then
if wpos==[] then wpos=[-1;-1];end
if wdim==[] then wdim=[-1;-1];end
if ok then
period=per(:)';
yy=[ymin(:)';ymax(:)']
rpar=[0;period(:);yy(:)]
clrs=clrs(1:sum(in))
ipar=[win;size(in,'*');N;wpos(:);wdim(:);in(:);clrs(:);heritance]
//if prod(size(dstate))<>(sum(in)+1)*N+1 then
//dstate=-eye((sum(in)+1)*N+1,1),
//end
model.evtin=ones(1-heritance,1)
model.dstate=[]
//model.dstate=dstate;
model.rpar=rpar;model.ipar=ipar
model.label=nom;
graphics.id=nom;
graphics.exprs=exprs;
x.graphics=graphics;x.model=model
//pause;
break
end
end
end
case 'define' then
win=-1;
in=[1;1]
wdim=[-1;-1]
wpos=[-1;-1]
clrs=[1;3;5;7;9;11;13;15];
N=20;
ymin=[-1;-5];ymax=[1;5];per=[30;30];
yy=[ymin(:)';ymax(:)']
period=per(:)'
model=scicos_model()
model.sim=list('cmscope',4)
model.in=in
model.in2=[1;1]
model.intyp=[1;1]
model.evtin=1
model.rpar=[0;period(:);yy(:)]
model.ipar=[win;size(in,'*');N;wpos(:);wdim(:);in(:);clrs(1:sum(in))]
model.blocktype='c'
model.dep_ut=[%t %f]
exprs=[strcat(string(in),' ');
strcat(string(clrs),' ');
string(win);
sci2exp([]);
sci2exp([]);
strcat(string(ymin),' ');
strcat(string(ymax),' ');
strcat(string(per),' ');
string(N);
string(0);
emptystr()];
gr_i='xstringb(orig(1),orig(2),''MScope'',sz(1),sz(2),''fill'')'
x=standard_define([2 2],model,exprs,gr_i)
end
endfunction