Add hatch to bar plot
1 function applyhatch(h,patterns,colorlist) 2 %APPLYHATCH Apply hatched patterns to a figure 3 % APPLYHATCH(H,PATTERNS) creates a new figure from the figure H by 4 % replacing distinct colors in H with the black and white 5 % patterns in PATTERNS. The format for PATTERNS can be 6 % a string of the characters '/', '\', '|', '-', '+', 'x', '.' 7 % a cell array of matrices of zeros (white) and ones (black) 8 % 9 % APPLYHATCH(H,PATTERNS,COLORS) maps the colors in the n by 3 10 % matrix COLORS to PATTERNS. Each row of COLORS specifies an RGB 11 % color value. 12 % 13 % Note this function makes a bitmap image of H and so is limited 14 % to low-resolution, bitmap output. 15 % 16 % Example 1: 17 % bar(rand(3,4)); 18 % applyhatch(gcf,'\-x.'); 19 % 20 % Example 2: 21 % colormap(cool(6)); 22 % pie(rand(6,1)); 23 % legend('Jan','Feb','Mar','Apr','May','Jun'); 24 % applyhatch(gcf,'|-+.\/',cool(6)); 25 % 26 % See also: MAKEHATCH 27 % By Ben Hinkle, bhinkle@mathworks.com 28 % This code is in the public domain. 29 30 oldppmode = get(h,'paperpositionmode'); 31 oldunits = get(h,'units'); 32 set(h,'paperpositionmode','auto'); 33 set(h,'units','pixels'); 34 figsize = get(h,'position'); 35 if nargin == 2 36 colorlist = []; 37 end 38 bits = hardcopy(h,'-dzbuffer','-r0'); 39 set(h,'paperpositionmode',oldppmode); 40 bwidth = size(bits,2); 41 bheight = size(bits,1); 42 bsize = bwidth * bheight; 43 if ~isempty(colorlist) 44 colorlist = uint8(255*colorlist); 45 [colors,colori] = nextnonbw(0,colorlist,bits); 46 else 47 colors = (bits(:,:,1) ~= bits(:,:,2)) | ... 48 (bits(:,:,1) ~= bits(:,:,3)); 49 end 50 pati = 1; 51 colorind = find(colors); 52 while ~isempty(colorind) 53 colorval(1) = bits(colorind(1)); 54 colorval(2) = bits(colorind(1)+bsize); 55 colorval(3) = bits(colorind(1)+2*bsize); 56 if iscell(patterns) 57 pattern = patterns{pati}; 58 elseif isa(patterns,'char') 59 pattern = makehatch(patterns(pati)); 60 else 61 pattern = patterns; 62 end 63 pattern = uint8(255*(1-pattern)); 64 pheight = size(pattern,2); 65 pwidth = size(pattern,1); 66 ratioh = ceil(bheight/pheight); 67 ratiow = ceil(bwidth/pwidth); 68 bigpattern = repmat(pattern,[ratioh ratiow]); 69 if ratioh*pheight > bheight 70 bigpattern(bheight+1:end,:) = []; 71 end 72 if ratiow*pwidth > bwidth 73 bigpattern(:,bwidth+1:end) = []; 74 end 75 bigpattern = repmat(bigpattern,[1 1 3]); 76 color = (bits(:,:,1) == colorval(1)) & ... 77 (bits(:,:,2) == colorval(2)) & ... 78 (bits(:,:,3) == colorval(3)); 79 color = repmat(color,[1 1 3]); 80 bits(color) = bigpattern(color); 81 if ~isempty(colorlist) 82 [colors,colori] = nextnonbw(colori,colorlist,bits); 83 else 84 colors = (bits(:,:,1) ~= bits(:,:,2)) | ... 85 (bits(:,:,1) ~= bits(:,:,3)); 86 end 87 colorind = find(colors); 88 pati = (pati + 1); 89 if pati > length(patterns) 90 pati = 1; 91 end 92 end 93 newfig = figure('units','pixels','visible','off'); 94 imaxes = axes('parent',newfig,'units','pixels'); 95 im = image(bits,'parent',imaxes); 96 fpos = get(newfig,'position'); 97 set(newfig,'position',[fpos(1:2) figsize(3) figsize(4)+1]); 98 set(imaxes,'position',[0 0 figsize(3) figsize(4)+1],'visible','off'); 99 set(newfig,'visible','on'); 100 function [colors,out] = nextnonbw(ind,colorlist,bits) 101 out = ind+1; 102 colors = []; 103 while out <= size(colorlist,1) 104 if isequal(colorlist(out,:),[255 255 255]) | ... 105 isequal(colorlist(out,:),[0 0 0]) 106 out = out+1; 107 else 108 colors = (colorlist(out,1) == bits(:,:,1)) & ... 109 (colorlist(out,2) == bits(:,:,2)) & ... 110 (colorlist(out,3) == bits(:,:,3)); 111 return 112 end 113 end 114 %而applyhatch函数需要调用下面的函数 115 function A = makehatch(hatch) 116 %MAKEHATCH Predefined hatch patterns 117 % MAKEHATCH(HATCH) returns a matrix with the hatch pattern for HATCH 118 % according to the following table: 119 % HATCH pattern 120 % ------- --------- 121 % / right-slanted lines 122 % \ left-slanted lines 123 % | vertical lines 124 % - horizontal lines 125 % + crossing vertical and horizontal lines 126 % x criss-crossing lines 127 % . single dots 128 % 129 % See also: APPLYHATCH 130 % By Ben Hinkle, bhinkle@mathworks.com 131 % This code is in the public domain. 132 n = 6; 133 A=zeros(n); 134 switch (hatch) 135 case '/' 136 A = fliplr(eye(n)); 137 case '\' 138 A = eye(n); 139 case '|' 140 A(:,1) = 1; 141 case '-' 142 A(1,:) = 1; 143 case '+' 144 A(:,1) = 1; 145 A(1,:) = 1; 146 case 'x' 147 A = eye(n) | fliplr(diag(ones(n-1,1),-1)); 148 case '.' 149 A(1:2,1:2)=1; 150 otherwise 151 error(['Undefined hatch pattern "' hatch '".']); 152 end 153 154 155 %测试的例子命令 156 % data = [96.3,92.6,71.2;95.7,93.6,83.9;96.8,94.3,78.3;95.8,92.7,80.3] 157 % bar(data,1) 158 % axis([0 6 0.0 100]) 159 % legend('方法','exited','Square') 160 % set(gca,'XTickLabel',{'Img1','Img2','Img3','Img4'}) 161 % applyhatch(gcf,'\.x.')
---恢复内容结束---
