heart.m

function h = heart(color, width, radius, style)
% Данная функция рисует одно сердечко с центром в точке (0,0)
% Сердечко задается параметрически следующими формулами:
% y = calc_y(t, R); x = calc_x(t, R);

% Входные параметры:
% color - цвет линии
% width - ширина линии
% radius - радиус сердечка
% style - стиль линий

% Возвращает h - ссылку на нарисованное сердечко

% Нарисуем это сердечко на отрезке [a, b] с шагом dt:
    a = 0; b = 2*pi; dt = ( b - a ) / 360; % Задаем начальные значения

% Создаем наше перо в изначальной точке a и устанавливаем атрибуты:
    x = calc_x(a, radius); % вычисляем x(a)
    y = calc_y(a, radius); % вычисляем y(a)
    p = Pero(x, y); % создаем перо
    p.set('lineColor', color, 'lineWidth', width, 'lineStyle', style);

% Рисуем график параметрически заданной функции на отрезке [a, b]
    for t = a+dt:dt:b
        x = calc_x(t, radius); % вычисляем x(t)
        y = calc_y(t, radius); % вычисляем y(t)
        p.punct(x, y); % перемещаем перо в точку (x(t), y(t))
    end

% Соединяем все точки , которые посетило наше перо
    h = p.draw;
end

function y = calc_y(t, R)
    y = R*(13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t))/16;
end

function x = calc_x(t, R)
    x = R*sin(t)^3;
end