TKSCALE_intfunc

Interfacing function
eng

##
TKSCALE

### File content

    function [x,y,typ]=TKSCALE(job,arg1,arg2)
      //Source block; output defined by tk widget scale
      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;
        [ok,a,b,f,exprs]=getvalue('Set scale block parameters',..
            ['Min value';'Max value';'Normalization'],..
            list('vec',1,'vec',1,'vec',1),exprs)
        // tk widget returns a scalar, the value is divided by
        // Normalization factor
        if ok then
          graphics.exprs=exprs
          model.rpar=[a;b;f]
          x.graphics=graphics;x.model=model
        end
        case 'define' then
        a=-10;b=10;f=1;// default parameter values
        model=scicos_model()
        model.sim=list('tkscaleblk',5)
        model.out=1
        model.evtin=1
        model.rpar=[a;b;f]
        model.blocktype='d'
        model.dep_ut=[%f %f]
        exprs=[sci2exp(a);sci2exp(b);sci2exp(f)]
        gr_i=['xstringb(orig(1),orig(2),''TK Scale'',sz(1),sz(2),''fill'')']
        x=standard_define([3 2],model,exprs,gr_i)
      end
    endfunction