LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
 
ENTITY light IS
 
PORT    (
            clk      :   IN  STD_ULOGIC; --50Mhz Systemtakt
            clockWPM :   IN  STD_ULOGIC; -- WPM Takt
 
            reset          :   IN  STD_ULOGIC; --Reset-Signal
            encoded_signal  :   IN  STD_ULOGIC; --Morse Signal from Audio output of Keyboard
            laser_mode_en   :   IN  STD_ULOGIC; --Laser_mode enabled
            enable :   IN  STD_ULOGIC; --DE oder Encoder
 
            laser_input :   IN  STD_ULOGIC; -- Eingabe vom Fotoresistor
            laser_val :  OUT STD_ULOGIC; --Laser Morse Signal
 
            laser_out       :  OUT  STD_ULOGIC
 
    ); 
END light;
 
 
 
 
ARCHITECTURE structure OF light IS
 
 
 
 
BEGIN
 
led:   PROCESS (clockWPM, reset, encoded_signal,enable)
BEGIN
      IF reset = '0' THEN
           laser_out <= '0';
           laser_val <= '0';
 
 
      elsif clockWPM'EVENT AND clockWPM = '1' THEN
 
         IF laser_mode_en = '1' THEN
             IF  enable = '1' THEN
                 laser_out <= encoded_signal;
                 laser_val <= '0';
             ELSE
                 laser_val <= laser_input;
                 laser_out <= '0';
             END IF;
         END IF;
      END IF;
 
END PROCESS;
 
END structure;