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

ui.gadgets.grid-lines: fix rough edges on right and bottom.

db4
John Benediktsson 2015-07-18 14:56:57 -07:00
parent fafff4041d
commit f9cb9765ee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/grid-lines/grid-lines.factor
View File

@ -13,8 +13,8 @@ C: <grid-lines> grid-lines
:: (compute-grid-lines) ( grid n ns orientation -- seq ) :: (compute-grid-lines) ( grid n ns orientation -- seq )
grid gap>> :> gap grid gap>> :> gap
ns n suffix gap orientation v. '[ _ - orientation n*v ] map ns n suffix gap orientation v. '[ _ - orientation n*v ] map
dup grid dim>> gap v- orientation reverse [ v* ] keep '[ _ _ v+ v+ ] map dup grid dim>> gap v- orientation reverse v* '[ _ v+ ] map
[ [ gap [ 2/ ] map v+ ] map ] bi@ zip ; gap [ 2 /f ] map '[ [ _ v+ ] map ] bi@ zip ;
: compute-grid-lines ( grid -- lines ) : compute-grid-lines ( grid -- lines )
dup <grid-layout> dup <grid-layout>