Release musicxml-to-reaper-markers v1.0

Markers/jabisu_musicxml-to-reaper-markers.lua

@@ -0,0 +1,135 @@
+-- @description musicxml-to-reaper-markers
+-- @author jabisu
+-- @version 1.0
+-- @changelog 1st Version.
+-- @about
+--   # Import Markers from MusicXML
+--
+--   This script helps you import section markers into REAPER from a Guitar Pro 8 project using a MusicXML file. It is designed to work with a dedicated metronome track named "Claca", which must be exported separately in MIDI format.
+--
+--   ## 🎵 Exporting from Guitar Pro 8  
+--
+--   1. **Prepare the Guitar Pro 8 project**  
+--      - Make sure the project contains a track named **"Claca"** with the metronome data.  
+--
+--   2. **Export the necessary files**  
+--      - **Export the "Claca" track as a MIDI file** (only this track).  
+--      - **Export the entire project as a MusicXML file**.  
+--
+--   ---
+--
+--   ## 🎛 Importing into REAPER
+--
+--   1. **Import the MIDI track**
+--      - Drag and drop the **MIDI file** (Claca track) into an empty track in REAPER at the very start of the project.
+--      - When prompted, choose **Import tempo map** to sync the project’s tempo.
+--
+--   2. **Run the script**
+--      - Open **Actions → Show action list...**
+--      - Search for `musicxmlSections2ReaperMarkers` and run the script.
+--      - Select the **MusicXML file** when prompted.
+--
+--   📌 **The script will automatically create markers based on the section names from the MusicXML file.**
+
+-- ReaScript: Import markers from MusicXML. It needs a "Claca" track
+reaper.ClearConsole()
+
+-- Show dialog for choosing MusicXML file
+retval, filePath = reaper.GetUserFileNameForRead("", "Select MusicXML file with Claca track", ".xml")
+if not retval then return end
+
+-- Función para leer el archivo XML
+function readFile(file)
+  local f = io.open(file, "r")
+  if not f then return nil end
+  local content = f:read("*all")
+  f:close()
+  return content
+end
+
+-- Read XML file
+local xmlContent = readFile(filePath)
+if not xmlContent then
+  reaper.ShowMessageBox("Error reading file.", "Error", 0)
+  return
+end
+
+local trackName = "Claca"
+local trackFound = false
+local idClacaTrack = ""
+
+-- Looking for track name and process only "Claca" track
+
+-- Look for it in trackList (part-list)
+local trackList=xmlContent:match('<part%-list>(.-)</part%-list>')
+
+-- Store identifier for "Claca" track in idClacaTrack
+for trackNum, trackContent in trackList:gmatch('<score%-part id="(.-)">(.-)</score%-part>') do
+ local itemTrackName=trackContent:match('<part%-name>(.-)</part%-name>')
+   if itemTrackName == trackName then
+    trackFound = true
+    idClacaTrack = trackNum
+    break
+  end
+end
+
+-- If there is no "Claca" track, show error message and end
+if not trackFound then
+  reaper.ShowMessageBox(trackName .. '" not found in MusicXML file.', "Error", 0)
+  return
+end
+
+-- Variables
+local markers = {}
+local lastSection = nil  -- Para comparar la sección anterior
+
+function calculate_measure_length(beats, beat_type, tempo)
+  if tempo == 0 then return 0 end  -- Evita división por cero
+  local tempo_ajustado = tempo * (beat_type / 4)  -- Ajustar tempo si es en corcheas o semicorcheas
+  return (beats * 60) / tempo_ajustado
+end
+
+local masterTempo= reaper.Master_GetTempo()
+reaper.ShowConsoleMsg("Using Master Tempo: " .. masterTempo .. "\n"  )
+
+-- Focus on Claca track
+local clacaTrack=xmlContent:match('<part id="'.. idClacaTrack ..'.->(.-)</part>')
+
+-- Recorremos los compases con informacion de Secciones
+local currentPosition = 0
+local currentBeats = 4
+local currentBeatType = 4
+for measureNum, measureContent in clacaTrack:gmatch('<measure number="(.-)">(.-)</measure>') do
+
+  --reaper.ShowConsoleMsg("Measure: " .. measureNum .. "; pos(time): \n" .. currentPosition .. "\n")
+
+  local newMarker = measureContent:match('<rehearsal>(.-)</rehearsal>')
+  if newMarker and newMarker ~= "" then
+    reaper.ShowConsoleMsg("Marker Found! Measure: " .. measureNum .. ", name: ".. newMarker .. ", Position: ".. currentPosition .. "\n")
+    table.insert(markers, {pos = currentPosition, name = newMarker})
+  end
+
+  -- Update the position (time) according to the time signature and tempo of the current measure
+  beats = measureContent:match('<attributes>.-<time>.-<beats>(.-)</beats>')
+  if (beats) then
+    currentBeats = beats
+    --reaper.ShowConsoleMsg("new beat: ".. currentBeats .. "\n")
+  end
+
+  beatType = measureContent:match('<attributes>.-<time>.-<beat%-type>(.-)</beat%-type>')
+  if (beatType) then
+    currentBeatType = beatType
+    --reaper.ShowConsoleMsg("new beatType: ".. currentBeatType .. "\n")
+  end
+
+  currentPosition = currentPosition + calculate_measure_length(currentBeats, currentBeatType, masterTempo)
+
+end
+
+
+-- Insert markers into Reaper Project
+for _, marker in ipairs(markers) do
+  reaper.AddProjectMarker(0, false, marker.pos, 0, marker.name, -1)
+end
+
+reaper.ShowMessageBox( #markers .. " markers imported from MusicXML.", "Import complete", 0)