diff --git a/scpaste-585123.pl b/scpaste-585123.pl
index a23cf20..8fe0613 100644
--- a/scpaste-585123.pl
+++ b/scpaste-585123.pl
@@ -39 +39 @@ while ( my $key = ReadKey(0) ){
-			$aoa[$row][$col] = '.' unless $aoa[$row][$col] eq 'O';
+			$aoa[$row][$col] = '.' unless $aoa[$row][$col] eq 'O' or $aoa[$row][$col] eq '#';
@@ -66 +66 @@ sub field_of_view{
-		
+		my $radius = $pov_radius; # reinit from global
@@ -75 +75 @@ sub field_of_view{
-		for ( 0..$pov_radius ){
+		for (my $r = 0; $r < $radius; $r++){
@@ -77 +77 @@ sub field_of_view{
-			print "\t$_ : intOX ".int($ox)." intOY ".int($oy)."\n" if $debug;
+			print "\t$r : r $r radius $radius intOX ".int($ox)." intOY ".int($oy)."\n" if $debug;
@@ -85,2 +85,6 @@ sub field_of_view{
-					$aoa[ int($ox) ][ int($oy) ] ne 'X';
-					
+					$aoa[ int($ox) ][ int($oy) ] ne 'X' and
+					$aoa[ int($ox) ][ int($oy) ] ne '#';
+            if ($aoa[ int($ox) ][ int($oy) ] eq '#') {
+                print "semi\n";
+                $radius /= 2;
+            }
@@ -119 +123 @@ __DATA__
-      O           OOOOOO OOO  
+      #           OOOOOO OOO