scilab/modules/scicos_blocks/macros/Sinks/BARXY_sim.sci

   1 //
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2011-2011 - DIGITEO - Bruno JOFRET
   4 //
   5 // This file must be used under the terms of the CeCILL.
   6 // This source file is licensed as described in the file COPYING, which
   7 // you should have received as part of this distribution.  The terms
   8 // are also available at
   9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  10 //
  11 //
  12
  13 function block=BARXY_sim(block,flag)
  14     //disp("Calling BARXY_sim with flag = "+string(flag))
  15     if flag == 4 | flag == 6
  16         // Initialisation || Re-Init
  17         // if already exists (stopped) then reuse
  18         f = findobj("Tag", block.uid);
  19         if f == [] then
  20             f = figure("Tag", block.uid, "Figure_name", "BARXY");
  21         else
  22             scf(f);
  23             clf();
  24         end
  25
  26         f.background = -2;
  27         a=gca();
  28         a.data_bounds = block.rpar';
  29         a.isoview = "on";
  30         u1=block.inptr(1);
  31         u2=block.inptr(2);
  32         j = 0;
  33         xsegs(u1, u2, 1:size(u1,"*")/2)
  34         e = gce();
  35         e.thickness = block.ipar;
  36     end
  37
  38     if flag ==  1
  39         // Output update
  40         u1=block.inptr(1);
  41         u2=block.inptr(2);
  42
  43         f = findobj("Tag", block.uid);
  44
  45         a = f.children;
  46         a.children(1).data = [u1, u2]
  47
  48     end
  49
  50 endfunction