vhdl code for a traffic light