home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / MenuSong.dxr / 00103.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  1.4 KB  |  39 lines
  1. on prepare
  2.   global gSong, gPath, gBpmSong, gNumUser, gGrooveSel, gGreen, scaleList, audioList, keyNoteList, keyList, numTrackList
  3.   IKSetIniPath("SOFTWARE\IK Multimedia\GrooveMaker\1.2")
  4.   set temp to EMPTY
  5.   repeat with i = 1 to count(numTrackList)
  6.     set temp to temp & getAt(numTrackList, i)
  7.   end repeat
  8.   IKIniWrite("numTrack", temp)
  9.   stop(member "preview")
  10.   IKRealtimeFreq(44100)
  11.   IKResetVTracks()
  12.   repeat with i = 1 to the lineCount of member "song"
  13.     set nomeFile to word 1 of line i of field "song" & ".wav"
  14.     set rep to integer(word 4 of line i of field "song")
  15.     IKAddVTrack(gPath & "Song\" & gSong & "\" & nomeFile, rep, 0)
  16.   end repeat
  17.   IKSetSongBPM(gBpmSong)
  18.   IKFunction()
  19.   put EMPTY into field "fieldAudio"
  20.   set audioList to []
  21.   repeat with i = 1 to the lineCount of member "song"
  22.     put "= " & word 1 of line i of field "song" & RETURN after field "fieldAudio"
  23.     append(audioList, word 1 of line i of field "song")
  24.   end repeat
  25.   delete char -30000 of field "fieldAudio"
  26.   set the scrollTop of member "fieldAudio" to 0
  27.   set the textFont of member "fieldAudio" to "IK10"
  28.   set the foreColor of member "fieldAudio" to gGreen
  29.   set gGrooveSel to 0
  30.   set keyNoteList to [:]
  31.   set k to 0
  32.   repeat with i = 1 to 3
  33.     repeat with j = 1 to count(scaleList)
  34.       set k to k + 1
  35.       addProp(keyNoteList, getAt(keyList, k), getAt(scaleList, j))
  36.     end repeat
  37.   end repeat
  38. end
  39.