Interfacing function
eng

##
CSCOPE

### File content

    function [x,y,typ]=CSCOPE(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
      while %t do
        [ok,clrs,win,wpos,wdim,ymin,ymax,per,N,heritance,nom,exprs]=getvalue(..
    	'Set Scope parameters',..
    	['Color (>0) or mark (<0) vector (8 entries)';
    	'Output window number (-1 for automatic)';
    	'Output window position';
    	'Output window sizes';
    	'Ymin';
    	'Ymax';
    	'Refresh period';
    	'Buffer size'
            'Accept herited events 0/1'
    	'Name of Scope (label&Id)'],..
    	 list('vec',8,'vec',1,'vec',-1,'vec',-1,'vec',1,..
    	 'vec',1,'vec',1,'vec',1,'vec',1,'str',1),..
    	 exprs)
        if ~ok then break,end //user cancel modification
        mess=[]
        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 per<=0 then
          mess=[mess;'Refresh period must be positive';' ']
          ok=%f
        end
        if N<2 then
          mess=[mess;'Buffer size must be at least 2';' ']
          ok=%f
        end
        if 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
          [model,graphics,ok]=set_io(model,graphics,list([-1 1],1),list(),ones(1-heritance,1),[])
        end

        if ok then
          if wpos==[] then wpos=[-1;-1];end
          if wdim==[] then wdim=[-1;-1];end
          rpar=[0;ymin;ymax;per]
          ipar=[win;1;N;clrs(:);wpos(:);wdim(:)]
          //if prod(size(dstate))<>(8+1)*N+1 then dstate=-eye((8+1)*N+1,1),end
          //model.dstate=[];
          model.rpar=rpar;model.ipar=ipar
          model.evtin=ones(1-heritance,1)
          model.label=nom;
          graphics.id=nom
          graphics.exprs=exprs;
          x.graphics=graphics;x.model=model
          break
        end
      end
    case 'define' then
      win=-1;
      wdim=[600;400]
      wpos=[-1;-1]
      clrs=[1;3;5;7;9;11;13;15];
      N=20;
      ymin=-15;ymax=+15;per=30;

      model=scicos_model()
      model.sim=list('cscope',4)
      model.in=-1
      model.in2=1
      model.evtin=1
      model.rpar=[0;ymin;ymax;per]
      model.ipar=[win;1;N;clrs;wpos;wdim]
      model.blocktype='c'
      model.dep_ut=[%t %f]

      exprs=[strcat(string(clrs),' ');
    	string(win);
    	sci2exp([]);
    	sci2exp(wdim);
    	string(ymin);
    	string(ymax);
    	string(per);
    	string(N);
            string(0)';
    	emptystr()]; //label-id
      gr_i=['thick=xget(''thickness'');xset(''thickness'',2);';
        'xrect(orig(1)+sz(1)/10,orig(2)+(1-1/10)*sz(2),sz(1)*8/10,sz(2)*8/10);';
        'xx=[orig(1)+sz(1)/5,orig(1)+sz(1)/5;';
        'orig(1)+(1-1/4)*sz(1),orig(1)+sz(1)/5];';
        'yy=[orig(2)+sz(2)/5,orig(2)+sz(2)/5;';
        'orig(2)+sz(2)/5,orig(2)+(1-1/3)*sz(2)];';
        'xarrows(xx,yy);';
        't=(0:0.3:2*%pi)'';';
        'xx=orig(1)+(1/5+3*t/(10*%pi))*sz(1);';
        'yy=orig(2)+(1/4.3+(sin(t)+1)*3/10)*sz(2);';
        'xpoly(xx,yy,''lines'');';
        'xset(''thickness'',thick)']
      x=standard_define([2 2],model,exprs,gr_i)
    end
    endfunction