From e9606b38d99cbe4fddc183a040bb3770b6423bc1 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Sun, 8 Jan 2017 14:14:56 +0300
Subject: [PATCH] charts.lines: add dummy drawable-chunks

---
 lines/lines.factor | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lines/lines.factor b/lines/lines.factor
index a26d45b7b8..05dbe4e1aa 100644
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -59,6 +59,12 @@ TUPLE: line < gadget color data ;
         2drop { } clone
     ] if ;
 
+! 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.
+: drawable-chunks ( ymin,ymax data -- chunks )
+    1array nip ;
+
 PRIVATE>
 
 : draw-line ( seq -- )
@@ -81,5 +87,6 @@ M: line draw-gadget*
     dup parent>> dup chart? [
         chart-axes swap
         [ color>> gl-color ] [ data>> ] bi
-        clip-data [ draw-line ] unless-empty
+        dupd clip-data [ second ] dip drawable-chunks
+        [ [ draw-line ] each ] unless-empty
     ] [ 2drop ] if ;