setCaseIgnored false be convert_guitar_to_notes be convert_g2n in [addNote 0][volume 127] out=[] stab=Table [ E -17 a -12 d -7 g -2 h 2 e 7 ] s="g len=1 note=256 while [in != []] [ n=first in ifelse Number? n [ out=(se out note len*tempo volume) note=s+n+addNote len=1 ][ while [(first n)==".] [ len=len+1 n=butFirst n ] if not empty? n [ s=stab.n ] ] in=butfirst in ] out=(se out note len*tempo volume) output out end be drawLines p0=Pos for [i 0 4] [ right 90 PenDown forward 800 PenUp back 800 left 90 forward lineSpacing ] setPos p0 end be newline setX -380 back lineSpacing*10 drawLines end be drawNotes notes base with_Bs tonart ; ct ; show notes if empty? notes [stop] ntab#=Table [ -24 -14 -23 #-14 -22 -13 -21 -12 -20 #-12 -19 -11 -18 #-11 -17 -10 -16 -9 -15 #-9 -14 -8 -13 #-8 -12 -7 -11 #-7 -10 -6 -9 -5 -8 #-5 -7 -4 -6 #-4 -5 -3 -4 -2 -3 #-2 -2 -1 -1 #-1 0 0 1 #0 2 1 3 2 4 #2 5 3 6 #3 7 4 8 5 9 #5 10 6 11 #6 12 7 13 #7 14 8 15 9 16 #9 17 10 18 #10 19 11 20 12 21 #12 22 13 23 #13 ] ntabB=Table [ -12 -7 -11 b-6 -10 -6 -9 -5 -8 b-4 -7 -4 -6 b-3 -5 -3 -4 -2 -3 b-1 -2 -1 -1 b0 0 0 1 b1 2 1 3 2 4 b3 5 3 6 b4 7 4 8 5 9 b6 10 6 11 b7 12 7 13 b8 14 8 15 9 16 b10 17 10 18 b11 19 11 20 12 21 b13 22 13 23 b14 ] ntab=ifelse with_Bs [ntabB][ntab#] be octaves t output (se t t-12 t+12 t-24) end b=1 es=6 as=11 des=4 ges=9 ces=3 fes=7 btab=Table 7 btab'F=b btab'B=(se b es) btab'Es=(se b es as) btab'As=(se b es as des) btab'Des=(se b es as des ges) btab'Ges=(se b es as des ges ces) btab'Ces=(se b es as des ges ces fes) fis=9 cis=4 gis=11 dis=6 ais=1 eis=8 his=4 stab=Table 7 stab'G=fis stab'D=(se fis cis) stab'A=(se fis cis gis) stab'E=(se fis cis gis dis) stab'H=(se fis cis gis dis ais) stab'Fis=(se fis cis gis dis ais eis) stab'Cis=(se fis cis gis dis ais eis his) newline foreach btab.tonart [ n=ntab.? if (first n)=="b [ b=true n=butFirst n ] p0=Pos forward (n+3)*lineSpacing/2 right 90 PenDown label "b PenUp setPos p0 forward noteSpacing*0.7 left 90 ] foreach stab.tonart [ n=ntab.? if (first n)=="# [ sharp=true n=butFirst n ] p0=Pos forward (n+3)*lineSpacing/2 right 90 PenDown label "# PenUp setPos p0 forward noteSpacing*0.7 left 90 ] right 90 forward noteSpacing left 90 btab'F=octaves btab'F btab'B=octaves btab'B btab'Es=octaves btab'Es btab'As=octaves btab'As btab'Des=octaves btab'Des btab'Ges=octaves btab'Ges btab'Ces=octaves btab'Ces stab'G=octaves stab'G stab'D=octaves stab'D stab'A=octaves stab'A stab'E=octaves stab'E stab'H=octaves stab'H stab'Fis=octaves stab'Fis stab'Cis=octaves stab'Cis n=0 if (first notes) > 255 [ notes=butFirst butFirst butFirst notes ] while [not empty? notes] [ p0=Pos no=n n=first notes notes=butFirst notes len=first notes nn=base+modulo (n-base) 12 nq=7*int (n-base)/12 n=ntab.nn ;(type n "| |) sharp=false aufloes=false ifelse (first n)=="# [ sharp=true n=butFirst n if member? nn stab.tonart [ sharp=false ston=true ] ][ if member? nn+1 stab.tonart [ aufloes=true ] ] b=false ifelse (first n)=="b [ b=true n=butFirst n if member? nn btab.tonart [ b=false bton=true ] ][ if member? nn-1 btab.tonart [ aufloes=true ] ] forward (n+nq+3)*lineSpacing/2 extraSpace=0 if sharp or2 b or2 aufloes [ right 90 PenDown if sharp [label "#] if b [label "b] if aufloes [label "%] PenUp forward noteSpacing*0.7 left 90 extraSpace=noteSpacing ] PenDown circle lineSpacing/3 right 90 setPenSize 3 forward noteSpacing*len/70/3 setPenSize 0 left 90 PenUp setPos p0 right 90 forward noteSpacing*(0.5+len/70/4)+extraSpace left 90 if xCor > 400-noteSpacing*2 [ newline ] if key? [break] notes=butFirst butFirst notes ] updateGraph end be drawStrings p0=Pos for [i 1 6] [ right 90 PenDown Label [E A D g h e].i ops=first PenSize setPenSize 0 forward 800 setPenSize ops PenUp back 800 left 90 forward stringSpacing ] setPos p0 end be drawGit in addNote newstrings stab=Table [ E 0 a 1 d 2 g 3 h 4 e 5 ] len=1 s=3 snew=3 note=0 while [in != []] [ n=first in ifelse Number? n [ if number? s [ p0=Pos forward s*stringSpacing right 90 PenDown label note PenUp setPos p0 forward noteSpacing*1.7 left 90 s=snew ] note=n+addNote len=1 ][ while [(first n)==".] [ len=len+1 n=butFirst n ] if not empty? n and2 not number? n [ snew=stab.n ] ] if xCor > 400-noteSpacing*2 [ newstrings ] in=butFirst in ] if number? s [ p0=Pos forward s*stringSpacing right 90 PenDown label note PenUp setPos p0 forward noteSpacing*1.7 left 90 s=snew ] end be newstrings setX -380 back stringSpacing*10 drawStrings end be tune1 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] bass1=[] bass2=[] bass=[] akk1=[] m1=[.... g 9 ... h 8 .. 12 . 8 .. 12 . 8 .. 12 . 8 .. 12 . 8 .. g 9 .. 10 ... h 10 .. 13 . 10 .. 13 . 10 ...........] m2=[h 12 ... e 12 ..... h 12 .... e 12 ... e 8 ..... h 10 .... e 8 ... h 12 ..... 8 .... 12 ... 10 ..... 7 ..... .... 8 ..... ... g 9 ..... h 7 ..... g 7 ... h 7 .... g 9 ..] m22=[g 9 .......................................................] m3=[.... g 9 . 11 . 12 . h 10 . 12 ... 12 ... 12 . 10 . g 12 . 11 . 9 ..... h 10 . 12 . 13 . e 10 . 12 ... 12 ... 12 . 10 h 13 . 12 . 10 ...] m4=[.... e 7 .. 12 ... 7 .. 12 .. 7 ... 12 .... 12 .... 7 .. 8 .... 8 .... h 10 .. e 8 .... 8 .... h 10 ..] m5=[.... g 9 .. h 8 .. e 7 .. 12 .. 7 . 12 .. 11 . 7 . 11 .. 10 .. 7 . 10 .. 9 h . 10 . e 8 . 7 .. h 8 .. g 9 .. d 9 ......] melo=(se m1 m1 m3 m1 m1 m2 m22 m5 m4 m4 m1 m1 m2 m22) ; melo=m2 bass1=[a 6 ... 7 ..... 7 .... E 7 ... a 7 ..... 7 .... 6 ... 5 ..... 5 .... E 5 ... a 5 ..... 5 ....] bass2=[a 6 ... 7 ..... 7 .... 7 ... E 5 ..... 5 .... 5 ... 7 ..... 7 .... 7 ... 5 ..... 5 .... 5 ... 8 ..... 8 .... 8 ... 10 ..... 10 .... 10 ... a 7 ..... 7 .... 7 ... 7 ..... 7 .... 7 ... 7 ..... 7 .... 7 ... 7 ..... ..... 6 ...] bass=(se bass1 bass1 bass1 bass1 bass1 bass2 bass1 bass1 bass1 bass1 bass1 bass2) ; bass=bass2 akk11=[d 4 ... 5 ..... 5 .... . ... 5 ..... 5 .... 4 ... 3 ..... 3 .... . ... 3 ..... 3 ....] akk12=[d 4 ... 5 ..... 5 .... 5 ... a 7 ..... 7 .... 7 ... 9 ..... 9 .... 9 ... 7 ..... 7 .... 7 ... 10 ..... 10 .... 10 ... 12 ..... 12 .... 12 ... d 5 ..... 5 .... 5 ... 5 ..... 5 .... 5 ... 5 ..... 5 .... 5 ... 5 ..... ..... 4 ...] akk1=(se akk11 akk11 akk11 akk11 akk11 akk12 akk11 akk11 akk11 akk11 akk11 akk12) akk21=[g 6 ... 7 ..... 7 .... . ... 7 ..... 7 .... 6 ... 5 ..... 5 .... . ... 5 ..... 5 ....] akk22=[g 6 ... 7 ..... 7 .... 7 ... d 5 ..... 5 .... 5 ... 7 ..... 7 .... 7 ... 5 ..... 5 .... 5 ... 10 ..... 10 .... 10 ... 12 ..... 12 .... 12 ... g 7 ..... 7 .... 7 ... 7 ..... 7 .... 7 ... 7 ..... 7 .... 7 ... 7 ..... ..... 6 ...] akk2=(se akk21 akk21 akk21 akk21 akk21 akk22 akk21 akk21 akk21 akk21 akk21 akk22) tr=-2 tonart="F melo=(convert_g2n melo 55+tr) bass=(convert_g2n bass 55-12+tr) akk1=(convert_g2n akk1 55+tr 63) akk2=(convert_g2n akk2 55+tr 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 drawTheGit=false drawTheGit=true if drawTheGit [ drawGit m1 tr drawGit m2 tr drawGit m3 tr drawGit m4 tr drawGit m5 tr ] drawTheNotes=false ; drawTheNotes=true if drawTheNotes [ drawNotes (convert_g2n m1 -12+tr) 7 true tonart drawNotes (convert_g2n m2 -12+tr) -9 true tonart drawNotes (convert_g2n m3 -12+tr) -7 true tonart drawNotes (convert_g2n m4 -12+tr) -7 true tonart drawNotes (convert_g2n m5 -12+tr) -12 true tonart ] drawTheNotesSax=false ; drawTheNotesSax=true tonart2="D if drawTheNotesSax [ drawNotes (convert_g2n m1 -12+tr-3) 11 false tonart2 drawNotes (convert_g2n m2 -12+tr-3) -12 false tonart2 drawNotes (convert_g2n m3 -12+tr-3) -12 false tonart2 drawNotes (convert_g2n m4 -12+tr-3) -12 false tonart2 drawNotes (convert_g2n m5 -12+tr-3) -15 false tonart2 ] useMidi=false useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end be tune2 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] bass1=[] bass2=[] bass3=[] bass=[] akk1=[] m1=[d 7 ... g 7 .. h 5 ... 6 .. 5 ... g 7 .. 6 ... d 7 .. g 4 ... 6 .. 7 .... 7 ... 7 ..... d 7 .. 7 ... 8 .. 7 .... 7 ... 7 ..... 5 .. a 8 .. 7 ... 5 .... 5 ... 5 .....] m2=[a 5 . 8 . d 7 . g 7 ..... 6 ..... 7 ..... 9 ..... h 6 ... g 9 ..... h 6 ..... 8 ..... 9 ..... 10 ..... 6 ..... g 7 ..... h 6 ... g 7 ... d 7 ..... a 8 ..... ... h 6 ..... 6 .... 5 ..... 5 .... g 7 ... 7 .... d 7 ..... 7 . 7 .. 7 . 7 ... 5 ... a 8 ... 7 ... 5 .....] m3=[ e 5 . 5 . 5 .. 6 ... 5 .. 4 ... 5 .. h 6 ... 3 .. 6 .. 6 .... 6 ..... h 6 ... e 4 .. h 6 ... 5 .. 5 .... 5 ..... 5 ... e 3 .. h 2 ... 3 ... g 3 ... 2 ... d 3 ... 2 ... a 4 ... E 5 ... d 3 ... d 0 ... 0 .. 2 ... 2 .. 3 ... 3 .. 5 ... 5 .. 6 ... 7 ... g 7 .....] m4=[] m5=[] melo=(se m1 m2 m2 m1 m3) ; melo=m3 ; bass1=[a 5 5 E 5 5 a 5 5 5 5 a 5 3 E 5 5 5 5 a 3 5 5 5 5] ; bass2=[a 5 5 E 3 6 a 4 5 5 5 5 5 5 5 5 5 E 3 3 5 5 5 3 a 6 5 5] ; bass3=[a 5 5 5 5 5 5 5 E 5 5 5 a 5 E 3 5 5 a 5 7 8 E 3 4 5 a 5] bass=(se bass1 bass2 bass3) ; bass=bass2 akk11=[] akk12=[] akk13=[] akk1=(se akk11 akk12 akk13) akk21=[] akk22=[] akk23=[] akk2=(se akk21 akk22 akk23) melo=(convert_g2n melo 55) bass=(convert_g2n bass 55-12) akk1=(convert_g2n akk1 55 63) akk2=(convert_g2n akk2 55 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 tonart="F tr=0 drawTheGit=false ; drawTheGit=true if drawTheGit [ drawGit m1 tr drawGit m2 tr drawGit m3 tr ] drawTheNotes=false ; drawTheNotes=true if drawTheNotes [ drawNotes (convert_g2n m1 -12+tr) -3 true tonart drawNotes (convert_g2n m2 -12+tr) 1 true tonart drawNotes (convert_g2n m3 0+tr) -12 true tonart ] tonart="D drawTheNotesSax=false drawTheNotesSax=true if drawTheNotesSax [ drawNotes (convert_g2n m1 -12+tr-3) -6 false tonart drawNotes (convert_g2n m2 -12+tr-3) -2 false tonart drawNotes (convert_g2n m3 0+tr-3) -12 false tonart ] useMidi=false ; useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end be tune3 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] bass1=[] bass2=[] bass3=[] bass=[] akk1=[] m1=[g 5 6 .. h 5 ... 7 ... e 7 9 .. 7 ... 5 ... h 8 .. 7 .. 5 ... g 7 ... 5 . 6 .. h 8 ... 8 ... 7 .. 8 ...] m2=[e 11 11 10 8 h 10 8 g 9 7 5 6 h 8 8 7 8] m3=[h 10 g 9 h 8 7 g 9 7 5 7 9 5 6 d 7 7 5 7] m4=[] m5=[] melo=(se m1 m2) melo=m1 bass1=[E 5 ..... ........ 5 ..... ........ 5 ..... ........ 5 ..... 4 .......] bass2=[E 4 ..... ........ 4 ..... ........ 4 ..... ........ 4 ..... 3 .......] bass3=[E 2 2 0 0 1 0] bass=(se bass1 bass2 bass3) ; bass=bass2 akk11=[.... h 8 .. d 7 ... g 6 ..] akk12=[.... h 7 .. d 6 ... g 5 ..] akk13=[d 6 .....] akk14=[d 5 .....] akk1=(se akk11 akk11 akk11 akk11 akk13); akk12 akk12 akk12 akk12 akk14) akk21=[] akk22=[] akk23=[] akk2=(se akk21 akk22 akk23) melo=(convert_g2n melo 55) bass=(convert_g2n bass 55-12) akk1=(convert_g2n akk1 55 63) akk2=(convert_g2n akk2 55 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 tonart="A drawTheNotes=false ; drawTheNotes=true if drawTheNotes [ drawNotes (convert_g2n m1 0) 3 false tonart drawNotes (convert_g2n m2 -12) -7 false tonart drawNotes (convert_g2n m3 0) -12 false tonart ] useMidi=false useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end be tune4 ; 24.07.2007 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] m7=[] bass1=[] bass2=[] bass=[] akk1=[] akk2=[] m1=[d 5 ....... g 5 ....... h 4 ....... e 3 ... 3 ....... h 4 ... e 3 ....... h 4 ... e 3 ....... .... d 5 ....... g 5 ....... h 4 ....... e 3 ... 3 ....... h 4 ... e 3 ....... 4 ... h 6 ....... .... d 5 ....... g 4 ....... h 3 ....... 6 ... 6 ........ 3 ... 6 ....... 3 ... 6 ....... ....... e 7 ....... ........ 3 ... 4 ... 3 ... h 6 ... 4 ... 3 ... g 5 ... 4 ... 5 ...] m2=[h 8 .. 9 .. 8 .. 6 .. 8 .. 6 .. g 8 .. 10 .. 8 .. 7 ....... h 6 .. 8 .. 6 .. g 8 .. 10 .. 8 .. 7 .. 8 .. 7 .. 5 ....... 8 .. 10 .. 8 .. 7 .. 8 .. 7 .. 5 .. 7 .. 5 .. 4 .......] m3=[d 5 . 5 . 6 ... 5 ... 4 ... 5 ... 3 . a 6 ... 5 ... 6 ... 3 .......] m4=[a 3 . 6 . d 5 . 4 . 5 . g 5 . 4 . 5 . 7 . 5 . 4 . d 6 . 5 ...... 5 . 6 . 5 . 4 . 5 . 3 . a 6 . d 3 . a 6 . 5 . 3 . 2 . 3 .......] m5=[h 8 ... 7 ... 8 ... 9 ....... 8 ....... 6 ....... 4 ....... 6 . 8 . 6 . 4 . 3 ....... 6 . 8 . 6 . 4 . 3 ....... .... g 8 ... 7 ... 8 ... 10 ....... 8 ....... 7 ....... 5 ....... 7 . 8 . 7 . 5 . 4 ....... 7 . 8 . 7 . 5 . 4 ....... ....] m6=[g 5 .. 4 .. 5 .. 7 .. 6 .. 7 .. 8 .. 7 .. 8 .. 7 ....... 8 .. 7 .. 8 .. 10 .. 9 .. 10 .. 12 .. 11 .. 12 .. 10 ....... 12 .. 10 .. 8 .. 7 .. 8 .. 10 .. 8 .. 7 .. 5 .. 7 ....... 8 .. 7 .. 5 .. 4 .. 5 .. 7 .. 5 ....... d 5 .......] m71=[d 8 ....... 9 .......] m72=[d 10 ... g 8 ... h 8 ... 11 ... e 8 ... h 11 ... 8 ... g 8 ... d 10 ....... a 10 ....... d 10 ....... 8 .......] m73=[d 5 ... g 3 ... h 3 ... 6 ... e 3 ... h 6 ... 3 ... g 3 ... d 5 ....... 5 ....... a 5 .......] m74=[d 3 .......] m75=[d 3 ....... 1 ....... a 3 ....... d 5 ....... g 3 ....... h 4 ....... e 6 .......] m7=(se m71 m72 m72 m73 m74 m73 m75) melo=(se m1 m2 m3 m4 m5 m6 m7) ; melo=m4 bass1=[] bass2=[] ; bass=(se bass1) ; bass=bass2 akk11=[] akk12=[] ; akk1=(se akk11) akk21=[] akk22=[] ; akk2=(se akk21) tr=0 melo=(convert_g2n melo 55+tr) bass=(convert_g2n bass 55-12+tr) akk1=(convert_g2n akk1 55+tr 63) akk2=(convert_g2n akk2 55+tr 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 noteSpacing=12 drawTheGit=false ; drawTheGit=true if drawTheGit [ drawGit m1 tr drawGit m2 tr drawGit m3 tr drawGit m4 tr drawGit m5 tr drawGit m6 tr drawGit m7 tr ] noteSpacing=11 drawTheNotes=false ; drawTheNotes=true tonart="Es if drawTheNotes [ drawNotes (convert_g2n m1 -12+tr) 4 true tonart drawNotes (convert_g2n m2 -12+tr) 4 true tonart drawNotes (convert_g2n m3 -12+tr) 4 true tonart drawNotes (convert_g2n m4 -12+tr) 4 true tonart drawNotes (convert_g2n m5 -12+tr) 4 true tonart drawNotes (convert_g2n m6 -12+tr) 12 true tonart drawNotes (convert_g2n m7 -12+tr) 4 true tonart ] drawTheNotesSax=false drawTheNotesSax=true tonart2="C if drawTheNotesSax [ drawNotes (convert_g2n m1 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m2 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m3 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m4 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m5 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m6 -12+tr-3) 9 false tonart2 drawNotes (convert_g2n m7 -12+tr-3) 1 false tonart2 ] useMidi=false ; useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end be tune5 ; 16.08.2007 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] m7=[] bass1=[] bass2=[] bass=[] akk1=[] akk2=[] m1=[ g 4 ... 5 ... 7 ... h 4 ... 6 ... 8 ... 9 ... 8 ....... .... 4 ... 8 ....... ........ .... g 4 ... 5 ... 7 ... h 4 ... 6 ... 8 ... 9 ... 6 ....... .... 4 ... 6 ....... ........ .... g 4 ... 7 ... h 6 ... 8 ... 6 ... 4 ... g 7 ... h 4 ....... .... g 7 ... h 4 ....... ........ .... g 5 ... h 4 ... 8 ... 6 ... 4 ... g 7 ... 5 ... 7 ....... .... 4 ... 7 ....... ....... ....] m2=[d 5 ... g 5 . 4 . 5 . 7 . 8 . 7 . 8 . h 6 . 8 . 9 . 8 . 4 . 8 ..... g 7 . h 8 . 9 . 8 . g 7 . e 7 ... d 5 ... h 8 ... 8 . 9 . 8 . 7 . 8 ... 8 . 9 . 8 . 6 . 8 . 6 . g 8 . 7 . 8 . 7 . 5 . 4 . 5 ...] m3=[h 8 ... e 8 ... h 8 ... 9 . 8 . 6 . 9 . 8 . 6 . g 8 . h 8 . 6 ... g 7 ... 8 ... 5 ... 7 . 5 . 4 . 7 . 5 .......] m41=[d 5 ... 7 ... g 4 ... 5 ... 8 ... 8 ... 8 ... 8 ... 7 . 5 ... 7 . 8 ... 7 ... 5 . 4 ... 5 . 7 ... 5 ...] m42=[g 5 ... 7 ... 9 ... h 6 ... 9 ... 9 ... 9 ... 9 ... 8 . 6 ... 8 . 9 ... 8 ... 6 . 5 ... 6 . 8 ... 6 ...] m4=(se m41 m41 m42 m42) melo=(se m1 m2 m3 m4 m3) ; melo=m4 bass1=[] bass2=[] ; bass=(se bass1) ; bass=bass2 akk11=[] akk12=[] ; akk1=(se akk11) akk21=[] akk22=[] ; akk2=(se akk21) tr=0 melo=(convert_g2n melo 55+tr) bass=(convert_g2n bass 55-12+tr) akk1=(convert_g2n akk1 55+tr 63) akk2=(convert_g2n akk2 55+tr 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 noteSpacing=12 drawTheGit=false ; drawTheGit=true if drawTheGit [ drawGit m1 tr drawGit m2 tr drawGit m3 tr drawGit m4 tr ] noteSpacing=11 drawTheNotes=false drawTheNotes=true tonart="Es if drawTheNotes [ drawNotes (convert_g2n m1 -12+tr) 4 true tonart drawNotes (convert_g2n m2 -12+tr) 4 true tonart drawNotes (convert_g2n m3 -12+tr) 4 true tonart drawNotes (convert_g2n m4 -12+tr) 4 true tonart ] drawTheNotesSax=false ; drawTheNotesSax=true tonart2="C if drawTheNotesSax [ drawNotes (convert_g2n m1 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m2 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m3 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m4 -12+tr-3) 1 false tonart2 ] useMidi=false ; useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end be tune6 ; 2.08.2007 m1=[] m2=[] m3=[] m4=[] m5=[] m6=[] m7=[] bass1=[] bass2=[] bass=[] akk1=[] akk2=[] m1=[d 4 ... 7 ... g 4 ... 6 . 6 ....... 4 ... 6 ... 7 ... 6 ... 4 ... 6 ... 7 ... 6 ... 4 ... 6 ... 7 ... h 5 ... 7 ... 8 . 5 .......] m21=[g 4 . 7 . 4 . 4 . h 5 . g 4 . 4 . h 7 . g 4 . 4 . h 5 . g 4 . 4 . 7 . 4 . 4 . 6 ... 4 ...] m22=[g 0 . 7 . 0 . 0 . h 5 . g 0 . 0 . h 7 . g 0 . 0 . h 5 . g 0 . 0 . 7 . 0 . 0 . 6 ... 0 ...] m2=(se m21 m21 m22 m22) m3=[g 4 ... h 7 ... 7 ... 7 ... 7 ... 5 . g 7 ... 6 . 4 ... d 5 ... h 7 ... 7 ... 8 . 5 .......] m4=[d 5 ... g 4 ... 7 ... h 7 ....... 5 ....... g 7 ... 6 ... 6 ... 6 ... 6 ... 6 ... 6 ... 6 ... 6 ... h 7 ... 7 ... 7 ... 7 ... 7 ... 7 ... 7 ... 7 ... 5 ... 5 ... 5 ... 5 ... 5 ... 5 ... 5 ... 5 ...] m5=[g 4 . 7 . h 7 . e 7 ... 6 ... 5 ... 4 ... h 8 ... 7 ... 6 ... 7 ... g 7 ... 4 ... 7 ....... 4 ....... 7 ....... 4 ... d 5 ... g 7 ....... 4 ... a 7 ....... g 7 ... 4 ... a 7 ... g 7 ....... 4 ...] m6=[g 4 ....... ........ ........ ........ d 4 ... g 4 ... 6 ... 7 ... 6 ... 4 ... d 7 ... g 4 ... d 7 ... g 4 . d 7 . 5 . 4 . 5 ....... a 7 . d 4 . 5 ... 4 . 5 . 7 ...] melo=(se m1 m1 m2 m3 m3 m4 m4 m5 m6 m6 m1) ; melo=m6 bass1=[] bass2=[] ; bass=(se bass1) ; bass=bass2 akk11=[] akk12=[] ; akk1=(se akk11) akk21=[] akk22=[] ; akk2=(se akk21) tr=1 melo=(convert_g2n melo 55+tr) bass=(convert_g2n bass 55-12+tr) akk1=(convert_g2n akk1 55+tr 63) akk2=(convert_g2n akk2 55+tr 63) setScreenRange -400 -400*4/3 400 400*4/3 clearScreen PenUp hideTurtle disableRoundLineEnds setLabelSize [1 1]*lineSpacing*2 setXY -380 500 noteSpacing=12 drawTheGit=false ; drawTheGit=true if drawTheGit [ drawGit m1 tr drawGit m2 tr drawGit m3 tr drawGit m4 tr drawGit m5 tr drawGit m6 tr ] noteSpacing=11 drawTheNotes=false ; drawTheNotes=true tonart="Es if drawTheNotes [ drawNotes (convert_g2n m1 -12+tr) 4 true tonart drawNotes (convert_g2n m2 -12+tr) 4 true tonart drawNotes (convert_g2n m3 -12+tr) 4 true tonart drawNotes (convert_g2n m4 -12+tr) 4 true tonart drawNotes (convert_g2n m5 -12+tr) 4 true tonart drawNotes (convert_g2n m6 -12+tr) 4 true tonart ] drawTheNotesSax=false drawTheNotesSax=true tonart2="C if drawTheNotesSax [ drawNotes (convert_g2n m1 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m2 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m3 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m4 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m5 -12+tr-3) 1 false tonart2 drawNotes (convert_g2n m6 -12+tr-3) 1 false tonart2 ] useMidi=false ; useMidi=true if useMidi [ MidiOpen 0 MidiProgramChange 0 0 MidiProgramChange 1 32 MidiProgramChange 2 24 MidiProgramChange 3 24 (MidiOutStream 0 melo) (MidiOutStream 1 bass) (MidiOutStream 2 akk1) (MidiOutStream 3 akk2) MidiOutStreamsStart ] end WindowMode lineSpacing=10 noteSpacing=15 stringSpacing=12 tempo=70 ; tune1 tempo=70 ; tune2 tempo=70 ; tune3 tempo=70 ; tune4 tempo=70 ; tune5 tempo=70 tune6 end