From 04bab94c8919166438e830540db9a37012147d29 Mon Sep 17 00:00:00 2001 From: Jason Moore Date: Wed, 30 Jan 2013 13:36:33 -0800 Subject: [PATCH] Removed copyrighted file. --- samples/Matlab/fix_ps_linestyle.m | 109 ------------------------------ 1 file changed, 109 deletions(-) delete mode 100644 samples/Matlab/fix_ps_linestyle.m diff --git a/samples/Matlab/fix_ps_linestyle.m b/samples/Matlab/fix_ps_linestyle.m deleted file mode 100644 index 3110afe1..00000000 --- a/samples/Matlab/fix_ps_linestyle.m +++ /dev/null @@ -1,109 +0,0 @@ -function fix_ps_linestyle(varargin) - -%FIXPSLINESTYLE Fix line styles in exported post script files -% -% FIXPSLINESTYLE(FILENAME) fixes the line styles in the postscript file -% FILENAME. The file will be over-written. This takes a .PS or .EPS file -% and fixes the dotted and dashed line styles to be a little bit more -% esthetically pleasing. It fixes the four default line styles (line, -% dotted, dashed, dashdot). -% -% FIXPSLINESTYLE(FILENAME, NEWFILENAME) creates a new file NEWFILENAME. -% -% This is meant to be used with postscript files created by MATLAB -% (print, export). -% -% Example: -% x = 1:.1:10; -% y1 = sin(x); -% y2 = cos(x); -% h = plot(x, y1, '--', x, y2, '-.'); -% set(h, 'LineWidth', 2); -% grid on; -% legend('line 1', 'line2'); -% -% print -depsc test.eps -% fixPSlinestyle('test.eps', 'fixed_test.eps'); -% -% See also PRINT. -% -% Copyright 2005-2010 The MathWorks, Inc. -% -% Copyright (c) 2010, The MathWorks, Inc. All rights reserved. -% -% Redistribution and use in source and binary forms, with or without -% modification, are permitted provided that the following conditions are met: -% -% * Redistributions of source code must retain the above copyright -% notice, this list of conditions and the following disclaimer. -% * Redistributions in binary form must reproduce the above copyright -% notice, this list of conditions and the following disclaimer in the -% documentation and/or other materials provided with the distribution -% * Neither the name of the The MathWorks, Inc. nor the names -% of its contributors may be used to endorse or promote products derived -% from this software without specific prior written permission. -% -% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND -% ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -% WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE -% DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR -% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -% (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -% LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON -% ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -% (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -% SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -% Error checking -error(nargchk(1, 2, nargin)); -if ~ischar(varargin{1}) || (nargin == 2 && ~ischar(varargin{2})) - error('Input arguments must be file names (char).'); -end - -% Make sure the files specified are postscript files -[p1, n1, e1] = fileparts(varargin{1}); -if isempty(e1) || ~ismember(lower(e1), {'.ps', '.eps'}) - error('The extension has to be .ps or .eps'); -end - -% Open file and read it in -fid = fopen(varargin{1}, 'r'); -str = fread(fid); -str = char(str'); -fclose(fid); - -% Find where the line types are defined -id = findstr(str, '% line types:'); -str1 = str(1:id-1); -[line1 , remline ] = strtok(str(id:end), '/'); -[replacestr, remline2] = strtok(remline , '%'); - -% Define the new line styles -solidLine = sprintf('/SO { [] 0 setdash } bdef\n'); -dotLine = sprintf('/DO { [3 dpi2point mul 3 dpi2point mul] 0 setdash } bdef\n'); -dashedLine = sprintf('/DA { [6 dpi2point mul] 0 setdash } bdef\n'); -dashdotLine = sprintf('/DD { [2 dpi2point mul 2 dpi2point mul 6 dpi2point mul 2 dpi2point mul] 0 setdash } bdef\n'); - -% Construct the new file with the new line style definitions -newText = [str1, line1, solidLine, dotLine, dashedLine, dashdotLine, remline2]; - -% Check for output file name -if nargin == 2 - [p2, n2, e2] = fileparts(varargin{2}); - if isempty(e2) - fname = fullfile(p2, [n2, e1]); - else - if strcmpi(e1, e2) - fname = varargin{2}; - else - error('Output file must have same file extension.'); - end - end -else % if not defined, over-write - fname = varargin{1}; -end - -% Write out to file -fid = fopen(fname, 'w'); -fprintf(fid, '%s', newText); -fclose(fid);