CLKSPLIT_f_intfunc

Fonction d'interfaçage
fr

##
CLKSPLIT_f

### Contenu du fichier

    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