实现名字在数码管上的滚动VHDL语言

library ieee;
use ieee.std_logic_1164.all;

entity zhoutaowork is
port 
(
clk : in  std_logic;
y_en : buffer std_logic_vector(0 to 15);
x_en   : out  std_logic_vector(0 to 15)
);
end entity;

architecture rtl_1 of zhoutaowork is

type array_2 is array(0 to 95)of std_logic_vector(15 downto 0);

constant name:array_2 :=(
(x"00"&x"40"),(x"20"&x"40"),(x"10"&x"40"),(x"10"&x"40"),
(x"00"&x"40"),(x"00"&x"44"),(x"F7"&x"FE"),(x"10"&x"40"),
(x"10"&x"40"),(x"10"&x"40"),(x"10"&x"40"),(x"12"&x"40"),
(x"14"&x"40"),(x"18"&x"40"),(x"10"&x"40"),(x"00"&x"40"),

(x"04"&x"10"),(x"0E"&x"10"),(x"F8"&x"90"),(x"08"&x"50"),
(x"08"&x"10"),(x"FE"&x"90"),(x"08"&x"50"),(x"1C"&x"14"),
(x"1A"&x"1E"),(x"29"&x"F0"),(x"28"&x"10"),(x"48"&x"10"),
(x"88"&x"10"),(x"08"&x"10"),(x"08"&x"10"),(x"08"&x"10"),

(x"00"&x"00"),(x"00"&x"08"),(x"7F"&x"FC"),(x"00"&x"00"),
(x"00"&x"00"),(x"00"&x"00"),(x"00"&x"10"),(x"3F"&x"F8"),
(x"00"&x"00"),(x"00"&x"00"),(x"00"&x"00"),(x"00"&x"00"),