nokia

@name Music: Ya Tareshy
@inputs On
@outputs [TrackStrings TrackSounds TrackVolume]:array I J Length Count

#This expression was generated by midi2expression2, by Jcw87

if (first()) {
#Midi Track 5
    TrackSounds[1,string] = "synth/saw.wav"
    TrackVolume[1,number] = 5
    TrackStrings[1,string] = "00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>75>00>00>00>82>79>79>79>77>77>82>79>79>79>79>79>79>79>79>79>79>79>75>75>00>00>75>75>00>00>77>77>00>79>79>79>81>00>79>79>79>77>77>77>75>75>00>00>00>75>75>75>75>00>00>00>75>75>75>75>75>79>79>79>77>77>77>79>79>79>79>79>79>79>79>79>79>79>75>75>00>00>00>75>75>00>77>77>00>79>79>79>81>00>00>79>79>77>77>77>77>75>75>75>00>00>77>77>77>77>75>00>00>74>74>74>74>77>77>77>77>75>00>81>77>77>77>77>77>77>77>77>77>77>77>75>75>00>00>75>75>00>77>77>00>00>79>79>81>00>00>79>79>77>77>77>77>75>75>00>00>00>75>00>00>00>00>00>00>00>00>00>00>77>77>77>74>74>74>75>75>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>77>00>00>77>77>00>75>75>00>00>74>74>74>74>74>74>74>74>72>72>00>77>75>00>00>00>75>00>00>77>00>00>79>79>81>00>00>79>79>79>77>77>77>75>75>00>00>00>75>75>75>75>75>00>00>79>79>77>00>00>77>77>00>75>75>00>74>74>74>74>74>74>74>74>72>72>00>75>77>75>00>00>75>75>00>77>00>00>79>79>79>81>00>79>79>79>77>77>77>75>75>00>00>00>00>75>75>75>75>00>75>00>77>77>75>77>75>75>77>75>75>77>75>77>77>75>75>77>77>77>74>74>74>75>75>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>00>75>00>00>00>00>82>79>79>79>77>77>82>79>79>79>79>79>79>00>00>79>79>79>75>75>75>75>75>79>79>00>79>00>00>75>75>00>74>74>00>72>72>72>72>00>75>00>00>00>00>82>00>00>00>77>77>82>79>79>79>79>79>79>00>79>79>79>79>75>75>75>75>75>79>79>00>77>77>00>75>75>00>74>74>00>72>72>72>72>72>00>74>74>74>74>00>77>77>00>75>75>00>77>77>77>77>77>77>77>77>75>00>00>74>74>74>74>74>77>77>00>75>75>00>74>74>00>72>72>00>72>72>72>72>00>00>74>74>74>74>74>77>77>00>75>75>00>77>77>77>77>77>77>77>77>00>75>75>77>77>77>77>82>00>79>79>79>79>79>79>75>75>75>75>75>75>75>75>"

    Length=TrackStrings[1,string]:length()
}

if (On) {
    interval(55)
    if (~On) {
        I=J=0
        Count=TrackStrings:count()
        while( J<Count ) {
            J++
            holoCreate(J, entity():pos(), vec())
            holoParent(J, entity())
            holoEntity(J):soundPlay(J,0, TrackSounds[J,string] )
            soundVolume(J, TrackVolume[J,number] )
        }
    }
    I+=3
    #Edit the line below to set the loop point
    if(I >= Length) {I = 0}
    SubA=I-2
    SubB=I-1
    J=0
    while( J<Count ) {
        J++
        PV=TrackStrings:string(J):sub(SubA,SubB):toNumber()
        soundPitch(J,2^(PV/12))
    }
} else {
    soundPurge()
    holoDeleteAll()
}