* doc/pic.ms: Add Heinz-Jürgen's 3d boxes example.

1 files changed, 62 insertions, 4 deletions

diff --git a/doc/pic.ms b/doc/pic.ms
index 580bb744..4f928f1a 100644
--- a/doc/pic.ms
+++ b/doc/pic.ms
@@ -31,7 +31,7 @@
 .\" Eric S. Raymond <esr@thyrsus.com> in August 1995.  It has been put
 .\" under the GPL in March 2006.
 .\"
-.\"	$Id: pic.ms,v 1.36 2007/11/19 09:28:44 wl Exp $	
+.\"	$Id: pic.ms,v 1.37 2007/11/20 17:25:39 wl Exp $	
 .
 .
 .\" Set a proper TeX and LaTeX
@@ -47,7 +47,7 @@
 .\" Centered caption for figure.  Assumes previous .KS
 .de CE
 .  ce 1
-Figure \\n(H1-\\$1
+Figure \\n[H1]-\\$1
 .  sp 1
 .  KE
 ..
@@ -2433,8 +2433,66 @@ arrow from Top.D.end to Anchor.ne
 }
 .PE
 .CE "2: Hypothetical production flow for dual-mode publishing"
-.LP
-.\"%%REFERENCE%%
+.PP
+.KS
+.PS
+# a three-dimensional block
+#
+# tblock(<width>, <height>, <text>)
+
+define tblock { [
+  box ht $2 wid $1 \
+      color "gold" outlined "black" \
+      xslanted 0 yslanted 0 \
+      $3;
+  box ht .1 wid $1 \
+      color "yellow" outlined "black" \
+      xslanted .1 yslanted 0 \
+      with .sw at last box .nw;
+  box ht $2 wid .1 \
+      color "goldenrod" outlined "black" \
+      xslanted 0 yslanted .1 \
+      with .nw at 2nd last box .ne;
+] }
+
+tblock(1, .5, "Master" "1");
+move -.1
+tblock(.5, 1, "Slave");
+.PE
+.CE "3: Three-dimensional Boxes"
+.PP
+Here the source code for figure \n[H1]-3:
+.KS
+.DS
+.CW
+\&.PS
+# a three-dimensional block
+#
+# tblock(<width>, <height>, <text>)
+
+define tblock { [
+  box ht $2 wid $1 \e
+      color "gold" outlined "black" \e
+      xslanted 0 yslanted 0 \e
+      $3;
+  box ht .1 wid $1 \e
+      color "yellow" outlined "black" \e
+      xslanted .1 yslanted 0 \e
+      with .sw at last box .nw;
+  box ht $2 wid .1 \e
+      color "goldenrod" outlined "black" \e
+      xslanted 0 yslanted .1 \e
+      with .nw at 2nd last box .ne;
+] }
+
+tblock(1, .5, "Master" "1");
+move -.1
+tblock(.5, 1, "Slave");
+\&.PE
+.DE
+.ft R
+.KE
+.
 .
 .
 .NH 1