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

slides: Update for color objects

db4
Eduardo Cavazos 2008-07-28 17:01:08 -05:00
parent 57f8f811b9
commit 4643501ba6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/slides/slides.factor
View File

@ -23,14 +23,14 @@ IN: slides
H{ H{
{ font "monospace" } { font "monospace" }
{ font-size 36 } { font-size 36 }
{ page-color { 0.4 0.4 0.4 0.3 } } { page-color T{ rgba f 0.4 0.4 0.4 0.3 } }
} }
} }
{ snippet-style { snippet-style
H{ H{
{ font "monospace" } { font "monospace" }
{ font-size 36 } { font-size 36 }
{ foreground { 0.1 0.1 0.4 1 } } { foreground T{ rgba f 0.1 0.1 0.4 1 } }
} }
} }
{ table-content-style { table-content-style
@ -48,14 +48,19 @@ IN: slides
: $divider ( -- ) : $divider ( -- )
[ [
<gadget> <gadget>
T{ gradient f { { 0.25 0.25 0.25 1.0 } { 1.0 1.0 1.0 0.0 } } } >>interior T{ gradient f
{
T{ rgba f 0.25 0.25 0.25 1.0 }
T{ rgba f 1.0 1.0 1.0 0.0 }
}
} >>interior
{ 800 10 } >>dim { 800 10 } >>dim
{ 1 0 } >>orientation { 1 0 } >>orientation
gadget. gadget.
] ($block) ; ] ($block) ;
: page-theme ( gadget -- ) : page-theme ( gadget -- )
T{ gradient f { { 0.8 0.8 1.0 1.0 } { 0.8 1.0 1.0 1.0 } } } T{ gradient f { T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 } } }
swap set-gadget-interior ; swap set-gadget-interior ;
: <page> ( list -- gadget ) : <page> ( list -- gadget )