Delphi заготовки

Delphi

{как нарисовать эллипс повернутый на 45/60/30 градусов на Delphi}
{рисование наклонного эллипса}
// cn:Tcanvas; канва для отображения элепса
// cx,cy - координаты центра
// r1,r2 - радиус 1 радиус 2
// angle - угол поворота
procedure Ellips(cn:Tcanvas;cx,cy,r1,r2:integer;angle:integer=0);
  var sx,sy,rx,ry,i:integer;
        u,du:real;
{функции для определения кординат точек эллипса}
     function rot_x(x,y:integer;t:real):integer;
    begin
        rot_x:=round(x*cos(t)-y*sin(t));
    end;
function rot_y(x,y:integer;t:real):integer;
    begin
        rot_y:=round(x*sin(t)+y*cos(t));
    end;
begin
u:=angle*pi/180;
with cn do begin
   sx:=cx+rot_x(r1,0,u);
   sy:=cy+rot_y(r1,0,u);
 &nbs ... Читать дальше »