--- a/scripts/gui/inputdlg.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/gui/inputdlg.m	Mon Aug 15 15:15:30 2016 -0700
@@ -161,7 +161,7 @@
 %!                  str2num (dims{1}) * str2num (dims{3}));
 %!   helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', ...
 %!                     volume, surface), 'Box Dimensions');
-%! end
+%! endif
 
 %!demo
 %! disp ('- test inputdlg with prescribed scalar (2 lines per text field) and defaults.');
@@ -178,7 +178,7 @@
 %!                  str2num (dims{1}) * str2num (dims{3}));
 %!    helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', ...
 %!                      volume, surface), 'Box Dimensions');
-%! end
+%! endif
 
 %!demo
 %! disp ('- test inputdlg with prescribed vector [1,2,3] for # of lines per text field and defaults.');
@@ -195,7 +195,7 @@
 %!                  str2num (dims{1}) * str2num (dims{3}));
 %!   helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', ...
 %!                     volume, surface), 'Box Dimensions');
-%! end
+%! endif
 
 %!demo
 %! disp ('- test inputdlg with prescribed row by column sizes and defaults.');
@@ -212,7 +212,7 @@
 %!                  str2num (dims{1}) * str2num (dims{3}));
 %!   helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', ...
 %!                     volume, surface), 'Box Dimensions');
-%! end
+%! endif
 
 %!error inputdlg (1, 2, 3, 4, 5)
 %!error <PROMPT must be a character string> inputdlg (1)

--- a/scripts/gui/listdlg.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/gui/listdlg.m	Mon Aug 15 15:15:30 2016 -0700
@@ -163,7 +163,7 @@
 %! imax = numel (s);
 %! for i=1:1:imax
 %!   disp (["Selected: ", num2str(i), ": ", itemlist{s(i)}]);
-%! end
+%! endfor
 
 %!demo
 %! disp ("- test listdlg with selectionmode and preselection. Has caption and two lines prompt.");
@@ -176,7 +176,7 @@
 %! imax = numel (s);
 %! for i=1:1:imax
 %!   disp (["Selected: ", num2str(i), ": ", itemlist{s(i)}]);
-%! end
+%! endfor
 
 %!demo
 %! disp ("- test listdlg with listsize.");
@@ -187,7 +187,7 @@
 %! imax = numel (s);
 %! for i=1:1:imax
 %!   disp (["Selected: ", num2str(i), ": ", itemlist{s(i)}]);
-%! end
+%! endfor
 
 ## Test input validation
 %!error listdlg ()

--- a/scripts/gui/waitbar.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/gui/waitbar.m	Mon Aug 15 15:15:30 2016 -0700
@@ -210,28 +210,28 @@
 %! h = waitbar (0, '0.00%');
 %! for i = 0:0.01:1
 %!   waitbar (i, h, sprintf ('%.2f%%', 100*i));
-%! end
+%! endfor
 %! close (h);
 
 %!demo
 %! h = waitbar (0, 'please wait...');
 %! for i = 0:0.01:0.6
 %!   waitbar (i);
-%! end
+%! endfor
 %! i = 0.3;
 %! waitbar (i, h, 'don''t you hate taking a step backward?');
 %! pause (0.5);
 %! for i = i:0.005:0.7
 %!   waitbar (i, h);
-%! end
+%! endfor
 %! waitbar (i, h, 'or stalling?');
 %! pause (1);
 %! for i = i:0.003:0.8
 %!   waitbar (i, h, 'just a little longer now');
-%! end
+%! endfor
 %! for i = i:0.001:1
 %!   waitbar (i, h, 'please don''t be impatient');
-%! end
+%! endfor
 %! close (h);
 
 %!demo
@@ -246,7 +246,7 @@
 %!   pause (0.5);
 %!   waitbar (i/4, h2);
 %!   pause (0.5);
-%! end
+%! endfor
 %! pause (0.5);
 %! close (h1);
 %! close (h2);

