From 551a7af695fa250f003c828fd2e0c98b51d35ed9 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 20 Feb 2021 07:20:31 +0100
Subject: doc: Move images out of example blocks.

---
 doc/picture-language.texi | 66 ++++++++++++++++++++++++++++++-----------------
 1 file changed, 42 insertions(+), 24 deletions(-)

diff --git a/doc/picture-language.texi b/doc/picture-language.texi
index 448203c..4a6e866 100644
--- a/doc/picture-language.texi
+++ b/doc/picture-language.texi
@@ -159,9 +159,10 @@ and line thickness, respectively.
 @cindex line, example
 @example
 @verbatiminclude images/line.svg.scm
-@image{images/line.svg.scm,,,A straight line.}
 @end example
-
+@indentedblock
+@image{images/line.svg.scm,,,A straight line.}
+@end indentedblock
 
 @cindex hline, simple shape
 @deffn {Scheme Procedure} hline @
@@ -177,9 +178,10 @@ number) are accepted to override the line color and line thickness.
 @cindex hline, example
 @example
 @verbatiminclude images/hline.svg.scm
-@image{images/hline.svg.scm,,,A horizontal line.}
 @end example
-
+@indentedblock
+@image{images/hline.svg.scm,,,A horizontal line.}
+@end indentedblock
 
 @cindex vline, simple shape
 @deffn {Scheme Procedure} vline @
@@ -195,9 +197,10 @@ number) are accepted to override the line color and line thickness.
 @cindex vline, example
 @example
 @verbatiminclude images/vline.svg.scm
-@image{images/vline.svg.scm,,,A vertical line.}
 @end example
-
+@indentedblock
+@image{images/vline.svg.scm,,,A vertical line.}
+@end indentedblock
 
 @cindex polyline, simple shape
 @deffn {Scheme Procedure} polyline @
@@ -215,8 +218,10 @@ and line thickness.
 Here is a simple zig zag line:
 @example
 @verbatiminclude images/polyline.svg.scm
-@image{images/polyline.svg.scm,,,A zig zag polyline.}
 @end example
+@indentedblock
+@image{images/polyline.svg.scm,,,A zig zag polyline.}
+@end indentedblock
 
 Of course, you could also compute the points.  Here we use @code{iota}
 and @code{list-tabulate} of the @code{(srfi srfi-1)} module to generate
@@ -226,9 +231,10 @@ with @code{map} and @code{cons}:
 
 @example
 @verbatiminclude images/polyline2.svg.scm
-@image{images/polyline2.svg.scm,,,A longer zig zag polyline.}
 @end example
-
+@indentedblock
+@image{images/polyline2.svg.scm,,,A longer zig zag polyline.}
+@end indentedblock
 
 @cindex polygon, simple shape
 @deffn {Scheme Procedure} polygon @
@@ -250,9 +256,10 @@ accepted to override the line color and line thickness.
 Here is a simple polygon:
 @example
 @verbatiminclude images/polygon.svg.scm
-@image{images/polygon.svg.scm,,,A polygon.}
 @end example
-
+@indentedblock
+@image{images/polygon.svg.scm,,,A polygon.}
+@end indentedblock
 
 @cindex triangle, simple shape
 @deffn {Scheme Procedure} triangle @
@@ -269,9 +276,10 @@ and line thickness.
 Here is a simple triangle:
 @example
 @verbatiminclude images/triangle.svg.scm
-@image{images/triangle.svg.scm,,,A triangle.}
 @end example
-
+@indentedblock
+@image{images/triangle.svg.scm,,,A triangle.}
+@end indentedblock
 
 @cindex filled-triangle, simple shape
 @deffn {Scheme Procedure} filled-triangle @
@@ -299,9 +307,10 @@ and line thickness.
 Here is a simple octagon:
 @example
 @verbatiminclude images/octagon.svg.scm
-@image{images/octagon.svg.scm,,,An octagon.}
 @end example
-
+@indentedblock
+@image{images/octagon.svg.scm,,,An octagon.}
+@end indentedblock
 
 @cindex filled-octagon, simple shape
 @deffn {Scheme Procedure} filled-octagon @
@@ -328,9 +337,10 @@ number) are accepted to override the line color and line thickness.
 Here is a simple circle:
 @example
 @verbatiminclude images/circle.svg.scm
-@image{images/circle.svg.scm,,,A circle.}
 @end example
-
+@indentedblock
+@image{images/circle.svg.scm,,,A circle.}
+@end indentedblock
 
 @cindex disk, simple shape
 @deffn {Scheme Procedure} disk @
@@ -358,9 +368,10 @@ number) are accepted to override the line color and line thickness.
 Here is a simple ellipse:
 @example
 @verbatiminclude images/ellipse.svg.scm
-@image{images/ellipse.svg.scm,,,An ellipse.}
 @end example
-
+@indentedblock
+@image{images/ellipse.svg.scm,,,An ellipse.}
+@end indentedblock
 
 @cindex filled-ellipse, simple shape
 @deffn {Scheme Procedure} filled-ellipse @
@@ -389,9 +400,10 @@ be provided to round off the corners.
 Here is a simple rectangle with rounded corners:
 @example
 @verbatiminclude images/rectangle.svg.scm
-@image{images/rectangle.svg.scm,,,A rectangle with rounded corners.}
 @end example
-
+@indentedblock
+@image{images/rectangle.svg.scm,,,A rectangle with rounded corners.}
+@end indentedblock
 
 @cindex filled-rectangle, simple shape
 @deffn {Scheme Procedure} filled-rectangle @
@@ -422,8 +434,10 @@ also accepted.
 Here are a few snippets of text, combined horizontally (see below).
 @example
 @verbatiminclude images/text.svg.scm
-@image{images/text.svg.scm,,,A few snippets of text.}
 @end example
+@indentedblock
+@image{images/text.svg.scm,,,A few snippets of text.}
+@end indentedblock
 
 @c *********************************************************************
 @node Modifiers
@@ -435,8 +449,10 @@ produce them all alike.  Perhaps it was done like this:
 
 @example
 @verbatiminclude images/boring-triangles.svg.scm
-@image{images/boring-triangles.svg.scm,,,A boring list of triangles.}
 @end example
+@indentedblock
+@image{images/boring-triangles.svg.scm,,,A boring list of triangles.}
+@end indentedblock
 
 Luckily, we have a wide range of modifiers to change the properties of
 existing pictures, including the fill color, the border color, the
@@ -448,8 +464,10 @@ Here's a preview of what we can do to the boring triangles:
 
 @example
 @verbatiminclude images/modifiers.svg.scm
-@image{images/modifiers.svg.scm,,,A less boring list of triangles.}
 @end example
+@indentedblock
+@image{images/modifiers.svg.scm,,,A less boring list of triangles.}
+@end indentedblock
 
 Much better!
 
-- 
cgit v1.2.3