Google Logo

A Google logo. Skip to output

  WH=c(800,200)
  google<-strsplit("google","")[[1]]
  fill<-c( 'blue', 'red', 'yellow','blue', 'green', 'red')
  rotation<-c(3,-20,5,-35,30,20)
  svgR( wh=WH,
    g( 
      text(  cxy=WH/2, font.size=72, font.weight='bold', font.family = "Verdan",  
        lapply(1:6, function(i) tspan( google[i], fill=fill[i],   stroke="black" , rotate=rotation[i])   )
      ),
      filter=filter(
        feMerge(
          feMergeNode( #shadow
            in1=feGaussianBlur(  in1='SourceAlpha', stdDeviation=3 )
          ), 
          feMergeNode(  #emboss
            in1=feComposite( operator='arithmetic', k1234=c(0,1,1,0),
              in1="SourceGraphic",
              in2=feComposite( operator="in",
                in1= feSpecularLighting( surfaceScale=-3, style='lighting-color:white', specularConstant=1, 
                  specularExponent=16,  kernelUnitLength=1,
                  feDistantLight(azimuth=45, elevation=45),
                  in1=feGaussianBlur(  in1='SourceAlpha', stdDeviation=2)
                ),
                in2="SourceGraphic"
              )
            )
          )
        )
      )
    )
  )