From e11cf1a60b5630d2160cb514effc5eac5fc4d514 Mon Sep 17 00:00:00 2001 From: Alexander Iljin Date: Fri, 13 Jan 2017 23:29:43 +0300 Subject: [PATCH] charts.lines: add x and y aliases --- lines/lines.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lines/lines.factor b/lines/lines.factor index 7dd288944b..864f5caefe 100644 --- a/lines/lines.factor +++ b/lines/lines.factor @@ -16,6 +16,9 @@ TUPLE: line < gadget color data ; : (line-vertices) ( seq -- vertices ) concat [ 0.3 + ] float-array{ } map-as ; +ALIAS: x first +ALIAS: y second + : search-first ( elt seq -- index elt ) [ first <=> ] with search ;