Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!uunet!cbmvax!cbmehq!cbmita!promind!antonello
From: antonello@promind.UUCP (Antonello Biancalana)
Newsgroups: comp.sys.amiga.audio
Subject: MIDImeter 1.0, a shareware program from ProMIND for all the MIDI users
Message-ID: <03134.AA03134@promind.UUCP>
Date: 9 Mar 91 14:33:18 GMT
Followup-To: comp.sys.amiga.audio
Organization: ProMIND - Software analysis and development - ITALY
Lines: 209
Hello everyone,
the program MIDImeter is a nice program to "emulate" a graphic
equalizer for the MIDI events.
MIDImeter will process all the "note on" and "note off" events in
all channels and draw the appropriate bar on the screen.
The height of the bar depends by the velocity parameter.
It also has a channel detector to show where the note are coming.
Hints: Use this program with a sequencer connected to your *Amiga*
for best results. (more channels, more show !)
Enjoy the program.
- Antonello
------- cut here ------ cut here -------- cut here -----------
begin 777 MIDImeter.zoo
M6D]/(#(N,# @07)C:&EV92X: #(#@& DI.$; 9D[H4E>.:RD%!@$@V$: X
M;2"P( I9P )A!.0Y$@ $R>E)$*"\-@G1HX "*+$4;2 "P0()M,)A@&PWVD?(;X
M$PP(*I"@@G)T PNV(:!IP!PP *1+QR0(P)(8/$$@" H8 8!
PR%'"J,[$/)2E%, ! %$'GU D4"T8'(#0QM'\ '!!X
MT0.#@8'78 .@ -GL@*$ VNQ QG;)8- "-P3;L T&*D!_S8X0&.@-P#].D+!(X
MRA98[#$$''NL0,@>$T"W.4I,8(8 8!@@Q 9E_6-"D2Z'M2)2/]9\)IC+3[XLF,=8+@CX 8 H1,$]#'$*3AX P 'CX03<' 0 !& X
M0+!B -P 000G* +;J\N @'$ ; CGCA@%X R-QL ! 8%P# * %@AP8E:):NX
M! =< @ 8>"TP9801@%P$ !A8#!#J@T&" )@@0 !8 74"0 5+V"!ZJ+H,BS1X
M0 B7X)$MF- .)A#B']AP0A<$-88WN$$',8#!"]+X@AG(0(TX4", !M2O.D*%X
M)0)0AAT/X@0\)F>/ K$5 '+UF"(%@!G$80$ E&"$-1#1 $@ QCGPPPX,J@ &X
M*%)" 2Z$@ *DQ P4 $D)4E)#+X D^H"BK&F8 0P,(-;NN"'#XSU&P#LJPYVX
M_!>?@)(C =@""8T2" 6PA(]< DQ@^.#( %*5,.8EC $N:$$AE: $#)B!'U- X
M1"24P0($!*V:U\QF))8!@CHM81K 6$$2O,.+0XPAB0<0)0B48!,)8(,X9- 'X
MVO A!!@X!@0+R!'GA! Y6CX
M?3@">2:8 AB0 4M_4(&64AUH53ER PD0LE.?HBD*XH6*)&%)!T:1EP@.0((%X
MF, ^6,-- ;4+%W Q@&LX0-A( &' G2E #+$US>0P Y^]:N/#?$%1WX@@,?2X
ME 0V%15E+:N+?X@CLY"X%W$V2P(#F*!45&*-+QK4+%R<-K6KA8,%7AO;UX2(X
M.-\%A,;,)DHPA)( T'"3 S9+!P"8((G119,O?@,$?M3J' "0 *\8,!>UA4BCX
M'_4')B[ A\$IK%DGH!H%HF;4!P08%AJ%@PCP]!LDM!2B^IT4 PAL8 3 @ __X
M^,<)+$R!$0, TJ!@5$E &"4G.D?+JCPA<\1@-[:AK]'J:RZ_F& S8863=Q0X
M"GT!02N!H8(C 9! 50# VE*Y6"O8X"E S:" WPTSEL8PEOQ&!PP/H"#$&AQ"X
M._X!BWK>$Q#Y%$(-\ "+((P9%DY$@KE^AX+?Z4,IMK'-BP1 !IB\( ![AL*?X
M1 (A_<(*@=5"!"D P!3J$80QK ,$3[% &.9B!#6^X@X#HX
M6 0L)($* DF#&^A0AS30(0UF/%2B%A5,A5SU'$\1B0D +00D#($8P3 &,( 1X
M#&H, 0E"2#8T!%'+6-7A-6H0B >( @E!"+:XB)"(,*@'&T+BMLGIK:WGWUMX
M@3! V^ V +4%]0(!("$(- B &00B B0 X=W(IL%M!&( 0@0#!NX&@K[]#7!DX
MRT )/@ NP=@!P@DCX5DX'#RSI#!X
M'S"1@<^'< Y(2D'CR *" Y7LE!%6<>.\MD8X"7J58)%\]\S*=X
M,MG!P (-HMTL'VU-VRT*>D_Z?4 )H#L >%@#JDD@6:\BP($%0& 4$,$( 0 10.$)8B 1PX$T10P 10#5,X
M((1C" !-$ $%EG9.((00T"!/( (MD7;^8(9! !/$#5I9T1F2#5/8!"Z$89GX
M&(=($& X0(-T FX, <$8!-*P0)?("@ *( L "08(!;DA)G8 $N2 !Y@,;X
MJ"X+( G&4B0"02>VD2,+X ?& HF2&(!\,( +@ 7*E&&HIRM)6'Z(E/X
M)A4X4(S'F(P&L(Q%QA/IJ#9^@&0"X&:5V(DC8&$HD$,CD(V_>(^]THG@" #BX
M2([F^ T3!&D%J0 ZT(Z3\HZX&(^Z2(_:V(,4F8\!9@+^B(S*.%O,"(L#F #RX
MD!5U4) )8 XX&3#_@ @Z:0V[U5O2A !!P!("(6;_P%HLA@W-P0_)]U,!X(@ X
MD ,,A W+PFT)@ 5#D'XD\(C[N!6$P0RLXW>GD",=8RQ="0 V )8Q*)9(! VLX
M P%KP@Q6HBUHJ0BER"+0 ,-X@PHTA(&D@)%" #P, #4L )%F';_ Y@D#V%X
MZ0N(J9@&L1/@P&W\8 AT95?"* #0$&!B4)=W>9:ZD T8"Q*894#P "JZ0 RX
MP ,! 0Y$ 0# $DT *-F0-", 2D ,%5@ #0 %V 9, 0#8 %X$ 90 0#X
M< &JB0%X\ YP)P:4%*H,P 4H28) #FX$3JX$3NL)94D!D"( ].=&=XX
M0)[^H)I5R0:1\4M:,PX
MD$,B( !@NB):*@!E>J9B"@<#L*92$:9:2@!RP#QG$0!LJJ4%$#(D<*=Y.J8@X
MPP!]NFM_"@<'( <.,*AX&J<%!@8*1?4@!24 AH2D0!( (&0 ,)P="@U@X
M6J5@X U\X !UM09(*JF4*J9R\ #-Q:E\":95X";BH!0#0C_T0#_PX*:FY09EX
M6 !8 A3DJ.=:A\[V!2Q*0*X20^0$ AT0 $F@)OP0 F#\ )4(XPY"@*7.@ OX
M( 0Q<2J]HBHQ81_.( 6M4#_D^@_P,*E@X K!R@*/^*I24:P5@1K)NJS-^JSHX
M*JW46I$[VGK9NJW=:AL< *X@(*Y,R "%4!$LX 8"00Y"4*X4A9O@( =$$0ANX
M0 1R, "2 A8$ CMBJW#&J_W@JR-V1ET, "4X+']"J?_H!L%0++@8+(0( T3X
MTJ^LH0#GZIBRT*Z,&++^L(,% T0VZXPP1HN*[2-2;3#A"9 = #T0PY!1#\1X
MVYBOL09& *X20Y34*[DT*X^"[0PVQF_*@4JFZ-&.[(2*[: 0 <3D++MRK(*X
ML+6-"0:R <4H V T#D6\+#_0 Y*P+7S-@!(6F F!L0L &BX0UR4 #,)K3'TT[,9+T:^4\;5%?,3K @"_X
MNL2KZ\1VVRWN,,553#57C,=9O,5$XL52X0Q?" NXR0WS!@#>P+N3"P#X C$X
M.UN2^[O55,BM%$S JC"PT7X
M1 TB0 !TD T>YOU.K"1_!5W1@R;04&&,\(J4X
MN$@)" 9AP L)* AA\$L10PMA L): UA8',10P]A0 H)Z ]AX DO$@ 8$ :8X
M\.$^$ :2\.%<$ :,\.&<$ :&X"XH0"LLD0"@@%L @"\VC@#<8.,%,% LH0 PX
M8.,'0 ="3@LV;@!4D..\\"_H9Q )T"\,@ OF]D<,8 WF!@WF1@SFID?BX@OFX
M9@KFUC 5,7\-(7\*L7\007F^#$ALWN9N_N9POA#\-Q!J#@">8$=ST&EI$ 9LX
MX )D4 9VD 9C,(!Y+@=[WN=_'NB##@"JQFJN!FMN(&N*PBBWH2AP@ :";BALX
M@"B3'DQ-D 1$D 0@T 1E0 >=)A"?'NJC7NJGCH:@G@1MP.H68P5Y$@,N0$2IX
M )+\P:?[@1:& ,YD ,QD'\ < 6&3@>F[@8@( 9Y )!L&IF5 9L &H@( 1[X
M[@9CP.=AX 9A *J!@)&4 :)4@>T!@+ +NSYIP!4@.ESX.WMWNU3@ :+4@9WX
M,.\@ =R\ 9GH"AM (AH #$/@5EX 9D )Y\ 9U8#%EM&J&+@9U\&IFU.YTX
M\ 8Z / L.N]3@3$;@5[#@)'D ;YS@9AT 9O )$ /(/'P:M9P,Y0.Q)T (PX
M8 ,P$$=82VG;3FEI, <3#P(H 6=5@=GL.CNUL,"AE4/#?ONW-7D9M$.MR, :'3O9O0 9U, 8U+1UMU59WX&IH@/!5X
M3P=HX/9PT&EMD/-S .F58@91W_@@$ 8/G_ARX +$KA -8A9S'N=O+@#W1_JHX
MG_IN'A@A9A .L'MMWOH(D1+]@@"&T! \(/NTGQ *@0"$=.&CH/,8K) R*(&SH7R[!A\P:$D#1AW(P)PR9HX
M&!8?0XXLF0:CD3)BY-0)(X=FC),I55)!DV8."#@AS\@)TP;$G30[0<@I$X8,X
MB* T$RX$4<9.F9L@4%Q\ZX;F!W>A,P=Q>$FCISZ(!@DV8-Z# @CHR%PW4,B")QIK+6 ]&%X
M2KD,'4+\&G),F3E>B;(!\1F$"#=O'G9V(Z*P<^C2WY@Q4[TA\C!GCH>^JWHOX
M7 7 0?P-K!/I9XPO3Z3]6V;,&A!F(C-O#,(U3;L\C?$2362$00=L01DVUAW[X
M.18&'&"] 190TFT6D6?\B4::&[YM!9J%(#26QAEHJ$9&&7#<1897,S4( H!OX
M"$@'@08>%5I/;=3Q5VATA(09"%VY"*.,>2B0( @Y[L@5B<,U!^)9:8E11H?\X
M0<:3'%ZA5H9;^47D)%7)K85?2&6)549I.(&0ATX\,9CF6F3X]H09ZKU1!Y9EX
M(&5F:0T%Y=4=;-TWY(#6P OBD0A&K-X01':*.=B=%G8E(%6D5XX
M/%2:&&_@(=Z1=4%$4TY >K466,>1U]091B*D4!+J >:&8&SX=D5C&,&&'6@8X
M@K;>K3J!@$6J:M571AIVN>5DJ""X44<;4D9T+)3+L49B>1PJX&&=5W9&Y[-XX
M(#OHC""55A&*1A50>=H:&AIULX
MN 49L6.H1O"=-;4Q(FQIPC9'&;G=9=R%OZ!2I5;>D4$5V>8X
MRCK7B8L:1]B1\*K&TQOW&=B@QY7>A=21#QN,L%M$S=$38':]]:).,1)ZL1L5X
MT<$L:"6_*]_ $\5EE20:U9=&A,!X(35$PQ1&<101$$$Q%//,?/[(Y'AU?-X
M:6@ID)=+E7(5FIT]V2Z:HVCD 5980 &PA19W'!#"KX=A,0;@-H541ITX
MPB8&YIV- =F=2+'A$))4?^X""%L%M<8MW/?^^+GQOFUZ@IX
MJ$B'$%M8C](P/JE=)'DZ4,E 0"*2))!D)58 2FS2$)*BM*$G1. B"FUD@QRLX
M) DM@($-8( #CK1@>D&97E?2A (H0 1S0"%,$JBPMBRH1 %9*)@ DQ6&'36$X
M.2'!7-B@(X/0(6,WCR.,Y2D (!+!Z(KC9X
M\,("'[E PM*!N^> B9,&!N2]XHF.9BE3^%H8JHX
M)Y-P%=E6@BZPPR*4MN'J ,1L0JD:!L&C"!8'V:,*->)B@,I!_1A1QSV;@(-/#)0<5& +[W0"P((1&Y0PX
M1OURDC$ '+*!< T(F$L,'>)*\C$_.Y A;B,'&S1/"TR8JPPL!^UC"T?V;'0 #Z'0 :A9SX
M5XY 50( )P ! 34E$26UE=&4N:6YF !D ?P7_#P!-241)X
M;65T97(N:6YF;P $ I(R@ ,=! ! @,!V< ^ "@ ( !! _4X
M.V$)H<6+&"$>H.<-R$8V/@ =%(FQ)$*%'@ (D+C %423,&/*-!B ),*:%W%:X
MQ*F3H,B> 3 %"&0SZ-"B0HD>-*J49E*D1Y=BRM"4X-1 @3 YS9 I*\U,8+T2X
M! M6ZUBR9@.0S91VK=F9<./*G4NWKMV[>//JI7O@G]]__O;:+7B0P=*; ("X
MW*?$_0( X
+ _(, X
X
end
--
--
___________________________________ _____________________________________
| | |
| Antonello Biancalana | Music composition, Sound Synthesis, |
| ProMIND - Perugia, ITALY | DSP and computer music: these are |
| Software analysis and development | my favourite wonders. |
|___________________________________|_____________________________________|
UUCP: {uunet|pyramid|rutgers}!cbmvax!cbmehq!cbmita!promind!antonello