VHDL- Suche Lösungshilfe für eine Problemstellung

[M. T. (yohojoe)]

So hallo zusammen,

Der Code unten gehört zu einem Projekt dass so gut wie fertig ist. Das 
ganze Projekt umfasst ein Spiel in dem man mithilfe eines Gamepad's eine 
Spielfigur durch einen Hindernisparkour hindurch manövrieren muss. Das 
ganze geschieht mithilfe eines FPGA-Boards und über eine VGA-Ausgabe.

Das einzige das noch Probleme macht ist eine Kollisionsbeschreibung. Die 
Spielfigur soll nämlich nach der Kollision mit einem Hindernis auf den 
Start reseted werden.

Eine Möglichkeit wäre, es mithilfe der Koordinaten aller Hindernisse zu 
machen, falls bereiche der Spielfigur sich auf diesen Koordinaten 
befinden einen reset durchzuführen.


Allerdings wäre es viel weniger Aufwand das ganze an den Farben 
festzumachen.

Hintergrund = weiß
Hindernisse = schwarz
Spielfigur  = blau


Und zwar ist es so gedacht dass der linke obere Pixel der Figur 
beweglich ist und der Rest des Quadrats immer konstant zur jeweiligen 
Position "aufgespannt" wird.

Zur Lösung der Kollision mithilfe einer Farbabfrage sollen zusätzlich 
alle Pixel die das Quadrat unmittelbar berühren abgefragt werden ob 
dessen farbe Weiß (=kein reset) oder schwarz (=reset) ist.

Das Problem ist aber dass ich noch keine Ahnung habe wie ich das 
Anstellen soll...

Es fehlt lediglich nur noch die Abfrage der Farbe der "Randpixel". 
Verbindungen in ein reset-modul sind schon vorhanden. Im code unter 
--Kollision-- sind die jetzigen Bemühungen zu sehen, die aber mehr oder 
weniger mist sind.

Kann mir da jemand vielleicht helfen? Ich wäre euch sehr dankbar

MfG

----------------------------------------------------------------------------------
-- Company:     
-- Engineer:     
-- 
-- Create Date:    12:20:00 03/25/2013 
-- Design Name: 
-- Module Name:    Farbansteuerung - Behavioral 
-- Project Name: 
-- Target Devices: 
-- Tool versions: 
-- Description: 
--
-- Dependencies: 
--
-- Revision: 
-- Revision 0.01 - File Created
-- Additional Comments: 
--
----------------------------------------------------------------------------------
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;


entity Farbansteuerung is 

  PORT  (  
      REDout           : OUT std_logic_vector (2 DOWNTO 0);
      BLUEout           : OUT std_logic_vector (2 DOWNTO 0);
      GREENout         : OUT std_logic_vector (2 DOWNTO 0); 
      vz_inoutin        : IN std_logic_vector (9 downto 0);
      hz_inoutin        : IN std_logic_vector (9 downto 0);
      clk25in          : IN std_logic;
      reset_freigabe_in   : IN std_logic;
      kollision_out      : OUT std_logic;
      bewegung_oben_in     : IN std_logic_vector(9 downto 0);
       bewegung_unten_in   : IN std_logic_vector(9 downto 0);
       bewegung_rechts_in   : IN std_logic_vector(9 downto 0);
       bewegung_links_in   : IN std_logic_vector(9 downto 0)
      --mauer_reset_out     : OUT std_logic_vector (9 downto 0)
      );
      
end Farbansteuerung;

architecture Behavioral of Farbansteuerung is

--signal mauer_reset: std_logic_vector (9 DOWNTO 0);

signal kollision: std_logic := '0';

begin 

process(clk25in,reset_freigabe_in)  


variable schwarz: std_logic_vector(1 downto 0) := "00";
variable spielfigur_x : std_logic_vector(9 downto 0) := "0010001110"; -- + bewegung_rechts_in - bewegung_links_in;
variable spielfigur_y : std_logic_vector(9 downto 0) := "0111101111"; -- - bewegung_oben_in + bewegung_unten_in;

