feat: HIGHLIGHT

BootTidal.hs

@@ -30,18 +30,32 @@ targetdpv = Target {oName = "didacticpatternvisualizer",
                   }
 formatsdpv = [OSC "/delivery" Named {requiredArgs = []} ]
 
+-- Pulsar Editor Highlighting Target (NEW)
+editorTarget = Target { oName = "editor", 
+                        oAddress = "127.0.0.1", 
+                        oPort = 6013, 
+                        oLatency = 0.02, 
+                        oSchedule = Pre BundleStamp, 
+                        oWindow = Nothing, 
+                        oHandshake = False, 
+                        oBusPort = Nothing }
+
+-- Editor highlighting shape (NEW)
+editorShape = OSCContext "/editor/highlights"
+
 -- SuperDirt target
 superdirtTarget' = superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}
 
--- Set up targets for both SuperDirt, DPV, and metadata
+-- Set up targets for SuperDirt, DPV, metadata, AND editor highlighting
 oscmapdpv = [(targetdpv, formatsdpv),
             (superdirtTarget', [superdirtShape]),
-            (metadataTarget, [])
+            (metadataTarget, []),
+            (editorTarget, [editorShape])  -- Added editor highlighting
             ]
 :}
 
--- Initialize TidalCycles with all targets
-tidal <- startStream defaultConfig {cFrameTimespan = 1/20} oscmapdpv
+-- Initialize TidalCycles with all targets (increased frame rate for smoother highlighting)
+tidal <- startStream defaultConfig {cFrameTimespan = 1/25} oscmapdpv
 
 :{
 -- Simpler metadata system using parameters that get sent through normal patterns