Переделал под свой тел.
JSR256test;
Uses jsr256;
Var x, y, sx, sy: real;
ou:boolean;
Begin
x:=120;
y:=120;
init('acceleration', 'user', 3);
repeat
setColor(255,255,255);
FillRect(0, 0, getWidth, getHeight);
setColor(0,0,0);
sx :=sx -get_value(0)/50;
sy :=sy+ get_value(1)/50;
sx:=sx*0.9;
sy:=sy*0.9;
x:=x+sx;
y:=y+sy;
if (x<0) then begin x:=0; sx:=-sx; end;
if (y<0) then begin y:=0; sy:=-sy; end;
if (x>210) then begin x:=210; sx:=-sx; end;
if (y>290) then begin y:=290; sy:=-sy;end;
drawimage(loadimage('/ball.png'),trunc(x),trunc(y));
delay(20);
Repaint;
until false;
End.
Шарик почему-то при небольшом наклоне пытается двигаться по горизонтали/вертикали. Режим плавающей запятой переключил. Что ему ещ~ надо??
se w715i
Акселерометр возвращает значения от -1062 до 1062 (больших значений не замечал) с шагом 18.
А какой тип он возвращает? Не целочисленный случайно? А то мало ли..