From ff0c2fdf320c00759095fddbb239933c360ae61d Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Fri, 13 Jan 2017 17:51:42 +0300
Subject: [PATCH] charts.lines: drop slices that are out of y range in
 drawable-chunks

---
 lines/lines.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lines/lines.factor b/lines/lines.factor
index 16bde0b85f..c96dbc45ea 100644
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -110,8 +110,10 @@ TUPLE: line < gadget color data ;
 ! Return the (empty?) sequence of chunks, possibly with some new
 ! points at ymin and ymax at the gap bounds.
 : drawable-chunks ( data ymin,ymax -- chunks )
-    first2 '[ [ second _ _ between<=> ] bi@ = ]
-    monotonic-split-slice ;
+    first2 [
+        '[ [ second _ _ between<=> ] bi@ = ]
+        monotonic-split-slice
+    ] 2keep '[ first second _ _ between? not ] reject ;
 
 PRIVATE>