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

Revert "solid-underlined" 

This reverts commit 7e4450776d935a94e1cc013f18b9818ac9af91cd.
db4
nicolas-p 2015-07-19 21:24:18 +02:00 committed by John Benediktsson
parent 9991aa2f3b
commit eb21e05fef
1 changed files with 0 additions and 15 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,18 +30,3 @@ 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 ;