Global Amiga Experience

home *** CD-ROM | disk | FTP | other *** search

/ Global Amiga Experience / globalamigaexperience.iso / graphic / video_presentation / titler_presentation / helm / examples / eartrainer (.txt) < prev next >

Wrap

Helm Multimedia Book | 1995-07-10 | 50.3 KB | 943 lines

EarTrainer Scott Nickerson 08-20-93 MUSIC CBT on BookOpen begin global midikey play notes "T140 d5q. a4e b a" put "Welcome to EarTrainer." into textfield "Tell" set midi to false put false into midikey set the hilite of button "SEND NOTES TO MIDI PORT" to false midikey T140 d5q. a4e b a Welcome to EarTrainer. SEND NOTES TO MIDI PORT New... Open... Make Copy... Streamline... Preferences... Workbench Help... About... Quit... Paste Clear Select All Cut Page Copy Page Colors Load... Save... Restore Colors Default Colors Brush Colors Image Colors Last Color Font Cycle Grid... Stop Sound Show All Unlock All Edit Form Share Next Page Previous Page First Page Last Page Backward Forward Last Book Browse... Autobrowse... Bookshelf New Page Delete Page New Form Load Form... Save Form... Image Load... Save... Capture... Clipboard Paste Spare Swap Frames Copy to Spare Merge in Front Merge in Back Delete Spare Frame Previous Delete Copy to All Color Remap Transparency Paper <-> Pen Paper -> Pen Count Vertical Horizontal Info... Brush Load... Save... Restore Clipboard Paste Color Remap Transparency Paper <-> Pen Paper -> Pen Center Corner Any Point Any Size Halve Double Halve Width Halve Height Double Width Double Height To PAL To NTSC Vertical Horizontal Shear Vertical Horizontal Rotate Any Angle Paint Matte Color Replace Smear Dissolve Spare Cycle Cycle 2 Gradient Gradient 2 Smudge Chaos Count Custom Dither Edges Object Load... Save... Bring to Front Send to Back Bring Closer Send Farther Group Ungroup Duplicate... Align... Info... Actions... Script... Load... Save... Plain Underline Italic Shadow Font... Spacing... Hypertext Actions... Script... Tools Coordinates Title Bar Palette Colors Patterns Paint Tools Paint Types Histogram Magnifier Messages Draw Tools Layers Pages Author Book... Form... Page... Display... Narrator... Hypertext... Resources... Effect... Effect Area Book23 PTopaz8 topaz.font PTopaz.font DF0:Shackleton.text DF0:eagle.8svx DF0:Shackleton.text fs1:fonts/PTopaz/8 Work:Helm/Books/BatchBook ram:Brown.colors Fast2:Action.pic ram:page.script /TestBook EarTrainer V1.0 Click on the interval buttons to memorize )the intervals. When you feel that you can )recognize any interval, you can test your *skills by taking a ten interval quiz or by +trying to identify a single randomly chosen ,interval. EarTrainer plays the first note of (every interval as middle C. When you are .testing your ears, you should click on one of +the interval buttons after EarTrainer plays the two notes of the interval. Welcome to EarTrainer. Unison Minor Second Major Second Augmented Second/Minor Third Major Third Perfect Fourth " Augmented Fourth/Diminished Fifth Perfect Fifth Augmented Fifth/Minor Sixth Major Sixth/Diminished Seventh Major Seventh Octave @IInformation @BBookshelf @QTake Quiz @TTest Random Augmented Sixth/Minor Seventh Played Tested @MSEND NOTES TO MIDI PORT kon SelectUp begin global midikey if midikey is true then play notes "MX 61" else play notes "61" midikey MX 61 kon SelectUp begin global midikey if midikey is true then play notes "MX 63" else play notes "63" midikey MX 63 kon SelectUp begin global midikey if midikey is true then play notes "MX 60" else play notes "60" midikey MX 60 kon SelectUp begin global midikey if midikey is true then play notes "MX 62" else play notes "62" midikey MX 62 kon SelectUp begin global midikey if midikey is true then play notes "MX 64" else play notes "64" midikey MX 64 kon SelectUp begin global midikey if midikey is true then play notes "MX 66" else play notes "66" midikey MX 66 kon SelectUp begin global midikey if midikey is true then play notes "MX 65" else play notes "65" midikey MX 65 kon SelectUp begin global midikey if midikey is true then play notes "MX 68" else play notes "68" midikey MX 68 kon SelectUp begin global midikey if midikey is true then play notes "MX 70" else play notes "70" midikey MX 70 kon SelectUp begin global midikey if midikey is true then play notes "MX 69" else play notes "69" midikey MX 69 kon SelectUp begin global midikey if midikey is true then play notes "MX 71" else play notes "71" midikey MX 71 kon SelectUp begin global midikey if midikey is true then play notes "MX 73" else play notes "73" midikey MX 73 kon SelectUp begin global midikey if midikey is true then play notes "MX 75" else play notes "75" midikey MX 75 kon SelectUp begin global midikey if midikey is true then play notes "MX 72" else play notes "72" midikey MX 72 kon SelectUp begin global midikey if midikey is true then play notes "MX 74" else play notes "74" midikey MX 74 kon SelectUp begin global midikey if midikey is true then play notes "MX 76" else play notes "76" midikey MX 76 kon SelectUp begin global midikey if midikey is true then play notes "MX 78" else play notes "78" midikey MX 78 kon SelectUp begin global midikey if midikey is true then play notes "MX 77" else play notes "77" midikey MX 77 kon SelectUp begin global midikey if midikey is true then play notes "MX 79" else play notes "79" midikey MX 79 kon SelectUp begin global midikey if midikey is true then play notes "MX 80" else play notes "80" midikey MX 80 kon SelectUp begin global midikey if midikey is true then play notes "MX 82" else play notes "82" midikey MX 82 kon SelectUp begin global midikey if midikey is true then play notes "MX 81" else play notes "81" midikey MX 81 kon SelectUp begin global midikey if midikey is true then play notes "MX 83" else play notes "83" midikey MX 83 kon SelectUp begin global midikey if midikey is true then play notes "MX 84" else play notes "84" midikey MX 84 +on SelectUp begin playinterval("60") playinterval +on SelectUp begin playinterval("61") playinterval +on SelectUp begin playinterval("62") playinterval +on SelectUp begin playinterval("63") playinterval +on SelectUp begin playinterval("64") playinterval +on SelectUp begin playinterval("65") playinterval +on SelectUp begin playinterval("66") playinterval +on SelectUp begin playinterval("67") playinterval +on SelectUp begin playinterval("68") playinterval +on SelectUp begin playinterval("69") playinterval +on SelectUp begin playinterval("71") playinterval +on SelectUp begin playinterval("72") playinterval on SelectUp begin global testing, quizleft, quizzing, correct put true into testing put true into quizzing put 10 into quizleft put zero into correct testone() testing / quizleft / quizzing correct testone on SelectUp begin global testing, quizleft, quizzing put true into testing put one into quizleft put false into quizzing testone() testing / quizleft / quizzing testone kon SelectUp begin global midikey if midikey is true then play notes "MX 67" else play notes "67" midikey MX 67 +on SelectUp begin playinterval("70") playinterval Mon SelectDown begin global midikey put the hilite of me into midikey midikey (playinterval note { global testing, quizleft, quizzing, correct if testing { if note = (textfield "Tested") { put "Correct!" into textfield "Tell" add 1 to correct for n = 0 to 359 step 2 set the hsv of 5 to n, 77, 170 set the hsv of 5 to 340, 77, 170 else { put "Unison m2 M2 m3 M3 P4 A4 P5 A5 M6 A6 M7 Octave" into intervals put word ((textfield "Tested") - 59) of intervals into theright put "Incorrect. It should be " & theright & "." into textfield "Tell" click on shape "60" wait one second click on shape (textfield "Tested") subtract one from quizleft if quizleft > 0 then { wait 2 testone() } else { put false into testing if quizzing then { wait 2 seconds put "End of Quiz! You got " & trunc(correct * 10) & "%." into textfield "Tell" play notes "cx d e f g a" put false into quizzing } 'end of testing else { click on shape "60" click on shape note put note into textfield "Played" put "Train your ears." into textfield "Tell" /*------------------------------------------------------*/ testone { global midikey, quizleft, quizzing put ((random 12) + 60) into theInterval put theInterval into textfield "Tested" if quizzing put "(" & (11-quizleft) & ") Click on an Interval Button." into textfield "Tell" else put "Click on an Interval Button." into textfield "Tell" if midikey = true then play notes "M0:1 C4" & theInterval else play notes "C4" & theInterval testone playinterval testing / quizleft / quizzing correct Tested Correct! Unison m2 M2 m3 M3 P4 A4 P5 A5 M6 A6 M7 Octave Tested ;Incorrect. It should be Tested testone End of Quiz! You got cx d e f g a Played Train your ears. ncoPPPS midikey / quizleft / quizzing <Tested ) Click on an Interval Button. Click on an Interval Button. M0:1 C4 Chicago p?0v` p?0|0 s>|~? ptopaz 3o3xg .An interval is the distance between two notes. /Being able to recognize the important intervals -provides the student with a strong foundation .for the composition of melodies and harmonies. 0Each interval has a characteristic sound quality +that often corresponds to a simple feeling. 6For example, minor intervals convey sadness or 7apprehension. Major intervals indicate solidity ,or strength. The intervals you use to create -a melody or to build a cord are determined by +the kinds of complex emotions that you want to express. ~@OOK fon SelectUp begin global midikey if midikey play notes "M0:1 c e g" else play notes "c e g" midikey M0:1 c e g c e g ron SelectUp begin global midikey if midikey is true play notes "M0:1 c d# f#" else play notes "c d# f#" midikey M0:1 c d# f# c d# f# ILBMBMHD EarTrainer V1.0 Click on the interval buttons to memorize )the intervals. When you feel that you can )recognize any interval, you can test your *skills by taking a ten interval quiz or by +trying to identify a single randomly chosen ,interval. EarTrainer plays the first note of (every interval as middle C. When you are .testing your ears, you should click on one of +the interval buttons after EarTrainer plays the two notes of the interval. Welcome to EarTrainer. Unison Minor Second Major Second Augmented Second/Minor Third Major Third Perfect Fourth " Augmented Fourth/Diminished Fifth Perfect Fifth Augmented Fifth/Minor Sixth Major Sixth/Diminished Seventh Major Seventh Octave @IInformation @BBookshelf @QTake Quiz @TTest Random Augmented Sixth/Minor Seventh Played Tested @MSEND NOTES TO MIDI PORT kon SelectUp begin global midikey if midikey is true then play notes "MX 61" else play notes "61" midikey MX 61 kon SelectUp begin global midikey if midikey is true then play notes "MX 63" else play notes "63" midikey MX 63 kon SelectUp begin global midikey if midikey is true then play notes "MX 60" else play notes "60" midikey MX 60 kon SelectUp begin global midikey if midikey is true then play notes "MX 62" else play notes "62" midikey MX 62 kon SelectUp begin global midikey if midikey is true then play notes "MX 64" else play notes "64" midikey MX 64 kon SelectUp begin global midikey if midikey is true then play notes "MX 66" else play notes "66" midikey MX 66 kon SelectUp begin global midikey if midikey is true then play notes "MX 65" else play notes "65" midikey MX 65 kon SelectUp begin global midikey if midikey is true then play notes "MX 68" else play notes "68" midikey MX 68 kon SelectUp begin global midikey if midikey is true then play notes "MX 70" else play notes "70" midikey MX 70 kon SelectUp begin global midikey if midikey is true then play notes "MX 69" else play notes "69" midikey MX 69 kon SelectUp begin global midikey if midikey is true then play notes "MX 71" else play notes "71" midikey MX 71 kon SelectUp begin global midikey if midikey is true then play notes "MX 73" else play notes "73" midikey MX 73 kon SelectUp begin global midikey if midikey is true then play notes "MX 75" else play notes "75" midikey MX 75 kon SelectUp begin global midikey if midikey is true then play notes "MX 72" else play notes "72" midikey MX 72 kon SelectUp begin global midikey if midikey is true then play notes "MX 74" else play notes "74" midikey MX 74 kon SelectUp begin global midikey if midikey is true then play notes "MX 76" else play notes "76" midikey MX 76 kon SelectUp begin global midikey if midikey is true then play notes "MX 78" else play notes "78" midikey MX 78 kon SelectUp begin global midikey if midikey is true then play notes "MX 77" else play notes "77" midikey MX 77 kon SelectUp begin global midikey if midikey is true then play notes "MX 79" else play notes "79" midikey MX 79 kon SelectUp begin global midikey if midikey is true then play notes "MX 80" else play notes "80" midikey MX 80 kon SelectUp begin global midikey if midikey is true then play notes "MX 82" else play notes "82" midikey MX 82 kon SelectUp begin global midikey if midikey is true then play notes "MX 81" else play notes "81" midikey MX 81 kon SelectUp begin global midikey if midikey is true then play notes "MX 83" else play notes "83" midikey MX 83 kon SelectUp begin global midikey if midikey is true then play notes "MX 84" else play notes "84" midikey MX 84 +on SelectUp begin playinterval("60") playinterval +on SelectUp begin playinterval("61") playinterval +on SelectUp begin playinterval("62") playinterval +on SelectUp begin playinterval("63") playinterval +on SelectUp begin playinterval("64") playinterval +on SelectUp begin playinterval("65") playinterval +on SelectUp begin playinterval("66") playinterval +on SelectUp begin playinterval("67") playinterval +on SelectUp begin playinterval("68") playinterval +on SelectUp begin playinterval("69") playinterval +on SelectUp begin playinterval("71") playinterval +on SelectUp begin playinterval("72") playinterval on SelectUp begin global testing, quizleft, quizzing, correct put true into testing put true into quizzing put 10 into quizleft put zero into correct testone() testing / quizleft / quizzing correct testone on SelectUp begin global testing, quizleft, quizzing put true into testing put one into quizleft put false into quizzing testone() testing / quizleft / quizzing testone kon SelectUp begin global midikey if midikey is true then play notes "MX 67" else play notes "67" midikey MX 67 +on SelectUp begin playinterval("70") playinterval Mon SelectDown begin global midikey put the hilite of me into midikey midikey (playinterval note { global testing, quizleft, quizzing, correct if testing { if note = (textfield "Tested") { put "Correct!" into textfield "Tell" add 1 to correct for n = 0 to 359 step 2 set the hsv of 5 to n, 77, 170 set the hsv of 5 to 340, 77, 170 else { put "Unison m2 M2 m3 M3 P4 A4 P5 A5 M6 A6 M7 Octave" into intervals put word ((textfield "Tested") - 59) of intervals into theright put "Incorrect. It should be " & theright & "." into textfield "Tell" click on shape "60" wait one second click on shape (textfield "Tested") subtract one from quizleft if quizleft > 0 then { wait 2 testone() } else { put false into testing if quizzing then { wait 2 seconds put "End of Quiz! You got " & trunc(correct * 10) & "%." into textfield "Tell" play notes "cx d e f g a" put false into quizzing } 'end of testing else { click on shape "60" click on shape note put note into textfield "Played" put "Train your ears." into textfield "Tell" /*------------------------------------------------------*/ testone { global midikey, quizleft, quizzing put ((random 12) + 60) into theInterval put theInterval into textfield "Tested" if quizzing put "(" & (11-quizleft) & ") Click on an Interval Button." into textfield "Tell" else put "Click on an Interval Button." into textfield "Tell" if midikey = true then play notes "M0:1 C4" & theInterval else play notes "C4" & theInterval testone playinterval testing / quizleft / quizzing correct Tested Correct! Unison m2 M2 m3 M3 P4 A4 P5 A5 M6 A6 M7 Octave Tested ;Incorrect. It should be Tested testone End of Quiz! You got cx d e f g a Played Train your ears. ncoPPPS midikey / quizleft / quizzing <Tested ) Click on an Interval Button. Click on an Interval Button. M0:1 C4