charts.lines: add x and y aliases

2017-01-13 23:29:43 +03:00 · 2017-01-13 23:29:43 +03:00 · e11cf1a60b
parent e645990eed
commit e11cf1a60b
1 changed files with 3 additions and 0 deletions
--- 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 ;