vinylArea function

1 parameter - r
radius of vinyl