Interfacing function
eng

##
GotoTagVisibility

### File content

    function [x,y,typ]=GotoTagVisibility(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]=standard_outputs(arg1)
       case 'getorigin' then
        [x,y]=standard_origin(arg1)
       case 'set' then
        x=arg1
        graphics=arg1.graphics;exprs=graphics.exprs
        model=arg1.model;
        while %t do
          [ok,tag,exprs]=getvalue('Set parameters',..
    	  ['GotoTag'],..
    	  list('str',-1),exprs)
          if ~ok then break,end
          if ok then
    	if model.opar<>list(tag) then needcompile=4;y=needcompile,end
    	graphics.exprs=exprs;
    	model.opar=list(tag);
    	x.graphics=graphics;x.model=model;
    	break
          end
        end
       needcompile=resume(needcompile)
       case 'define' then
       model=scicos_model()
       model.sim='gototagvisibility'
       model.in=[]
       model.in2=[]
       model.out=[]
       model.out2=[]
       model.evtin=[]
       model.intyp=1
       model.outtyp=1
       model.opar=list('A');
       model.blocktype='c'
       model.firing=%f
       model.dep_ut=[%f %f]
       exprs='A'
       gr_i=['xstringb(orig(1),orig(2),[''{''+arg1.graphics.exprs(1)+''}''],sz(1),sz(2),''fill'');']
       x=standard_define([2 2],model,exprs,gr_i)
       x.graphics.id=["Goto Tag";"Visibility"]
      end
    endfunction