begin

   if (clk25in'EVENT AND clk25in = '1') then
  

  
  --mauer_reset <= "0010101011" + bewegung_rechts_in - bewegung_links_in; 
  
  
  if(reset_freigabe_in = '1')then
  REDout   <= "000"; 
   BLUEout   <= "000";
  GREENout <= "000";
  
  
  if 
       hz_inoutin     <  "0010010000"  --81   positionierungseinstellung bildschirm 21/70
  or     hz_inoutin     >  "1100010000"  --784
  or   vz_inoutin     <  "0000000011"  --3 
  or   vz_inoutin     >  "1000001001"  --521
  
  THEN
  REDout   <= "000"; 
   BLUEout   <= "000";
  GREENout <= "000"; 
  
  
  --spielfigur (blue)
  elsif   
  (    
      --  (hz_inoutin   >  "0010001110" + bewegung_rechts_in - bewegung_links_in)  --142  
  --AND    (hz_inoutin   <  "0010101011" + bewegung_rechts_in - bewegung_links_in)  --171
  --AND   (vz_inoutin   >  "0111101111" - bewegung_oben_in + bewegung_unten_in)  --495 
  --AND   (vz_inoutin   <   "1000001001" - bewegung_oben_in + bewegung_unten_in)  --521
  
  --      (hz_inoutin = spielfigur_x) --27 "0000011011"
  --  AND  (vz_inoutin = spielfigur_y)   --24 "0000011000"
  
  
        (hz_inoutin   >  spielfigur_x + bewegung_rechts_in - bewegung_links_in)    
  AND    (hz_inoutin   <  spielfigur_x + bewegung_rechts_in - bewegung_links_in  +  "0000011011") 
  AND     (vz_inoutin   >  spielfigur_y - bewegung_oben_in + bewegung_unten_in)   
  AND     (vz_inoutin   <   spielfigur_y - bewegung_oben_in + bewegung_unten_in  +  "0000011000") 
  
  )  
    
  THEN 
    REDout   <= "000"; 
    BLUEout   <= "111";
    GREENout <= "000"; 
    
    
  --Kollison--
  
  --ELSIF
  --(
  --  REDout       = "000" 
  --  AND BLUEout   = "000"
  --  AND GREENout   = "000"
  --)
  
      --THEN
      --schwarz <= "0000000001";
      
      
      --ELSE
      --schwarz <= "0000000000";
    
      
      
      
      
  ELSIF
  (
      
    schwarz =  spielfigur_x + bewegung_rechts_in - bewegung_links_in -   "0000000001"   
    OR schwarz =  spielfigur_x + bewegung_rechts_in - bewegung_links_in  +  "0000011100"   
    OR schwarz = spielfigur_y - bewegung_oben_in + bewegung_unten_in              
    OR schwarz = spielfigur_y - bewegung_oben_in + bewegung_unten_in  +  "0000011001"   
  
  )
  
      THEN
      kollision <= '1';
      
      
      --ELSE
      --kollision <= '0';
      
      
  
  --Leveldesign 
  --Hindernis (schwarz) 
  --1
  ELSIF   
  (    (hz_inoutin   >  "0011000001")  --192 
  AND  (hz_inoutin   <  "0011001011")  --203
  AND   (vz_inoutin   >  "0001011010")  --90 
  AND   (vz_inoutin    <   "1000001001")  --521  
  )  
  
  --2
  OR 
  (    (hz_inoutin   >  "0011111101")  --253 
  AND  (hz_inoutin   <  "0100001000")  --264
  AND   (vz_inoutin   >  "0000100111")  --39 
  AND   (vz_inoutin    <   "0101100000")  --352
  )
  
  --3 
  OR 
  (    (hz_inoutin   >  "0011001010")  --202 
  AND  (hz_inoutin   <  "0101000011")  --323
  AND   (vz_inoutin   >  "0110010011")  --403 
  AND   (vz_inoutin    <   "0110011110")  --414
  )
  
  --4 
  OR 
  (    (hz_inoutin   >  "0100111000")  --312 
  AND  (hz_inoutin   <  "0101000011")  --323
  AND   (vz_inoutin   >  "0011010010")  --210
  AND   (vz_inoutin    <   "0110011110")  --414
  )

  --5
  OR 
  (    (hz_inoutin   >  "0100111000")  --312 
  AND  (hz_inoutin   <  "1010011010")  --666
  AND   (vz_inoutin   >  "0011010010")  --210 
  AND   (vz_inoutin    <   "0011011101")  --221
  )
  
  --6  
  OR 
  (    (hz_inoutin   >  "1010001111")  --655 
  AND  (hz_inoutin   <  "1010011010")  --666
  AND   (vz_inoutin   >  "0001011010")  --90 
  AND   (vz_inoutin    <   "0011011101")  --221
  )
  
  --7 
  OR 
  (    (hz_inoutin   >  "0100111011")  --315 
  AND  (hz_inoutin   <  "1010011010")  --666
  AND   (vz_inoutin   >  "0001011010")  --90 
  AND   (vz_inoutin    <   "0001100101")  --101
  )  
  
  --8 
  OR 
  (    (hz_inoutin   >  "0011111101")  --253 
  AND  (hz_inoutin   <  "1001100111")  --615
  AND   (vz_inoutin   >  "0010010110")  --150
  AND   (vz_inoutin    <   "0010100001")  --161
  )
  
  --9 
  OR 
  (    (hz_inoutin   >  "1011001010")  --714 
  AND  (hz_inoutin   <  "1011010101")  --725
  AND   (vz_inoutin   >  "0000100111")  --39
  AND   (vz_inoutin    <   "0111010110")  --470
  )

  --10  
  OR 
  (    (hz_inoutin   >  "0101110101")  --373 
  AND  (hz_inoutin   <  "1011010101")  --725
  AND   (vz_inoutin   >  "0100001111")  --271
  AND   (vz_inoutin    <   "0100011010")  --282
  )
  
  --11   
  OR 
  (    (hz_inoutin   >  "0101110101")  --373 
  AND  (hz_inoutin   <  "0110000000")  --384
  AND   (vz_inoutin   >  "0100001111")  --271
  AND   (vz_inoutin    <   "0111010110")  --470
  )
  
  --12    
  OR 
  (    (hz_inoutin   >  "0011111110")  --354 
  AND  (hz_inoutin   <  "0110000000")  --384
  AND   (vz_inoutin   >  "0111001011")  --459
  AND   (vz_inoutin    <   "0111010110")  --470
  )

  --13      
  OR 
  (    (hz_inoutin   >  "0111110100")  --500 
  AND  (hz_inoutin   <  "0111111111")  --511
  AND   (vz_inoutin   >  "0101001101")  --333
  AND   (vz_inoutin    <   "1000001001")  --521  
  )
  
  
  THEN 
    REDout  <= "000"; 
    BLUEout   <= "000";
    GREENout <= "000";
    schwarz := "01";
    
    
  --Ziel
  ELSIF   
  (    (hz_inoutin   >  "1011010100")  --724
  AND  (hz_inoutin   <  "1100010010")  --786
  AND   (vz_inoutin   >  "0000100111")  --39 
  AND   (vz_inoutin    <   "0001000001")  --65
  )  
  
  
  THEN 
    REDout  <= "000"; 
    BLUEout   <= "000";
    GREENout <= "111";
  
  
  else
  REDout   <= "111"; 
   BLUEout   <= "111";
  GREENout <= "111";
  --Kollision--
  schwarz := "00";  
  kollision <= '0';

  
  END IF;
  END IF;
  end if;
  

 
end process; 

--mauer_reset_out <= mauer_reset;
kollision_out <= kollision;
  
end Behavioral;

[Dr. Schnaggels (Gast)]

Hast Du schon mal versucht, dein Problem/deine(?) Beschreibung zu 
simulieren?

[M. T. (Gast)]

Die beschreibung funktioniert soweit, man kann sich lediglich noch durch 
die hindernisse hindurchbewegen ohne einen reset hervorzurufen

[M. T. (yohojoe)]

*push

[Klaus (Gast)]

*pop

[Achim S. (Gast)]

Hallo M.T.,

damit ich es richtig verstehe: du suchst nach dem Grund, warum die 
Zuweisung

M. T. schrieb:
> THEN
>       kollision <= '1';

nie ausgeführt wird? Das kann entweder daran liegen, dass die Bedingung

M. T. schrieb:
> ELSIF
>   (
>
>     schwarz =  spielfigur_x + bewegung_rechts_in - bewegung_links_in - 
"0000000001"
>     OR schwarz =  spielfigur_x + bewegung_rechts_in - bewegung_links_in  + 
"0000011100"
>     OR schwarz = spielfigur_y - bewegung_oben_in + bewegung_unten_in
>     OR schwarz = spielfigur_y - bewegung_oben_in + bewegung_unten_in  + 
"0000011001"
>
>   )

nie erfüllt ist. Oder es liegt daran, dass diese Bedingung nicht 
abgefragt wird, weil irgendeine andere Bedinung in deinem 
if/then/elsif/else-Konstrukt dafür sorgt, dass du nicht an diese Stelle 
zu Kollisionsprüfung kommst.

Welches von beiden der tatsächliche Grund ist, wird dir hier im Forum 
wohl keiner verraten. (Stell dir vor, du hättest diesen Code nicht 
selbst geschrieben: könntest du dann etwas mit diesen Monsterabfragen 
anfangen?)

Mein Rat an dich:
1) gewöhn dir eine sinnvolle Einrückung an, damit du erkennst, welches 
elsif zu welchem if gehört
2) mal dir für solche Abfragen vorab ein Struktogramm oder ein 
Flussdiagramm mit dem du planen kannst, in welcher Situation auf dem 
Spielfeld welche Entscheidungen getroffen werden. (das mach ich selbst 
zwar auch selten, aber sobald man den Überblick im 
if/then/elsif-Dschungel verliert, wird es Zeit dafür.)
3) führe eine Simulation durch, bei der es zu einer Kollission kommen 
müsste. Wenn die Kollision nicht erkannt wird: schau in der Simulation 
nach, warum nicht.