GLSL packing normal vec to single float

[laggyluk]

procedure packNormal(var a:single;x,y,z:smallint);
begin
a:= (x+2)*100+(y+2)*10+(z+2);
end;


procedure unpackNormal(a:single;var x,y,z:smallint);
var i:integer;
begin
i:=round(a);
x:= (i div 100)-2;
y:= ((i div 10) mod 10)-2;
z:= (i mod 10)-2;
end;