Nice program but not many effects to play with; just the two shadows, it seems
How about a kind of 'glowing outline' effect for people creating mouse-over effect icons. Something like the following is quite effective:
Private Function CreateOutlineGlow(pBaseSurface As cCairoSurface, Optional pGlowColour As Long = vbWhite, Optional pSize As Long) As cCairoSurface
Dim srf As cCairoSurface
If pSize = 0 Then pSize = pBaseSurface.Width * 0.1
'For some reason, when blurring occurs at the very edge of a surface, the colour appears to be solid
'Don't know if this is a Cairo bug but if we make our surface a little larger, we can avoid this problem!
Set srf = Cairo.CreateSurface(pBaseSurface.Width + pSize * 2, pBaseSurface.Height + pSize * 2)
With srf.CreateContext
.RenderSurfaceContent pBaseSurface, pSize, pSize
.SetSourceColor pGlowColour
.Operator = CAIRO_OPERATOR_ATOP
.Paint
srf.FastBlur pSize
End With
Set CreateOutlineGlow = Cairo.CreateSurface(pBaseSurface.Width, pBaseSurface.Height)
CreateOutlineGlow.CreateContext.RenderSurfaceContent srf, -pSize, -pSize
End Function
