From: esposito@layout1.Berkeley.EDU (Dave Esposito)
Newsgroups: alt.guitar.tab
Subject: CHORDS Chart (PostScript)
Date: 10 Sep 92 17:24:47 GMT
Reply-To: esposito@cbmvax.commodore.com (Dave Esposito)
Distribution: world
Organization: COMMODORE West Cester PA

The following PostScript file will print, on one page, a chart of chords.

If you have a PostScript printer, try it.
If you like it, "Great".
If you don't, "I'm sorry for wasting your time..."

-------  remove everything above this line -----------------------------
%!PS-Adobe-1.0
%%
%%         Title: Chords Chart
%%            By: Dave Esposito
%% Chord Creator: Martin Leclerc & Mario Dorion
%%
%% Special thanks to the creators of 'chord' Without whom
%% none of this would have been possible.
%%
%%EndComments
/inch {72 mul } def
%  iso.ps  reencodeing of ISO 8859-1 8-bit french characters
%
/reencodedict 5 dict def
/ReEncode
  { reencodedict begin
      /newencoding exch def
      /newfontname exch def
      /basefontname exch def

      /basefontdict basefontname findfont def

      /newfont basefontdict maxlength dict def

      basefontdict
      {  exch dup dup /FID ne exch /Encoding ne and
	{ exch newfont 3 1 roll put }
	{ pop pop }
	ifelse
      } forall
      newfont /FontName newfontname put
      newfont /Encoding newencoding put
      newfontname newfont definefont pop
      end
   } def

/ISO 256 array def

