KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Removed copyrighted file.

Browse Source
This commit is contained in:
Jason Moore
2013-01-30 13:36:33 -08:00
parent 9bb230d7c8
commit 04bab94c89
1 changed files with 0 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
samples/Matlab/fix_ps_linestyle.m
View File

@@ -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);