ASCII Art Archery Arrows
Perl, 298 bytes

for$y(0..($w=&lt;&gt;)*16-1){$r=$w*3;for$x(0..$w*6-1){$z=$x&lt;$r?$x:$w*6-$x-1,$_.=$z==$r-$y-1&amp;&amp;$y&lt;$w*2||!$z&amp;&amp;$y&gt;=$w*13-1||($z==$w*16-1-$y||$z==$w*13-1-$y)&amp;&amp;$z&lt;$w*2?$x&lt;$r?'/':'\\':$z==$y-$w&amp;&amp;$y&gt;=$w*2&amp;&amp;$y&lt;$r?$x&lt;$r?'\\':'/':$z==$r-$w&amp;&amp;$y&gt;=$r&amp;&amp;$y&lt;$w*14?'|':$z&gt;=$r-$w&amp;&amp;($y==$r-1||$y==$w*14-1)?_:$&quot;}$_.=$/}print

Multi-line:
for$y(0..($w=&lt;&gt;)*16-1){$r=$w*3;  # read input and loop over rows
    for$x(0..$w*6-1){  # loop over columns

        # flip x on right side of arrow:
        $z=$x&lt;$r?$x:$w*6-$x-1;

        # slashes on fletching and tip of arrowhead:
        $_.=$z==$r-$y-1&amp;&amp;$y&lt;$w*2||!$z&amp;&amp;$y&gt;=$w*13-1||($z==$w*16-1-$y||$z==$w*13-1-$y)&amp;&amp;$z&lt;$w*2?$x&lt;$r?'/':'\\':
        
        # slashes on underside of arrowhead:
        $z==$y-$w&amp;&amp;$y&gt;=$w*2&amp;&amp;$y&lt;$r?$x&lt;$r?'\\':'/':

        # vertical bars on side of shaft:
        $z==$r-$w&amp;&amp;$y&gt;=$r&amp;&amp;$y&lt;$w*14?'|':

        # underscores on base of arrowhead and shaft:
        $z&gt;=$r-$w&amp;&amp;($y==$r-1||$y==$w*14-1)?_:$&quot;
   }
   $_.=$/  # add newline at end of each row
}
print  # print out string

Output:

2
     /\     
    /  \    
   /    \   
  /      \  
  \      /  
   \____/   
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
    |  |    
   /|  |\   
  / |  | \  
 /  |  |  \ 
/   |  |   \
/   |  |   \
/   |__|   \
/  /    \  \
/ /      \ \
//        \\
/          \

Thanks to Dom Hastings for helping me save 5 (and counting) bytes