gmrndcolor.m

matlab有限元分析工具,比经较全面的一个手册,请大家下载呀

function a = gmrndcolor(b, dimtocolor);
% gmrndcolor: assign random colors to faces of a brep
% a = gmrndcolor(b {, dimtocolor})
%  This function assigns a random sequence of colors chosen from
%  a pallette of about 20  colors to brep b, and returns the colored brep as
%  a.  Faces already colored are not recolored.  The second optional
%  argument tells which dimension of faces should be colored.
%  The default for the second argument is 1 less than the embedded dimension
%  of the brep, or its gdim, whichever is smaller.

if ~isa(b,'zba')
  error('Object passed to gmrndcolor not a zba');
end

if length(b) < 1
  error('Object passed to gmrndcolor not a brep');
end


global GM_BREP_TYPE_CODE


if ~strcmpi(double(b{0}), GM_BREP_TYPE_CODE)
  error('Object passed to gmrndcolor not a brep');
end


gdim = double(b{1});
di = double(b{2});

if nargin < 2
  dimtocolor = min(di - 1, gdim);
end

if (dimtocolor < 0 | dimtocolor > gdim)
  error('2nd argument must be between 0 and intrinsic dim')
end


[scrap,numface] = size(b{5 + dimtocolor});
color = [
0, 0, 0
0, 0, 0.4
0, 0, .9
0, 0.4, 0
0, 0.4, 0.4
0, 0.4, 0.9
0, 0.9, 0
0, 0.9, 0.4
0, .9, .9
0.4, 0, 0
0.4, 0, 0.4
0.4, 0, 0.9
0.4, 0.4, 0
0.4, 0.4, 0.4
0.4, 0.4, 0.9
0.4, 0.9, 0
0.4, 0.9, 0.4
0.4, 0.9, 0.9
0.9, 0, 0
0.9, 0, 0.4
0.9, 0, 0.9
0.9, 0.4, 0
0.9, 0.4, 0.4
0.9, 0.4, 0.9
0.9, 0.9, 0
0.9, 0.9, 0.4
];
[numcolors,scrap] = size(color);
[scrap,permut]=sort(rand(numcolors,1));
color = color(permut,:);
cnum = 1;

a = b;
for face = 0 : numface - 1;
  [scrap,numpv] = size(b{5+dimtocolor}{1,face});
  colorfound = 0;
  for pvind = 0 : numpv - 1
    if strcmpi(double(b{5+dimtocolor}{1,face}{0,pvind}), 'color')
      colorfound = 1;
      break;
    end
  end
  if ~colorfound
    a{5 + dimtocolor}{1,face}{0,numpv} = 'color';
    a{5 + dimtocolor}{1,face}{1,numpv} = ...
     sprintf('(%f %f %f 1)', color(cnum,1), color(cnum,2), color(cnum,3));
  end
  cnum = cnum + 1;
  if cnum > numcolors	
    cnum = 1;
  end
end


% ------------------------------------------------------------------
% Copyright (c) 1999 by Cornell University.  All rights reserved.
% See the accompanying file 'Copyright' for authorship information,
% the terms of the license governing this software, and disclaimers
% concerning this software.
% ------------------------------------------------------------------
% This file is part of the QMG software.  
% Version 2.0 of QMG, release date September 3, 1999.
% ------------------------------------------------------------------