XProfan

English

p.specht

one hears on Youtube sometimes tunes, The one in the ear hang stay. an musical box on the Youtube-channel one Herrn Frank A. having it me there particularly angetan. That WAV To MIDI and MIDI To XProfans MUSIC no large trouble More is, occupied nachfolgendes Progrämmchen.

Wie´s goes?: one make only with VLC the WAV from whom MP3-Spuren the MP4-Videos, kürze it, blende in AudaCity bang- and Klatschgeräusche from, trimme it on MONO, must The Hauptstimmen join and game then such a long time with the Filtereinstellungen the Spektralanalyseprogramms AmazingMidi, To The note-On/note-Off-signals what half-way brauchbares mean.

Compile Mark Separation

Windowtitle "Franks Speeldosje"
Windowstyle 24:Window 30,30-180,31:cls $F0A0A0
'(D) Test the advanced Profan-X3 MUSIC Befehls, only for private or. internen use!
'music https://www.youtube.com/watch?v=-n3F-xs4vSk (<<< MÖGLICHERWEISE BESTEHEN RECHTE DRITTER!)

if (left$($ProfVer,2)<"13") and (left$($ProfVer,4)<>"0.9-")

    Window Title "Ab XProf-X3":waitinput 5000:end:endif:Declare m$
    m$="*Q96 ML L0 T240 k0 I8 W100 R64 Z11,127 X:96 V54 n77 X:12 V105 n84 X:12 V121 n76 X:24 V100 n77! "+\
    "X:72 V105 n74 X:24 V112 n83 X:12 V100 n84! X:120 V85 n69 V97 n72 X:24 V64 n77 V102 n81 X:12 V100 "+\
    "N76! X:60 n77! X:12 V121 n76 V100 n83! X:36 n74! X:12 V81 n74 X:12 V100 n72! X:12 n81! X:60 V109 n72"+\
    "X:12 V100 n69! X:12 V49 n69 V100 n74! X:12 V74 n74 V77 n81 X:12 V100 n76! X:48 n69! X:24 V123 n76 "+\
    "X:12 V100 n81! X:12 n74! X:24 V18 n69 X:24 V100 n72! V64 n74 X:24 V100 n69! X:36 V112 n72 X:36 V100 "+\
    "N76! X:12 V89 n88 X:48 V18 n69 X:48 V100 n69! X:24 n88! X:12 n74! X:12 V101 n84 X:12 V117 n76 X:72 "+\
    "V100 n84! X:24 V113 n86 X:36 V94 n71 X:24 V72 n64 X:12 V55 n80 X:48 V100 n80! X:12 n86! X:36 V110 n74 "+\
    "V100 n76! X:12 V79 n76 X:12 V103 n84 X:12 V100 n71! X:60 V118 n83 V100 n84! X:24 V95 n71 V100 n72! "+\
    "N76! X:12 V53 n72 X:60 V100 n74! X:24 n83! X:24 n72! X:36 V118 n74 X:12 V49 n72 X:72 V100 n64! X:12 "+\
    "N72! X:24 V58 n65 V111 n84 X:24 V53 n76 X:12 V100 n71! X:12 V73 n71 X:24 V100 n76! X:12 n74! V51 n76 "+\
    "X:12 V107 n74 V100 n84! X:36 n76! X:12 V114 n83 X:84 V122 n81 X:24 V100 n65! X:24 n83! X:84 V97 n69 "+\
    "X:12 V100 n71! X:36 n81! X:84 V120 n83 X:24 V62 n64 X:36 V100 n74! n83! X:12 V80 n74 V67 n81 V106 "+\
    "N83 X:60 V126 n76 X:24 V100 n83! X:12 V62 n83 X:12 V100 n64! n81! X:12 n74! V35 n81 X:24 V100 n69! "+\
    "X:12 V43 n69 X:12 V100 n81! n83! X:12 V114 n74 X:24 V70 n64 X:36 V100 n76! X:48 n69! X:12 V110 n83 "+\
    "X:24 V114 n76 X:120 V111 n81 X:12 V87 n69 X:48 V100 n64! X:36 n83! X:156 V73 n64 X:120 V54 n60 X:36 "+\
    "V100 n76! X:12 V76 n76 X:24 V100 n64! X:24 n69! X:12 V45 n69 X:24 V100 n76! X:12 V78 n64 X:60 V100 "+\
    "N69! X:12 n81! X:12 n74! X:12 V105 n84 X:12 V119 n76 X:108 V105 n74 V114 n83 X:12 V100 n84! X:48 "+\
    "N60! X:12 V14 n60 X:48 V100 n60! X:12 V84 n69 V100 n83! X:12 V101 n72 V56 n83 X:12 V100 n76! V103 "+\
    "N81 X:36 V100 n83! X:48 V117 n76 X:72 V100 n72! X:36 n81! X:24 V92 n84 X:24 V100 n64! V110 n72 X:12 "+\
    "V62 n81 X:12 V100 n84! X:24 n76! X:12 V10 n64 X:12 V100 n81! X:48 n64! X:12 V125 n76 X:24 V100 n69! "+\
    "N74! X:24 n72! X:36 V61 n74 X:24 V114 n72 X:36 V100 n74! X:12 V51 n74 X:12 V100 n76! X:36 n74! X:24 "+\
    "V90 n84 X:12 V118 n76 X:60 V100 n84! X:48 V99 n71 X:12 V109 n86 X:96 V100 n86! X:12 V98 n84 X:12 "+\
    "V111 n74 X:36 V100 n84! X:12 n72! V94 n84 X:12 V100 n71! V75 n72 X:36 V100 n84! X:12 n72! V112 n83 "+\
    "X:24 V100 n71 V52 n80 X:12 V58 n64 V48 n72 X:12 V100 n76! X:12 V53 n76 V100 n83! X:48 n72! n76! "+\
    "X:12 n80! X:12 n74! X:12 V117 n74 X:12 V49 n72 X:108 V54 n65 X:24 V100 n72! V50 n76 X:12 V37 n72 "+\
    "X:12 V104 n84 X:48 V100 n72! n76! X:12 n74! X:12 V108 n74 X:12 V100 n71! X:12 V116 n83 X:12 V100 "+\
    "N64! n84! X:36 V36 n76 X:72 V100 n76! V119 n81 X:36 V49 n76 X:48 V100 n76! X:12 V41 n76 X:24 V94 "+\
    "N69 X:36 V100 n83! X:12 n76! X:12 V34 n76 X:12 V100 n81! X:12 V60 n81 X:24 V100 n65! X:24 n76! "+\
    "X:36 n81! X:12 V56 n64 X:12 V123 n83 X:60 V100 n74! X:12 V73 n74 X:36 V123 n76 X:60 V100 n74! "+\
    "X:24 n64! X:48 n69! V115 n74 X:12 V48 n69 V100 n83! X:12 V64 n64 X:24 V100 n76! X:36 n69! X:48 "+\
    "V111 n83 X:12 V113 n76 X:132 V82 n69 X:24 V103 n72 X:12 V104 n81 X:36 V100 n64! n76! X:12 V95 n76 "+\
    "X:36 V100 n83! X:48 V62 n64 V34 n79 V100 n81! X:12 V91 n81 X:24 V100 n72! X:12 n79! X:48 n74! n76! "+\
    "X:12 V119 n72 V66 n74 V65 n76 X:72 V100 n81! X:48 n69! X:36 V52 n69 V112 n71 V100 n76! X:48 n69! "+\
    "V48 n76 X:12 V23 n70 X:24 V46 n69 X:12 V100 n76! X:12 n70! X:24 n74! X:12 V35 n74 V106 n84 X:48 V100 "+\
    "N74! X:12 n71! X:12 n84! X:12 n69! V117 n83 X:12 V99 n86 X:36 V107 n71 X:12 V100 n64! n83! X:12 n72! "+\
    "X:84 V111 n76 V100 n86! X:12 V108 n72 X:12 V59 n83 X:84 V100 n76! X:12 V106 n76 X:12 V100 n83! "+\
    "X:12 V127 n79 X:24 V100 n72! X:12 n71! V94 n72 X:12 V100 n76! X:60 V82 n84 X:24 V115 n76 X:36 "+\
    "V100 n79! X:48 n84! X:12 V125 n79 X:72 V100 n76! X:12 n72! X:36 V67 n77 X:24 V119 n76 V47 n89 "+\
    "X:12 V112 n72 X:36 V100 n77! n79! X:12 n89! X:72 V121 n79 X:108 n77 X:12 V80 n88 X:24 V104 n83 "+\
    "X:12 V44 n67 X:12 V100 n79! X:36 n88! X:48 V118 n79 V89 n86 X:24 V100 n67! n76! X:24 n83! X:36 V65 "+\
    "N76 X:12 V100 n77! X:36 n76! n86! X:12 V106 n83 X:12 V118 n77 X:12 V99 n74 X:24 V100 n79! X:84 "+\
    "V121 n79 X:12 V100 n72! X:84 n83! X:12 V87 n88 X:24 V105 n71 X:36 V100 n77! X:72 V92 n86 V100 n88! "+\
    "X:12 V125 n77 X:84 V100 n74! n79! X:12 V69 n74 V57 n79 V100 n86! X:12 V115 n76 X:24 V49 n64 V100 n84 "+\
    "X:24 n79! X:24 n74! X:12 V59 n74 X:60 V100 n71! X:12 V123 n79 X:36 V100 n74! n84! X:12 V29 n84 "+\
    "X:36 V50 n74 X:24 V100 n84! X:12 V93 n88 X:12 V54 n67 V100 n74! X:36 V113 n72 X:24 V100 n76! "+\
    "X:84 n88! X:24 V122 n76 X:12 V100 n79! X:12 n64! n77! V59 n79 X:12 V100 n67! X:12 V39 n67 X:36 "+\
    "V100 n79! X:12 V97 n86 X:24 V124 n77 X:72 V100 n86! X:24 V101 n74 X:60 V89 n84 X:12 V100 n76! X:24 "+\
    "N67! X:24 n84! X:24 n72! V111 n83 X:24 V112 n76 X:12 V95 n71 X:48 V36 n72 X:36 V100 n74! X:12 n72! "+\
    "V89 n74 V100 n83! X:12 V45 n72 X:36 V3 n67 X:12 V10 n64 X:24 V100 n74! X:12 n67! X:12 n72! X:36 V113 "+\
    "N74 X:12 V100 n64! X:84 n71! X:24 V90 n86 X:36 V100 n77! X:12 n76! V66 n77 X:12 V100 n86! X:84 "+\
    "N77! V113 n84 X:36 V123 n76 X:84 V100 n74! X:48 n84! X:12 V119 n83 X:24 V110 n74 X:156 V104 n72 "+\
    "V100 n76! V93 n81 X:12 V87 n69 V100 n83! X:12 V63 n83 X:48 V100 n81! n83! X:12 V83 n81 V60 n83 X:60 "+\
    "V123 n76 V100 n83! X:36 n74! X:12 V83 n74 V100 n81! X:36 n72! X:72 V115 n72 X:60 V100 n76! X:60 V123 "+\
    "N76 X:24 V100 n69! n74! X:60 n72! X:60 V112 n72 X:24 V100 n76! V85 n88 X:48 V100 n88! X:36 V119 n76 "+\
    "X:84 V40 n74 X:48 V100 n74! X:24 V110 n86 X:36 V105 n71 X:12 V69 n64 X:84 V100 n86! X:24 V112 n74 "+\
    "X:12 V100 n76! V104 n84 X:60 V100 n71! X:36 V56 n76 X:24 V100 n84! X:24 V104 n71 X:12 V79 n83 X:24 "+\
    "V100 n72! X:12 n76! X:12 n74! X:12 n83! X:48 V114 n74 X:60 V44 n76 X:24 V42 n72 X:24 V114 n84 X:12 "+\
    "V100 n76! X:12 n72! X:60 n71! X:24 V62 n65 X:12 V31 n71 V49 n76 X:48 V100 n71! X:12 n84! X:12 n64! "+\
    "N76! V119 n83 X:12 V100 n74! X:12 V111 n74 X:108 V113 n81 X:24 V39 n79 X:24 V42 n60 X:48 V100 n79! "+\
    "X:48 V95 n69 V100 n81! n83! X:168 n65! V122 n83 X:36 V68 n64 X:24 V37 n79 X:72 V100 n79! X:12 V123 "+\
    "N76 X:24 V100 n69! X:12 n60! V60 n69 V100 n74! X:12 V14 n60 X:48 V100 n64! X:48 n69! n83! X:24 n60! "+\
    "N71 X:12 V111 n74 X:12 V65 n64 X:72 V39 n69 V100 n76! X:12 V6 n60 X:36 V100 n69! X:48 n60! X:24 "+\
    "V114 n83 X:24 V116 n76 X:72 V100 n83! X:12 V103 n83 X:60 V22 n69 V100 n71! V33 n77 X:12 V100 n64! "+\
    "X:60 n77! X:12 n69! X:36 V112 n81 X:12 V100 n83! X:12 V42 n60 V64 n64 X:132 V30 n79 X:72 V100 n79! "+\
    "X:60 V14 n79 X:60 V100 n79! X:48 n76! n81! X:12 V54 n76 X:24 V97 n69 X:48 V100 n76! X:12 V37 n76 "+\
    "X:72 V100 n76! X:12 V33 n76 X:48 V100 n74! X:12 n76! X:48 V26 n74 X:72 V100 n60! n64! n69! n74! "
    music m$

    while %playing and  (%umessage <> 16)

        case iskey(27): process("kill", &hMusic, 0)
        case iskey(83): midi("outshort", $B9, 7, 0)
        case iskey(76): midi("outshort", $B9, 7, 100)
        sleep 100

    endwhile

    end