Interfacing function
eng

Ground_g

File content

function [x,y,typ]=Ground_g(job,arg1,arg2)
// Copyright INRIA
x=[];y=[];typ=[];
select job
 case 'plot' then
  standard_draw(arg1)
case 'getinputs' then
  x=[];y=[];typ=[];
case 'getoutputs' then
  [x,y,typ]=standard_outputs(arg1)
case 'getorigin' then
  [x,y]=standard_origin(arg1)
case 'set' then
  x=arg1;
case 'define' then
  C=[0]
  model=scicos_model()
  model.sim=list('cstblk4_m',4)
  model.in=[]
  model.out=1
  model.in2=[]
  model.out2=1
  model.outtyp=-1
  model.rpar=[]
  model.opar=list(C);
  model.blocktype='d'
  model.dep_ut=[%f %f]
  exprs=[]
  gr_i=['x=orig(1)*ones(5,1)+sz(1)*[1/16;15/16;1/2;1/2;1];';
  	  'y=orig(2)*ones(5,1)+sz(2)*[1/2;1/2;1/2;3/4;3/4];';
	  'xpolys(x,y);';
	  'x=orig(1)*ones(2,1)+sz(1)*[1/4;3/4];';
	  'y=orig(2)*ones(2,1)+sz(2)*[1/8+3/16;1/8+3/16];';
	  'xpolys(x,y);';
	  'x=orig(1)*ones(2,1)+sz(1)*[7/16;9/16];';
	  'y=orig(2)*ones(2,1)+sz(2)*[1/8;1/8];';
	  'xpolys(x,y);']
  x=standard_define([2 2],model,exprs,gr_i)
end
endfunction