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

solid-underlined 

New pen that acts like solid but only draws the bottom border
db4
nicolas-p 2015-07-18 13:15:42 +02:00 committed by John Benediktsson
parent d1594a60db
commit 8a1c75fbed
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basis/ui/pens/solid/solid.factor
View File

@ -30,3 +30,18 @@ M: solid draw-boundary
M: solid pen-background M: solid pen-background
nip color>> dup alpha>> 1 number= [ drop transparent ] unless ; nip color>> dup alpha>> 1 number= [ drop transparent ] unless ;
TUPLE: solid-underlined < solid ;
: <solid-underlined> ( color -- solid-underlined )
solid-underlined new swap >>color ;
<PRIVATE
: bottom-vertices-only ( vertices -- bottom-vertices )
{ 6 7 4 5 4 5 6 7 6 7 } swap nths ;
PRIVATE>
M: solid-underlined boundary-vertices>>
call-next-method bottom-vertices-only ;