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

Fix text rendering on top of transparent background

db4
Slava Pestov 2009-03-10 16:59:15 -05:00
parent 2f26d5f3da
commit ceafe8c69e
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/pens/gradient/gradient.factor
View File

@ -41,4 +41,6 @@ M: gradient draw-interior
[ last-vertices>> gl-vertex-pointer ] [ last-vertices>> gl-vertex-pointer ]
[ last-colors>> gl-color-pointer ] [ last-colors>> gl-color-pointer ]
[ colors>> draw-gradient ] [ colors>> draw-gradient ]
} cleave ; } cleave ;
M: gradient pen-background 2drop transparent ;

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

@ -1,6 +1,6 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors opengl ui.pens ui.pens.caching ; USING: kernel accessors opengl math colors ui.pens ui.pens.caching ;
IN: ui.pens.solid IN: ui.pens.solid
TUPLE: solid < caching-pen color interior-vertices boundary-vertices ; TUPLE: solid < caching-pen color interior-vertices boundary-vertices ;
@ -29,4 +29,4 @@ M: solid draw-boundary
(gl-rect) ; (gl-rect) ;
M: solid pen-background M: solid pen-background
nip color>> ; nip color>> dup alpha>> 1 number= [ drop transparent ] unless ;