From e9606b38d99cbe4fddc183a040bb3770b6423bc1 Mon Sep 17 00:00:00 2001 From: Alexander Iljin 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 ;