Omega in Marble

Using the turbulance filter, we create an marbling effect for the letter \(\omega\) Skip to output

bcol<-"lightgrey"

svgR(wh=c(600,200),
  defs(
    filter( id="marble",
      feTurbulence( in1="SourceGraphic", type="turbulence", 
          baseFrequency=0.05, numOctaves=2, result="marb"
      )
    ),
    clipPath( id="clp1",  text(id="t2", xy=c(0,0), 
      mathSymbol("\\Omega"), stroke="bcol",
      stroke.width=1, font.size=250, font.weight="bold"
    )     
  )      
), 
  g( transform=list(translate=c(50,200)), 
    use(xlink.href="#t2", stroke=bcol,
      fill=bcol , transform=list(scale=c(1,0.4), skewX=-60),
      filter=filter( feGaussianBlur( stdDeviation=10 ))
    ),
    g( transform=list(translate=c(5,-3)),
      use(xlink.href="#t2",fill=bcol, stroke=bcol),
      rect(xy=-c(0,200),wh=c(800,400), fill="blue",
        filter="url(#marble)", clip.path="url(#clp1)"
      )       
    ),
    use(xlink.href="#t2",fill="white"),
    rect(xy=-c(0,200),wh=c(800,400), 
      fill="white", filter="url(#marble)", clip.path="url(#clp1)"
    ),
    use(xlink.href="#t2", fill="none")
  )
)