Jak zrobić "oczy" obserwujące kursor myszy?
Próbowałem do tego dojść samemu ale mi nie wychodzi... [glowa]
Znalazłem kod w JScript ale... [glowa]
http://www.javascript.tigroup.pl/kur13.php#
Dzięki z góry. [browar]
Pozdrawia Cimak [cya]
Jak zrobić "oczy" obserwujące kursor myszy?
Próbowałem do tego dojść samemu ale mi nie wychodzi... [glowa]
Znalazłem kod w JScript ale... [glowa]
http://www.javascript.tigroup.pl/kur13.php#
Dzięki z góry. [browar]
Pozdrawia Cimak [cya]
Hmm.. zwykły Pos() + Left i Top.. :) Gorzej z ograniczeniem pola tych komponentow poruszanych :)
GetCursorPos() w timerze.
var
Form1: TForm1;
x1,y1: Integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
x1:=Screen.Width div (Shape2.Width - shape4.Width);
y1:=screen.height div (Shape2.height - shape4.Height);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
getcursorpos(p);
shape4.Left:=shape2.Left+(p.X div x1);
shape4.Top:=shape2.top+(p.Y div y1 );
shape5.Left:=shape3.Left+(p.X div x1);
shape5.Top:=shape3.top+(p.Y div y1 );
end;
A jak zrobić, żeby po ustawieniu kursora między oczami zrobiło zeza ?
Bo o to mi głównie chodzi...
Dzięki [browar]
jesli kazde oko bedzie osobno "patrzylo" w kierunku kursora to nic nie musisz robic
jesli kazde oko bedzie osobno "patrzylo" w kierunku kursora to nic nie musisz robic
Tak, tylko jakbyś mu jeszcze podał sposób na patrzenie jednym okiem... :)
Myślę, że trzeba by tu wykorzystać wzór na okrąg, bo przecież oko (a właściwie tęczówka) porusza się po okręgu. Trzeba też będzie pewnie liczyć kąt pomiędzy prostą poziomą, a prostą przechodzacą przez środek oka i przez kursor, żeby obliczyć, w jakim momencie tej okrągłej ścieżki tęczówka ma się znajdować. Czyli ogólnie, trygonometria będzie niezbędna. Nie podałem pełnego rozwiązania, bo go nie znam, mamjednak nadzieję, że w czymś pomogłem.