suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing graph display

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-31 12:06:15 -06:00
parent 33e6a96589
commit 211af0795b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/meta/drdr/graphs/build-graph.ss
View File

@ -156,14 +156,13 @@
(filter (filter
(λ (x) (<= 2 (length (line-points (car (graph-lines x)))))) (λ (x) (<= 2 (length (line-points (car (graph-lines x))))))
(build-large-graphs data))]) (build-large-graphs data))])
(reverse (let loop ([graphs (reverse large-graphs)])
(let loop ([graphs (reverse large-graphs)])
(let-values ([(first rest) (split-out-graph graphs)]) (let-values ([(first rest) (split-out-graph graphs)])
(cond (cond
[(null? rest) [(null? rest)
(list first)] (list first)]
[else [else
(cons first (loop rest))])))))) (cons first (loop rest))])))))
;; split-out-graphs : (listof graph) -> (values (listof graph) (listof graph)) ;; split-out-graphs : (listof graph) -> (values (listof graph) (listof graph))
;; first result is a set of graphs to go into a single image ;; first result is a set of graphs to go into a single image