A Current-Based Algorithm for the Design of Metasurface Antennas