Вопрос Нужна помощь программистов или кто в этом разбирается

[васа]

Есть изображение, из которого нужно вырезать квадрат под любым углом, примеры как должно быть прикрепил пример. Я так понял нужно вписать окружность меньшей стороны прямоугольника, а потом в неё квадрат под любым углом.
И вот вопрос, подскажите где что почитать примерно похожее, или может есть код готовый? Подскажите пожалуйста
//otvet.imgsmail.ru/download/30384382_403e97bd16a378b53b8e5fea4af3fabe_120x120.jpg//otvet.imgsmail.ru/download/30384382_429075e40cbc928b0a5ad545d7c55b7d_120x120.jpg

 

[кири]

делал кода-то задачу на вписанный в окружност квадрат в который вписана окружность в которую вписан квадрат и т. д. вот кусок кода на Delphi пусть x,y - координаты центра окружности и r - ее радиус var x, y, r: integer; procedure TForm1.Button1Click(Sender: TObject); var a, r2: integer; begin Canvas.Ellipse(x - r, y - r, x + r, y + r); // это первая окружность a := trunc(r * sqrt(2)); // сторона вписанного квадрата Canvas.Rectangle(x - a div 2, y - a div 2, x + a div 2, y + a div 2); r2 := a div 2; // радиус окружности, вписанной в квадрат Canvas.Ellipse(x - r2, y - r2, x + r2, y + r2); // а теперь вспоминаем, что такое полярная СК и чертим 3 линии... Canvas.MoveTo(x, y - r2); Canvas.LineTo(x + trunc(r2 * cos(210*pi/180)), y - trunc(r2 * sin(210*pi/180))); Canvas.LineTo(x + trunc(r2 * cos(330*pi/180)), y - trunc(r2 * sin(330*pi/180))); Canvas.LineTo(x, y - r2); end;

 

[rodman]

язык программирования?