[gnuplot filterproto
tom@goto10.org**20071019201335] {
hunk ./host/filterproto.ss 3
- (require "stream.ss")
+ (require "stream.ss"
+ (lib "match.ss")
+ (lib "process.ss"))
hunk ./host/filterproto.ss 14
- (cos (/ (* k n pi) N))))
+ (cos (/ (* 2 k n pi) N))))
hunk ./host/filterproto.ss 17
+ ;; gnuplot
+ (define (open-gnuplot)
+ (match (process "gnuplot")
+ ((stdout
+ stdin
+ pid
+ stderr
+ control) stdin)))
hunk ./host/filterproto.ss 26
-
-
-
+ (define (plot-list lst p)
+ (display "plot '-' with lines\n" p)
+ (let next ((l lst)
+ (n 0))
+ (match l
+ (()
+ (begin
+ (display "e\n" p)
+ (flush-output p)))
+ ((a . l+)
+ (begin
+ (display (format "~a ~a\n" n a) p)
+ (next l+ (+ n 1)))))))
addfile ./tex/index.html
hunk ./tex/index.html 1
+Brood/Purrr Papers
+
+
+These are DRAFT papers.
+
+Purrr [html] [ps] [pdf]
+Brood [html] [ps] [pdf]
+
}