Code covered by the BSD License

### Highlights fromChebfun

from Chebfun by Chebfun Team
Numerical computation with functions instead of numbers.

scribble.m
function f = scribble(varargin)
%SCRIBBLE  Writing text with chebfuns
%  SCRIBBLE('STRING') returns a complex chebfun representing the text in
%  STRING. The full United States QWERTY keyboard layout is supported
%  (though letters will be printed only in upper-case), as well as some
%  special and international characters.  To contribute a character, please
%  write it and email it to develop@chebfun.org.
%
%  SCRIBBLE(STRING,N) returns a quasimatrix of complex chebfuns, where
%  STRING has been split into N substrings, each on a separate line.
%
%  SCRIBBLE('STRING_1',STRING_2',...,'STRING_N') or
%  SCRIBBLE({'STRING_1',STRING_2',...,'STRING_N'}) also returns a quasimatrix
%  of complex chebfuns, with column k of the quasimatrix (i.e. row k of
%  the text when plotted) representing the text in STRING_K.
%
%  Examples:
%   f = scribble('The quick brown fox jumps over the lazy dog. 0123456789');
%   plot(f), axis equal
%
%   f = scribble('The quick brown fox jumps over the lazy dog. 0123456789',4);
%   plot(f), axis equal
%
%   f = scribble('The quick brown','fox jumps over','the lazy dog.','0123456789');
%   plot(f), axis equal
%
%   f = scribble({'The quick brown','fox jumps over','the lazy dog.','0123456789'});
%   plot(f), axis equal

%  Copyright 2011 by The University of Oxford and The Chebfun Developers.
%  See http://www.maths.ox.ac.uk/chebfun/ for Chebfun information.

if nargin == 0
f = scribbleMultipleLines({ ...
'->own string to<-', ...
'->scribble  it!<-'});
elseif nargin == 1 && ischar(varargin{1})
% if the input is a single line of text, scribble the one line
f = scribbleOneLine(varargin{1});
elseif nargin == 1 && iscell(varargin{1})
% if the input is a cell array of strings, scribble each one as a
% column in a quasimatrix (where each vertically offset to form a
% paragraph)
f = scribbleMultipleLines(varargin{1});
elseif nargin == 2 && ischar(varargin{1}) && isnumeric(varargin{2})
% split the single line of text provided into an N-line paragraph
% quasimatrix
s = splitIntoNStrings(varargin{1},varargin{2});
f = scribbleMultipleLines(s);
elseif nargin >= 2 && all(cellfun(@ischar,varargin))
% accept multiple string input outside of a cell-array
f = scribbleMultipleLines(varargin);
else
error('CHEBFUN:scribble:invalidinputs', ...
'Scribble takes only strings or a cell-array of strings as input');
end

end

function f = scribbleOneLine(s)
%SCRIBBLEONELINE  Writes a single line of text with chebfuns

L = length(s);
f0 = {};
ends = [0 1];
for j = 1:L
switch upper(s(j))
% Alphabet
case {'A'}, t = c([0 .4+1i .8 .6+.5i .2+.5i]);
case {'B'}, t = c([0 1i .8+.9i .8+.6i .5i .8+.4i .8+.1i 0]);
case {'C'}, t = c([.8+1i .8i .2i .8]);
case {'D'}, t = c([0 .8+.1i .8+.9i 1i 0]);
case {'E'}, t = c([.8+1i 1i .5i .5i+.7 .5i 0 .8]);
case {'F'}, t = c([.8+1i 1i .5i .5i+.7 .5i 0]);
case {'G'}, t = c([.8+1i .8i .2i .6 .6+.5i .4+.5i .8+.5i]);
case {'H'}, t = c([0 1i .5i .5i+.8 .8+1i .8]);
case {'I'}, t = c([0 .8 .4 .4+1i 1i .8+1i]);
case {'J'}, t = c([0 .4 .4+1i 1i .8+1i]);
case {'K'}, t = c([0 1i .5i .8+1i .5i .8]);
case {'L'}, t = c([1i 0 .8]);
case {'M'}, t = c([0 .1+1i .4 .7+1i .8]);
case {'N'}, t = c([0 1i .8 .8+1i]);
case {'O'}, t = c([0 1i .8+1i .8 0]);
case {'Q'}, t = c([0 1i .8+1i .8 .6+.2i .9-.1i .8 0]);
case {'P'}, t = c([0 1i .8+1i .8+.5i .5i]);
case {'R'}, t = c([0 1i .8+1i .8+.6i .5i .8]);
case {'S'}, t = c([.8+1i .9i .6i .8+.4i .8+.1i 0]);
case {'T'}, t = c([.4 .4+1i 1i .8+1i]);
case {'U'}, t = c([1i .1 .7 .8+1i]);
case {'V'}, t = c([1i .4 .8+1i]);
case {'W'}, t = c([1i .2 .4+1i .6 .8+1i]);
case {'X'}, t = c([1i .8 .4+.5i .8+1i 0]);
case {'Y'}, t = c([1i .4+.5i .8+1i .4+.5i .4]);
case {'Z'}, t = c([1i .8+1i 0 .8]);
% Numerals
case {'0'}, t = c([0 1i .8+1i 0 .8 .8+1i]);
case {'1'}, t = c([0 .8 .4 .4+1i .1+.8i]);
case {'2'}, t = c([.8 0 .5i .8+.5i .8+1i 1i]);
case {'3'}, t = c([1i .8+1i .8+.5i .1+.5i .8+.5i .8 0]);
case {'4'}, t = c([1i .5i .8+.5i .8+1i .8]);
case {'5'}, t = c([.8+1i 1i .5i .8+.5i .8 0]);
case {'6'}, t = c([.8+1i 1i 0 .8 .8+.5i .5i]);
case {'7'}, t = c([1i .8+1i .2]);
case {'8'}, t = c([1i .8+1i .8 0 .5i 1i .5i .8+.5i]);
case {'9'}, t = c([.8 .8+1i 1i .5i .8+.5i]);
% Punctuation
case {'.'}, t = c([0 .05 .05+.05i .05i 0]);
case {','}, t = c([-0.1-.15i -.05-.15i .1+.05i .05+.05i -.1-.15i]);
case {';'}, t = [c([-0.1-.15i -.05-.15i .1+.05i .05+.05i -.1-.15i]+.375+.3i) c([.05 .1 .1+.05i .05+.05i .05]+.375+.7i)];
case {':'}, t = [c([0 .05 .05+.05i .05i 0]+.375+.3i) c([0 .05 .05+.05i .05i 0]+.375+.7i)];
case {'?'}, t = [c([.6i 1i .8+1i .8+.5i .4+.5i .4+.2i]) c([.35 .45 .45+.05i .35+.05i .35])];
case {'!'}, t = [c([.4+1i .4+.2i]) c([.35 .45 .45+.05i .35+.05i .35])];
case {''''}, t = c([.3+.7i .4+1i]);
case {'"'}, t = [c([.33+.8i .33+1i]) c([.66+.8i .66+1i])];
case {''}, t = c([.5+.7i .4+1i]);
case {'_'}, t = c([-.1 .9]);
case {' '}, t = []; % Space
% Parentheses
case {')'}, t = c([.3+1i .4+.9i .5+.75i .5+.25i .4+.1i .3]);
case {'('}, t = c([.5+1i .4+.9i .3+.75i .3+.25i .4+.1i .5]);
case {'['}, t = c([.5 .3 .3+1i .5+1i]);
case {']'}, t = c([.3 .5 .5+1i .3+1i]);
case {'{'}, t = c([.5 .4+.1i .4+.4i .3+.5i .4+.6i .4+.9i .5+1i]);
case {'}'}, t = c([.3 .4+.1i .4+.4i .5+.5i .4+.6i .4+.9i .3+1i]);
% Symbols (math)
case {'-'}, t = c([.1+.5i .7+.5i]);
case {'+'}, t = c([.5i .8+.5i .4+.5i .4+.9i .4+.1i]);
case {'*'}, t = [c([.4+.7i .4+.9i]) c([.32+.73i .48+.87i]) c([.48+.73i .32+.87i])];
case {'/'}, t = c([.2 .6+1i]);
case {'^'}, t = c([.2+.7i .4+1i .6+.7i]);
case {'='}, t = [c([.1+.4i .7+.4i]) c([.1+.6i .7+.6i])];
case {'<'}, t = c([.6+.3i .2+.5i .6+.7i]);
case {'>'}, t = c([.2+.3i .6+.5i .2+.7i]);
% Symbols (other)
case {'\'}, t = c([.6 .2+1i]);
case {'|'}, t = c([.4 .4+1i]);
case {'¬'}, t = c([.1+.6i .7+.6i .7+.4i]);
case {'%'}, t = [c([.1 .7+1i]) c(3*[0 .05 .05+.05i .05i 0]+.2+.85i) c(3*[0 .05 .05+.05i .05i 0]+.5+.05i)];
case {'#'}, t = [c([.3+.1i .3+.9i]) c([.5+.1i .5+.9i]) c([.2+.3i .6+.3i]) c([.2+.7i .6+.7i])];
case {'~'}, t = c([.2+.45i .3+.55i .5+.45i .6+.55i]);
case {'@'}, t = c([.8 0 1i .8+1i .8+.25i .2+.25i .2+.75i .6+.75i .6+.25i]);
case {'\$'}, t = [c([.8+1i .9i .6i .8+.4i .8+.1i 0]) c([.4 .4+1i])];
case {'£'}, t = c([.8+1i .3+1i .2+.5i .5+.5i .5i .2+.5i .2 0.1 .8]);
case {'&'}, t = c([.8 .7i 1i .7+1i .7+.7i .3i 0 .4 .8+.27i]);
% Misc
case {'Ê'}, t = [c([.8+1i 1i .5i .5i+.7 .5i 0 .8]) c([.1+1.1i .4+1.2i .7+1.1i])];
case {'Þ'}, t = c([0 1i .8+1i .8+.5i .5i]);
case {'Æ'}, t = c([0 .4+1i .8+1i .4+1i .4 .8 .4 .4+.5i .2+.5i .6+.5i]);
case {'?'}, t = [c([0 .8 .4 .4+1i 1i .8+1i]) c([.2+1.1i .6+1.2i])];

otherwise,
t = [];
warning('CHEBFUN:scribble:unknownchar', ...
['"', s(j), '" is not supported by scribble. (But please feel ', ...
'free write it and email it to develop@chebfun.org)']);
end

if ~isempty(t)
f0 = [f0 , t];
end

end

% Rescale the ends to [-1 1]
ends = 2*(0:ends(1))/ends(1)-1;

for k = 1:numel(f0);
f0{k}{2} = ends(k:k+1);
end

% Construct the funs all at once
f0 = fun( f0 );

% Construct global chebfun on [-1 1]
if isempty(f0), f = chebfun; return, end
f = chebfun(0,ends([1 end]));
imps = zeros(size(ends));
for k = 1:numel(f0)
imps(1,k) = f0(k).vals(1);
end
imps(1,end) = f0(end).vals(end);
f = set(f,'ends',ends,'funs',f0,'imps',imps);

function cf = c(v)
cf = {};
for l = 2:length(v)
cf{end+1} = { (v(l-1:l)+(j-1))*2/L-1 , [] };
ends = ends + 1;
end
end

end

function f = scribbleMultipleLines(s)
%SCRIBBLEMULTIPLELINES  Writes a multiple line of text with chebfuns

f = [];
N = numel(s);

for n = 1:N
tmp = scribbleOneLine(s{n});
h = 2.4./numel(s{n});
f = [f+1i*h tmp];
end

end

function sCell = splitIntoNStrings(sStr,N)
%SPLITINTONSTRINGS splits a single line of text into N lines of text

try
L = length(sStr);
if N > L
N = L;
elseif N <= 0
N = 1;
end
inds = round(linspace(0,L,N+1));
sCell = cell(1,N);
for n = 1:N
sCell{n} = sStr(inds(n)+1:inds(n+1));
end
catch
error('CHEBFUN:scribble:splitIntoNStrings',...
['We do not know how to break up your %i strings ' ...
'into %i sentances'],numel(s),N);
end

end
`