[WIP] ZeDMD

        Dim panel(4096 * 6 / 8 + 64 * 3) As Byte ' le tableau d'octet envoyé à ZePinDMD
        For i = 0 To 63 ' on récupere la palette
            Dim color As Color = _palette.getColor(i)
            panel(i * 3) = color.R
            panel(i * 3 + 1) = color.G
            panel(i * 3 + 2) = color.B
        Next i

        Dim b1, b2, b3, b4, b5, b6, b7, b8 As Byte
        Dim r1, r2, r3, r4, r5, r6 As Byte
        Dim pos = 64 * 3 'position dans le panel apres la palette

        For x = 0 To 127 Step 8
            For y = 0 To 31
                'on récupére 8 index de couleur de palette
                b1 = _pixels(x + y * 128)
                b2 = _pixels(x + y * 128 + 1)
                b3 = _pixels(x + y * 128 + 2)
                b4 = _pixels(x + y * 128 + 3)
                b5 = _pixels(x + y * 128 + 4)
                b6 = _pixels(x + y * 128 + 5)
                b7 = _pixels(x + y * 128 + 6)
                b8 = _pixels(x + y * 128 + 7)

                'on reconstruit 6 octets avec les 8 couleurs
                r1 = b1 << 2
                r1 = r1 Or (b2 >> 4)
                r2 = ((b2 And 15) << 4) Or (b3 >> 2)
                r3 = ((b3 And 3) << 6) Or b4
                r4 = (b5 << 2) Or ((b6 And 240) >> 4)
                r5 = ((b6 And 15) << 4) Or ((b7 And 252) >> 2)
                r6 = ((b7 And 3) << 6) Or b8

                'on stocke les 6 octets dans les 6 plans
                panel(pos) = r1
                panel(0 + 512 * 1 + pos) = r2
                panel(0 + 512 * 2 + pos) = r3
                panel(0 + 512 * 3 + pos) = r4
                panel(0 + 512 * 4 + pos) = r5
                panel(0 + 512 * 5 + pos) = r6
                pos = pos + 1
            Next y
        Next x


        serial.Write(New Byte() {&H81, &HC3, &HE7, &HF}, 0, 4) 'on envoi un check hand histoire de voir si cela conmunique jsute pour le debug à virer
        serial.Write(New Byte() {&H81, &HC3, &HE7, &HB}, 0, 4) 'on envoi le message attention image en palette 64 couleurs
        serial.Write(New Byte() {&HC0, &HC, &H0, &H0}, 0, 4) 'on envoi la taille du message
        serial.Write(panel, 0, 3072 + 64 * 3) 'on envoi le message

'on récupére 8 index de couleur de palette
dim b(8) as byte
for i=0 to 7
  b(i) = _pixels(x + y * 128+i)
next i
'on reconstruit 6 octets avec les 8 couleurs
dim r(6) as byte
dim maskpos as byte
dim maskpix as byte
maskpos=1
for i=0 to 5
  r(i)=0
  maskpix=1
  for j=0 to 7
    if (b(j)&maskpos)>0 then r(i)=r(i)+maskpix
    maskpix<<1
  next j
  maskpos<<1
next i

[browserstream]

; if enabled, stream to your browser in your LAN
enabled = false
port = 9090