0 1 255 { ISO exch /.notdef put } for
ISO

  dup 8#040 /space put
  dup 8#041 /exclam put
  dup 8#042 /quotedbl put
  dup 8#043 /numbersign put
  dup 8#044 /dollar put
  dup 8#045 /percent put
  dup 8#046 /ampersand put
  dup 8#047 /quotesingle put
  dup 8#050 /parenleft put
  dup 8#051 /parenright put
  dup 8#052 /asterisk put
  dup 8#053 /plus put
  dup 8#054 /comma put
  dup 8#055 /hyphen put
  dup 8#056 /period put
  dup 8#057 /slash put
  dup 8#060 /zero put
  dup 8#061 /one put
  dup 8#062 /two put
  dup 8#063 /three put
  dup 8#064 /four put
  dup 8#065 /five put
  dup 8#066 /six put
  dup 8#067 /seven put
  dup 8#070 /eight put
  dup 8#071 /nine put
  dup 8#072 /colon put
  dup 8#073 /semicolon put
  dup 8#074 /less put
  dup 8#075 /equal put
  dup 8#076 /greater put
  dup 8#077 /question put
  dup 8#100 /at put
  dup 8#101 /A put
  dup 8#102 /B put
  dup 8#103 /C put
  dup 8#104 /D put
  dup 8#105 /E put
  dup 8#106 /F put
  dup 8#107 /G put
  dup 8#110 /H put
  dup 8#111 /I put
  dup 8#112 /J put
  dup 8#113 /K put
  dup 8#114 /L put
  dup 8#115 /M put
  dup 8#116 /N put
  dup 8#117 /O put
  dup 8#120 /P put
  dup 8#121 /Q put
  dup 8#122 /R put
  dup 8#123 /S put
  dup 8#124 /T put
  dup 8#125 /U put
  dup 8#126 /V put
  dup 8#127 /W put
  dup 8#130 /X put
  dup 8#131 /Y put
  dup 8#132 /Z put
  dup 8#133 /bracketleft put
  dup 8#134 /backslash put
  dup 8#135 /bracketrigth put
  dup 8#136 /asciicircum put
  dup 8#137 /underscore put
  dup 8#140 /grave put
  dup 8#141 /a put
  dup 8#142 /b put
  dup 8#143 /c put
  dup 8#144 /d put
  dup 8#145 /e put
  dup 8#146 /f put
  dup 8#147 /g put
  dup 8#150 /h put
  dup 8#151 /i put
  dup 8#152 /j put
  dup 8#153 /k put
  dup 8#154 /l put
  dup 8#155 /m put
  dup 8#156 /n put
  dup 8#157 /o put
  dup 8#160 /p put
  dup 8#161 /q put
  dup 8#162 /r put
  dup 8#163 /s put
  dup 8#164 /t put
  dup 8#165 /u put
  dup 8#166 /v put
  dup 8#167 /w put
  dup 8#170 /x put
  dup 8#171 /y put
  dup 8#172 /z put
  dup 8#173 /braceleft put
  dup 8#174 /bar put
  dup 8#175 /braceright put
  dup 8#176 /asciitilde put
  dup 8#241 /exclamdown put
  dup 8#242 /cent put
  dup 8#243 /sterling put
  dup 8#244 /currency put
  dup 8#245 /yen put
  dup 8#246 /bar put
  dup 8#247 /section put
  dup 8#250 /dieresis put
  dup 8#251 /copyright put
  dup 8#252 /ordfeminine put
  dup 8#253 /guillemotleft put
  dup 8#254 /.notdef put
  dup 8#255 /endash put
  dup 8#256 /registered put
  dup 8#257 /tilde put
  dup 8#260 /ring put
  dup 8#261 /.notdef put
  dup 8#262 /.notdef put
  dup 8#263 /.notdef put
  dup 8#264 /acute put
  dup 8#265 /.notdef put
  dup 8#266 /paragraph put
  dup 8#267 /.notdef put
  dup 8#270 /cedilla put
  dup 8#271 /.notdef put
  dup 8#272 /ordmasculine put
  dup 8#273 /guillemotright put
  dup 8#274 /.notdef put
  dup 8#275 /circumflex put
  dup 8#276 /dotlessi put
  dup 8#277 /questiondown put
  dup 8#300 /Agrave put
  dup 8#301 /Aacute put
  dup 8#302 /Acircumflex put
  dup 8#303 /Atilde put
  dup 8#304 /Adieresis put
  dup 8#305 /Aring put
  dup 8#306 /AE put
  dup 8#307 /Ccedilla put
  dup 8#310 /Egrave put
  dup 8#311 /Eacute put
  dup 8#312 /Ecircumflex put
  dup 8#313 /Edieresis put
  dup 8#314 /Igrave put
  dup 8#315 /Iacute put
  dup 8#316 /Icircumflex put
  dup 8#317 /Idieresis put
  dup 8#320 /.notdef put
  dup 8#321 /Ntilde put
  dup 8#322 /Ograve put
  dup 8#323 /Oacute put
  dup 8#324 /Ocircumflex put
  dup 8#325 /Otilde put
  dup 8#326 /Odieresis put
  dup 8#327 /.notdef put
  dup 8#330 /Oslash put
  dup 8#331 /Ugrave put
  dup 8#332 /Uacute put
  dup 8#333 /Ucircumflex put
  dup 8#334 /Udieresis put
  dup 8#335 /.notdef put
  dup 8#336 /.notdef put
  dup 8#337 /germandbls put
  dup 8#340 /agrave put
  dup 8#341 /aacute put
  dup 8#342 /acircumflex put
  dup 8#343 /atilde put
  dup 8#344 /adieresis put
  dup 8#345 /aring put
  dup 8#346 /ae put
  dup 8#347 /ccedilla put
  dup 8#350 /egrave put
  dup 8#351 /eacute put
  dup 8#352 /ecircumflex put
  dup 8#353 /edieresis put
  dup 8#354 /igrave put
  dup 8#355 /iacute put
  dup 8#356 /icircumflex put
  dup 8#357 /idieresis put
  dup 8#360 /.notdef put
  dup 8#361 /ntilde put
  dup 8#362 /agrave put
  dup 8#363 /oacute put
  dup 8#364 /ocircumflex put
  dup 8#365 /otilde put
  dup 8#366 /odieresis put
  dup 8#367 /.notdef put
  dup 8#370 /oslash put
  dup 8#371 /ugrave put
  dup 8#372 /uacute put
  dup 8#373 /ucircumflex put
  dup 8#374 /udieresis put
  dup 8#375 /ydieresis put
  dup 8#376 /.notdef put
  pop


