Fix gradient in slides
parent
5c51d9fd2c
commit
b3e63a2b1a
|
|
@ -0,0 +1 @@
|
|||
Slava Pestov
|
||||
|
|
@ -0,0 +1 @@
|
|||
Slides from a talk at Galois by Slava Pestov, October 2008
|
||||
|
|
@ -0,0 +1 @@
|
|||
demos
|
||||
|
|
@ -0,0 +1 @@
|
|||
Slava Pestov
|
||||
|
|
@ -0,0 +1 @@
|
|||
Slides from Google Tech Talk by Slava Pestov, October 2008
|
||||
|
|
@ -0,0 +1 @@
|
|||
demos
|
||||
|
|
@ -48,19 +48,17 @@ IN: slides
|
|||
: $divider ( -- )
|
||||
[
|
||||
<gadget>
|
||||
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
|
||||
{
|
||||
T{ rgba f 0.25 0.25 0.25 1.0 }
|
||||
T{ rgba f 1.0 1.0 1.0 0.0 }
|
||||
} <gradient> >>interior
|
||||
{ 800 10 } >>dim
|
||||
{ 1 0 } >>orientation
|
||||
gadget.
|
||||
] ($block) ;
|
||||
|
||||
: page-theme ( gadget -- )
|
||||
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 } } }
|
||||
{ T{ rgba f 0.8 0.8 1.0 1.0 } T{ rgba f 0.8 1.0 1.0 1.0 } } <gradient>
|
||||
>>interior drop ;
|
||||
|
||||
: <page> ( list -- gadget )
|
||||
|
|
|
|||
|
|
@ -0,0 +1 @@
|
|||
Slava Pestov
|
||||
|
|
@ -0,0 +1 @@
|
|||
Slides from a talk at VPRI by Slava Pestov, October 2008
|
||||
|
|
@ -0,0 +1 @@
|
|||
demos
|
||||
Loading…
Reference in New Issue