but as you point its descent regarding audio, and what I could gain in space would propably be lost by the cpu increase of pack/unpacking .. so Ill stop to bother with such brainy things... works nice with normal system.
Statistics: Posted by 23fx23 — 07 Jun 2010, 19:29
]]>
]]>
if i well understood usine, and generally all softs use float32 wich is not 4x8bits but
1 bit sig+ 7 bits exponment + 23 bits Significand +1 bit always1, wich mean max in precision is 24bit integer?
in fact 23bits
that may explain the 16777216 limit mm., I guess that's why Midi is seen as float, whereas colors are integers?
ouch
the conversion i was after seems more complex than i thought hehe.
isn't there a code that converts a float32 to an fixed32 and vice/versa?
or how could we extract the 4 midi mess from the float we see on midi wires, then repack those 4 values as float32 again?
im after this because it could make an easy way to store / reacall midi messages.
actually I have a 3D array storing the 4 midi messages, for 4 values (X,Y,and Zon Zoff) values, wich multiplied by the nb of cellz start to make a consequent sized array, it could be theorically reduced by 4 if im not wrong?
but maybe as usual im searching way too complex hehe
anyway, just for learning..
any clues masterZ
edit need to apply that formula i guess?
http://en.wikipedia.org/wiki/Single_precision
Statistics: Posted by 23fx23 — 06 Jun 2010, 16:00
]]>
so I take ch+(msg*$100)+(code1*$10000)+(code2*$1000000) on input that goes to a script that use
shr,shr8,shr16,shr24 and that seems to work, but if the last byte(code2) is more than 0, the decoded channel (first byte)mess.
I suppose it's something linked to the fact that then the 16777216 wich multiply the 4rd byte is the Max possible integer?
Is there something special to do, or is it that general datas/tparameter are maxed to 24bits cause of the mantissa thing once
spoke about?
i manage to pack/unpack 24bits but not 32, is it possible?
here is the script:
var midi_32bits : Tparameter;
var ch,msg,code1,code2 : Tparameter;
// initialisation : create parameters
procedure init;
begin
midi_32bits := CreateParam('midi_32bits',ptDataField);setMax(midi_32bits,$100000000);
Ch := CreateParam('Ch',ptDataField);
Msg := CreateParam('msg',ptDataField);
code1 := CreateParam('code1',ptDataField);
code2 := CreateParam('code2',ptDataField);
SetIsOutPut(midi_32bits,false);
SetIsinPut(Ch,false);
SetIsInPut(Msg,false);
SetIsInPut(Code1,false);
SetIsInPut(Code2,false);
end;
procedure Callback(n:integer);
begin
if (n=midi_32bits) then DECODE_MIDI;
end;
// no process bloc
/////////////////////////////////////////////////
Procedure Decode_Midi;
var valout: dword;
BEGIN
valout:= round(getvalue(midi_32bits));
setvalue(CH, GetChValue(valout));
setvalue(MSG, GetMSGValue(valout));
setvalue(Code1, GetCode1Value(valout));
setvalue(Code2, GetCode2Value(valout));
END;
///////////////////////////////////////
function GetCHValue(midi: DWORD): Byte;
begin
Result := Byte(midi);
end;
///////////////////////////////////////
function GetMSGValue(midi: DWORD): Byte;
begin
Result := Byte(midi shr;
end;
///////////////////////////////////////
function GetCode1Value(midi: DWORD): Byte;
begin
Result := Byte(midi shr 16);
end;
////////////////////////////////////
function GetCode2Value(midi: DWORD): Byte;
begin
Result := Byte(midi shr 24);
end;
////////////////////////////////////]
Statistics: Posted by 23fx23 — 06 Jun 2010, 10:55
]]>