[Gector]

Сообщение от cordi

Gector, огромное спасибо! Рискую нарваться, но если есть ещё более подробная информация - буду очень признателен! Всего-то нужен калькулятор на сенсоре...

Код или вообще?

program Angle;
uses sensor;
//============================MAIN===============================
var x, y, xline, yline, pointer_x, pointer_y, first_pointer_x, first_pointer_y, pointer_time, pe: integer; 
    keyCode: integer;

var HeroX, HeroY, Angle: Real;
var HeroXSpeed, HeroYSpeed, HeroFlightSpeed, Gravity:Real;
var MovementReleased, Direction, Timing: integer;



procedure Controls;
var x, y: integer;
var DX, DY: real;
begin
            first_pointer_x:=pointer_pressed_x;
            first_pointer_y:=pointer_pressed_y;
            pointer_x:=pointer_dragged_x;
            pointer_y:=pointer_dragged_y;
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
            DrawLine(first_pointer_x,first_pointer_y,pointer_x,pointer_y);
end;


begin
    sensor.init;
  repeat
        SetColor(0, 0, 0);
    FillRect(0, 0, GetWidth, GetHeight);
    SetColor(255, 0, 0);
    keyCode:= GetKeyPressed;
        pe:=pointer_state;
        SetColor(255, 0, 0);
        Controls;
    Repaint;
  until false;
 End.

Вот немного по сенсорам.