Interfacing function
eng

CLKSPLIT_f

File content

function [x,y,typ] = CLKSPLIT_f(job,arg1,arg2)
// Copyright INRIA
//** 22 Jun 2006: I found a problem here from scicos_new
//** 23           ... but it was not here :(
//** 26 June 2006: eliniating the /scicos_blocks/Events/<duplicate> !
 
x=[];y=[],typ=[];

select job

   case 'plot' then
      //**--- This is the function that DRAW the object
      //pause ; //** debug
      orig = arg1.graphics.orig ;
      xarc(orig(1), orig(2)+1.0 , 1.0 , 1.0 , 0, 360*64)
   
   case 'getinputs' then
      orig = arg1.graphics.orig;
      x = orig(1)
      y = orig(2)
      typ = -ones(x)
   
   case 'getoutputs' then
      orig=arg1.graphics.orig;
      x=[1,1]*orig(1)
      y=[1,1]*orig(2)
      typ=-ones(x)

   case 'getorigin' then
      [x,y]=standard_origin(arg1)
   
   case 'set' then
      x=arg1;

   case 'define' then
      model=scicos_model()
      model.sim='split'
      model.evtin=1
      model.evtout=[1;1]
      model.blocktype='d'
      model.firing=[%f,%f,%f] //????
      model.dep_ut=[%f %f]
      x = standard_define([1 1]/3,model,[],[])
end //** ...select job 

endfunction
//**----------------------------------------------------------

//** 26 Jun 2006: The original source code 
//function [x,y,typ]=CLKSPLIT_f(job,arg1,arg2)
//// Copyright INRIA
//x=[];y=[],typ=[];
//select job
//case 'plot' then
//case 'getinputs' then
//  orig=arg1.graphics.orig;
//  x=orig(1)
//  y=orig(2)
//  typ=-ones(x)
//case 'getoutputs' then
//  orig=arg1.graphics.orig;
//  x=[1,1]*orig(1)
//  y=[1,1]*orig(2)
//  typ=-ones(x)
//case 'getorigin' then
//  [x,y]=standard_origin(arg1)
//case 'set' then
//  x=arg1;
//case 'define' then
//  model=scicos_model()
//  model.sim='split'
//  model.evtin=1
//  model.evtout=[1;1]
//  model.blocktype='d'
//  model.firing=[%f,%f,%f] //????
//  model.dep_ut=[%f %f]
//
//  x=standard_define([1 1]/3,model,[],[])
//end
//endfunction