A quasi-optical beam-tracing code for electron cyclotron waves absorption and current drive in tokamaks