/CHORD_FONT { /Helvetica-Oblique findfont 7 scalefont } def
/Helvetica-Oblique /Helvetica-Oblique ISO ReEncode
/TEXT_FONT { /Courier findfont 9 scalefont } def
TEXT_FONT setfont
/Courier /Courier ISO ReEncode
% routines for the drawing of the chords
/grid { 
	gsave currentpoint
	6 { 0 cagesizeX rlineto incr -cagesize incr add rmoveto } repeat
	moveto
	5 { cagesize 0 rlineto 0 cagesize sub incr rmoveto } repeat
	1 setlinewidth stroke grestore
	gsave
	0 cagesizeX rmoveto cagesize 0 rlineto
	cagesize 30 div setlinewidth stroke
	grestore	
} def

/dot {
	gsave
	/fret exch def /str exch def
	/x 5  fret abs sub incr mul half-incr sub def
	/y 6 str sub incr mul def
	y x rmoveto
	0 setgray
	-1 fret ne
	{ currentpoint dot-size 0 360 arc fill }
	{ -check -check rmoveto
	  check check rlineto check check rlineto
	  -check -check rmoveto -check check rmoveto
	  check -check rlineto check -check rlineto
	  cagesize 50 div setlinewidth stroke
	} ifelse
	grestore
} def	

/dots {
	grid
	/fret-displ exch def
	  1 1 6
	  {
	    /str exch def
	    /fret exch def
	    fret 0 ne {str fret dot} if
	  } for

	fret-displ 1 ne
	{
    	  gsave
    	  0 cagesize 3 div sub cagesizeX incr sub rmoveto
    	  /char 1 string def fret-displ char cvs show grestore 
	} if

	/chord-name exch def
	gsave displ-font setfont
	0 cagesizeX cagesizeX 15 div add rmoveto
	chord-name stringwidth pop 2 div cagesize 2 div exch sub 0 rmoveto
	chord-name show	chord-font setfont grestore
} def

/cagesize 30 def
/-cagesize 0 cagesize sub def
/incr cagesize 5 div def
/cagesizeX incr 4 mul def
/half-incr incr 2 div def
/dot-size cagesize 15 div def
/check cagesize 20 div def
/-check 0 check sub def

/chord-font /Times-Roman findfont cagesize 5 div scalefont def
/displ-font /Times-Roman findfont cagesize 3 div scalefont def
% end of the routines for the drawing of the chords

