Send OSC from Tidal

receiveOsc.pde

import oscP5.*;
import netP5.*;

OscP5 oscP5;
NetAddress myRemoteLocation;
float x;
float y;

void setup() {
  size(600, 600);
  frameRate(60);
  oscP5 = new OscP5(this, 12000);
  myRemoteLocation = new NetAddress("127.0.0.1", 12000);
  x = -width;
  y = -height;
}

void draw() {
  background(0);
  noStroke();
  fill(255);
  ellipse(x, y, 100, 100);
}

void oscEvent(OscMessage theOscMessage) {
  if (theOscMessage.checkAddrPattern("/test")==true) {
    println("address: "+theOscMessage.addrPattern());
    println("values: "
      + theOscMessage.get(0).floatValue() + ", "
      + theOscMessage.get(1).floatValue());
  }
  x = theOscMessage.get(0).floatValue() * width;
  y = theOscMessage.get(1).floatValue() * height;
}

sendOSC.hs

let testosc = OscShape {
                path = "/test",
                params = [
                       F "x" (Just 0.5),
                       F "y" (Just 0.5)
                ],
                cpsStamp = False,
                timestamp = NoStamp,
                latency = 0,
                namedParams = False,
                preamble = []
          }
    testStream = stream "127.0.0.1" 12000 testosc
    x = makeF testosc "x"
    y = makeF testosc "y"

bps(200/120)

p <- testStream

p $ x "0.1 [0.5 [0.2 0.8]] [0.3 0.7] 0.9" # y "[0.5 0.1] 0.9"

p silence