% MKS_01b.m
% Digitální Theremin
%
% Pohyb myši řídí zvuk:
%   vodorovná poloha  -> amplituda
%   svislá poloha     -> frekvence
%
% Ukončení programu: Ctrl+C v Command Window

clear
clc

% velikost obrazovky
screen = get(0,'ScreenSize');

% vzorkovací frekvence
fs = 8000;

% délka jednoho krátkého tónu
T = 0.1;
t = 0:1/fs:T-1/fs;

while true

    % poloha kurzoru
    r = get(0,'PointerLocation');

    % vodorovná poloha -> amplituda 0 až 1
    A = r(1)/screen(3);

    % svislá poloha -> frekvence 100 až 1000 Hz
    f = 100 + 900*r(2)/screen(4);

    % generování tónu
    y = A*sin(2*pi*f*t);

    % přehrání
    sound(y,fs);

    pause(T)

end