charts.lines: remove middle and its tests

diff --git a/lines/lines-tests.factor b/lines/lines-tests.factor
index 663592498bd2dcf0536f3f8aff69c07dadd905ed..29efcbf197abaa809212e2f351c943c058b91236 100644 (file)
--- a/lines/lines-tests.factor
+++ b/lines/lines-tests.factor
@@ -220,10 +220,6 @@ IN: charts.lines.tests
     drawable-chunks [ { } like ] map
 ] unit-test
 
-{ 0 } [ -10 10 middle ] unit-test
-{ 15 } [ 10 20 middle ] unit-test
-{ -81/2 } [ -50 -31 middle ] unit-test
-
 {
     { { { 0 300 } { 1 200 } { 2 150 } { 3 100 } { 4 0 } } }
 } [

diff --git a/lines/lines.factor b/lines/lines.factor
index a6229459f408a76274627d59f6148c93ec0d8447..6418b9408447d493be894eaf078fa46f8ff15223 100644 (file)
--- a/lines/lines.factor
+++ b/lines/lines.factor
@@ -199,10 +199,8 @@ ALIAS: y second
         monotonic-split-slice
     ] 2keep (drawable-chunks) ;
 
-: middle ( min max -- middle ) + 2 / ;
-
 : flip-y-axis ( chunks ymin,ymax -- chunks )
-    first2 middle 2 * '[ [ _ swap - ] assoc-map ] map ;
+    first2 + '[ [ _ swap - ] assoc-map ] map ;
 
 ! value' = (value - min) / (max - min) * width
 : scale ( width value max min -- value' ) neg [ + ] curry bi@ / * ;