Add buzzer seqence message

Author: addshore

src/messages/m46-buzzer-sequence.toit

@@ -0,0 +1,28 @@
+import ..protocol as protocol
+
+class BuzzerSequence extends protocol.Data:
+  static MT := 46
+  static FREQUENCIES := 6
+  static TIMINGS := 7
+
+  static doMsg frequencies/List timings/List -> protocol.Message:
+    msg := protocol.Message MT
+    msg.header.data.addDataUint8 protocol.Header.TYPE_MESSAGE_METHOD protocol.Header.METHOD_DO
+    msg.data.addDataListFloat32 FREQUENCIES frequencies
+    msg.data.addDataListUint16 TIMINGS timings
+    return msg
+
+  constructor.fromData data/protocol.Data:
+    super.fromData data
+
+  // frequencies -> List:
+  //   return getDataListFloat32 FREQUENCIES
+
+  // timings -> List<int>:
+  //   return getDataListUint16 TIMINGS
+
+  // stringify -> string:
+  //   return {
+  //     "Frequencies": frequencies,
+  //     "Timings": timings,
+  //   }.stringify

src/messages/messages.toit

@@ -15,6 +15,7 @@ import .m42-buzzer-control show BuzzerControl
 import .m43-battery-status show BatteryStatus
 import .m44-pressure show Pressure
 import .m45-alarm-control show AlarmControl
+import .m46-buzzer-sequence show BuzzerSequence
 import .m50-link-control show LinkControl
 import .m1004-lora show Lora
 import .m10008-preset-page show PresetPage

src/protocol/Data.toit

@@ -228,6 +228,12 @@ class Data:
       LITTLE-ENDIAN.put-uint32 b (i * 4) data[i]
     addData dataType b
 
+  addDataListFloat32 dataType/int data/List -> none:
+    b := ByteArray data.size * 4
+    for i := 0; i < data.size; i++:
+      LITTLE-ENDIAN.put-float32 b (i * 4) data[i]
+    addData dataType b
+  
   getDataListUint32 dataType/int -> List:
     data := getData dataType
     if data.size % 4 != 0:

src/services/httpmsg/msgs.toit

@@ -37,6 +37,10 @@ sample-messages := {
         "200ms 1khz": (messages.BuzzerControl.doMsg --duration=200 --frequency=1.0 ).bytesForProtocol,
         "2s Ambulance": (messages.BuzzerControl.doMsg --duration=2000 --soundType=messages.BuzzerControl.SOUND_AMBULANCE --intensity=1 ).bytesForProtocol,
     },
+    "$(messages.BuzzerSequence.MT) Buzzer Sequence": {
+        "Starwars": (messages.BuzzerSequence.doMsg [0.440, 0.0, 0.440, 0.0, 0.440, 0.0, 0.349, 0.0, 0.523, 0.0, 0.440, 0.0,  0.349, 0.0, 0.523, 0.0, 0.440, 0.0, 0.659, 0.0, 0.659, 0.0, 0.659, 0.0,  0.698, 0.0, 0.523, 0.0, 0.415, 0.0, 0.349, 0.0, 0.523, 0.0, 0.440] [400, 50, 400, 50, 400, 50, 300, 50, 100, 50, 400, 50,  300, 50, 100, 50, 800, 50, 400, 50, 400, 50, 400, 50,  300, 50, 100, 50, 400, 50, 300, 50, 100, 50, 800]).bytesForProtocol,
+        // "Nokia_Tune": (messages.BuzzerSequence.doMsg [ 1.318, 0.0, 1.174, 0.0, 1.480, 0.0, 1.662, 0.0, 1.108, 0.0, 0.988, 0.0, 1.174, 0.0, 1.318, 0.0, 0.988, 0.0, 0.880, 0.0, 1.108, 0.0, 1.318, 0.0, 0.880 ] [75, 50, 75, 50, 150, 50, 150, 50, 75, 50, 75, 50, 150, 50, 150, 50, 75, 50, 75, 50, 150, 50, 150, 50, 500]).bytesForProtocol,
+    },
     "$(messages.AlarmControl.MT) Alarm": {
         "Duration 0": (messages.AlarmControl.doMsg --duration=0).bytesForProtocol,
         "3s pattern 4 intensity 1": (messages.AlarmControl.doMsg --duration=3 --buzzerPattern=4 --buzzerIntensity=1).bytesForProtocol,