School Spirit in the Terminal

Some years back I converted an Auburn University logo to ASCII text using an online ASCII text generator and then colorized it using Perl. I place this file in my home directory as an invisible file named .auburn_logo.pl, and call it from my .bash_profile or .profile. It's sure to impress your friends when you pull up a new terminal window.

See code below:

1:  #!/usr/bin/env perl  
2:  use strict;  
3:  use Term::ANSIColor qw(:constants);  
4:    
5:  my $auburn = '  
6:                   88888888888                    
7:                   888888888888                   
8:                   88OIIIIIII8888                   
9:                  888IIIIIIIII8888                  
10:                  888IIIIIIIIIII888?                  
11:   888888888888888888888888  888IIIIIIIIIIIII8888  888888888888888888888888    
12:   88IIIIIIIIIIIIIIIIIIII88  888IIIIIII8IIIIIII888  88IIIIIIIIIIIIIIIIIIII88    
13:   88IIIIIIIIIIIIIIIIIIII88 888IIIIIII888IIIIIII888 88IIIIIIIIIIIIIIIIIIII88    
14:   88IIIIIIIIIIIIIIIIIIII88 888IIIIIIIO8888IIIIIII888 88IIIIIIIIIIIIIIIIIIII88    
15:   8888888IIIIIIIII88888888888IIIIIII888~888IIIIIII88888888888IIIIIIIII8888888    
16:   8888888IIIIIIIII8888888888IIIIIIIO88$ 8888IIIIIII8888888888IIIIIIIII8888888    
17:      88IIIIIIIII888  888IIIIIIIO88O  8888IIIIIII888  ~88IIIIIIIII888      
18:      88IIIIIIIII888 888IIIIIIIO88~   ~888IIIIIII888 ~88IIIIIIIII888      
19:      88IIIIIIIII888 888IIIIIIII88O    O88ZIIIIIII888 ~88IIIIIIIII888      
20:      88IIIIIIIII888888IIIIIIII888     O888IIIIIII888~88IIIIIIIII888      
21:      88IIIIIIIII88888IIIIIIII88888888888888888OIIIIIII88888IIIIIIIII888      
22:      88IIIIIIIII8888IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII8888IIIIIIIII888      
23:      88IIIIIIIII888IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII888IIIIIIIII888      
24:      88IIIIIIII888IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII888IIIIIIII888      
25:      88IIIIIII888IIIIIIII8888888888888888888888888IIIIIIII888IIIIIII888      
26:      88IIIIII888IIIIIIII888888888888888888888888888IIIIIIII888IIIIII888      
27:      88IIIII888IIIIIIII888            888IIIIIIII888IIIII888      
28:      88IIII888IIIIIIII888             888IIIIIIII888IIII888      
29:   8888888888888IIIIIIII88888888888      88888888888IIIIIIII8888888888888    
30:   888888888888IIIIIIII888888888888      888888888888IIIIIIII888888888888    
31:   88IIIIIIIIIIIIIIIIIIIIIIIIIIII88      88IIIIIIIIIIIIIIIIIIIIIIIIIIII88    
32:   88IIIIIIIIIIIIIIIIIIIIIIIIIIII88      88IIIIIIIIIIIIIIIIIIIIIIIIIIII88    
33:   88IIIIIIIIIIIIIIIIIIIIIIIIIIII88      88IIIIIIIIIIIIIIIIIIIIIIIIIIII88    
34:   88888888888888888888888888888888      88888888888888888888888888888888    
35:      887IIIIIIIII888$                 ?888IIIIIIIIII88      
36:      888IIIIIIIIIII888O               8888IIIIIIIIIII888      
37:      888IIIIIIIIIIII888888           88888IIIIIIIIIIIII888       
38:       888IIIIIIIIIIIIIIIO888888888888888888888887IIIIIIIIIIIIIII888       
39:       888IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII888        
40:        8887IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII888         
41:         8888IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII8888         
42:          8888OIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII8888           
43:           888888$IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII888888            
44:             888888888$IIIIIIIIIIIIIII$888888888              
45:                888888888888888888888888                 
46:  ';  
47:  my @auburn = split(//,$auburn);  
48:  foreach(@auburn){  
49:       if($_ eq 'I'){  
50:            print $_, RESET;  
51:       }else{  
52:            print BLUE $_, RESET;  
53:       }  
54:  }  
55:    

Comments

Popular posts from this blog

Using Audacity as an Oscilloscope

Using Google Command Line Tools to post my Computer Systems Notes

Tracking an LED with OpenCV