Scilab Function
eng

scicos_graphics

File content

function graphics=scicos_graphics(v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,...
                                  v11,v12,v13,v14,v15,v16,v17,v18,v19,v20)
// Copyright INRIA
//initialisation de graphics mlist
  if exists('orig','local')==0 then orig=[0 0],end
  if exists('sz','local')==0 then sz=[20 20],end
  if exists('flip','local')==0 then flip=%t,end
  if exists('theta','local')==0 then theta=0,end
  if exists('exprs','local')==0 then exprs=[],end
  if exists('pin','local')==0 then pin=[],end
  if exists('pout','local')==0 then pout=[],end
  if exists('pein','local')==0 then pein=[],end
  if exists('peout','local')==0 then peout=[],end
  if exists('gr_i','local')==0 then gr_i=[],end
  if exists('id','local')==0 then id='',end
  if exists('in_implicit','local')==0 then 
    I='E';
    in_implicit=I(ones(pin(:)));
  end
  if exists('out_implicit','local')==0 then 
    I='E';
    out_implicit=I(ones(pout(:)));
  end 
  graphics=mlist(['graphics','orig','sz','flip','theta','exprs','pin',..
		  'pout','pein','peout','gr_i','id','in_implicit','out_implicit'],..
		 orig,sz,flip,theta,exprs,pin,pout,pein,peout,gr_i,id,in_implicit,out_implicit)
endfunction