аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџ   !"#$%&'()*ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF€pIцC€П+€WordDocumentџџџџџџџџ OCompObjџџџџџџџџџџџџnџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ' force a reset StopTask %BackSlow_Task END IF END IF LickStickPatternAlgo Recog.nr -1 CASE 4 ' samples: Pitched clicks ' start audio delay line... ' we pass the delay time in Task().duur , expressed in milliseconds ' the duration of the delay event in Task().stoptime, expressed in seconds IF ISFALSE Task(%AudioDelay_Task).switch THEN INCR delaytimecounter Task(%AudioDelay_Task).duur = 2000 - (delaytimecounter * 100) IF Task(%AudioDelay_Task).duur < 255 THEN_ Task(%AudioDelay_Task).duur = 255 Task(%AudioDelay_Task).stoptime = 30 - (delaytimecounter) ' in seconds IF Task(%AudioDelay_Task).stoptime < 1 THEN_ Task(%AudioDelay_Task).stoptime = 1 StartTask %AudioDelay_Task ELSE ' start a midi-delay... IF ISFALSE Task(%InvFast_Task).switch THEN StartTask %InvFast_Task ' autostops ELSE StopTask %InvFast_Task ReadDelayLine% %InvFast_Task, 0, 0 ' force a reset END IF END IF LickStickPatternAlgo Recog.nr -1 CASE 5 ' samples: artikulaties IF ISFALSE Task(%Pattern1_Task).switch THEN StartTask %Pattern1_Task ' pattern 1 chk = %True ELSE StopTask %Pattern1_Task IF ISTRUE LS_Recording_Available THEN IF ISFALSE Task(%AudioProcess_Task).switch THEN StartTask %AudioProcess_Task chk = %True IF Task(%InvFast_Task).switch THEN StopTask %InvFast_Task ReadDelayLine% %InvFast_Task, 0, 0 ' force a reset END IF ELSE chk = %False END IF ELSE chk = %False END IF END IF IF ISFALSE chk THEN IF ISFALSE Task(%InvFast_Task).switch THEN StartTask %InvFast_Task ELSE StopTask %InvFast_Task ReadDelayLine% %InvFast_Task, 0, 0 ' force a reset END IF END IF LickStickPatternAlgo Recog.nr -1 CASE 6 ' samples: noiseclicks IF ISFALSE Task(%Pattern2_Task).switch THEN StartTask %Pattern2_Task ELSE StopTask %Pattern2_Task IF ISTRUE LS_Recording_Available THEN IF ISFALSE Task(%LS_CrossTimeModulator_Task).switch THEN StartTask %LS_CrossTimeModulator_Task END IF END IF END IF CASE 7 ' samples: flatterzunge IF ISFALSE Task(%Pattern3_Task).switch THEN StartTask %Pattern3_Task ' pattern 3 мЅe#Р э%O’",Nl,NlNN N ЊC(NьN˜NTюN!CTimes New Roman Symbol ArialCourier New SUB LickStickDoEvent () ' recognition wave playing waits for device available, ' so that the sample always plays, even if too late... ' however, in the present version, there is no cueing up of files/ tracks ' to be played... STATIC delaytimecounter AS BYTE LOCAL chk AS BYTE IF ISFALSE Task(%AudioPlaySample_Task).switch THEN StartTask %AudioPlaySample_Task ' specific version for lickstick. END IF DrawAllPatterns hMelPatwnd SELECT CASE Recog.nr CASE 1 ' samples: detunes IF ISFALSE Task(%RecoDetune_Task).switch THEN StartTask %RecoDetune_Task ' starts/stops velo-dependent detuning ELSE StopTask %RecoDetune_Task END IF LickStickPatternAlgo Recog.nr - 1 ' recalculate new pattern CASE 2 ' samples: ademklasse chk = %False IF ISFALSE Task(%AudioSample_Task).switch THEN IF ISFALSE Task(%AudioDelay_Task).switch THEN Task(%AudioSample_Task).duur = 5000 StartTask %AudioSample_Task ' autostops. chk = %True IF Task(%Gerade_Task).switch THEN StopTask %Gerade_Task ReadDelayLine% %Gerade_Task, 0, 0 ' force a reset END IF END IF END IF IF ISFALSE chk THEN IF ISFALSE Task(%Gerade_Task).switch THEN StartTask %Gerade_Task ELSE StopTask %Gerade_Task ReadDelayLine% %Gerade_Task, 0, 0 ' force a reset END IF END IF LickStickPatternAlgo Recog.nr -1 CASE 3 ' samples: multiphonics ' play RT recorded sample. (ringmodulated!) '- only if a recorded sample is available... IF ISTRUE LS_Recording_Available THEN ' flag to signal availibility of a recorded sample. IF ISFALSE_ Task(%AudioPlayRecordedSample_Task).switch THEN StartTask %AudioPlayRecordedSample_Task ' autostops IF Task(%BackSlow_Task).switch THEN StopTask %BackSlow_Task ReadDelayLine% %BackSlow_Task, 0, 0 ' force a reset END IF END IF ELSE IF ISFALSE Task(%BackSlow_Task).switch THEN StartTask %BackSlow_Task 'LickStickDelayBackSlow ELSE ReadDelayLine% %BackSlow_Task, 0, 0 ELSE StopTask %Pattern3_Task IF ISTRUE LS_Recording_Available THEN IF ISFALSE Task(%LS_CrossModulator_Task).switch THEN StartTask %LS_CrossModulator_Task END IF END IF END IF CASE 8 ' samples: Noise IF ISTRUE LS_Recording_Available THEN IF ISFALSE Task(%LS_RingModulator_Task).switch THEN StartTask %LS_RingModulator_Task IF Task(%InvFast_Task).switch THEN StopTask %InvFast_Task ReadDelayLine% %InvFast_Task, 0, 0 ' force a reset END IF END IF ELSE IF ISFALSE Task(%InvFast_Task).switch THEN StartTask %InvFast_Task ELSE StopTask %InvFast_Task ReadDelayLine% %InvFast_Task, 0, 0 ' force a reset END IF END IF END SELECT END SUB эю BC~ЮЯхц  !"#[\]^†‡ˆ‰ЊЋЖЗстуќ§>ћїѓяъхрлжбЬЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokgc]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c]a ]a ]a ]a %>?ƒ„ТУФХЦьэ >?\]›œžŸИЙаб§ў!"ghАБєѕ<=>ћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &>?@ABCOP{|НОії= > ? @ A B C D S T z { œ  К Л х ц ) * ] ^ | } Џ ћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &Џ А № ё ђ ѓ є ѕ і   & ' D E | } ” • Ћ Ќ ­ Ў Х Ц м н о # $ % R S Ž  ћїѓяычуплзгЯЫЧУПЛЗГЎЉЄŸš•‹†|wrmhd`]a ]a ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a $ й к        7 8 Š ‹ Œ  Ž   ‘ œ  р с defghijkz{ЁЂФћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &ФХпр'(tuvwxyz{|“”ДЕљњћќ§ўџGHjk‡ˆПРзћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &зия ;<–—јљ=>ZopЩЪ:;‘’“”•ћїђэшуойдЯЫЧУОЙДЏЊЅ ›–‘Œ‡‚}xsnid_Z ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c]a ]a ]a ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a ]a "•–—˜™šЇЈ№ёђѓєѕіїјљTUpqŒПРRSTUVWњѕ№ыцсмзвЭШУОЙДЏЊЅ ›–’ŽŠ†‚~zvrnjfb^]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c ]a c#WXcd„…КЛўџ67TUŒЄЅгд`aˆ‰ЄЅийћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &jkЋЌлм"#`aЌ­ЎЏАБВГДУФюяDEklŒЙКмнњћ%ћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &%&jkŸ ОПђѓ456789:IJjkˆ‰РСийIJ~š›ЮЯћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &1ijГДкл§ў45cdІЇ№ё @ A ‚ ƒ Ѓ з и !!D!E!g!h!…!†!ћіёьчтнйебЭЩХСНЙЕБ­ЉЅЁ™•‘ˆƒ~ytokgc_]a ]a ]a ]a ]a c ]a c ]a c ]a c ]a c ]a c]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a c ]a c ]a c ]a c ]a c ]a c]a %†!!ž!Х!Ц!""R"S"“"”"ж"з"##X#Y#Z#[#\#]#^#_#n#o#•#–#И#Й#д#е#$$R$S$s$t$Љ$Њ$ћїѓяычуплзгЯЫЧУПЛЗГЏЋЇЃŸ›—“‹‡ƒ{wsokg]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a &Њ$э$ю$я$№$ё$ђ$ѓ$є$%%&%'%D%E%Z%[%b%c%d%~%%ћїѓяычуплзгЯЫЧУПЛЗГЏЋ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a ]a эюCЯц "#\‡ЋЗу§?„Уэ ?]œЙбў"hБѕ=P§ћљїѕѓёяэыщчхуспнлйзегбЯЭЫЩЧХУСПН!P|Ої> T {  Л ц * ^ } А ё  ' E } • Ц S  к  8 ‹  с e{Ђ§ћљїѕѓёяэыщчхуспнлйзегбЯЭЫЩЧХУСПН!ЂХр(u”ЕњHkˆРи <—љ>pЪ;’ЈёUqРSd§ћљїѕѓёяэыщчхуспнлйзегбЯЭЫЩЧХУСПН!d…Лџ7UЅдa‰ЅйkЌм#a­ФяElКнћ&k §ћљїѕѓёяэыщчхуспнлйзегбЯЭЫЩЧХУСПН! Пѓ5Jk‰СйJ›ЯjДлў5dЇё A ƒ и !E!h!†!ž!§ћљїѕѓёяэыщчхуспнлйзегбЯЭЫЩЧХУСПН!ž!Ц!"S"”"з"#Y#o#–#Й#е#$S$t$Њ$ю$%'%E%[%c%d%%§ћљїѕѓёяэыщчхуспнлйзегбэ%э%!’"џџџџџџџџ;KK@ёџNormala "A@ђџЁ"Default Paragraph Fontаџ@ўџ џџџџ РFMicrosoft Word 6.0 Document MSWordDocWord.Document.6є9Вq