interestingwobblyboots wrote:
- The frame display mechanism has a few issues - the left most (zero) pixel seems to be wrapped from the right hand side of the display (should be easy to fix) and there are some ghosting issues especially with green (not sure where this is coming from)
Certainly needs some work but shows the capabilities of the chip and a cheap display.
with JINX! with "Simple color" and Main Mix "Move left right"
the found can be pretty watch what you describe
( protokol on right side )
btw
a short test with my frame test and with tmp2.net protokol is the same.
i use your tmp2.net server version with this for a test.
the pixel(0,0) comes on frame(1,0) and light on frame(1,15) the cat animation runs pretty well with jeroen version, so i think, there is a (bit) custom work need in this server version.
perhabs an index mistake 0, 1
btw, i work with pascal ( Delphi )
Pixel(0,0) FF FF FF
Code: Select all
procedure TForm1.SetLedClick(Sender: TObject);
var
testframe : array[1..10] of byte;
begin
testframe[1] := $9C; // start byte 9C
testframe[2] := $DA; // type DATA..
testframe[3] := $00; // high byte leng of data
testframe[4] := $03; // low byte leng of data
testframe[5] := $01; // paketnummer
testframe[6] := $01; // pakete total
testframe[7] := $FF; // data R
testframe[8] := $FF; // data G
testframe[9] := $FF; // dara B
testframe[10]:= $36; // endpacket
IdUDPClient1.Port := 65506;
IdUDPClient1.Host := '192.168.4.1' ;
IdUDPClient1.Active := true;
IdUDPClient1.SendBuffer(testframe,10);
IdUDPClient1.Active := false;
end;
clear it
pixel(0,0) 00 00 00
Code: Select all
procedure TForm1.CLSLedClick(Sender: TObject);
var
testframe : array[1..10] of byte;
begin
testframe[1] := $9C; // start byte 9C
testframe[2] := $DA; // type DATA..
testframe[3] := $00; // high byte leng of data
testframe[4] := $03; // low byte leng of data
testframe[5] := $01; // paketnummer
testframe[6] := $01; // pakete total
testframe[7] := $00; // data R
testframe[8] := $00; // data G
testframe[9] := $00; // dara B
testframe[10]:= $36; // endpacket
IdUDPClient1.Port := 65506;
IdUDPClient1.Host := '192.168.4.1' ;
IdUDPClient1.Active := true;
IdUDPClient1.SendBuffer(testframe,10);
IdUDPClient1.Active := false;
end;
best wishes
rudi