src/input/ribbons.input.pamphlet


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

\documentclass{article}
\usepackage{axiom}
\begin{document}
\title{\$SPAD/src/input ribbons.input}
\author{The Axiom Team}
\maketitle
\begin{abstract}
\end{abstract}
\eject
\tableofcontents
\eject
\section{License}
<<license>>=
--Copyright The Numerical Algorithms Group Limited 1994.
@
<<*>>=
<<license>>
--the second attempt
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}