steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

charts.lines: add x and y aliases

char-rename
Alexander Iljin 2017-01-13 23:29:43 +03:00 committed by John Benediktsson
parent e645990eed
commit e11cf1a60b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lines/lines.factor
View File

@ -16,6 +16,9 @@ TUPLE: line < gadget color data ;
: (line-vertices) ( seq -- vertices ) : (line-vertices) ( seq -- vertices )
concat [ 0.3 + ] float-array{ } map-as ; concat [ 0.3 + ] float-array{ } map-as ;
ALIAS: x first
ALIAS: y second
: search-first ( elt seq -- index elt ) : search-first ( elt seq -- index elt )
[ first <=> ] with search ; [ first <=> ] with search ;