From 7d292f1247e3287fb07a9a12377217ce8942cf09 Mon Sep 17 00:00:00 2001
From: "Jeffrey H. Kingston" <jeff@it.usyd.edu.au>
Date: Tue, 14 Sep 2010 20:38:56 +0000
Subject: Lout 3.29.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@27 9365b830-b601-4143-9ba8-b4a8e2c3339c
---
 doc/slides/README     |   2 +-
 doc/slides/outfile.ps | 104 +++++++++++++++++++++++++++++++++++++++++++++++++-
 2 files changed, 103 insertions(+), 3 deletions(-)

(limited to 'doc/slides')

diff --git a/doc/slides/README b/doc/slides/README
index ef1cd6e..e9f093f 100644
--- a/doc/slides/README
+++ b/doc/slides/README
@@ -15,4 +15,4 @@ after the second run.  A copy of the final
 outfile.ps is included.
 
 Jeff Kingston
-20 December 2002
+14 August 2003
diff --git a/doc/slides/outfile.ps b/doc/slides/outfile.ps
index 719a78f..b10b9ee 100644
--- a/doc/slides/outfile.ps
+++ b/doc/slides/outfile.ps
@@ -1,6 +1,6 @@
 %!PS-Adobe-3.0
-%%Creator: Basser Lout Version 3.28 (December 2002)
-%%CreationDate: Fri Dec 20 11:08:45 2002
+%%Creator: Basser Lout Version 3.29 (August 2003)
+%%CreationDate: Thu Aug 14 08:18:58 2003
 %%DocumentData: Binary
 %%DocumentNeededResources: (atend)
 %%DocumentSuppliedResources: (atend)
@@ -1488,6 +1488,106 @@ lgraphdict begin
 { pop pop
 } def
 
+% scale array elements by factor:  <array> <factor> scalearray <array>
+/scalearray
+{
+  [ exch 3 2 roll
+  { exch dup 3 1 roll mul exch } forall
+  pop ]
+} def
+
+% sum array elements:  <array> sumarray <number>
+/sumarray
+{
+  0 exch { add } forall
+} def
+
+% begin a more complex line: <length> <dashlength> linebegin -
+/linebegin
+{
+  % (Entering linebegin) 2 debugprint
+  20 dict begin
+  /dashlen exch 1 pt max def
+  /len exch def
+  /gap dashlen def
+  /halfgap dashlen 2 div def
+  /dash dashlen def
+  /halfdash dashlen 2 div def
+  /dot 0 def
+  % (Leaving linebegin) 0 debugprint
+} def
+% end a more complex line: <linecap> <cycle> <startpos> <stoppos> lineend -
+/lineend
+{
+  % (Entering lineend) 3 debugprint
+  /stoppos exch def
+  /startpos exch def
+  /cycle exch def
+  /linecap exch def
+  /stopposlen stoppos sumarray def
+  /startposlen startpos sumarray def
+  /cyclelen cycle sumarray def
+  /effectivelen len startposlen add stopposlen sub def
+  effectivelen 0 gt cyclelen 0 gt and
+  {
+    /repeats effectivelen cyclelen div ceiling def
+    /factor len repeats cyclelen mul startposlen sub stopposlen add div def
+    cycle factor scalearray startposlen factor mul setdash
+    linecap setlinecap stroke
+  } if
+  end
+  % (Leaving lineend) 0 debugprint
+} def
+
+% stroke a dotdashed line: <length> <dashlength> dotdashed -
+/dotdashed
+{
+  linebegin
+  1 [dash gap dot gap] [] [dash]
+  lineend
+} def
+
+% stroke a dotcdashed line: <length> <dashlength> dotcdashed -
+/dotcdashed
+{
+  linebegin
+  1 [dash gap dot gap] [halfdash] [halfdash]
+  lineend
+} def
+
+% stroke a dotdotdashed line: <length> <dashlength> dotdotdashed -
+/dotdotdashed
+{
+  linebegin
+  1 [dash gap dot gap dot gap] [] [dash]
+  lineend
+} def
+
+% stroke a dotdotcdashed line: <length> <dashlength> dotdotcdashed -
+/dotdotcdashed
+{
+  linebegin
+  1 [dash gap dot gap dot gap] [halfdash] [halfdash]
+  lineend
+} def
+
+% stroke a dotdotdotdashed line: <length> <dashlength> dotdotdotdashed -
+/dotdotdotdashed
+{
+  linebegin
+  1 [dash gap dot gap dot gap dot gap] [] [dash]
+  lineend
+} def
+
+% stroke a dotdotdotcdashed line: <length> <dashlength> dotdotdotcdashed -
+/dotdotdotcdashed
+{
+  linebegin
+  1 [dash gap dot gap dot gap dot gap] [halfdash] [halfdash]
+  lineend
+} def
+
+
 % stroke a y histogram: - yhisto -
 /yhisto
 { xprev yleft trpoint yextra sub moveto
-- 
cgit