gmshowcolor.m

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

function gmshowcolor(b, dim);
% gmshowcolor(obj {, dim}) makes a plot of the colors of
% the faces of the object.  This is useful for setting
% up boundary conditions.   dim is the dimension of faces
% whose colors show, default for dim is the embedded
% dimension of the brep - 1 or its intrinsic dim, 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
  dim = min(di - 1, gdim);
end

if dim < 0 | dim > gdim
  error('Second argument must lie between 0 and intrinsic dim');
end
[scrap,numface] = size(b{5+dim});

fi = figure;
hgt = 25;
off = 40;
set(fi, 'units', 'pixels');
v = get(fi, 'Position');
set(fi, 'Position', [v(1),v(2), 600, (hgt * numface + off)]);
ax = gca;
set(ax,'Units', 'pixels');
set(ax,'Visible', 'off');
set(ax,'NextPlot', 'add');
set(ax,'Xlim',[0,2.5])
fa = 0;

[engine, filename, filestat, notify, format, ...
   thicken, default_color, beziersub] = gmvizgui_get_state(dim);

for fa1 = 0 : numface - 1
  cspec = gm_lookup_prop(b,dim,fa1,'color');
  if length(cspec) == 0
    co = default_color;
    default = 1;
  else
    co = sscanf(cspec, '(%f %f %f %f)')';
    default = 0;
  end
  if co(4) > 0
    ypos = (numface - 1 - fa) * hgt + off;
    h = fill([0,1,1,0], [ypos,ypos,(ypos+hgt),(ypos+hgt)], co(1:3));
    text(1.1, ypos+10, sprintf('%d', fa1), 'units','data');
    if default
      text(1.2,ypos+10,'default', 'units','data');
    else
      text(1.2,ypos+10,sprintf('(%f %f %f %f)',co(1),co(2),co(3),co(4)),...
            'units','data');
    end
    fa = fa + 1;
  end
end


uicontrol('style', 'pushbutton', 'string','Dismiss','callback', ...
          'delete(gcf)', ...
        'units', 'centimeters', 'position', [0, 0, 1.6, 1], ...
	'backgroundcolor',[1,1,0]);
set(ax,'HandleVisibility', 'callback');
set(fi,'HandleVisibility', 'callback');


% ------------------------------------------------------------------
% Copyright (c) 1996 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 1.1 of QMG, release date November 15, 1996.
% ------------------------------------------------------------------