%%EndProlog
%%Page: "1" 1
%%BeginPageSetup
/pgsave save def
1.000000 1.000000 scale
0.000000 rotate
%%EndPageSetup
/TEXT_FONT { /Courier findfont 17 scalefont } def
TEXT_FONT setfont
/Courier /Courier ISO ReEncode
(CHORDS  CHART) dup stringwidth pop 2 div
612 2 div exch sub 756 moveto
show
/TEXT_FONT { /Courier findfont 9 scalefont } def
TEXT_FONT setfont
/Courier /Courier ISO ReEncode
72 696 moveto
(Ab or G#) 1 3 3 2 1 1 4 dots        
132 696 moveto
(Abm) 1 3 3 1 1 1 4 dots             
192 696 moveto
(Ab7) -1 -1 1 1 1 2 1 dots           
252 696 moveto
(Abm7) -1 -1 1 1 1 1 4 dots          
312 696 moveto
(Absus) -1 -1 1 1 2 4 1 dots         
372 696 moveto
(Ab+) -1 -1 2 1 1 0 1 dots           
432 696 moveto
(Abdim) -1 -1 0 1 0 1 1 dots         
492 696 moveto
(Abmaj7) -1 -1 1 1 1 3 1 dots        
72 636 moveto
(A) -1 0 2 2 2 0 1 dots              
132 636 moveto
(Am) -1 0 2 2 1 0 1 dots             
192 636 moveto
(A7) -1 0 2 0 2 0 1 dots             
252 636 moveto
(Am7) -1 0 2 2 1 3 1 dots            
312 636 moveto
(Asus) -1 -1 2 2 3 0 1 dots          
372 636 moveto
(A+) -1 0 3 2 2 1 1 dots             
432 636 moveto
(Adim) -1 -1 1 2 1 2 1 dots          
492 636 moveto
(Amaj7) -1 0 2 1 2 0 1 dots          
72 576 moveto
(Bb or A#) -1 1 3 3 3 1 1 dots       
132 576 moveto
(Bbm) -1 1 3 3 2 1 1 dots            
192 576 moveto
(Bb7) -1 -1 1 1 1 2 3 dots           
252 576 moveto
(Bbm7) -1 1 3 1 2 1 1 dots           
312 576 moveto
(Bbsus) -1 -1 3 3 4 1 1 dots         
372 576 moveto
(Bb+) -1 -1 0 3 3 2 1 dots           
432 576 moveto
(Bbdim) -1 -1 2 3 2 3 1 dots         
492 576 moveto
(Bbmaj7) -1 1 3 2 3 -1 1 dots        
72 516 moveto
(B) -1 2 4 4 4 2 1 dots              
132 516 moveto
(Bm) -1 2 4 4 3 2 1 dots             
192 516 moveto
(B7) 0 2 1 2 0 2 1 dots              
252 516 moveto
(Bm7) -1 1 3 1 2 1 2 dots            
312 516 moveto
(Bsus) -1 -1 3 3 4 1 2 dots          
372 516 moveto
(B+) -1 -1 1 0 0 4 1 dots            
432 516 moveto
(Bdim) -1 -1 0 1 0 1 1 dots          
492 516 moveto
(Bmaj7) -1 2 4 3 4 -1 1 dots         
72 456 moveto
(C) 0 3 2 0 1 0 1 dots               
132 456 moveto
(Cm) -1 1 3 3 2 1 3 dots             
192 456 moveto
(C7) 0 3 2 3 1 0 1 dots              
252 456 moveto
(Cm7) -1 1 3 1 2 1 3 dots            
312 456 moveto
(Csus) -1 -1 3 0 1 3 1 dots          
372 456 moveto
(C+) -1 -1 2 1 1 0 1 dots            
432 456 moveto
(Cdim) -1 -1 1 2 1 2 1 dots          
492 456 moveto
(Cmaj7) -1 3 2 0 0 0 1 dots          
72 396 moveto
(Db or C#) -1 -1 3 1 2 1 1 dots      
132 396 moveto
(Dbm) -1 -1 2 1 2 0 1 dots           
192 396 moveto
(Db7) -1 -1 3 4 2 4 1 dots           
252 396 moveto
(Dbm7) -1 -1 2 4 2 4 1 dots          
312 396 moveto
(Dbsus) -1 -1 3 3 4 1 4 dots         
372 396 moveto
(Db+) -1 -1 3 2 2 1 1 dots           
432 396 moveto
(Dbdim) -1 -1 2 3 2 3 1 dots         
492 396 moveto
(Dbmaj7) -1 4 3 1 1 1 1 dots         
72 336 moveto
(D) -1 -1 0 2 3 2 1 dots             
132 336 moveto
(Dm) -1 -1 0 2 3 1 1 dots            
192 336 moveto
(D7) -1 -1 0 2 1 2 1 dots            
252 336 moveto
(Dm7) -1 -1 0 2 1 1 1 dots           
312 336 moveto
(Dsus) -1 -1 0 2 3 3 1 dots          
372 336 moveto
(D+) -1 -1 0 3 3 2 1 dots            
432 336 moveto
(Ddim) -1 -1 0 1 0 1 1 dots          
492 336 moveto
(Dmaj7) -1 -1 0 1 1 1 1 dots         
72 276 moveto
(Eb or D#) -1 -1 3 1 2 1 3 dots      
132 276 moveto
(Ebm) -1 -1 4 3 4 2 1 dots           
192 276 moveto
(Eb7) -1 -1 1 3 2 3 1 dots           
252 276 moveto
(Ebm7) -1 -1 1 3 2 2 1 dots          
312 276 moveto
(Ebsus) -1 -1 1 3 4 4 1 dots         
372 276 moveto
(Eb+) -1 -1 1 0 0 4 1 dots           
432 276 moveto
(Ebdim) -1 -1 1 2 1 2 1 dots         
492 276 moveto
(Ebmaj7) -1 -1 1 3 3 3 1 dots        
72 216 moveto
(E) 0 2 2 1 0 0 1 dots               
132 216 moveto
(Em) 0 2 2 0 0 0 1 dots              
192 216 moveto
(E7) 0 2 2 1 3 0 1 dots              
252 216 moveto
(Em7) 0 2 2 0 3 0 1 dots             
312 216 moveto
(Esus) 0 2 2 2 0 0 1 dots            
372 216 moveto
(E+) -1 -1 2 1 1 0 1 dots            
432 216 moveto
(Edim) -1 -1 2 3 2 3 1 dots          
492 216 moveto
(Emaj7) 0 2 1 1 0 -1 1 dots          
72 156 moveto
(F) 1 3 3 2 1 1 1 dots               
132 156 moveto
(Fm) 1 3 3 1 1 1 1 dots              
192 156 moveto
(F7) 1 3 1 2 1 1 1 dots              
252 156 moveto
(Fm7) 1 3 1 1 1 1 1 dots             
312 156 moveto
(Fsus) -1 -1 3 3 1 1 1 dots          
372 156 moveto
(F+) -1 -1 3 2 2 1 1 dots            
432 156 moveto
(Fdim) -1 -1 0 1 0 1 1 dots          
492 156 moveto
(Fmaj7) -1 3 3 2 1 0 1 dots          
72 96 moveto
(Gb or F#) 2 4 4 3 2 2 1 dots        
132 96 moveto
(Gbm) 2 4 4 2 2 2 1 dots             
192 96 moveto
(Gb7) -1 -1 4 3 2 0 1 dots           
252 96 moveto
(Gbm7) -1 -1 2 2 2 2 1 dots          
312 96 moveto
(Gbsus) -1 -1 4 4 2 2 1 dots         
372 96 moveto
(Gb+) -1 -1 4 3 3 2 1 dots           
432 96 moveto
(Gbdim) -1 -1 1 2 1 2 1 dots         
492 96 moveto
(Gbmaj7) -1 -1 4 3 2 1 1 dots        
72 36 moveto
(G) 3 2 0 0 0 3 1 dots               
132 36 moveto
(Gm) 1 3 3 1 1 1 3 dots              
192 36 moveto
(G7) 3 2 0 0 0 1 1 dots              
252 36 moveto
(Gm7) 1 3 1 1 1 1 3 dots             
312 36 moveto
(Gsus) -1 -1 0 0 1 3 1 dots          
372 36 moveto
(G+) -1 -1 1 0 0 4 1 dots            
432 36 moveto
(Gdim) -1 -1 2 3 2 3 1 dots          
492 36 moveto
(Gmaj7) -1 -1 1 2 3 4 2 dots         
pgsave restore
showpage
%%EndPage: "1" 1
%%
%%
%%
%%
%%     _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ 
%%                                        _/
%%      _/_/_/      _/    _/  _/  _/_/_/ _/ 
%%     _/   _/    _/_/   _/  _/  _/     _/   This is MY OPINION ONLY!
%%    _/    _/  _/  _/  _/  _/  _/     _/   It does not reflect the
%%   _/    _/  _/  _/  _/  _/  _/_/   _/   opinions of my employer.
%%  _/    _/  _/_/_/  _/  _/  _/     _/ 
%% _/   _/   _/  _/   _/_/   _/     _/
%%_/_/_/    _/  _/    _/    _/_/_/ _/  esposito@cbmvax.commodore.com
%%                                _/
%% _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/
%%Todays music ain't got the same soul, I like that old time rock and roll 
%%
%%EOF