--- a/scripts/image/autumn.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/autumn.m	Mon Aug 15 15:15:30 2016 -0700
@@ -56,6 +56,6 @@
 %! ## Show the 'autumn' colormap profile and as an image
 %! cmap = autumn (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/bone.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/bone.m	Mon Aug 15 15:15:30 2016 -0700
@@ -83,6 +83,6 @@
 %! ## Show the 'bone' colormap profile and as an image
 %! cmap = bone (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/cool.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/cool.m	Mon Aug 15 15:15:30 2016 -0700
@@ -55,6 +55,6 @@
 %! ## Show the 'cool' colormap profile and as an image
 %! cmap = cool (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/copper.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/copper.m	Mon Aug 15 15:15:30 2016 -0700
@@ -58,6 +58,6 @@
 %! ## Show the 'copper' colormap profile and as an image
 %! cmap = copper (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/cubehelix.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/cubehelix.m	Mon Aug 15 15:15:30 2016 -0700
@@ -81,7 +81,7 @@
 %! ## Show the 'cubehelix' colormap profile and as an image
 %! cmap = cubehelix (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);
 

--- a/scripts/image/flag.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/flag.m	Mon Aug 15 15:15:30 2016 -0700
@@ -53,6 +53,6 @@
 %! ## Show the 'flag' colormap profile and as an image
 %! cmap = flag (12);  # 4 colors, therefore cycle 3 times
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/gray.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/gray.m	Mon Aug 15 15:15:30 2016 -0700
@@ -56,6 +56,6 @@
 %! ## Show the 'gray' colormap profile and as an image
 %! cmap = gray (16);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/hot.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/hot.m	Mon Aug 15 15:15:30 2016 -0700
@@ -71,6 +71,6 @@
 %! ## Show the 'hot' colormap profile and as an image
 %! cmap = hot (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/hsv.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/hsv.m	Mon Aug 15 15:15:30 2016 -0700
@@ -59,6 +59,6 @@
 %! ## Show the 'hsv' colormap profile and as an image
 %! cmap = hsv (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/jet.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/jet.m	Mon Aug 15 15:15:30 2016 -0700
@@ -90,6 +90,6 @@
 %! ## Show the 'jet' colormap profile and as an image
 %! cmap = jet (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/lines.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/lines.m	Mon Aug 15 15:15:30 2016 -0700
@@ -53,6 +53,6 @@
 %! ## Show the 'lines' colormap profile and as an image
 %! cmap = lines (21); # default has 7 colors, therefore cycle 3 times
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/ocean.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/ocean.m	Mon Aug 15 15:15:30 2016 -0700
@@ -65,6 +65,6 @@
 %! ## Show the 'ocean' colormap profile and as an image
 %! cmap = ocean (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/pink.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/pink.m	Mon Aug 15 15:15:30 2016 -0700
@@ -73,6 +73,6 @@
 %! ## Show the 'pink' colormap profile and as an image
 %! cmap = pink (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/prism.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/prism.m	Mon Aug 15 15:15:30 2016 -0700
@@ -53,6 +53,6 @@
 %! ## Show the 'prism' colormap profile and as an image
 %! cmap = prism (18); # 6 colors, therefore cycle 3 times
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/rainbow.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/rainbow.m	Mon Aug 15 15:15:30 2016 -0700
@@ -69,6 +69,6 @@
 %! ## Show the 'rainbow' colormap profile and as an image
 %! cmap = rainbow (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/rgbplot.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/rgbplot.m	Mon Aug 15 15:15:30 2016 -0700
@@ -80,9 +80,9 @@
 %!demo
 %! clf;
 %! subplot (1, 2, 1);
-%! rgbplot (ocean, "profile");
+%!  rgbplot (ocean, "profile");
 %! subplot (1, 2, 2);
-%! rgbplot (ocean, "composite");
+%!  rgbplot (ocean, "composite");
 
 ## Test input validation
 %!error rgbplot ()

--- a/scripts/image/spring.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/spring.m	Mon Aug 15 15:15:30 2016 -0700
@@ -55,6 +55,6 @@
 %! ## Show the 'spring' colormap profile and as an image
 %! cmap = spring (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/summer.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/summer.m	Mon Aug 15 15:15:30 2016 -0700
@@ -56,6 +56,6 @@
 %! ## Show the 'summer' colormap profile and as an image
 %! cmap = summer (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/viridis.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/viridis.m	Mon Aug 15 15:15:30 2016 -0700
@@ -313,6 +313,6 @@
 %! ## Show the 'viridis' colormap profile and as an image
 %! cmap = viridis (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/white.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/white.m	Mon Aug 15 15:15:30 2016 -0700
@@ -45,6 +45,6 @@
 %! ## Show the 'white' colormap profile and as an image
 %! cmap = white (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/image/winter.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/image/winter.m	Mon Aug 15 15:15:30 2016 -0700
@@ -55,6 +55,6 @@
 %! ## Show the 'winter' colormap profile and as an image
 %! cmap = winter (256);
 %! subplot (2, 1, 1);
-%! rgbplot (cmap, "composite");
+%!  rgbplot (cmap, "composite");
 %! subplot (2, 1, 2);
-%! rgbplot (cmap);
+%!  rgbplot (cmap);

--- a/scripts/plot/appearance/annotation.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/annotation.m	Mon Aug 15 15:15:30 2016 -0700
@@ -1280,74 +1280,74 @@
 ## FIXME: the additional regular axes is necessary for fltk to draw the
 ##        annotation axes.
 %!demo
-%! clf; axes ('visible', 'off');
-%! annotation ('textbox', [.25 .9 .5 .09], 'string', ...
-%!             {'Right Click on annotation objects', ...
-%!              'to customize their appearance'}, ...
-%!             'horizontalalignment', 'center', 'fitboxtotext', 'off');
-%! annotation ('ellipse', [.2 .2 .6 .6], 'linewidth', 4);
+%! clf; axes ("visible", "off");
+%! annotation ("textbox", [.25 .9 .5 .09], "string", ...
+%!             {"Right Click on annotation objects", ...
+%!              "to customize their appearance"}, ...
+%!             "horizontalalignment", "center", "fitboxtotext", "off");
+%! annotation ("ellipse", [.2 .2 .6 .6], "linewidth", 4);
 %! ang = pi/2:-pi/2:-pi;
-%! lab = {'N', 'W', 'S', 'E'};
+%! lab = {"N", "W", "S", "E"};
 %! x0 = 0.5;
 %! y0 = 0.5;
 %! r = 0.3;
 %! for ii = 1:4
 %!   x = r * cos (ang(ii)) + x0;
 %!   y = r * sin (ang(ii)) + y0;
-%!   annotation ('textarrow', [x x0], [y y0], ...
-%!               'string', lab{ii},  'fontsize', 20);
-%! end
+%!   annotation ("textarrow", [x x0], [y y0], ...
+%!               "string", lab{ii},  "fontsize", 20);
+%! endfor
 %!
-%! h = annotation ('doublearrow', [x0 x0], [y0-r y0+r], ...
-%!                 'head1style', 'diamond', 'head1length', 60, ...
-%!                 'head2style', 'diamond', 'head2length', 60);
+%! h = annotation ("doublearrow", [x0 x0], [y0-r y0+r], ...
+%!                 "head1style", "diamond", "head1length", 60, ...
+%!                 "head2style", "diamond", "head2length", 60);
 
 %!demo
-%! clf; axes ('visible', 'off');
+%! clf; axes ("visible", "off");
 %! plot (1:10);
-%! xlabel ('X-LABEL');
-%! ylabel ('LARGE Y-LABEL', 'fontsize', 20);
-%! title ('FIGURE LAYOUT', 'fontsize', 24);
+%! xlabel ("X-LABEL");
+%! ylabel ("LARGE Y-LABEL", "fontsize", 20);
+%! title ("FIGURE LAYOUT", "fontsize", 24);
 %!
-%! ti = get (gca, 'tightinset');
-%! pos = get (gca, 'position');
+%! ti = get (gca, "tightinset");
+%! pos = get (gca, "position");
 %! pos(1:2) = pos(1:2) - ti(1:2);
 %! pos(3) = pos(3) + ti (1) + ti (3);
 %! pos(4) = pos(4) + ti (2) + ti (4);
 %!
-%! ht = annotation ('textbox', pos, 'string', ' Position + tighinset', ...
-%!                  'fitboxtotext', 'off', 'linestyle', '--', ...
-%!                  'edgecolor', 'g', 'linewidth', 3, 'color', 'g', ...
-%!                  'verticalalignment', 'bottom', 'fontsize', 15);
+%! ht = annotation ("textbox", pos, "string", " Position + tighinset", ...
+%!                  "fitboxtotext", "off", "linestyle", "--", ...
+%!                  "edgecolor", "g", "linewidth", 3, "color", "g", ...
+%!                  "verticalalignment", "bottom", "fontsize", 15);
 %!
-%! ho = annotation ('textbox', get (gca, 'outerposition'), ...
-%!                  'string', ' Outerposition','fitboxtotext', 'off', ...
-%!                  'linestyle', '--', 'edgecolor', 'r', ...
-%!                  'linewidth', 3, 'color', 'r', ...
-%!                  'verticalalignment', 'bottom', 'fontsize', 15);
+%! ho = annotation ("textbox", get (gca, "outerposition"), ...
+%!                  "string", " Outerposition","fitboxtotext", "off", ...
+%!                  "linestyle", "--", "edgecolor", "r", ...
+%!                  "linewidth", 3, "color", "r", ...
+%!                  "verticalalignment", "bottom", "fontsize", 15);
 %!
-%! hi = annotation ('textbox', get (gca, 'position'), ...
-%!                  'string', ' Position','fitboxtotext', 'off', ...
-%!                  'linestyle', '--', 'edgecolor', 'b', ...
-%!                  'linewidth', 3, 'color', 'b', ...
-%!                  'verticalalignment', 'bottom', 'fontsize', 15);
+%! hi = annotation ("textbox", get (gca, "position"), ...
+%!                  "string", " Position","fitboxtotext", "off", ...
+%!                  "linestyle", "--", "edgecolor", "b", ...
+%!                  "linewidth", 3, "color", "b", ...
+%!                  "verticalalignment", "bottom", "fontsize", 15);
 
 %!demo
-%! clf; axes ('visible', 'off');
-%! h = annotation ('arrow');
+%! clf; axes ("visible", "off");
+%! h = annotation ("arrow");
 %!
-%! %% Get allowed headstyles
-%! styles = set (h, 'headstyle');
+%! ## Get allowed headstyles
+%! styles = set (h, "headstyle");
 %! delete (h);
 %!
-%! %% Textbox for the title
-%! annotation ('textbox', [0.1 0 0.8 1], 'string', ...
+%! ## Textbox for the title
+%! annotation ("textbox", [0.1 0 0.8 1], "string", ...
 %!             '"headstyle" property:', ...
-%!             'backgroundcolor', [0.7 0.7 0.7], 'fontsize', 20, ...
-%!             'fitboxtotext', 'off', 'verticalalignment', 'top', ...
-%!             'horizontalalignment', 'center');
+%!             "backgroundcolor", [0.7 0.7 0.7], "fontsize", 20, ...
+%!             "fitboxtotext", "off", "verticalalignment", "top", ...
+%!             "horizontalalignment", "center");
 %!
-%! %% Textarrows
+%! ## Textarrows
 %! ns = numel (styles);
 %! nrows = ceil (ns/2);
 %! dy = 1/nrows;
@@ -1355,92 +1355,92 @@
 %!
 %! jj = 1;
 %! for ii = 1:nrows
-%!   annotation ('textarrow', [0.3 0.5], [y y], ...
-%!               'string', ['"' styles{jj} '"'], 'fontsize', 15, ...
-%!               'headstyle', styles{jj}, 'textcolor', 'b');
+%!   annotation ("textarrow", [0.3 0.5], [y y], ...
+%!               "string", ['"' styles{jj} '"'], "fontsize", 15, ...
+%!               "headstyle", styles{jj}, "textcolor", "b");
 %!   jj = jj + 1;
 %!   if (jj <= ns)
-%!     annotation ('textarrow', [0.7 0.5], [y y], ...
-%!                 'string', ['"' styles{jj} '"'], 'fontsize', 15, ...
-%!                 'headstyle', styles{jj}, 'textcolor', 'b');
+%!     annotation ("textarrow", [0.7 0.5], [y y], ...
+%!                 "string", ['"' styles{jj} '"'], "fontsize", 15, ...
+%!                 "headstyle", styles{jj}, "textcolor", "b");
 %!   jj = jj + 1;
-%!   end
+%!   endif
 %!   y = y - dy;
-%! end
-%! annotation ('line', [0.5 0.5], [dy/2 1-dy/2], 'linestyle', '-.');
+%! endfor
+%! annotation ("line", [0.5 0.5], [dy/2 1-dy/2], "linestyle", "-.");
 
 %!demo
-%! clf; axes ('visible', 'off');
+%! clf; axes ("visible", "off");
 %!
-%! %% Textbox for the title
-%! annotation ('textbox', [0.1 0 0.8 1], 'string', ...
-%!             'Text arrows: text rotation', ...
-%!             'backgroundcolor', [0.7 0.7 0.7], 'fontsize', 20, ...
-%!             'fitboxtotext', 'off', 'verticalalignment', 'top', ...
-%!             'horizontalalignment', 'center');
+%! ## Textbox for the title
+%! annotation ("textbox", [0.1 0 0.8 1], "string", ...
+%!             "Text arrows: text rotation", ...
+%!             "backgroundcolor", [0.7 0.7 0.7], "fontsize", 20, ...
+%!             "fitboxtotext", "off", "verticalalignment", "top", ...
+%!             "horizontalalignment", "center");
 %!
-%! %% Textarrows
+%! ## Textarrows
 %! for ii = 1:10
 %!   rot = floor (rand (1) * 360 / 90) * 90;
-%!   annotation ('textarrow', 0.5 + [(0.6 * (rand(1) - .5)) 0], ...
+%!   annotation ("textarrow", 0.5 + [(0.6 * (rand(1) - .5)) 0], ...
 %!               0.5 + [(0.6 * (rand(1) - .5)) 0], ...
-%!               'string', 'A text', ...
-%!               'headstyle', 'none', 'textrotation', rot);
-%! end
+%!               "string", "A text", ...
+%!               "headstyle", "none", "textrotation", rot);
+%! endfor
 
 %!demo
-%! clf; axes ('visible', 'off');
+%! clf; axes ("visible", "off");
 %!
-%! %% Textbox for the title
-%! annotation ('textbox', [0.1 0 0.8 1], 'string', ...
-%!             'Text arrows: text alignment', ...
-%!             'backgroundcolor', [0.7 0.7 0.7], 'fontsize', 20, ...
-%!             'fitboxtotext', 'off', 'verticalalignment', 'top', ...
-%!             'horizontalalignment', 'center');
+%! ## Textbox for the title
+%! annotation ("textbox", [0.1 0 0.8 1], "string", ...
+%!             "Text arrows: text alignment", ...
+%!             "backgroundcolor", [0.7 0.7 0.7], "fontsize", 20, ...
+%!             "fitboxtotext", "off", "verticalalignment", "top", ...
+%!             "horizontalalignment", "center");
 %!
-%! %% Textarrows
-%! halig = {'right', 'center', 'left'};
+%! ## Textarrows
+%! halig = {"right", "center", "left"};
 %! ii = 1;
 %! for x = .3:.2:.7
-%!   annotation ('textarrow', [x .5], [.5 .9], ...
-%!               'string', {'Multiple lines', 'text'}, ...
-%!               'headstyle', 'none', 'horizontalalignment', halig{ii});
+%!   annotation ("textarrow", [x .5], [.5 .9], ...
+%!               "string", {"Multiple lines", "text"}, ...
+%!               "headstyle", "none", "horizontalalignment", halig{ii});
 %!   ii = ii + 1;
-%! end
+%! endfor
 
 %!demo
-%! clf; axes ('visible', 'off');
+%! clf; axes ("visible", "off");
 %!
 %! x = 0:0.01:2*pi;
 %! y = sin (x);
 %! plot (x, y);
 %!
-%! %% Extrema
+%! ## Extrema
 %! x0 = [pi/2 3*pi/2];
 %! y0 = [1 -1];
 %!
-%! %% Convert axes coordinates into normalized coordinates
+%! ## Convert axes coordinates into normalized coordinates
 %! xl = xlim ();
 %! yl = [-1.2 1.5];
 %! ylim (yl);
 %! x0 = (x0 - xl(1)) / diff(xl);
 %! y0 = (y0 - yl(1)) / diff(yl);
 %!
-%! pos = get (gca (), 'position');
+%! pos = get (gca (), "position");
 %! x0 = x0*pos(3) + pos(1);
 %! y0 = y0*pos(4) + pos(2);
 %!
 %!
-%! %% Textarrows
+%! ## Textarrows
 %! for ii = 1:2
-%!   annotation ('doublearrow', [(x0(ii) - .05) (x0(ii) + .05)], ...
-%!               [y0(ii) y0(ii)], 'head1style', 'vback3', ...
-%!               'head2style', 'vback3', ...
-%!               'head1width', 4, 'head2width', 4)
-%!   h = annotation ('textarrow', [0.5 x0(ii)], [.85 y0(ii)], ...
-%!                   'linestyle', '--', 'headstyle', 'none');
-%! end
-%! set (h, 'string', 'Extrema', 'fontsize', 15);
+%!   annotation ("doublearrow", [(x0(ii) - .05) (x0(ii) + .05)], ...
+%!               [y0(ii) y0(ii)], "head1style", "vback3", ...
+%!               "head2style", "vback3", ...
+%!               "head1width", 4, "head2width", 4)
+%!   h = annotation ("textarrow", [0.5 x0(ii)], [.85 y0(ii)], ...
+%!                   "linestyle", "--", "headstyle", "none");
+%! endfor
+%! set (h, "string", "Extrema", "fontsize", 15);
 
 ## test line properties
 %!test

--- a/scripts/plot/appearance/axis.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/axis.m	Mon Aug 15 15:15:30 2016 -0700
@@ -405,22 +405,22 @@
 %!
 %! subplot (221);
 %!  plot (t, x);
-%!  title ('normal plot');
+%!  title ("normal plot");
 %!
 %! subplot (222);
 %!  plot (t, x);
-%!  title ('square plot');
-%!  axis ('square');
+%!  title ("square plot");
+%!  axis ("square");
 %!
 %! subplot (223);
 %!  plot (t, x);
-%!  title ('equal plot');
-%!  axis ('equal');
+%!  title ("equal plot");
+%!  axis ("equal");
 %!
 %! subplot (224);
 %!  plot (t, x);
-%!  title ('normal plot again');
-%!  axis ('normal');
+%!  title ("normal plot again");
+%!  axis ("normal");
 
 %!demo
 %! clf;
@@ -429,13 +429,13 @@
 %!
 %! subplot (121);
 %!  plot (t, x);
-%!  title ('ij plot');
-%!  axis ('ij');
+%!  title ("ij plot");
+%!  axis ("ij");
 %!
 %! subplot (122);
 %!  plot (t, x);
-%!  title ('xy plot');
-%!  axis ('xy');
+%!  title ("xy plot");
+%!  axis ("xy");
 
 %!demo
 %! clf;
@@ -444,48 +444,48 @@
 %!
 %! subplot (331);
 %!  plot (t, x);
-%!  title ('x ticks and labels');
-%!  axis ('ticx');
+%!  title ("x ticks and labels");
+%!  axis ("ticx");
 %!
 %! subplot (332);
 %!  plot (t, x);
-%!  title ('y ticks and labels');
-%!  axis ('ticy');
+%!  title ("y ticks and labels");
+%!  axis ("ticy");
 %!
 %! subplot (333);
 %!  plot (t, x);
-%!  title ('axis off');
-%!  axis ('off');
+%!  title ("axis off");
+%!  axis ("off");
 %!
 %! subplot (334);
 %!  plot (t, x);
-%!  title ('x and y ticks, x labels');
-%!  axis ('labelx','tic');
+%!  title ("x and y ticks, x labels");
+%!  axis ("labelx","tic");
 %!
 %! subplot (335);
 %!  plot (t, x);
-%!  title ('x and y ticks, y labels');
-%!  axis ('labely','tic');
+%!  title ("x and y ticks, y labels");
+%!  axis ("labely","tic");
 %!
 %! subplot (336);
 %!  plot (t, x);
-%!  title ('all ticks but no labels');
-%!  axis ('nolabel','tic');
+%!  title ("all ticks but no labels");
+%!  axis ("nolabel","tic");
 %!
 %! subplot (337);
 %!  plot (t, x);
-%!  title ('x ticks, no labels');
-%!  axis ('nolabel','ticx');
+%!  title ("x ticks, no labels");
+%!  axis ("nolabel","ticx");
 %!
 %! subplot (338);
 %!  plot (t, x);
-%!  title ('y ticks, no labels');
-%!  axis ('nolabel','ticy');
+%!  title ("y ticks, no labels");
+%!  axis ("nolabel","ticy");
 %!
 %! subplot (339);
 %!  plot (t, x);
-%!  title ('all ticks and labels');
-%!  axis ('on');
+%!  title ("all ticks and labels");
+%!  axis ("on");
 
 %!demo
 %! clf;
@@ -494,47 +494,47 @@
 %!
 %! subplot (321);
 %!  plot (t, x);
-%!  title ('axes at [0 3 0 1]');
+%!  title ("axes at [0 3 0 1]");
 %!  axis ([0,3,0,1]);
 %!
 %! subplot (322);
 %!  plot (t, x);
-%!  title ('auto');
-%!  axis ('auto');
+%!  title ("auto");
+%!  axis ("auto");
 %!
 %! subplot (323);
-%!  plot (t, x, ';sine [0:2pi];'); hold on;
-%!  plot (-3:3,-3:3, ';line (-3,-3)->(3,3);'); hold off;
-%!  title ('manual');
-%!  axis ('manual');
+%!  plot (t, x, ";sine [0:2pi];"); hold on;
+%!  plot (-3:3,-3:3, ";line (-3,-3)->(3,3);"); hold off;
+%!  title ("manual");
+%!  axis ("manual");
 %!
 %! subplot (324);
-%!  plot (t, x, ';sine [0:2pi];');
-%!  title ('axes at [0 3 0 1], then autox');
+%!  plot (t, x, ";sine [0:2pi];");
+%!  title ("axes at [0 3 0 1], then autox");
 %!  axis ([0,3,0,1]);
-%!  axis ('autox');
+%!  axis ("autox");
 %!
 %! subplot (325);
-%!  plot (t, x, ';sine [0:2pi];');
-%!  title ('axes at [3 6 0 1], then autoy');
+%!  plot (t, x, ";sine [0:2pi];");
+%!  title ("axes at [3 6 0 1], then autoy");
 %!  axis ([3,6,0,1]);
-%!  axis ('autoy');
+%!  axis ("autoy");
 %!
 %! subplot (326);
 %!  plot (t, sin(t), t, -2*sin(t/2));
-%!  axis ('tight');
-%!  title ('tight');
+%!  axis ("tight");
+%!  title ("tight");
 
 %!demo
 %! clf;
 %! x = 0:0.1:10;
 %! plot (x, sin(x));
 %! axis image;
-%! title ({'image', 'equivalent to "tight" & "equal"'});
+%! title ({"image", 'equivalent to "tight" & "equal"'});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [x,y,z] = peaks (50);
 %! x1 = max (x(:));
 %! pcolor (x-x1, y-x1/2, z);
@@ -548,13 +548,13 @@
 %! clf;
 %! x = -10:10;
 %! plot (x,x, x,-x);
-%! set (gca, 'yscale', 'log');
-%! legend ({'x >= 1', 'x <= 1'}, 'location', 'north');
-%! title ('ylim = [1, 10]');
+%! set (gca, "yscale", "log");
+%! legend ({"x >= 1", "x <= 1"}, "location", "north");
+%! title ("ylim = [1, 10]");
 
 %!demo
 %! clf;
-%! loglog (1:20, '-s');
+%! loglog (1:20, "-s");
 %! axis tight;
 
 %!demo
@@ -562,51 +562,51 @@
 %! x = -10:0.1:10;
 %! y = sin (x)./(1 + abs (x)) + 0.1*x - 0.4;
 %! plot (x, y);
-%! set (gca, 'xaxislocation', 'origin');
-%! set (gca, 'yaxislocation', 'origin');
+%! set (gca, "xaxislocation", "origin");
+%! set (gca, "yaxislocation", "origin");
 %! box off;
-%! title ({'no plot box', 'xaxislocation = origin, yaxislocation = origin'});
+%! title ({"no plot box", "xaxislocation = origin, yaxislocation = origin"});
 
 %!demo
 %! clf;
 %! x = -10:0.1:10;
 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
 %! plot (x, y);
-%! set (gca, 'xaxislocation', 'origin');
-%! set (gca, 'yaxislocation', 'left');
+%! set (gca, "xaxislocation", "origin");
+%! set (gca, "yaxislocation", "left");
 %! box off;
-%! title ({'no plot box', 'xaxislocation = origin, yaxislocation = left'});
+%! title ({"no plot box", "xaxislocation = origin, yaxislocation = left"});
 
 %!demo
 %! clf;
 %! x = -10:0.1:10;
 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
 %! plot (x, y);
-%! title ('no plot box');
-%! set (gca, 'xaxislocation', 'origin');
-%! set (gca, 'yaxislocation', 'right');
+%! title ("no plot box");
+%! set (gca, "xaxislocation", "origin");
+%! set (gca, "yaxislocation", "right");
 %! box off;
-%! title ({'no plot box', 'xaxislocation = origin, yaxislocation = right'});
+%! title ({"no plot box", "xaxislocation = origin, yaxislocation = right"});
 
 %!demo
 %! clf;
 %! x = -10:0.1:10;
 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
 %! plot (x, y);
-%! set (gca, 'xaxislocation', 'bottom');
-%! set (gca, 'yaxislocation', 'origin');
+%! set (gca, "xaxislocation", "bottom");
+%! set (gca, "yaxislocation", "origin");
 %! box off;
-%! title ({'no plot box', 'xaxislocation = bottom, yaxislocation = origin'});
+%! title ({"no plot box", "xaxislocation = bottom, yaxislocation = origin"});
 
 %!demo
 %! clf;
 %! x = -10:0.1:10;
 %! y = sin (x)./(1+abs (x)) + 0.1*x - 0.4;
 %! plot (x, y);
-%! set (gca, 'xaxislocation', 'top');
-%! set (gca, 'yaxislocation', 'origin');
+%! set (gca, "xaxislocation", "top");
+%! set (gca, "yaxislocation", "origin");
 %! box off;
-%! title ({'no plot box', 'xaxislocation = top, yaxislocation = origin'});
+%! title ({"no plot box", "xaxislocation = top, yaxislocation = origin"});
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/appearance/clabel.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/clabel.m	Mon Aug 15 15:15:30 2016 -0700
@@ -139,15 +139,15 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [c, h] = contour (peaks (), -4:6);
-%! clabel (c, h, -4:2:6, 'fontsize', 12);
-%! title ('clabel() labeling every other contour');
+%! clabel (c, h, -4:2:6, "fontsize", 12);
+%! title ("clabel() labeling every other contour");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [c, h] = contourf (peaks (), -7:6);
-%! clabel (c, h, -6:2:6, 'fontsize', 12);
-%! title ('clabel() labeling every other contour');
+%! clabel (c, h, -6:2:6, "fontsize", 12);
+%! title ("clabel() labeling every other contour");
 

--- a/scripts/plot/appearance/daspect.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/daspect.m	Mon Aug 15 15:15:30 2016 -0700
@@ -103,7 +103,7 @@
 %! plot (x,cos(x), x,sin(x));
 %! axis square;
 %! daspect ([1 1 1]);
-%! title ('square plot-box with axis limits [0, 4, -2, 2]');
+%! title ("square plot-box with axis limits [0, 4, -2, 2]");
 
 %!demo
 %! clf;
@@ -111,7 +111,7 @@
 %! plot (x,cos (x), x,sin (x));
 %! axis ([0 4 -1 1]);
 %! daspect ([2 1 1]);
-%! title ('square plot-box with axis limits [0, 4, -1, 1]');
+%! title ("square plot-box with axis limits [0, 4, -1, 1]");
 
 %!demo
 %! clf;
@@ -119,25 +119,25 @@
 %! plot (x,cos(x), x,sin(x));
 %! daspect ([1 2 1]);
 %! pbaspect ([2 1 1]);
-%! title ('2x1 plot box with axis limits [0, 4, -2, 2]');
+%! title ("2x1 plot box with axis limits [0, 4, -2, 2]");
 
 %!demo
 %! clf;
 %! x = 0:0.01:4;
 %! plot (x,cos(x), x, sin(x));
 %! axis square;
-%! set (gca, 'activepositionproperty', 'position');
+%! set (gca, "activepositionproperty", "position");
 %! daspect ([1 1 1]);
-%! title ('square plot-box with axis limits [0, 4, -2, 2]');
+%! title ("square plot-box with axis limits [0, 4, -2, 2]");
 
 %!demo
 %! clf;
 %! x = 0:0.01:4;
 %! plot (x,cos(x), x,sin(x));
 %! axis ([0 4 -1 1]);
-%! set (gca, 'activepositionproperty', 'position');
+%! set (gca, "activepositionproperty", "position");
 %! daspect ([2 1 1]);
-%! title ('square plot-box with axis limits [0, 4, -1, 1]');
+%! title ("square plot-box with axis limits [0, 4, -1, 1]");
 
 ## FIXME: need some input validation tests
 

--- a/scripts/plot/appearance/datetick.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/datetick.m	Mon Aug 15 15:15:30 2016 -0700
@@ -69,22 +69,22 @@
 %! pop = [76.094, 92.407, 106.461, 123.077 131.954, 151.868, 179.979, ...
 %!        203.984, 227.225, 249.623, 282.224];
 %! plot (datenum (yr, 1, 1), pop);
-%! title ('US population (millions)');
-%! xlabel ('Year');
-%! datetick ('x', 'YYYY');
+%! title ("US population (millions)");
+%! xlabel ("Year");
+%! datetick ("x", "YYYY");
 
 %!demo
 %! clf;
 %! yr = 1988:2:2002;
 %! yr = datenum (yr,1,1);
 %! pr = [12.1 13.3 12.6 13.1 13.3 14.1 14.4 15.2];
-%! plot (yr, pr, '-o');
-%! xlabel ('year');
-%! ylabel ('average price');
+%! plot (yr, pr, "-o");
+%! xlabel ("year");
+%! ylabel ("average price");
 %! ax = gca;
-%! set (ax, 'xtick', datenum (1990:5:2005,1,1));
-%! datetick ('x', 2, 'keepticks');
-%! set (ax, 'ytick', 12:16);
+%! set (ax, "xtick", datenum (1990:5:2005,1,1));
+%! datetick ("x", 2, "keepticks");
+%! set (ax, "ytick", 12:16);
 
 ## Remove from test statistics.  No real tests possible.
 %!assert (1)

--- a/scripts/plot/appearance/grid.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/grid.m	Mon Aug 15 15:15:30 2016 -0700
@@ -128,35 +128,35 @@
 %! subplot (2,2,1);
 %!  plot (1:100);
 %!  grid off;
-%!  title ('no grid');
+%!  title ("no grid");
 %! subplot (2,2,2);
 %!  plot (1:100);
 %!  grid on;
-%!  title ('grid on');
+%!  title ("grid on");
 %! subplot (2,2,3);
 %!  plot (1:100);
 %!  grid off;
-%!  title ('no grid');
+%!  title ("no grid");
 %! subplot (2,2,4);
 %!  plot (1:100);
 %!  grid minor;
-%!  title ('grid minor');
+%!  title ("grid minor");
 
 %!demo
 %! subplot (2,2,1);
 %!  semilogy (1:100);
 %!  grid off;
-%!  title ('no grid');
+%!  title ("no grid");
 %! subplot (2,2,2);
 %!  semilogy (1:100);
 %!  grid on;
-%!  title ('grid on');
+%!  title ("grid on");
 %! subplot (2,2,3);
 %!  semilogy (1:100);
 %!  grid off;
-%!  title ('no grid');
+%!  title ("no grid");
 %! subplot (2,2,4);
 %!  semilogy (1:100);
 %!  grid minor;
-%!  title ('grid minor');
+%!  title ("grid minor");
 

--- a/scripts/plot/appearance/legend.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/legend.m	Mon Aug 15 15:15:30 2016 -0700
@@ -1230,80 +1230,80 @@
 %!demo
 %! clf;
 %! plot (rand (2));
-%! title ('legend called with cellstr and string inputs for labels');
-%! h = legend ({'foo'}, 'bar');
-%! legend (h, 'location', 'northeastoutside');
-%! set (h, 'fontsize', 20);
+%! title ("legend called with cellstr and string inputs for labels");
+%! h = legend ({"foo"}, "bar");
+%! legend (h, "location", "northeastoutside");
+%! set (h, "fontsize", 20);
 
 %!demo
 %! clf;
 %! plot (rand (3));
 %! title ('legend ("show") without inputs creates default labels');
-%! h = legend ('show');
+%! h = legend ("show");
 
 %!demo
 %! clf;
 %! x = 0:1;
-%! plot (x,x,';I am Blue;', x,2*x, x,3*x,';I am Red;');
-%! h = legend ('location', 'northeastoutside');
+%! plot (x,x,";I am Blue;", x,2*x, x,3*x,";I am Red;");
+%! h = legend ("location", "northeastoutside");
 %! ## Placing legend inside should return axes to original size
-%! legend (h, 'location', 'northeast');
-%! title ('Blue and Red keys, with Green missing');
+%! legend (h, "location", "northeast");
+%! title ("Blue and Red keys, with Green missing");
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ('incline is blue and decline is green');
-%! legend ({'I am blue', 'I am green'}, 'location', 'east');
+%! title ("incline is blue and decline is green");
+%! legend ({"I am blue", "I am green"}, "location", "east");
 %! legend hide
 %! legend show
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ('Legend with keys in horizontal orientation');
-%! legend ({'I am blue', 'I am green'}, ...
-%!         'location', 'east', 'orientation', 'horizontal');
+%! title ("Legend with keys in horizontal orientation");
+%! legend ({"I am blue", "I am green"}, ...
+%!         "location", "east", "orientation", "horizontal");
 %! legend boxoff
 %! legend boxon
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ('Legend with box off');
-%! legend ({'I am blue', 'I am green'}, 'location', 'east');
+%! title ("Legend with box off");
+%! legend ({"I am blue", "I am green"}, "location", "east");
 %! legend boxoff
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ('Legend with text to the left of key');
-%! legend ({'I am blue', 'I am green'}, 'location', 'east');
+%! title ("Legend with text to the left of key");
+%! legend ({"I am blue", "I am green"}, "location", "east");
 %! legend left
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ({'Use properties to place legend text to the left of key', ...
-%!         'Legend text color is magenta'});
-%! h = legend ({'I am blue', 'I am green'}, 'location', 'east');
-%! legend ('right');
-%! set (h, 'textposition', 'left');
-%! set (h, 'textcolor', [1 0 1]);
+%! title ({"Use properties to place legend text to the left of key", ...
+%!         "Legend text color is magenta"});
+%! h = legend ({"I am blue", "I am green"}, "location", "east");
+%! legend ("right");
+%! set (h, "textposition", "left");
+%! set (h, "textcolor", [1 0 1]);
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10, 1:10, fliplr (1:10));
-%! title ('Legend is hidden');
-%! legend ({'I am blue', 'I am green'}, 'location', 'east');
+%! title ("Legend is hidden");
+%! legend ({"I am blue", "I am green"}, "location", "east");
 %! legend hide
 
 %!demo
 %! clf;
 %! x = 0:1;
-%! plot (x,x,';I am Blue;', x,2*x,';I am Green;', x,3*x,';I am Red;');
-%! title ({'Labels are embedded in call to plot', ...
-%!         'Legend is hidden and then shown'});
+%! plot (x,x,";I am Blue;", x,2*x,";I am Green;", x,3*x,";I am Red;");
+%! title ({"Labels are embedded in call to plot", ...
+%!         "Legend is hidden and then shown"});
 %! legend boxon
 %! legend hide
 %! legend show
@@ -1312,114 +1312,114 @@
 %! clf;
 %! x = 0:1;
 %! plot (x,x,  x,2*x, x,3*x);
-%! title ('Labels with interpreted Greek text');
+%! title ("Labels with interpreted Greek text");
 %! h = legend ('\alpha', '\beta=2\alpha', '\gamma=3\alpha');
-%! set (h, 'interpreter', 'tex');
+%! set (h, "interpreter", "tex");
 
 %!demo
 %! clf;
 %! plot (rand (2));
-%! title ('Labels with TeX interpreter turned off');
-%! h = legend ('Hello_World', 'foo^bar');
-%! set (h, 'interpreter', 'none');
+%! title ("Labels with TeX interpreter turned off");
+%! h = legend ("Hello_World", "foo^bar");
+%! set (h, "interpreter", "none");
 
 %!demo
 %! clf;
 %! labels = {};
-%! colororder = get (gca, 'colororder');
+%! colororder = get (gca, "colororder");
 %! for i = 1:5
 %!   h = plot (1:100, i + rand (100,1)); hold on;
-%!   set (h, 'color', colororder(i,:));
-%!   labels = {labels{:}, ['Signal ', num2str(i)]};
-%! end
+%!   set (h, "color", colororder(i,:));
+%!   labels = {labels{:}, ["Signal ", num2str(i)]};
+%! endfor
 %! hold off;
-%! title ({'Signals with random offset and uniform noise';
-%!         'Legend shown below and outside of plot'});
-%! xlabel ('Sample Nr [k]'); ylabel ('Amplitude [V]');
-%! legend (labels, 'location', 'southoutside');
+%! title ({"Signals with random offset and uniform noise";
+%!         "Legend shown below and outside of plot"});
+%! xlabel ("Sample Nr [k]"); ylabel ("Amplitude [V]");
+%! legend (labels, "location", "southoutside");
 
 %!demo
 %! clf;
 %! x = linspace (0, 10);
 %! plot (x, x);
 %! hold on;
-%! stem (x, x.^2, 'g');
-%! title ('First created object gets first label');
-%! legend ('linear');
+%! stem (x, x.^2, "g");
+%! title ("First created object gets first label");
+%! legend ("linear");
 %! hold off;
 
 %!demo
 %! clf;
 %! x = linspace (0, 10);
 %! plot (x, x, x, x.^2);
-%! title ('First created object gets first label');
-%! legend ('linear');
+%! title ("First created object gets first label");
+%! legend ("linear");
 
 %!demo
 %! clf;
 %! x = linspace (0, 10);
 %! plot (x, x, x, x.^2);
-%! title ('Labels are applied in order of object creation');
-%! legend ('linear', 'quadratic');
+%! title ("Labels are applied in order of object creation");
+%! legend ("linear", "quadratic");
 
 %!demo
 %! clf;
 %! rand_2x3_data1 = [0.341447, 0.171220, 0.284370; 0.039773, 0.731725, 0.779382];
 %! bar (rand_2x3_data1);
 %! ylim ([0 1.0]);
-%! title ('legend() works for bar graphs (hggroups)');
-%! legend ({'1st Bar', '2nd Bar', '3rd Bar'});
+%! title ("legend() works for bar graphs (hggroups)");
+%! legend ({"1st Bar", "2nd Bar", "3rd Bar"});
 
 %!demo
 %! clf;
 %! colormap (cool (64));
 %! surf (peaks ());
-%! legend ('peaks()');
-%! title ('legend() works for surface objects too');
+%! legend ("peaks()");
+%! title ("legend() works for surface objects too");
 
 %!demo
-%! clf reset;  % needed to undo colormap assignment in previous demo
+%! clf reset;  # needed to undo colormap assignment in previous demo
 %! rand_2x3_data2 = [0.44804, 0.84368, 0.23012; 0.72311, 0.58335, 0.90531];
 %! bar (rand_2x3_data2);
 %! ylim ([0 1.2]);
 %! title ('"left" option places colors to the left of text label');
-%! legend ('1st Bar', '2nd Bar', '3rd Bar');
+%! legend ("1st Bar", "2nd Bar", "3rd Bar");
 %! legend left;
 
 %!demo
 %! clf;
 %! x = 0:0.1:7;
 %! h = plot (x,sin(x), x,cos(x), x,sin(x.^2/10), x,cos(x.^2/10));
-%! title ('Only the sin() objects have keylabels');
-%! legend (h([1, 3]), {'sin (x)', 'sin (x^2/10)'}, 'location', 'southwest');
+%! title ("Only the sin() objects have keylabels");
+%! legend (h([1, 3]), {"sin (x)", "sin (x^2/10)"}, "location", "southwest");
 
 %!demo
 %! clf;
 %! x = 0:0.1:10;
-%! plot (x, sin (x), ';sin (x);');
+%! plot (x, sin (x), ";sin (x);");
 %! hold on;
-%! plot (x, cos (x), ';cos (x);');
+%! plot (x, cos (x), ";cos (x);");
 %! hold off;
-%! title ('legend constructed from multiple plot calls');
+%! title ("legend constructed from multiple plot calls");
 
 %!demo
 %! clf;
 %! x = 0:0.1:10;
-%! plot (x, sin (x), ';sin (x);');
+%! plot (x, sin (x), ";sin (x);");
 %! hold on;
-%! plot (x, cos (x), ';cos (x);');
+%! plot (x, cos (x), ";cos (x);");
 %! hold off;
-%! title ('Specified label text overrides previous labels');
-%! legend ({'Sine', 'Cosine'}, 'location', 'northeastoutside');
+%! title ("Specified label text overrides previous labels");
+%! legend ({"Sine", "Cosine"}, "location", "northeastoutside");
 
 %!demo
 %! clf;
 %! x = 0:10;
 %! plot (x, rand (11));
-%! xlabel ('Indices');
-%! ylabel ('Random Values');
-%! title ('Legend ''off'' deletes the legend');
-%! legend (cellstr (num2str ((1:10)')), 'location', 'northeastoutside');
+%! xlabel ("Indices");
+%! ylabel ("Random Values");
+%! title ('Legend "off" deletes the legend');
+%! legend (cellstr (num2str ((1:10)")), "location", "northeastoutside");
 %! legend off;
 %! axis ([0, 10, 0 1]);
 
@@ -1428,23 +1428,23 @@
 %! x = (1:5)';
 %! subplot (2,2,1);
 %!  plot (x, rand (numel (x)));
-%!  legend (cellstr (num2str (x)), 'location', 'northwestoutside');
+%!  legend (cellstr (num2str (x)), "location", "northwestoutside");
 %! subplot (2,2,2);
 %!  plot (x, rand (numel (x)));
-%!  legend (cellstr (num2str (x)), 'location', 'northeastoutside');
+%!  legend (cellstr (num2str (x)), "location", "northeastoutside");
 %! subplot (2,2,3);
 %!  plot (x, rand (numel (x)));
-%!  legend (cellstr (num2str (x)), 'location', 'southwestoutside');
+%!  legend (cellstr (num2str (x)), "location", "southwestoutside");
 %! subplot (2,2,4);
 %!  plot (x, rand (numel (x)));
-%!  legend (cellstr (num2str (x)), 'location', 'southeastoutside');
-%! %% Legend works on a per axes basis for each subplot
+%!  legend (cellstr (num2str (x)), "location", "southeastoutside");
+%! ## Legend works on a per axes basis for each subplot
 
 %!demo
 %! clf;
 %! plot (rand (2));
-%! title ('legend() will warn if extra labels are specified');
-%! legend ('Hello', 'World', 'interpreter', 'foobar');
+%! title ("legend() will warn if extra labels are specified");
+%! legend ("Hello", "World", "interpreter", "foobar");
 
 %!demo
 %! clf;
@@ -1452,8 +1452,8 @@
 %! y1 = rand (size (x));
 %! y2 = rand (size (x));
 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
-%! title ('plotyy legend test #1: Blue and Green labels');
-%! legend ([h1, h2], {'Blue', 'Green'}, 'location', 'south');
+%! title ("plotyy legend test 1: Blue and Green labels");
+%! legend ([h1, h2], {"Blue", "Green"}, "location", "south");
 
 %!demo
 %! clf;
@@ -1461,8 +1461,8 @@
 %! y1 = rand (size (x));
 %! y2 = rand (size (x));
 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
-%! title ('plotyy legend test #2: Blue and Green labels');
-%! legend ({'Blue', 'Green'}, 'location', 'south');
+%! title ("plotyy legend test 2: Blue and Green labels");
+%! legend ({"Blue", "Green"}, "location", "south");
 
 %!demo
 %! clf;
@@ -1470,138 +1470,138 @@
 %! y1 = rand (size (x));
 %! y2 = rand (size (x));
 %! [ax, h1, h2] = plotyy (x, y1, x, y2);
-%! title ('plotyy legend test #3: Blue and Green labels');
-%! legend ('Blue', 'Green', 'location', 'south');
+%! title ("plotyy legend test 3: Blue and Green labels");
+%! legend ("Blue", "Green", "location", "south");
 
 %!demo
 %! clf;
 %! plot (1:10, 1:10);
-%! title ('a very long label can sometimes cause problems');
-%! legend ('hello very big world', 'location', 'northeastoutside');
+%! title ("a very long label can sometimes cause problems");
+%! legend ("hello very big world", "location", "northeastoutside");
 
-%!demo % bug 36408
+%!demo  # bug 36408
 %! clf;
-%! option = 'right';
+%! option = "right";
 %! subplot (3,1,1);
 %!  plot (rand (1,4));
 %!  xlabel xlabel;
 %!  ylabel ylabel;
-%!  title ('Subplots adjust to the legend placed outside');
-%!  legend ({'1'}, 'location', 'northeastoutside');
+%!  title ("Subplots adjust to the legend placed outside");
+%!  legend ({"1"}, "location", "northeastoutside");
 %!  legend (option);
 %! subplot (3,1,2);
 %!  plot (rand (1,4));
 %!  xlabel xlabel;
 %!  ylabel ylabel;
-%!  legend ({'1234567890'}, 'location', 'eastoutside');
+%!  legend ({"1234567890"}, "location", "eastoutside");
 %!  legend (option);
 %! subplot (3,1,3);
 %!  plot (rand (1,4));
 %!  xlabel xlabel;
 %!  ylabel ylabel;
-%!  legend ({'12345678901234567890'}, 'location', 'southeastoutside');
+%!  legend ({"12345678901234567890"}, "location", "southeastoutside");
 %!  legend (option);
 
-%!demo % bug 36408
+%!demo  # bug 36408
 %! clf;
-%! option = 'right';
+%! option = "right";
 %! subplot (3,1,1);
 %!  plot (rand (1,4));
-%!  title ('Subplots adjust to the legend placed outside');
-%!  legend ({'1'}, 'location', 'northwestoutside');
+%!  title ("Subplots adjust to the legend placed outside");
+%!  legend ({"1"}, "location", "northwestoutside");
 %!  legend (option);
 %! subplot (3,1,2);
 %!  plot (rand (1,4));
-%!  legend ({'1234567890'}, 'location', 'westoutside');
+%!  legend ({"1234567890"}, "location", "westoutside");
 %!  legend (option);
 %! subplot (3,1,3);
 %!  plot (rand (1,4));
-%!  legend ({'12345678901234567890'}, 'location', 'southwestoutside');
+%!  legend ({"12345678901234567890"}, "location", "southwestoutside");
 %!  legend (option);
 
-%!demo % bug 36408
+%!demo  # bug 36408
 %! clf;
-%! option = 'right';
+%! option = "right";
 %! subplot (3,1,1);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  title ('Subplots adjust to the legend placed outside');
-%!  legend ({'1'}, 'location', 'northeastoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  title ("Subplots adjust to the legend placed outside");
+%!  legend ({"1"}, "location", "northeastoutside");
 %!  legend (option);
 %! subplot (3,1,2);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'1234567890'}, 'location', 'eastoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"1234567890"}, "location", "eastoutside");
 %!  legend (option);
 %! subplot (3,1,3);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'12345678901234567890'}, 'location', 'southeastoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"12345678901234567890"}, "location", "southeastoutside");
 %!  legend (option);
 
-%!demo % bug 36408
+%!demo  # bug 36408
 %! clf;
-%! option = 'right';
+%! option = "right";
 %! subplot (3,1,1);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  title ('Subplots adjust to the legend placed outside');
-%!  legend ({'1'}, 'location', 'northwestoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  title ("Subplots adjust to the legend placed outside");
+%!  legend ({"1"}, "location", "northwestoutside");
 %!  legend (option);
 %! subplot (3,1,2);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'1234567890'}, 'location', 'westoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"1234567890"}, "location", "westoutside");
 %!  legend (option);
 %! subplot (3,1,3);
 %!  plot (rand (1,4));
-%!  set (gca (), 'yaxislocation', 'right');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'12345678901234567890'}, 'location', 'southwestoutside');
+%!  set (gca (), "yaxislocation", "right");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"12345678901234567890"}, "location", "southwestoutside");
 %!  legend (option);
 
-%!demo % bug 36408;
+%!demo  # bug 36408;
 %! clf;
-%! option = 'right';
+%! option = "right";
 %! subplot (3,1,1);
 %!  plot (rand (1,4));
-%!  set (gca (), 'xaxislocation', 'top');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  title ('Subplots adjust to the legend placed outside');
-%!  legend ({'1'}, 'location', 'northwestoutside');
+%!  set (gca (), "xaxislocation", "top");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  title ("Subplots adjust to the legend placed outside");
+%!  legend ({"1"}, "location", "northwestoutside");
 %!  legend (option);
 %! subplot (3,1,2);
 %!  plot (rand (1,4));
-%!  set (gca (), 'xaxislocation', 'top');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'1234567890'}, 'location', 'westoutside');
+%!  set (gca (), "xaxislocation", "top");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"1234567890"}, "location", "westoutside");
 %!  legend (option);
 %! subplot (3,1,3);
 %!  plot (rand (1,4));
-%!  set (gca (), 'xaxislocation', 'top');
-%!  xlabel ('xlabel');
-%!  ylabel ('ylabel');
-%!  legend ({'12345678901234567890'}, 'location', 'southwestoutside');
+%!  set (gca (), "xaxislocation", "top");
+%!  xlabel ("xlabel");
+%!  ylabel ("ylabel");
+%!  legend ({"12345678901234567890"}, "location", "southwestoutside");
 %!  legend (option);
 
-%!demo % bug 39697
+%!demo  # bug 39697
 %! clf;
 %! plot (1:10);
-%! legend ('Legend Text');
-%! title ({'Multi-line', 'titles', 'are a', 'problem', 'See bug #39697'});
+%! legend ("Legend Text");
+%! title ({"Multi-line", "titles", "are a", "problem", "See bug #39697"});
 
 %!test
 %! toolkit = graphics_toolkit ("gnuplot");

--- a/scripts/plot/appearance/lighting.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/lighting.m	Mon Aug 15 15:15:30 2016 -0700
@@ -120,59 +120,59 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading flat
 %! lighting flat
 %! light ();
-%! title ('shading flat - lighting flat');
+%! title ("shading flat - lighting flat");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading interp
 %! lighting gouraud
 %! light ();
-%! title ('shading interp - lighting gouraud');
+%! title ("shading interp - lighting gouraud");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading flat
 %! lighting flat
 %! light ();
 %! view (3)
-%! title ('shading flat - lighting flat');
+%! title ("shading flat - lighting flat");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading interp
 %! lighting gouraud
 %! light ();
 %! view (3)
-%! title ('shading interp - lighting gouraud');
+%! title ("shading interp - lighting gouraud");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! mesh (sombrero ());
 %! shading flat
 %! lighting flat
 %! light ();
-%! title ('shading flat - lighting flat');
+%! title ("shading flat - lighting flat");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! mesh (sombrero ());
 %! shading interp
 %! lighting gouraud
 %! light ();
-%! title ('shading interp - lighting gouraud');
+%! title ("shading interp - lighting gouraud");
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/appearance/material.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/material.m	Mon Aug 15 15:15:30 2016 -0700
@@ -194,27 +194,27 @@
 
 %!demo
 %! clf;
-%! %% patch
-%! h_axes = axes;
+%! ## patch
 %! [x,y,z] = meshgrid (-2:0.2:2, -2:0.2:2, -2:0.2:2);
 %! val = x.^2 + y.^2 + z.^2;
 %! fv1 = isosurface (x, y, z, val, 1);
-%! h_patch = patch (fv1, "FaceColor", "r", "EdgeColor", "none", "FaceLighting", "Gouraud");
-%! isonormals (x, y, z, val, h_patch)
-%! axis equal; axis tight
-%! view (3)
-%! drawnow
-%! h_light = light ();
-%! material ([0 0.5 1 10 .5])
+%! h_patch = patch (fv1, "FaceColor", "r", "EdgeColor", "none", ...
+%!                       "FaceLighting", "Gouraud");
+%! isonormals (x, y, z, val, h_patch);
+%! axis equal;  axis tight;
+%! view (3);
+%! drawnow ();
+%! light ();
+%! material ([0 0.5 1 10 .5]);
 
 %!demo
-%! clf
-%! %% surface
-%! h_axes = axes;
-%! h_surf = surf (h_axes, peaks, "LineStyle", "none", "FaceLighting", "Gouraud");
-%! view (3)
-%! h_light = light ();
-%! material metal
+%! clf;
+%! ## surface
+%! hax = axes ();
+%! surf (hax, peaks, "LineStyle", "none", "FaceLighting", "Gouraud");
+%! view (3);
+%! light ();
+%! material metal;
 
 %!test
 %! hf = figure ("Visible", "off");

--- a/scripts/plot/appearance/pbaspect.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/pbaspect.m	Mon Aug 15 15:15:30 2016 -0700
@@ -103,14 +103,14 @@
 %! x = 0:0.01:4;
 %! plot (x,cos(x), x,sin(x));
 %! pbaspect ([1 1 1]);
-%! title ('plot box is square');
+%! title ("plot box is square");
 
 %!demo
 %! clf;
 %! x = 0:0.01:4;;
 %! plot (x,cos(x), x,sin(x));
 %! pbaspect ([2 1 1]);
-%! title ('plot box aspect ratio is 2x1');
+%! title ("plot box aspect ratio is 2x1");
 
 %!demo
 %! clf;
@@ -118,5 +118,5 @@
 %! plot (x,cos(x), x,sin(x));
 %! daspect ([1 1 1]);
 %! pbaspect ([2 1 1]);
-%! title ('plot box is 2x1, and axes [0 4 -1 1]');
+%! title ("plot box is 2x1, and axes [0 4 -1 1]");
 

--- a/scripts/plot/appearance/shading.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/shading.m	Mon Aug 15 15:15:30 2016 -0700
@@ -100,118 +100,118 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading faceted;
 %! title ('shading ''faceted''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading faceted;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''faceted''', 'with "edgecolor" and "facecolor" reversed'});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading flat;
 %! title ('shading ''flat''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading flat;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''flat''', 'with "edgecolor" and "facecolor" reversed'});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading interp;
 %! title ('shading ''interp''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! sombrero ();
 %! shading interp;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''interp''', 'with "edgecolor" and "facecolor" reversed'});
 
 %!demo
 %! clf
-%! colormap ('default')
+%! colormap ("default")
 %! peaks ()
 %! shading interp
-%! h = findobj (gca (), 'type', 'surface');
-%! set (h, 'edgecolor', 'k')
+%! h = findobj (gca (), "type", "surface");
+%! set (h, "edgecolor", "k")
 %! title ({'shading ''interp''', 'with "edgecolor" set to black'})
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading faceted;
 %! title ('shading ''faceted''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading faceted;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''faceted''', 'with "edgecolor" and "facecolor" reversed'});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading flat;
 %! title ('shading ''flat''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading flat;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''flat''', 'with "edgecolor" and "facecolor" reversed'});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading interp;
 %! title ('shading ''interp''');
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks ());
 %! shading interp;
-%! h = findobj (gca (), 'type', 'surface');
-%! facecolor = get (h, 'facecolor');
-%! edgecolor = get (h, 'edgecolor');
-%! set (h, 'edgecolor', facecolor, 'facecolor', edgecolor)
+%! h = findobj (gca (), "type", "surface");
+%! facecolor = get (h, "facecolor");
+%! edgecolor = get (h, "edgecolor");
+%! set (h, "edgecolor", facecolor, "facecolor", edgecolor)
 %! title ({'shading ''interp''', 'with "edgecolor" and "facecolor" reversed'});
 

--- a/scripts/plot/appearance/text.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/text.m	Mon Aug 15 15:15:30 2016 -0700
@@ -175,82 +175,82 @@
 
 %!demo
 %! clf;
-%! ha = {'left', 'center', 'right'};
-%! va = {'bottom', 'middle', 'top'};
+%! ha = {"left", "center", "right"};
+%! va = {"bottom", "middle", "top"};
 %! x = [0.25 0.5 0.75];
 %! y = x;
 %! for t = 0:30:359;
 %!   for nh = 1:numel (ha)
 %!     for nv = 1:numel (va)
-%!       text (x(nh), y(nv), 'Hello World', ...
-%!             'rotation', t, ...
-%!             'horizontalalignment', ha{nh}, ...
-%!             'verticalalignment', va{nv});
-%!     end
-%!   end
-%! end
-%! set (gca, 'xtick', [0.25, 0.5, 0.75], ...
-%!           'xticklabel', ha, ...
-%!           'ytick', [0.25, 0.5, 0.75], ...
-%!           'yticklabel', va);
+%!       text (x(nh), y(nv), "Hello World", ...
+%!             "rotation", t, ...
+%!             "horizontalalignment", ha{nh}, ...
+%!             "verticalalignment", va{nv});
+%!     endfor
+%!   endfor
+%! endfor
+%! set (gca, "xtick", [0.25, 0.5, 0.75], ...
+%!           "xticklabel", ha, ...
+%!           "ytick", [0.25, 0.5, 0.75], ...
+%!           "yticklabel", va);
 %! axis ([0 1 0 1]);
-%! xlabel ('horizontal alignment');
-%! ylabel ('vertical alignment');
-%! title ('text alignment and rotation (0:30:360 degrees)');
+%! xlabel ("horizontal alignment");
+%! ylabel ("vertical alignment");
+%! title ("text alignment and rotation (0:30:360 degrees)");
 
 %!demo
 %! clf;
-%! h = mesh (peaks, 'edgecolor', 0.7 * [1 1 1], ...
-%!                  'facecolor', 'none', ...
-%!                  'facealpha', 0);
+%! h = mesh (peaks, "edgecolor", 0.7 * [1 1 1], ...
+%!                  "facecolor", "none", ...
+%!                  "facealpha", 0);
 %! for t = 0:45:359;
-%!   text (25, 25, 0, 'Vertical Alignment = Bottom', ...
-%!                    'rotation', t, ...
-%!                    'horizontalalignment', 'left', ...
-%!                    'verticalalignment', 'bottom');
-%! end
+%!   text (25, 25, 0, "Vertical Alignment = Bottom", ...
+%!                    "rotation", t, ...
+%!                    "horizontalalignment", "left", ...
+%!                    "verticalalignment", "bottom");
+%! endfor
 %! caxis ([-100 100]);
-%! title ('Vertically Aligned at Bottom');
+%! title ("Vertically Aligned at Bottom");
 
 %!demo
 %! clf;
 %! axis ([0 8 0 8]);
-%! title (['1st title';'2nd title']);
-%! xlabel (['1st xlabel';'2nd xlabel']);
-%! ylabel (['1st ylabel';'2nd ylabel']);
-%! text (4, 4, {'Hello', 'World'}, ...
-%!       'horizontalalignment', 'center', ...
-%!       'verticalalignment', 'middle');
+%! title (["1st title";"2nd title"]);
+%! xlabel (["1st xlabel";"2nd xlabel"]);
+%! ylabel (["1st ylabel";"2nd ylabel"]);
+%! text (4, 4, {"Hello", "World"}, ...
+%!       "horizontalalignment", "center", ...
+%!       "verticalalignment", "middle");
 %! grid on;
 
 %!demo
 %! clf;
-%! h = mesh (peaks (), 'edgecolor', 0.7 * [1 1 1], ...
-%!                     'facecolor', 'none', ...
-%!                     'facealpha', 0);
-%! title (['1st title';'2nd title']);
-%! xlabel (['1st xlabel';'2nd xlabel']);
-%! ylabel (['1st ylabel';'2nd ylabel']);
-%! zlabel (['1st zlabel';'2nd zlabel']);
-%! text (0, 0, 5, {'Hello', 'World'}, ...
-%!       'horizontalalignment', 'center', ...
-%!       'verticalalignment', 'middle');
+%! h = mesh (peaks (), "edgecolor", 0.7 * [1 1 1], ...
+%!                     "facecolor", "none", ...
+%!                     "facealpha", 0);
+%! title (["1st title";"2nd title"]);
+%! xlabel (["1st xlabel";"2nd xlabel"]);
+%! ylabel (["1st ylabel";"2nd ylabel"]);
+%! zlabel (["1st zlabel";"2nd zlabel"]);
+%! text (0, 0, 5, {"Hello", "World"}, ...
+%!       "horizontalalignment", "center", ...
+%!       "verticalalignment", "middle");
 %! hold on;
-%! plot3 (0, 0, 5, '+k');
+%! plot3 (0, 0, 5, "+k");
 
 %!demo
 %! clf;
-%! h = text (0.5, 0.3, 'char');
-%! h = text (0.5, 0.4, ['char row 1'; 'char row 2']);
-%! h = text (0.5, 0.6, {'cell2str (1,1)', 'cell2str (1,2)'; 'cell2str (2,1)', 'cell2str (2,2)'});
-%! h = text (0.5, 0.8, 'foobar');
-%! set (h, 'string', 1:3);
-%! h = text ([0.1, 0.1], [0.3, 0.4], 'one string & two objects');
-%! h = text ([0.1, 0.1], [0.5, 0.6], {'one cellstr & two objects'});
-%! h = text ([0.1, 0.1], [0.7, 0.8], {'cellstr 1 object 1', 'cellstr 2 object 2'});
-%! h = text ([0.1, 0.1], [0.1, 0.2], ['1st string & 1st object'; '2nd string & 2nd object']);
-%! h = text (0.7, 0.6, 'single string');
-%! h = text (0.7, 0.5, {'single cell-string'});
+%! h = text (0.5, 0.3, "char");
+%! h = text (0.5, 0.4, ["char row 1"; "char row 2"]);
+%! h = text (0.5, 0.6, {"cell2str (1,1)", "cell2str (1,2)"; "cell2str (2,1)", "cell2str (2,2)"});
+%! h = text (0.5, 0.8, "foobar");
+%! set (h, "string", 1:3);
+%! h = text ([0.1, 0.1], [0.3, 0.4], "one string & two objects");
+%! h = text ([0.1, 0.1], [0.5, 0.6], {"one cellstr & two objects"});
+%! h = text ([0.1, 0.1], [0.7, 0.8], {"cellstr 1 object 1", "cellstr 2 object 2"});
+%! h = text ([0.1, 0.1], [0.1, 0.2], ["1st string & 1st object"; "2nd string & 2nd object"]);
+%! h = text (0.7, 0.6, "single string");
+%! h = text (0.7, 0.5, {"single cell-string"});
 %! xlabel (1:2);
 %! ylabel (1:2);
 %! title (1:2);

--- a/scripts/plot/appearance/xlim.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/xlim.m	Mon Aug 15 15:15:30 2016 -0700
@@ -57,25 +57,25 @@
 %! clf;
 %! line ();
 %! xlim ([0.2, 0.8]);
-%! title ('xlim is [0.2, 0.8]');
+%! title ("xlim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! line ();
-%! xlim ('auto');
-%! title ('xlim is auto');
+%! xlim ("auto");
+%! title ("xlim is auto");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
 %! xlim ([0.2, 0.8]);
-%! title ('xlim is [0.2, 0.8]');
+%! title ("xlim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
-%! xlim ('auto');
-%! title ('xlim is auto');
+%! xlim ("auto");
+%! title ("xlim is auto");
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/appearance/ylim.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/ylim.m	Mon Aug 15 15:15:30 2016 -0700
@@ -57,25 +57,25 @@
 %! clf;
 %! line ();
 %! ylim ([0.2, 0.8]);
-%! title ('ylim is [0.2, 0.8]');
+%! title ("ylim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! line ();
-%! ylim ('auto');
-%! title ('ylim is auto');
+%! ylim ("auto");
+%! title ("ylim is auto");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
 %! ylim ([0.2, 0.8]);
-%! title ('ylim is [0.2, 0.8]');
+%! title ("ylim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
-%! ylim ('auto');
-%! title ('ylim is auto');
+%! ylim ("auto");
+%! title ("ylim is auto");
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/appearance/zlim.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/appearance/zlim.m	Mon Aug 15 15:15:30 2016 -0700
@@ -57,25 +57,25 @@
 %! clf;
 %! line ();
 %! zlim ([0.2, 0.8]);
-%! title ('zlim is [0.2, 0.8]');
+%! title ("zlim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! line ();
-%! zlim ('auto');
-%! title ('zlim is auto');
+%! zlim ("auto");
+%! title ("zlim is auto");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
 %! zlim ([0.2, 0.8]);
-%! title ('zlim is [0.2, 0.8]');
+%! title ("zlim is [0.2, 0.8]");
 
 %!demo
 %! clf;
 %! plot3 ([0,1], [0,1], [0,1]);
-%! zlim ('auto');
-%! title ('zlim is auto');
+%! zlim ("auto");
+%! title ("zlim is auto");
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/draw/area.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/area.m	Mon Aug 15 15:15:30 2016 -0700
@@ -248,33 +248,33 @@
 %!demo
 %! ## Verify identity sin^2 + cos^2 = 1
 %! clf;
-%! t = linspace (0, 2*pi, 100)';
+%! t = linspace (0, 2*pi, 100)";
 %! y = [sin(t).^2, cos(t).^2];
 %! area (t, y);
 %! axis tight
-%! legend ('sin^2', 'cos^2', 'location', 'NorthEastOutside');
-%! title ('area() plot');
+%! legend ("sin^2", "cos^2", "location", "NorthEastOutside");
+%! title ("area() plot");
 
 %!demo
 %! ## Show effects of setting BaseValue
 %! clf;
-%! x = [-2:0.1:2]';
+%! x = [-2:0.1:2]";
 %! y = x.^2 - 1;
 %! subplot (1, 2, 1)
-%! area (x, y);
-%! title ({'Parabola y = x^2 -1';'BaseValue = 0'});
+%!  area (x, y);
+%!  title ({"Parabola y = x^2 -1";"BaseValue = 0"});
 %! subplot (1, 2, 2)
-%! h = area (x, y);
-%! set (h, 'basevalue', -1);
-%! title ({'Parabola y = x^2 -1';'BaseValue = -1'});
+%!  h = area (x, y);
+%!  set (h, "basevalue", -1);
+%!  title ({"Parabola y = x^2 -1";"BaseValue = -1"});
 
 %!demo
 %! clf;
 %! x = 0:10;
 %! y = rand (size (x));
 %! h = area (x, y);
-%! set (h, 'ydata', sort (get (h, 'ydata')));
-%! title ('area() plot of sorted data');
+%! set (h, "ydata", sort (get (h, "ydata")));
+%! title ("area() plot of sorted data");
 
 ## Test input validation
 %!error area ()

--- a/scripts/plot/draw/bar.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/bar.m	Mon Aug 15 15:15:30 2016 -0700
@@ -123,19 +123,19 @@
 %! clf;
 %! y = rand (11, 1);
 %! h = bar (y);
-%! set (h, 'ydata', sort (rand (11, 1)));
-%! title ('bar() graph');
+%! set (h, "ydata", sort (rand (11, 1)));
+%! title ("bar() graph");
 
 %!demo
 %! clf;
 %! h = bar (rand (5, 3));
-%! set (h(1), 'facecolor', 'r');
-%! set (h(2), 'facecolor', 'g');
-%! set (h(3), 'facecolor', 'b');
-%! title ('bar() graph w/multiple bars');
+%! set (h(1), "facecolor", "r");
+%! set (h(2), "facecolor", "g");
+%! set (h(3), "facecolor", "b");
+%! title ("bar() graph w/multiple bars");
 
 %!demo
 %! clf;
-%! h = bar (rand (5, 3), 'stacked');
-%! title ('bar() graph with stacked style');
+%! h = bar (rand (5, 3), "stacked");
+%! title ("bar() graph with stacked style");
 

--- a/scripts/plot/draw/barh.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/barh.m	Mon Aug 15 15:15:30 2016 -0700
@@ -80,13 +80,13 @@
 %! clf;
 %! x = rand (10, 1);
 %! barh (x);
-%! title ('barh() graph');
+%! title ("barh() graph");
 
 %!demo
 %! clf;
 %! h = barh (rand (5, 3));
-%! set (h(1), 'facecolor', 'r');
-%! set (h(2), 'facecolor', 'g');
-%! set (h(3), 'facecolor', 'b');
-%! title ('barh() graph w/multiple bars');
+%! set (h(1), "facecolor", "r");
+%! set (h(2), "facecolor", "g");
+%! set (h(3), "facecolor", "b");
+%! title ("barh() graph w/multiple bars");
 

--- a/scripts/plot/draw/camlight.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/camlight.m	Mon Aug 15 15:15:30 2016 -0700
@@ -218,7 +218,7 @@
 %!   view (a, 30);
 %!   drawnow ();
 %!   pause (0.01);
-%! end
+%! endfor
 
 %!demo
 %! sphere (48);
@@ -233,7 +233,7 @@
 %!   camlight (hl, "right");  # update light position
 %!   drawnow ();
 %!   pause (0.01);
-%! end
+%! endfor
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/draw/colorbar.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/colorbar.m	Mon Aug 15 15:15:30 2016 -0700
@@ -481,75 +481,75 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! imagesc (x);
 %! colorbar ();
-%! title ('colorbar() example');
+%! title ("colorbar() example");
 
 %!demo
 %! clf;
-%! colormap ('default');
-%! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
+%! colormap ("default");
+%! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.");
 %! imagesc (x);
-%! colorbar ('westoutside');
+%! colorbar ("westoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! imagesc (x);
-%! colorbar ('peer', gca, 'northoutside');
+%! colorbar ("peer", gca, "northoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! imagesc (x);
-%! colorbar ('southoutside');
+%! colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! contour (peaks ());
-%! colorbar ('west');
+%! colorbar ("west");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! subplot (2,2,1);
 %!  contour (peaks ());
-%!  colorbar ('east');
+%!  colorbar ("east");
 %! subplot (2,2,2);
 %!  contour (peaks ());
-%!  colorbar ('west');
+%!  colorbar ("west");
 %! subplot (2,2,3);
 %!  contour (peaks ());
-%!  colorbar ('north');
+%!  colorbar ("north");
 %! subplot (2,2,4);
 %!  contour (peaks ());
-%!  colorbar ('south');
+%!  colorbar ("south");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (2,2,1);
 %!  imagesc (x);
 %!  colorbar ();
 %! subplot (2,2,2);
 %!  imagesc (x);
-%!  colorbar ('westoutside');
+%!  colorbar ("westoutside");
 %! subplot (2,2,3);
 %!  imagesc (x);
-%!  colorbar ('northoutside');
+%!  colorbar ("northoutside");
 %! subplot (2,2,4);
 %!  imagesc (x);
-%!  colorbar ('southoutside');
+%!  colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (1,2,1);
 %!  imagesc (x);
@@ -558,24 +558,24 @@
 %! subplot (1,2,2);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('westoutside');
+%!  colorbar ("westoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (1,2,1);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('northoutside');
+%!  colorbar ("northoutside");
 %! subplot (1,2,2);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('southoutside');
+%!  colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (2,1,1);
 %!  imagesc (x);
@@ -584,84 +584,84 @@
 %! subplot (2,1,2);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('westoutside');
+%!  colorbar ("westoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (2,1,1);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('northoutside');
+%!  colorbar ("northoutside");
 %! subplot (2,1,2);
 %!  imagesc (x);
 %!  axis square;
-%!  colorbar ('southoutside');
+%!  colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (1,2,1);
 %!  imagesc (x);
 %!  colorbar ();
 %! subplot (1,2,2);
 %!  imagesc (x);
-%!  colorbar ('westoutside');
+%!  colorbar ("westoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (1,2,1);
 %!  imagesc (x);
-%!  colorbar ('northoutside');
+%!  colorbar ("northoutside");
 %! subplot (1,2,2);
 %!  imagesc (x);
-%!  colorbar ('southoutside');
+%!  colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (2,1,1);
 %!  imagesc (x);
 %!  colorbar ();
 %! subplot (2,1,2);
 %!  imagesc (x);
-%!  colorbar ('westoutside');
+%!  colorbar ("westoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (2,1,1);
 %!  imagesc (x);
-%!  colorbar ('northoutside');
+%!  colorbar ("northoutside");
 %! subplot (2,1,2);
 %!  imagesc (x);
-%!  colorbar ('southoutside');
+%!  colorbar ("southoutside");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! subplot (1,2,1);
 %!  contour (x);
 %!  axis square;
-%!  colorbar ('east');
+%!  colorbar ("east");
 %!  xlim ([1, 64]);
 %!  ylim ([1, 64]);
 %! subplot (1,2,2);
 %!  contour (x);
-%!  colorbar ('west');
+%!  colorbar ("west");
 %!  xlim ([1, 64]);
 %!  ylim ([1, 64]);
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! contour (x);
 %! xlim ([1, 64]);
@@ -671,7 +671,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 64; x = kron (1:n, ones (n,1)); x = abs (x - x.');
 %! contour (x);
 %! xlim ([1, 64]);
@@ -680,22 +680,22 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! imagesc (1 ./ hilb (99));
 %! h = colorbar ();
-%! set (h, 'yscale', 'log');
+%! set (h, "yscale", "log");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! imagesc (log10 (1 ./ hilb (99)));
 %! h = colorbar ();
-%! ytick = get (h, 'ytick');
-%! set (h, 'yticklabel', sprintf ('10^{%g}|', ytick));
+%! ytick = get (h, "ytick");
+%! set (h, "yticklabel", sprintf ("10^{%g}|", ytick));
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 5; x = linspace (0,5,n); y = linspace (0,1,n);
 %! imagesc (1 ./ hilb (n));
 %! axis equal;
@@ -703,7 +703,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 5; x = linspace (0,5,n); y = linspace (0,1,n);
 %! imagesc (x, y, 1 ./ hilb (n));
 %! axis equal;
@@ -711,16 +711,16 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! n = 5; x = linspace (0,5,n); y = linspace (0,1,n);
 %! imagesc (y, x, 1 ./ hilb (n));
 %! axis equal;
 %! colorbar ();
 
-## This requires that the axes position be properly determined for 'axis equal'
+## This requires that the axes position be properly determined for "axis equal"
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! axes;
 %! colorbar ();
 %! hold on;
@@ -729,38 +729,38 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! plot ([0, 2]);
-%! colorbar ('east');
+%! colorbar ("east");
 %! axis square;
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! plot ([0, 2]);
-%! colorbar ('eastoutside');
+%! colorbar ("eastoutside");
 %! axis square;
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! pcolor (peaks (20));
 %! shading interp;
-%! axis ('tight', 'square');
+%! axis ("tight", "square");
 %! colorbar ();
-#%! axes ('color','none','box','on','activepositionproperty','position');
+#%! axes ("color","none","box","on","activepositionproperty","position");
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! plot ([0, 2]);
-%! colorbar ('east');
+%! colorbar ("east");
 %! axis equal;
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! plot ([0, 2]);
-%! colorbar ('eastoutside');
+%! colorbar ("eastoutside");
 %! axis equal;
 

--- a/scripts/plot/draw/comet.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/comet.m	Mon Aug 15 15:15:30 2016 -0700
@@ -95,7 +95,7 @@
 
 %!demo
 %! clf;
-%! title ('comet() animation');
+%! title ("comet() animation");
 %! hold on;
 %! t = 0:.1:2*pi;
 %! x = cos (2*t) .* (cos (t).^2);

--- a/scripts/plot/draw/comet3.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/comet3.m	Mon Aug 15 15:15:30 2016 -0700
@@ -97,7 +97,7 @@
 
 %!demo
 %! clf;
-%! title ('comet3() animation');
+%! title ("comet3() animation");
 %! view (3); hold on;
 %! t = 0:pi/20:5*pi;
 %! comet3 (cos (t), sin (t), t, 0.05);

--- a/scripts/plot/draw/contour.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/contour.m	Mon Aug 15 15:15:30 2016 -0700
@@ -88,26 +88,26 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [x, y, z] = peaks ();
 %! contour (x, y, z);
-%! title ({'contour() plot (isolines of constant Z)'; 'Z = peaks()'});
+%! title ({"contour() plot (isolines of constant Z)"; "Z = peaks()"});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [theta, r] = meshgrid (linspace (0,2*pi,64), linspace (0,1,64));
 %! [X, Y] = pol2cart (theta, r);
 %! Z = sin (2*theta) .* (1-r);
 %! contour (X, Y, abs (Z), 10);
-%! title ({'contour() plot'; 'polar fcn: Z = sin (2*theta) * (1-r)'});
+%! title ({"contour() plot"; "polar fcn: Z = sin (2*theta) * (1-r)"});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! z = peaks ();
 %! contour (z, [0 0]);
-%! title ({'contour() plot with single isoline at Z == 0'; 'Z = peaks()'});
+%! title ({"contour() plot with single isoline at Z == 0"; "Z = peaks()"});
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/draw/contour3.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/contour3.m	Mon Aug 15 15:15:30 2016 -0700
@@ -96,12 +96,12 @@
 %!demo
 %! clf;
 %! colormap (cool (64));
-%! surf (peaks (19), 'facecolor', 'none', 'edgecolor', [0.85 0.85 0.85]);
+%! surf (peaks (19), "facecolor", "none", "edgecolor", [0.85 0.85 0.85]);
 %! hold on;
 %! contour3 (peaks (19));
 %! hold off;
 %! axis tight;
 %! zlim auto;
 %! view (315, 17);
-%! title ({'contour3 of peaks() function', 'gray surf() shows peaks function'});
+%! title ({"contour3 of peaks() function", "gray surf() shows peaks function"});
 

--- a/scripts/plot/draw/contourf.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/contourf.m	Mon Aug 15 15:15:30 2016 -0700
@@ -90,26 +90,26 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [x, y, z] = peaks (50);
 %! contourf (x, y, z, -7:9);
-%! title ({'contourf() plot (filled contour lines)'; 'Z = peaks()'});
+%! title ({"contourf() plot (filled contour lines)"; "Z = peaks()"});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [theta, r] = meshgrid (linspace (0,2*pi,64), linspace (0,1,64));
 %! [X, Y] = pol2cart (theta, r);
 %! Z = sin (2*theta) .* (1-r);
 %! contourf (X, Y, abs (Z), 10);
-%! title ({'contourf() plot'; 'polar fcn: Z = sin (2*theta) * (1-r)'});
+%! title ({"contourf() plot"; "polar fcn: Z = sin (2*theta) * (1-r)"});
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! x = linspace (-2, 2);
 %! [x, y] = meshgrid (x);
 %! z = sqrt (x.^2 + y.^2) ./ (x.^2 + y.^2 + 1);
 %! contourf (x, y, z, [0.4, 0.4]);
-%! title ('Hole should be filled with the background color');
+%! title ("Hole should be filled with the background color");
 

--- a/scripts/plot/draw/cylinder.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/cylinder.m	Mon Aug 15 15:15:30 2016 -0700
@@ -102,8 +102,8 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! [x, y, z] = cylinder (10:-1:0, 50);
 %! surf (x, y, z);
-%! title ('cylinder() with linearly shrinking radius produces a cone');
+%! title ("cylinder() with linearly shrinking radius produces a cone");
 

--- a/scripts/plot/draw/ellipsoid.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ellipsoid.m	Mon Aug 15 15:15:30 2016 -0700
@@ -95,5 +95,5 @@
 %!demo
 %! clf;
 %! ellipsoid (0, 0, 1, 2, 3, 4, 20);
-%! title ('ellipsoid()');
+%! title ("ellipsoid()");
 

--- a/scripts/plot/draw/errorbar.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/errorbar.m	Mon Aug 15 15:15:30 2016 -0700
@@ -197,14 +197,14 @@
 %! rand_1x11_data1 = [0.82712, 0.50325, 0.35613, 0.77089, 0.20474, 0.69160, 0.30858, 0.88225, 0.35187, 0.14168, 0.54270];
 %! rand_1x11_data2 = [0.506375, 0.330106, 0.017982, 0.859270, 0.140641, 0.327839, 0.275886, 0.162453, 0.807592, 0.318509, 0.921112];
 %! errorbar (0:10, rand_1x11_data1, 0.25*rand_1x11_data2);
-%! title ('errorbar() with Y errorbars');
+%! title ("errorbar() with Y errorbars");
 
 %!demo
 %! clf;
 %! rand_1x11_data3 = [0.423650, 0.142331, 0.213195, 0.129301, 0.975891, 0.012872, 0.635327, 0.338829, 0.764997, 0.401798, 0.551850];
 %! rand_1x11_data4 = [0.682566, 0.456342, 0.132390, 0.341292, 0.108633, 0.601553, 0.040455, 0.146665, 0.309187, 0.586291, 0.540149];
-%! errorbar (0:10, rand_1x11_data3, rand_1x11_data4, '>');
-%! title ('errorbar() with X errorbars');
+%! errorbar (0:10, rand_1x11_data3, rand_1x11_data4, ">");
+%! title ("errorbar() with X errorbars");
 
 %!demo
 %! clf;
@@ -212,9 +212,9 @@
 %! err = x/30;
 %! y1 = sin (x);
 %! y2 = cos (x);
-%! errorbar (x, y1, err, '~', x, y2, err, '>');
-%! legend ('Y errbar', 'X errbar');
-%! title ('errorbar() with 2 datasets');
+%! errorbar (x, y1, err, "~", x, y2, err, ">");
+%! legend ("Y errbar", "X errbar");
+%! title ("errorbar() with 2 datasets");
 
 
 %!demo
@@ -223,9 +223,9 @@
 %! err = x/30;
 %! y1 = sin (x);
 %! y2 = cos (x);
-%! errorbar (x, y1, err, err, '#r', x, y2, err, err, '#~');
-%! legend ('X errbox', 'Y errbox');
-%! title ('errorbar() with error boxes');
+%! errorbar (x, y1, err, err, "#r", x, y2, err, err, "#~");
+%! legend ("X errbox", "Y errbox");
+%! title ("errorbar() with error boxes");
 
 %!demo
 %! clf;
@@ -233,10 +233,10 @@
 %! err = x/30;
 %! y1 = sin (x);
 %! y2 = cos (x);
-%! errorbar (x, y1, err, err, err, err, '~>', ...
-%!           x, y2, err, err, err, err, '#~>-*');
-%! legend ('X-Y errbars', 'X-Y errboxes');
-%! title ('errorbar() with X-Y errorbars and error boxes');
+%! errorbar (x, y1, err, err, err, err, "~>", ...
+%!           x, y2, err, err, err, err, "#~>-*");
+%! legend ("X-Y errbars", "X-Y errboxes");
+%! title ("errorbar() with X-Y errorbars and error boxes");
 
 ## Invisible figure used for tests
 %!shared hf, hax

--- a/scripts/plot/draw/ezcontour.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezcontour.m	Mon Aug 15 15:15:30 2016 -0700
@@ -69,7 +69,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezcontour (f, [-3, 3]);
 

--- a/scripts/plot/draw/ezcontourf.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezcontourf.m	Mon Aug 15 15:15:30 2016 -0700
@@ -69,7 +69,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezcontourf (f, [-3, 3]);
 

--- a/scripts/plot/draw/ezmesh.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezmesh.m	Mon Aug 15 15:15:30 2016 -0700
@@ -90,13 +90,13 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezmesh (f, [-3, 3]);
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! fx = @(s,t) cos (s) .* cos (t);
 %! fy = @(s,t) sin (s) .* cos (t);
 %! fz = @(s,t) sin (t);

--- a/scripts/plot/draw/ezmeshc.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezmeshc.m	Mon Aug 15 15:15:30 2016 -0700
@@ -80,7 +80,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezmeshc (f, [-3, 3]);
 

--- a/scripts/plot/draw/ezplot.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezplot.m	Mon Aug 15 15:15:30 2016 -0700
@@ -87,22 +87,22 @@
 
 
 %!demo
-%! %% sinc function using function handle
+%! ## sinc function using function handle
 %! f = @(x) sin (pi*x) ./ (pi*x);
 %! ezplot (f);
 
 %!demo
-%! %% example of a function string and explicit limits
+%! ## example of a function string and explicit limits
 %! clf;
-%! ezplot ('1/x', [-2 2]);
+%! ezplot ("1/x", [-2 2]);
 
 %!demo
-%! %% parameterized function example over -2*pi <= t <= +2*pi
+%! ## parameterized function example over -2*pi <= t <= +2*pi
 %! clf;
 %! ezplot (@cos, @sin);
 
 %!demo
-%! %% implicit function of 2 variables
+%! ## implicit function of 2 variables
 %! clf;
-%! ezplot (inline ('x^2 - y^2 - 1'));
+%! ezplot (inline ("x^2 - y^2 - 1"));
 

--- a/scripts/plot/draw/ezplot3.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezplot3.m	Mon Aug 15 15:15:30 2016 -0700
@@ -80,5 +80,5 @@
 %! fx = @(t) cos (t);
 %! fy = @(t) sin (t);
 %! fz = @(t) t;
-%! ezplot3 (fx, fy, fz, [0, 5*pi], 100, 'animate');
+%! ezplot3 (fx, fy, fz, [0, 5*pi], 100, "animate");
 

--- a/scripts/plot/draw/ezsurf.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezsurf.m	Mon Aug 15 15:15:30 2016 -0700
@@ -90,13 +90,13 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezsurf (f, [-3, 3]);
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! fx = @(s,t) cos (s) .* cos (t);
 %! fy = @(s,t) sin (s) .* cos (t);
 %! fz = @(s,t) sin (t);
@@ -105,12 +105,12 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) x.^2 + y.^2;
 %! subplot (1,2,1);
 %!  ezsurf (f, [-2,2]);
-%!  title ({'x^2 + y^2'; 'plotted over rectangular grid (default)'});
+%!  title ({"x^2 + y^2"; "plotted over rectangular grid (default)"});
 %! subplot (1,2,2);
-%!  ezsurf (f, [-2,2], 'circ');
-%!  title ({'x^2 + y^2'; 'plotted over circular disk with "circ"'});
+%!  ezsurf (f, [-2,2], "circ");
+%!  title ({"x^2 + y^2"; 'plotted over circular disk with "circ"'});
 

--- a/scripts/plot/draw/ezsurfc.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/ezsurfc.m	Mon Aug 15 15:15:30 2016 -0700
@@ -80,7 +80,7 @@
 
 %!demo
 %! clf;
-%! colormap ('default');
+%! colormap ("default");
 %! f = @(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
 %! ezsurfc (f, [-3, 3]);
 

--- a/scripts/plot/draw/feather.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/feather.m	Mon Aug 15 15:15:30 2016 -0700
@@ -125,7 +125,7 @@
 %! phi = [0 : 15 : 360] * pi/180;
 %! feather (sin (phi), cos (phi));
 %! axis tight;
-%! title ('feather plot');
+%! title ("feather plot");
 
 ## Test input validation
 %!error feather ()

--- a/scripts/plot/draw/fill.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/fill.m	Mon Aug 15 15:15:30 2016 -0700
@@ -172,8 +172,8 @@
 %! y1 = cos (t1);
 %! x2 = sin (t2) + 0.8;
 %! y2 = cos (t2);
-%! h = fill (x1,y1,'r', x2,y2,'g');
-%! title ({'fill() function'; 'cdata specified with string'});
+%! h = fill (x1,y1,"r", x2,y2,"g");
+%! title ({"fill() function"; "cdata specified with string"});
 
 %!demo
 %! clf;
@@ -184,7 +184,7 @@
 %! x2 = sin (t2) + 0.8;
 %! y2 = cos (t2);
 %! h = fill (x1,y1,1, x2,y2,2);
-%! title ({'fill() function'; 'cdata = row vector produces FaceColor = "flat"'});
+%! title ({"fill() function"; 'cdata = row vector produces FaceColor = "flat"'});
 
 %!demo
 %! clf;
@@ -198,5 +198,5 @@
 %!      1 0.5];
 %! c = [1 2 3 4]';
 %! fill (x, y, c);
-%! title ({'fill() function'; 'cdata = column vector produces FaceColor = "interp"'});
+%! title ({"fill() function"; 'cdata = column vector produces FaceColor = "interp"'});
 

--- a/scripts/plot/draw/fplot.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/fplot.m	Mon Aug 15 15:15:30 2016 -0700
@@ -207,18 +207,18 @@
 %!demo
 %! clf;
 %! fplot (@cos, [0, 2*pi]);
-%! title ('fplot() single function');
+%! title ("fplot() single function");
 
 %!demo
 %! clf;
-%! fplot ('[cos(x), sin(x)]', [0, 2*pi]);
-%! title ('fplot() multiple functions');
+%! fplot ("[cos(x), sin(x)]", [0, 2*pi]);
+%! title ("fplot() multiple functions");
 
 %!demo
 %! clf;
 %! fh = @(x) sin (pi*x) ./ (pi*x);
 %! fplot (fh, [-5, 5]);
-%! title ('fplot() sinc function (possible division by 0, near 0)');
+%! title ("fplot() sinc function (possible division by 0, near 0)");
 
 %!test
 %! ## Multi-valued function

--- a/scripts/plot/draw/isocaps.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/isocaps.m	Mon Aug 15 15:15:30 2016 -0700
@@ -399,28 +399,28 @@
 %! x = 1:3:22;  y = -14:5:11;  z = linspace (16, 18, 4);
 %! [xx, yy, zz] = meshgrid (x, y, z);
 %! clf;
-%! %% two arguments, no output
+%! ## two arguments, no output
 %! subplot (2, 2, 1);
 %!  isocaps (v, isoval);
 %!  view (3);
-%! %% five arguments, no output (x, y, z are vectors)
+%! ## five arguments, no output (x, y, z are vectors)
 %! subplot (2, 2, 2);
 %!  isocaps (x, y, z, v, isoval);
 %!  view (3);
-%! %% five arguments, no output (x, y, z are matrices)
+%! ## five arguments, no output (x, y, z are matrices)
 %! subplot (2, 2, 3);
 %!  isocaps (xx, yy, zz, v, isoval);
 %!  view (3);
-%! %% five arguments, no output (mixed x, y, z)
+%! ## five arguments, no output (mixed x, y, z)
 %! subplot (2, 2, 4);
 %!  isocaps (x, yy, z, v, isoval);
 %!  view (3);
 %!
 %! annotation ("textbox", [0.1 0.9 0.9 0.1], ...
-%!    "String", ["Apart from the first plot having a different scale, " ...
-%!               "all four plots must look the same."], ...
-%!    "HorizontalAlignment", "left", ...
-%!    "FontSize", 12);
+%!     "String", ["Apart from the first plot having a different scale, " ...
+%!     "all four plots must look the same."], ...
+%!     "HorizontalAlignment", "left", ...
+%!     "FontSize", 12);
 
 %!shared x, y, z, xx, yy, zz, val, iso
 %! x = 1:3:22;  y = -14:5:11;  z = linspace (16, 18, 4);

--- a/scripts/plot/draw/isonormals.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/isonormals.m	Mon Aug 15 15:15:30 2016 -0700
@@ -124,9 +124,9 @@
 
 %!demo
 %! function isofinish (hp)
-%!   axis equal
-%!   set (hp, "VertexNormals", -get (hp, "VertexNormals")); # Revert normals
-%!   shading interp
+%!   axis equal;
+%!   set (hp, "VertexNormals", -get (hp, "VertexNormals"));  # Revert normals
+%!   shading interp;
 %!   set (hp, "FaceLighting", "gouraud");
 %!   set (hp, "BackFaceLighting", "unlit");
 %!   light ();
@@ -139,30 +139,34 @@
 %! val = (x-.5).^2 + (y-.5).^2 + (z-.5).^2;
 %! clf;
 %!
-%! subplot (2,2,1); view (-38, 20);
-%! [fac, vert, cdat] = isosurface (x, y, z, val, iso, y);
-%! hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
-%! title ("without isonormals")
-%! isofinish (hp);  # Call user function isofinish
+%! subplot (2,2,1);
+%!  view (-38, 20);
+%!  [fac, vert, cdat] = isosurface (x, y, z, val, iso, y);
+%!  hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
+%!  title ("without isonormals");
+%!  isofinish (hp);
 %!
-%! subplot (2,2,2); view (-38, 20);
-%! hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
-%! title ("patch modified by isonormals")
-%! isonormals (x, y, z, val, hp); # Directly modify patch
-%! isofinish (hp);
+%! subplot (2,2,2);
+%!  view (-38, 20);
+%!  hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
+%!  title ("patch modified by isonormals");
+%!  isonormals (x, y, z, val, hp);  # Directly modify patch
+%!  isofinish (hp);
 %!
-%! subplot (2,2,3); view (-38, 20);
-%! hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
-%! vn = isonormals (x, y, z, val, vert); # Compute normals of isosurface
-%! set (hp, "VertexNormals", vn);    # Manually set vertex normals
-%! title ('''VertexNormals'' from isonormals manually set')
-%! isofinish (hp);
+%! subplot (2,2,3);
+%!  view (-38, 20);
+%!  hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
+%!  vn = isonormals (x, y, z, val, vert);  # Compute normals of isosurface
+%!  set (hp, "VertexNormals", vn);         # Manually set vertex normals
+%!  title ('"VertexNormals" from isonormals manually set');
+%!  isofinish (hp);
 %!
-%! subplot (2,2,4); view (-38, 20);
-%! hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
-%! isonormals (x, y, z, val, hp, "negate"); # Use reverse directly
-%! title ('patch modified by isonormals (..., ''negate'')')
-%! isofinish (hp);
+%! subplot (2,2,4);
+%!  view (-38, 20);
+%!  hp = patch ("Faces", fac, "Vertices", vert, "FaceVertexCData", cdat);
+%!  isonormals (x, y, z, val, hp, "negate");  # Use reverse directly
+%!  title ('patch modified by isonormals (..., "negate")');
+%!  isofinish (hp);
 
 %!shared x,y,z,val,vert
 %! [x, y, z] = meshgrid (0:.5:2, 0:.5:2, 0:.5:2);

--- a/scripts/plot/draw/isosurface.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/isosurface.m	Mon Aug 15 15:15:30 2016 -0700
@@ -389,37 +389,38 @@
 %! v(:,:,2) = [0, 0, 0; 0, 0, 1; 0, 1, 2; 0, 1, 2];
 %! iso = 0.8;
 %! clf;
-%% three arguments, no output
+%!
+%! ## Three arguments, no output
 %! subplot (2, 2, 1);
-%! fvc = isosurface (v, iso, yy);
-%! patch (fvc);
-%! shading faceted
-%! view (110, 40);
-%% six arguments, no output (x, y, z are vectors)
+%!  fvc = isosurface (v, iso, yy);
+%!  patch (fvc);
+%!  shading faceted;
+%!  view (110, 40);
+%! ## six arguments, no output (x, y, z are vectors)
 %! subplot (2, 2, 2);
-%! fvc = isosurface (x, y, z, v, iso, yy);
-%! patch (fvc);
-%! shading faceted
-%! view (110, 40);
-%% six arguments, no output (x, y, z are matrices)
+%!  fvc = isosurface (x, y, z, v, iso, yy);
+%!  patch (fvc);
+%!  shading faceted;
+%!  view (110, 40);
+%! ## six arguments, no output (x, y, z are matrices)
 %! subplot (2, 2, 3);
-%! fvc = isosurface (xx, yy, zz, v, iso, yy);
-%! patch (fvc);
-%! shading faceted
-%! view (110, 40);
-%% six arguments, no output (mixed x, y, z) and option "noshare"
+%!  fvc = isosurface (xx, yy, zz, v, iso, yy);
+%!  patch (fvc);
+%!  shading faceted;
+%!  view (110, 40);
+%! ## six arguments, no output (mixed x, y, z) and option "noshare"
 %! subplot (2, 2, 4);
-%! fvc = isosurface (x, yy, z, v, iso, yy, "noshare");
-%! patch (fvc);
-%! shading faceted
-%! view (110, 40);
-%! annotation ("textbox", [0.1 0.9 0.9 0.1], ...
-%!    "String", ["Apart from the first plot having a different scale, " ...
-%!               "all four plots must look the same." 10 ...
-%!               "The last plot might have different colors but must have " ...
-%!               "the same shape."], ...
-%!    "HorizontalAlignment", "left", ...
-%!    "FontSize", 12);
+%!  fvc = isosurface (x, yy, z, v, iso, yy, "noshare");
+%!  patch (fvc);
+%!  shading faceted;
+%!  view (110, 40);
+%!  annotation ("textbox", [0.1 0.9 0.9 0.1], ...
+%!      "String", ["Apart from the first plot having a different scale, " ...
+%!      "all four plots must look the same.\n" ...
+%!      "The last plot might have different colors but must have " ...
+%!      "the same shape."], ...
+%!      "HorizontalAlignment", "left", ...
+%!      "FontSize", 12);
 
 %!shared x, y, z, xx, yy, zz, val, iso
 %! x = 0:2;

--- a/scripts/plot/draw/light.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/light.m	Mon Aug 15 15:15:30 2016 -0700
@@ -84,9 +84,9 @@
 
 
 %!demo
-%! %% Demonstrate effects of lighting
+%! ## Demonstrate effects of lighting
 %! clf;
-%! %% patches
+%! ## patches
 %! h_axes1 = subplot (2, 2, 1);
 %! [x,y,z] = meshgrid (-2:0.2:2, -2:0.2:2, -2:0.2:2);
 %! val = x.^2 + y.^2 + z.^2;
@@ -110,7 +110,7 @@
 %! title ("Patch without lighting");
 %! view (3);
 %!
-%! %% surfaces
+%! ## surfaces
 %! h_axes3 = subplot (2, 2, 3);
 %! h_surf1 = surf (h_axes3, peaks, "LineStyle", "none", ...
 %!                                 "FaceLighting", "Gouraud");
@@ -124,7 +124,7 @@
 %! view (3);
 
 %!demo
-%! %% Lighting modes
+%! ## Lighting modes
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.05:.2, -.2:0.05:.2, -.2:0.05:.2);
 %! val = (x.^2 + y.^2 + z.^2);
@@ -149,7 +149,7 @@
 %! title ("FaceLighting: none - flat - gouraud");
 
 %!demo
-%! %% multiple lights
+%! ## multiple lights
 %! clf;
 %! h_axes = subplot (1, 2, 1);
 %! [x,y,z] = meshgrid (-2:0.1:2, -2:0.1:2, -2:0.1:2);
@@ -173,7 +173,7 @@
 %! h_light3 = light ("Position", [-1 -1 2], "Color", "g");
 
 %!demo
-%! %% Diffuse and specular reflex
+%! ## Diffuse and specular reflection
 %! clf;
 %! h_axes = axes ();
 %! [x,y,z] = meshgrid (-.2:0.04:.2, -.2:0.04:.2, -.2:0.04:.2);
@@ -227,7 +227,7 @@
 
 
 %!demo
-%! %% Ambient Strength and Ambient Light Color
+%! ## Ambient Strength and Ambient Light Color
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.05:.2, -.2:0.05:.2, -.2:0.05:.2);
 %! val = (x.^2 + y.^2 + z.^2);
@@ -294,7 +294,7 @@
 %! ylabel ("AmbientLightColor [1 1 1]");
 
 %!demo
-%! %% Specular Exponent
+%! ## Specular Exponent
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.02:.2, -.2:0.02:.2, -.2:0.02:.2);
 %! val = (x.^2 + y.^2 + z.^2);
@@ -319,7 +319,7 @@
 %! xlabel ("SpecularExponent");
 
 %!demo
-%! %% SpecularColorReflectance
+%! ## SpecularColorReflectance
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.02:.2, -.2:0.02:.2, -.2:0.02:.2);
 %! val = (x.^2 + y.^2 + z.^2);
@@ -344,7 +344,7 @@
 %! xlabel ("SpecularColorReflectance");
 
 %!demo
-%! %% BackFaceLighting
+%! ## BackFaceLighting
 %! [x,y,z] = meshgrid (-.5:0.1:2, -2:0.1:2, -2:0.1:2);
 %! val = x.^2 + y.^2 + z.^2;
 %! fv = isosurface (x, y, z, val, 1);
@@ -377,7 +377,7 @@
 %! axis equal
 
 %!demo
-%! %% Colored patch
+%! ## Colored patch
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.02:.2, -.2:0.02:.2, -.2:0.02:.2);
 %! val = (x.^2 + y.^2 + z.^2);
@@ -388,23 +388,23 @@
 %!             "FaceLighting", "Gouraud");
 %! set (h_patch, "SpecularExponent", 15);
 %! isonormals (x, y, z, val, h_patch);
-%! title ('Colored patch');
+%! title ("Colored patch");
 %! h_light = light ("Position", [-1 1 1]);
 %! axis tight
 %! axis equal
 %! view (3);
 
 %!demo
-%! %% Colored mesh (patch)
+%! ## Colored mesh (patch)
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.05:.2, -.2:0.05:.2, -.2:0.05:.2);
 %! val = (x.^2 + y.^2 + z.^2);
 %!
 %! h_axes = axes ();
 %! fv = isosurface (x, y, z, val, .039, z);
-%! h_patch = patch (fv, 'FaceColor', 'w', 'EdgeColor', 'interp');
+%! h_patch = patch (fv, "FaceColor", "w", "EdgeColor", "interp");
 %! isonormals (x, y, z, val, h_patch);
-%! title ('Colored mesh (patch)');
+%! title ("Colored mesh (patch)");
 %! h_light = light;
 %! lighting gouraud
 %! axis tight
@@ -412,51 +412,50 @@
 %! view (3);
 
 %!demo
-%! %% Colored mesh (surface)
+%! ## Colored mesh (surface)
 %! clf;
 %! h_mesh = mesh (peaks);
-%! title ('Colored mesh (surface)');
+%! title ("Colored mesh (surface)");
 %! h_light = light;
 %! lighting gouraud
 
 %!demo
-%! %% Light in hggroup
+%! ## Light in hggroup
 %! clf;
 %! h_mesh = mesh (peaks);
 %! h_hg = hggroup ();
-%! title ('Light in hggroup');
-%! h_light = light ('Parent', h_hg);
+%! title ("Light in hggroup");
+%! h_light = light ("Parent", h_hg);
 %! lighting gouraud
 
 %!demo
-%! %% Style local/infinite
+%! ## Style local/infinite
 %! clf;
 %! [x,y,z] = meshgrid (-.2:0.02:.2, -.2:0.02:.2, -.2:0.02:.2);
 %! val = (x.^2 + y.^2 + z.^2);
 %!
 %! h_axes1 = subplot (1,2,1);
 %! fv = isosurface (x, y, z, val, .039);
-%! h_patch = patch (fv, 'FaceColor', 'r', 'EdgeColor', 'none');
+%! h_patch = patch (fv, "FaceColor", "r", "EdgeColor", "none");
 %! isonormals (x, y, z, val, h_patch);
 %! title ('"Style" set to "infinite" (default)');
-%! h_light = light ('Position', [.3 0 .3]);
+%! h_light = light ("Position", [.3 0 .3]);
 %! lighting gouraud
 %! axis equal
 %! view (3);
 %!
 %! h_axes2 = subplot (1,2,2);
 %! fv = isosurface (x, y, z, val, .039);
-%! h_patch = patch (fv, 'FaceColor', 'r', 'EdgeColor', 'none');
+%! h_patch = patch (fv, "FaceColor", "r", "EdgeColor", "none");
 %! isonormals (x, y, z, val, h_patch);
 %! title ('"Style" set to "local"');
-%! h_light = light ('Style', 'local', 'Position', [.3 0 .3]);
+%! h_light = light ("Style", "local", "Position", [.3 0 .3]);
 %! lighting gouraud
 %! axis equal
 %! view (3);
 
-
 %!test
-%! hf = figure ("Visible", "off");
+%! hf = figure ("visible", "off");
 %! unwind_protect
 %!   h = light ();
 %!   assert (findobj (hf, "Type", "light"), h);
@@ -468,7 +467,7 @@
 %! end_unwind_protect
 
 %!test
-%! hf = figure ("Visible", "off");
+%! hf = figure ("visible", "off");
 %! ha = gca;
 %! unwind_protect
 %!   h = light (ha, "Position", [1 2 3], "Color", "r");

--- a/scripts/plot/draw/line.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/line.m	Mon Aug 15 15:15:30 2016 -0700
@@ -64,12 +64,12 @@
 
 %!demo
 %! clf;
-%! line ([0 1], [0.8 0.8], 'linestyle', '-', 'color', 'b');
-%! line ([0 1], [0.6 0.6], 'linestyle', '--', 'color', 'g');
-%! line ([0 1], [0.4 0.4], 'linestyle', ':', 'color', 'r');
-%! line ([0 1], [0.2 0.2], 'linestyle', '-.', 'color', 'k');
+%! line ([0 1], [0.8 0.8], "linestyle", "-", "color", "b");
+%! line ([0 1], [0.6 0.6], "linestyle", "--", "color", "g");
+%! line ([0 1], [0.4 0.4], "linestyle", ":", "color", "r");
+%! line ([0 1], [0.2 0.2], "linestyle", "-.", "color", "k");
 %! ylim ([0 1]);
-%! title ('line() with various linestyles');
+%! title ("line() with various linestyles");
 %! legend ('"-"', '"--"', '":"', '"-."', 'location', 'eastoutside');
 
 %!demo
@@ -78,9 +78,9 @@
 %! y1 = cos (x);
 %! y2 = sin (x);
 %! subplot (3,1,1);
-%!  args = {'color', 'b', 'marker', 's'};
+%!  args = {"color", "b", "marker", "s"};
 %!  line ([x(:), x(:)], [y1(:), y2(:)], args{:});
-%!  title ('Test broadcasting for line()');
+%!  title ("Test broadcasting for line()");
 %! subplot (3,1,2);
 %!  line (x(:), [y1(:), y2(:)], args{:});
 %! subplot (3,1,3);

--- a/scripts/plot/draw/loglog.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/loglog.m	Mon Aug 15 15:15:30 2016 -0700
@@ -78,7 +78,7 @@
 %! x = sort ((t .* (1 + rand (size (t)))) .^ 2);
 %! y = (t .* (1 + rand (size (t)))) .^ 2;
 %! loglog (x, y);
-%! title ({'loglog() plot', 'Both axes are logarithmic'});
+%! title ({"loglog() plot", "Both axes are logarithmic"});
 
 %!demo
 %! clf;
@@ -87,12 +87,12 @@
 %!
 %! subplot (1,2,1);
 %!  loglog (a, b);
-%!  xlabel ('loglog (a, b)');
+%!  xlabel ("loglog (a, b)");
 %!
 %! subplot (1,2,2);
 %!  loglog (a, abs (b));
-%!  set (gca, 'ydir', 'reverse');
-%!  xlabel ('loglog (a, abs (b))');
+%!  set (gca, "ydir", "reverse");
+%!  xlabel ("loglog (a, abs (b))");
 
 %!test
 %! hf = figure ("visible", "off");

--- a/scripts/plot/draw/loglogerr.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/loglogerr.m	Mon Aug 15 15:15:30 2016 -0700
@@ -87,8 +87,8 @@
 %! y = wblpdf (x, 3, 2);
 %! eyu = 2*rand (size (y)) .* y;
 %! eyl = 0.5*rand (size (y)) .* y;
-%! loglogerr (x, y, eyl, eyu, '#~x-');
+%! loglogerr (x, y, eyl, eyu, "#~x-");
 %! xlim (x([1, end]));
-%! title ({'loglogerr(): loglog() plot with errorbars', ...
-%!         'Both axes are logarithmic'});
+%! title ({"loglogerr(): loglog() plot with errorbars", ...
+%!         "Both axes are logarithmic"});
 

--- a/scripts/plot/draw/mesh.m	Mon Aug 15 10:56:47 2016 -0700
+++ b/scripts/plot/draw/mesh.m	Mon Aug 15 15:15:30 2016 -0700
@@ -101,46 +101,46 @@
 %! x = logspace (0,1,11);
 %! z = x'*x;
 %! mesh (x, x, z);
-%! xlabel 'X-axis';
-%! ylabel 'Y-axis';
-%! zlabel 'Z-axis';
-%! title ('mesh() with color proportional to height');
+%! xlabel "X-axis";
+%! ylabel "Y-axis";
+%! zlabel "Z-axis";
+%! title ("mesh() with color proportional to height");
 
 %!demo
 %! clf;
 %! x = logspace (0,1,11);
 %! z = x'*x;
 %! mesh (x, x, z, z.^2);
-%! xlabel 'X-axis';
-%! ylabel 'Y-axis';
-%! zlabel 'linear scale';
-%! title ('mesh() with color proportional to Z^2');
+%! xlabel "X-axis";
+%! ylabel "Y-axis";
+%! zlabel "linear scale";
+%! title ("mesh() with color proportional to Z^2");
 
 %!demo
 %! clf;
 %! x = logspace (0,1,11);
 %! z = x'*x;
 %! mesh (x, x, z, z.^2);
-%! set (gca, 'zscale', 'log');
-%! xlabel 'X-axis';
-%! ylabel 'Y-axis';
-%! zlabel 'log scale';
-%! title ({'mesh() with color proportional to Z^2', 'Z-axis is log scale'});
+%! set (gca, "zscale", "log");
+%! xlabel "X-axis";
+%! ylabel "Y-axis";
+%! zlabel "log scale";
+%! title ({"mesh() with color proportional to Z^2", "Z-axis is log scale"});
 %! try
-%!   if (strcmp (get (gcf, '__graphics_toolkit__'), 'gnuplot'))
-%!     title ({'Gnuplot: mesh color is wrong', 'This is a Gnuplot bug'});
+%!   if (strcmp (get (gcf, "__graphics_toolkit__"), "gnuplot"))
+%!     title ({"Gnuplot: mesh color is wrong", "This is a Gnuplot bug"});
 %!   endif
 %! catch
-%! end
+%! end_try_catch
 
 %!demo
 %! clf;
 %! x = logspace (0,1,11);
 %! z = x'*x;
-%! mesh (x, x, z, 'facecolor', 'none', 'edgecolor', 'c');
-%! xlabel 'X-axis';
-%! ylabel 'Y-axis';
-%! zlabel 'Z-axis';
-%! title ({'mesh() default properties overridden', ...
-%!         'transparent mesh with cyan color'});
+%! mesh (x, x, z, "facecolor", "none", "edgecolor", "c");
+%! xlabel "X-axis";
+%! ylabel "Y-axis";
+%! zlabel "Z-axis";
+%! title ({"mesh() default properties overridden", ...
+%!         "transparent mesh with cyan color"});