diff options
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 4 | ||||
| -rw-r--r-- | doc/user/Makefile.am | 1 | ||||
| -rw-r--r-- | doc/user/loute.skb | 12 | ||||
| -rw-r--r-- | doc/user/src/lout-illustration.skb | 60 |
4 files changed, 76 insertions, 1 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm index d4f0781..36ba0e7 100644 --- a/doc/modules/skribilo/documentation/api.scm +++ b/doc/modules/skribilo/documentation/api.scm @@ -100,6 +100,10 @@ "{ Helvetica Base } @Font x\n}\n" " +# TeX and LaTeX, from Lout's `init' file. +def @TeX { @OneCol { T &0.4fo {-0.2f @VShift E} &0.45fo X } } +def @LaTeX { @OneCol { L &0.3fo { +0.1f @VShift 0.8f @Font A } &0.4fo @TeX } } + # The `example' markup. def @SkribiloExample named @Title {} right x { @B { @Title } diff --git a/doc/user/Makefile.am b/doc/user/Makefile.am index 4d1f04c..a9e9448 100644 --- a/doc/user/Makefile.am +++ b/doc/user/Makefile.am @@ -23,6 +23,7 @@ EXTRA_DIST += src/api1.skb \ src/prgm3.skb src/prgm4.skb src/slides.skb \ src/start1.skb src/start2.skb \ src/start3.skb src/start4.skb src/start5.skb \ + src/lout-illustration.skb \ src/outline.txt src/scheme.scm EXTRA_DIST += FONTS diff --git a/doc/user/loute.skb b/doc/user/loute.skb index d26b0ed..ecfef34 100644 --- a/doc/user/loute.skb +++ b/doc/user/loute.skb @@ -220,7 +220,17 @@ is ,(tt [#f]).])) :common-args '() :source #f :def '(define-markup (lout-illustration :rest - illustration :key (file #f) ident alt) ...)))) + illustration :key (file #f) ident alt) ...)) + + (p [The following example shows a simple diagram. When using the +,(tt [lout]) engine, the diagram is integrated in-line in the document. +When using other engines, it is integrated using ,(markup-ref +"image").]) + + (example-produce + (example :legend "A Lout illustration" + (prgm :file "src/lout-illustration.skb")) + (disp (include "src/lout-illustration.skb"))))) ;;; Local Variables: ;;; ispell-local-dictionary: "american" diff --git a/doc/user/src/lout-illustration.skb b/doc/user/src/lout-illustration.skb new file mode 100644 index 0000000..e060068 --- /dev/null +++ b/doc/user/src/lout-illustration.skb @@ -0,0 +1,60 @@ +(use-modules (skribilo engine lout)) + +(lout-illustration :ident "document-toolchain" + :alt "a document toolchain" " + +# This is Lout code to produce a diagram. +@Diag + aoutline { circle } + afont { Courier Base 1f } + boutline { circle } + bfont { Palatino Slope 2f } + bpaint { black } + bformat { white @Color @Body } + coutline { curvebox } + coutlinestyle { dotted } + doutline { curvebox } +{ + @Tbl + strut { yes } + indent { ctr } + aformat { @Cell A | @Cell marginhorizontal { 2.0fe } B | + @Cell C | @Cell D } + amargin { 1.0fe } + { + @Rowa D { W:: @DNode HTML } + @Rowa A { A:: @ANode txt } C { P:: @CNode Lout } + D { X:: @DNode PostScript } + @Rowa A { B:: @ANode skr } B { S:: @BNode Skribilo } + C { Q:: @CNode @LaTeX } + @Rowa A { C:: @ANode rss } C { R:: @CNode ConTeXt } + D { Y:: @DNode PDF } + @Rowa D { Z:: @DNode Info } + } + + // + + # input arrows + @Arrow from { A } to { S } + @Arrow from { B } to { S } + @Arrow from { C } to { S } + + # arrows to intermediate files + @Arrow from { S } to { P } + @Arrow from { S } to { Q } + @Arrow from { S } to { R } + + # PS/PDF incoming arrows + @Arrow from { P } to { X } + @Arrow from { P } to { Y } + @Arrow from { Q } to { X } + @Arrow from { Q } to { Y } + @Arrow from { R } to { X } + @Arrow from { R } to { Y } + + # HTML and Info + @Link from { S } to { W } arrow { yes } path { vhcurve } + @Link from { S } to { Z } arrow { yes } path { vhcurve } + +} +") |