extensions [sound]; to prettyPattern ca cro 16 ask turtles [fd 10] wait 2 cro 36 ask turtles [fd 10] wait 2 play wait 2 ask turtles [fd 5] wait 2 play2 ask turtles [fd 1] wait 2 ask turtles [fd 4] playTrumpet end to play foreach [48 50 52 53 55 57 59 60 62 64 65 67 69 71 72 74 76 77 79 81 83 84 83 81 79 77 76 74 72 71 69 67 65 64 62 60 59 57 55 53 52 50 48 ] [ sound:start-note "XYLOPHONE" ? 65 wait 0.2 sound:stop-note "XYLOPHONE" ? ] end to play2 foreach [ 48 52 50 53 52 55 53 57 55 59 57 60 59 62 60 64 62 65 64 67 65 69 67 71 69 72 71 74 72 76 74 77 76 79 77 81 79 83 81 84 83 86 84 83 81 79 77 76 74 72 71 69 67 65 64 62 60 59 57 55 53 52 50 48 ] [ sound:start-note "XYLOPHONE" ? 65 wait 0.2 sound:stop-note "XYLOPHONE" ? ] end to play3 foreach [48 52 50 53 52 55 53 57 55 59 57 60 59 62 60 64 62 65 64 67 65 69 67 71 69 72 71 74 72 76 74 77 76 79 77 81 79 83 81 84 83 86 84 83 81 79 77 76 74 72 71 69 67 65 64 62 60 59 57 55 53 52 50 48 ] [ sound:start-note "XYLOPHONE" ? 65 wait 0.1 sound:stop-note "XYLOPHONE" ? ] end to playBach foreach [ 60 64 67 72 76 67 72 76 60 64 67 72 76 67 72 76 60 62 69 74 77 69 74 77 60 62 69 74 77 69 74 77 59 62 67 74 77 67 74 77 59 62 67 74 77 67 74 77 60 64 67 72 76 67 72 76 60 64 67 72 76 67 72 76 60 64 69 76 81 69 76 81 60 64 69 76 81 69 76 81 60 62 66 69 74 66 69 74 60 62 66 69 74 66 69 74 59 62 67 74 79 67 74 79 59 62 67 74 79 67 74 79 59 60 64 67 72 64 67 72 59 60 64 67 72 64 67 72 57 60 64 67 72 64 67 72 57 60 64 67 72 64 67 72 50 57 62 66 72 62 66 72 50 57 62 66 72 62 66 72 55 59 62 67 71 62 67 71 55 59 62 67 71 62 67 71 55 58 64 67 73 64 67 73 55 58 64 67 73 64 67 73 53 57 62 69 74 62 69 74 53 57 62 69 74 62 69 74 53 56 62 65 71 62 65 71 53 56 62 65 71 62 65 71 52 55 60 67 72 60 67 72 52 55 60 67 72 60 67 72 52 53 57 60 65 57 60 65 52 53 57 60 65 57 60 65 50 53 57 60 65 57 60 65 50 53 57 60 65 57 60 65 43 50 55 59 65 55 59 65 43 50 55 59 65 55 59 65 48 52 55 60 64 55 60 64 48 52 55 60 64 55 60 64 48 55 58 60 64 58 60 64 48 55 58 60 64 58 60 64 41 53 57 60 64 57 60 64 41 53 57 60 64 57 60 64 42 52 57 60 63 57 60 63 42 52 57 60 63 57 60 63 43 51 59 60 63 59 60 63 43 51 59 60 63 59 60 63 44 53 59 60 62 59 60 62 44 53 59 60 62 59 60 62 43 53 55 59 62 55 59 62 43 53 55 59 62 55 59 62 ] [ sound:start-note "TRUMPET" ? 65 wait 0.2 sound:stop-note "TRUMPET" ? ] end to playTrumpet foreach [48 52 50 53 52 55 53 57 55 59 57 60 59 62 60 64 62 65 64 67 65 69 67 71 69 72 71 74 72 76 74 77 76 79 77 81 79 83 81 84 83 86 84 83 81 79 77 76 74 72 71 69 67 65 64 62 60 59 57 55 53 52 50 48 47 45 43 41 40 38 36 ] [ sound:start-note "TRUMPET" ? 65 wait 0.1 sound:stop-note "TRUMPET" ? ] sound:start-note "TRUMPET" 36 65 wait 0.2 sound:start-note "TRUMPET" 40 65 wait 0.2 sound:start-note "TRUMPET" 43 65 wait 0.5 sound:stop-note "TRUMPET" 36 sound:stop-note "TRUMPET" 40 sound:stop-note "TRUMPET" 43 chordTrumpet chordTrumpet2 chordTrumpet3 end to chordTrumpet sound:start-note "TRUMPET" 48 65 wait 1 sound:start-note "TRUMPET" 52 65 wait 1 sound:start-note "TRUMPET" 55 65 wait 1 sound:start-note "TRUMPET" 60 65 wait 2 sound:stop-note "TRUMPET" 48 sound:stop-note "TRUMPET" 52 sound:stop-note "TRUMPET" 55 sound:stop-note "TRUMPET" 60 end to chordTrumpet2 sound:start-note "TRUMPET" 60 65 wait 0.9 sound:start-note "TRUMPET" 64 65 wait 0.9 sound:start-note "TRUMPET" 67 65 wait 0.9 sound:start-note "TRUMPET" 72 65 wait 2 sound:stop-note "TRUMPET" 60 sound:stop-note "TRUMPET" 64 sound:stop-note "TRUMPET" 67 sound:stop-note "TRUMPET" 72 end to chordTrumpet3 sound:start-note "TRUMPET" 72 65 wait 0.9 sound:start-note "TRUMPET" 76 65 wait 0.9 sound:start-note "TRUMPET" 79 65 wait 0.9 sound:start-note "TRUMPET" 84 65 wait 2 sound:stop-note "TRUMPET" 72 sound:stop-note "TRUMPET" 76 sound:stop-note "TRUMPET" 79 sound:stop-note "TRUMPET" 84 end