File: default_options.sci

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (25 lines) | stat: -rw-r--r-- 597 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
function options=default_options()
// Copyright INRIA
options=scsoptlist()
col3d=[0.8 0.8 0.8]
if xget('use color')==1 then
  d=xget('colormap');  
  [mc,kk]=mini(abs(d-ones(size(d,1),1)*col3d)*[1;1;1])
  if mc>.0001 then
    #col3d=size(d,1)+1
  else
    #col3d=kk
  end
  options('3D')=list(%t,kk)
else
  options('3D')=list(%f,0)
  col3d=[]
end
options('Background')=[8 1] //white,black
options('Link')=[1,5] //black,red
options('ID')=list([5 0],[4 0])
options('Cmap')=col3d

function options=scsoptlist(varargin)
lt=['scsopt','3D','Background','Link','ID','Cmap']
options=tlist(lt,varargin(:))