to chan ; MIDI Channel make "chan 17-scrollbarget "sc3 staticupdate "st2 (list "Channel :chan) setfocus [MswLogo Screen] end to inst make "inst listboxgetselect "instrument midimessage (list 192+:chan first :inst 0) setfocus [MswLogo Screen] end to midi3 ; Based on midi.lgo in the "Examples/Multimedia" ; files that come with MSW Logo and created by ; George Mills. ; ; Modifications made by J Fuller 2000 ; print midiopen windowcreate "root "main "main 0 0 400 286 [midisetup] midiinit end to midiinit listboxaddstring "instrument [0 Acoustic Grand Piano] listboxaddstring "instrument [1 Bright Acoustic Piano] listboxaddstring "instrument [2 Electric Grand Piano] listboxaddstring "instrument [3 Honky-tonk Piano] listboxaddstring "instrument [4 Rhodes Piano] listboxaddstring "instrument [5 Chorused Piano] listboxaddstring "instrument [6 Harpsichord] listboxaddstring "instrument [7 Clavinet] listboxaddstring "instrument [8 Celesta] listboxaddstring "instrument [9 Glockenspiel] listboxaddstring "instrument [10 Music box] listboxaddstring "instrument [11 Vibraphone] listboxaddstring "instrument [12 Marimba] listboxaddstring "instrument [13 Xylophone] listboxaddstring "instrument [14 Tubular Bells] listboxaddstring "instrument [15 Dulcimer] listboxaddstring "instrument [16 Hammond Organ] listboxaddstring "instrument [17 Percussive Organ] listboxaddstring "instrument [18 Rock Organ] listboxaddstring "instrument [19 Church Organ] listboxaddstring "instrument [20 Reed Organ] listboxaddstring "instrument [21 Accordian] listboxaddstring "instrument [22 Harmonica] listboxaddstring "instrument [23 Tango Accordian] listboxaddstring "instrument [24 Acoustic Guitar (nylon)] listboxaddstring "instrument [25 Acoustic Guitar (steel)] listboxaddstring "instrument [26 Electric Guitar (jazz)] listboxaddstring "instrument [27 Electric Guitar (clean)] listboxaddstring "instrument [28 Electric Guitar (muted)] listboxaddstring "instrument [29 Overdriven Guitar] listboxaddstring "instrument [30 Distortion Guitar] listboxaddstring "instrument [31 Guitar Harmonics] listboxaddstring "instrument [32 Acoustic Bass] listboxaddstring "instrument [33 Electric Bass (finger)] listboxaddstring "instrument [34 Electric Bass (pick)] listboxaddstring "instrument [35 Fretless Bass] listboxaddstring "instrument [36 Slap Bass 1] listboxaddstring "instrument [37 Slap Bass 2] listboxaddstring "instrument [38 Synth Bass 1] listboxaddstring "instrument [39 Synth Bass 2] listboxaddstring "instrument [40 Violin] listboxaddstring "instrument [41 Viola] listboxaddstring "instrument [42 Cello] listboxaddstring "instrument [43 Contrabass] listboxaddstring "instrument [44 Tremolo Strings] listboxaddstring "instrument [45 Pizzicato Strings] listboxaddstring "instrument [46 Orchestral Harp] listboxaddstring "instrument [47 Timpani] listboxaddstring "instrument [48 String Ensemble 1] listboxaddstring "instrument [49 String Ensemble 2] listboxaddstring "instrument [50 Synth Strings 1] listboxaddstring "instrument [51 Synth Strings 2] listboxaddstring "instrument [52 Choir Aahs] listboxaddstring "instrument [53 Voice Oohs] listboxaddstring "instrument [54 Synth Voice] listboxaddstring "instrument [55 Orchestra Hit] listboxaddstring "instrument [56 Trumpet] listboxaddstring "instrument [57 Trombone] listboxaddstring "instrument [58 Tuba] listboxaddstring "instrument [59 Muted Trumpet] listboxaddstring "instrument [60 French Horn] listboxaddstring "instrument [61 Brass Section] listboxaddstring "instrument [62 Synth Brass 1] listboxaddstring "instrument [63 Synth Brass 2] listboxaddstring "instrument [64 Soprano Sax] listboxaddstring "instrument [65 Alto Sax] listboxaddstring "instrument [66 Tenor Sax] listboxaddstring "instrument [67 Baritone Sax] listboxaddstring "instrument [68 Oboe] listboxaddstring "instrument [69 English Horn] listboxaddstring "instrument [70 Bassoon] listboxaddstring "instrument [71 Clarinet] listboxaddstring "instrument [72 Piccolo] listboxaddstring "instrument [73 Flute] listboxaddstring "instrument [74 Recorder] listboxaddstring "instrument [75 Pan Flute] listboxaddstring "instrument [76 Bottle Blow] listboxaddstring "instrument [77 Shakuhachi] listboxaddstring "instrument [78 Whistle] listboxaddstring "instrument [79 Ocarina] listboxaddstring "instrument [80 Lead 1 (square)] listboxaddstring "instrument [81 Lead 2 (sawtooth)] listboxaddstring "instrument [82 Lead 3 (caliope lead)] listboxaddstring "instrument [83 Lead 4 (chiff lead)] listboxaddstring "instrument [84 Lead 5 (charang)] listboxaddstring "instrument [85 Lead 6 (voice)] listboxaddstring "instrument [86 Lead 7 (fifths)] listboxaddstring "instrument [87 Lead 8 (brass + lead)] listboxaddstring "instrument [88 Pad 1 (new age)] listboxaddstring "instrument [89 Pad 2 (warm)] listboxaddstring "instrument [90 Pad 3 (polysynth)] listboxaddstring "instrument [91 Pad 4 (choir)] listboxaddstring "instrument [92 Pad 5 (bowed)] listboxaddstring "instrument [93 Pad 6 (metallic)] listboxaddstring "instrument [94 Pad 7 (halo)] listboxaddstring "instrument [95 Pad 8 (sweep)] listboxaddstring "instrument [96 FX 1 (rain)] listboxaddstring "instrument [97 FX 2 (soundtrack)] listboxaddstring "instrument [98 FX 3 (crystal)] listboxaddstring "instrument [99 FX 4 (atmosphere)] listboxaddstring "instrument [100 FX 5 (brightness)] listboxaddstring "instrument [101 FX 6 (goblins)] listboxaddstring "instrument [102 FX 7 (echoes)] listboxaddstring "instrument [103 FX 8 (sci-fi)] listboxaddstring "instrument [104 Sitar] listboxaddstring "instrument [105 Banjo] listboxaddstring "instrument [106 Shamisen] listboxaddstring "instrument [107 Koto] listboxaddstring "instrument [108 Kalimba] listboxaddstring "instrument [109 Bagpipe] listboxaddstring "instrument [110 Fiddle] listboxaddstring "instrument [111 Shanai] listboxaddstring "instrument [112 Tinkle Bell] listboxaddstring "instrument [113 Agogo] listboxaddstring "instrument [114 Steel Drums] listboxaddstring "instrument [115 Woodblock] listboxaddstring "instrument [116 Taiko Drum] listboxaddstring "instrument [117 Melodic Tom] listboxaddstring "instrument [118 Synth Drum] listboxaddstring "instrument [119 Reverse Cymbal] listboxaddstring "instrument [120 Guitar Fret Noise] listboxaddstring "instrument [121 Breath Noise] listboxaddstring "instrument [122 Seashore] listboxaddstring "instrument [123 Bird Tweet] listboxaddstring "instrument [124 Telephone Ring] listboxaddstring "instrument [125 Helicopter] listboxaddstring "instrument [126 Applause] listboxaddstring "instrument [127 Gunshot] scrollbarset "sc1 1 127 1 ;Volume scrollbarset "sc2 1 8 6 ;Octave scrollbarset "sc3 1 16 9 ;Channel volu octa inst chan end to midisetup groupboxcreate "main [group3] 7 0 380 20 scrollbarcreate "main [sc1] 50 25 10 40 [volu] scrollbarcreate "main [sc2] 50 145 10 40 [octa] scrollbarcreate "main [sc3] 50 85 10 40 [chan] listboxcreate "main [instrument] 7 195 100 50 buttoncreate "main [b1] [Select] 30 240 50 10 [inst] buttoncreate "main [b2] [Play] 30 252 50 10 [midimessage (list 144+:chan :octa :volu)] buttoncreate "main [b3] [End] 340 260 50 10 [myend] staticcreate "main [st1] [Volume] 35 65 40 10 staticcreate "main [st2] [Channel] 37 125 40 10 staticcreate "main [st3] [Octave] 35 185 40 10 staticcreate "main [st4] [Multi Channel MIDI Control - 1] 150 7 100 10 end to myend ; Closes the MIDI session and the main window. midiclose windowdelete "main end to octa ; Octave (frequency) make "octa 12-scrollbarget "sc2 staticupdate "st3 (list "Octave "C :octa-3) make "octa ((:octa*12)-12) setfocus [MswLogo Screen] end to volu ; Volume ; local "volu make "volu 128-scrollbarget "sc1 staticupdate "st1 (list "Volume :volu) midimessage (list 176+:chan 7 :volu) setfocus [MswLogo Screen] end Make "chan 1 Make "heading [This is a test] Make "inst [17 Percussive Organ] Make "octa 48 Make "velo 127 Make "volu 127