From d3e671565ffd699b9abed17d66ee357eafb86996 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Fri, 13 Jan 2017 19:28:13 +0300
Subject: [PATCH] charts.lines: add extra points where necessary for drawing

---
 lines/lines.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lines/lines.factor b/lines/lines.factor
index c96dbc45ea..b703607edb 100644
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -106,6 +106,10 @@ TUPLE: line < gadget color data ;
 : between<=> ( value min max -- <=> )
     3dup between? [ 3drop +eq+ ] [ nip > +gt+ +lt+ ? ] if ;
 
+! Drop chunks that are out of bounds, add extra points where needed.
+: (drawable-chunks) ( chunks min max -- chunks )
+    '[ first second _ _ between? ] filter harvest ;
+
 ! Split data into chunks to be drawn within the [ymin,ymax] limits.
 ! Return the (empty?) sequence of chunks, possibly with some new
 ! points at ymin and ymax at the gap bounds.
@@ -113,7 +117,7 @@ TUPLE: line < gadget color data ;
     first2 [
         '[ [ second _ _ between<=> ] bi@ = ]
         monotonic-split-slice
-    ] 2keep '[ first second _ _ between? not ] reject ;
+    ] 2keep (drawable-chunks) ;
 
 PRIVATE>