1 files changed, 40 insertions, 0 deletions
diff --git a/src/input/ribbonsNew.input.pamphlet b/src/input/ribbonsNew.input.pamphlet
new file mode 100644
index 00000000..444c7632
--- /dev/null
+++ b/src/input/ribbonsNew.input.pamphlet
@@ -0,0 +1,40 @@
+\documentclass{article}
+\usepackage{axiom}
+\begin{document}
+\title{\$SPAD/src/input ribbonsNew.input}
+\author{The Axiom Team}
+\maketitle
+\begin{abstract}
+\end{abstract}
+\eject
+\tableofcontents
+\eject
+\section{License}
+<<license>>=
+--Copyright The Numerical Algorithms Group Limited 1994.
+@
+<<*>>=
+<<license>>
+drawRibbons(flist, xrange, yrange) ==
+ sp := createThreeSpace()
+ num := # flist
+ yVar := variable yrange
+ y0:Float    := lo segment yrange
+ width:Float := (hi segment yrange - y0)/num
+ for f in flist for color in 1..num repeat
+  makeObject(f, xrange, yVar = y0..y0+width,
+   var2Steps == 1, colorFunction == (x,y) +-> color, 
+    space ==sp)
+  y0:= y0 + width
+ vp := makeViewport3D(sp, "Ribbons")
+ drawStyle(vp, "shade")
+ outlineRender(vp, "on")
+ showRegion(vp, "on")
+ vp
+
+@
+\eject
+\begin{thebibliography}{99}
+\bibitem{1} nothing
+\end{thebibliography}
+\end{document}