Скачать: CL | DM;

Как продублировать картинку по окружности?   Найти похожие ветки 

← →
Артем К.   (2004-06-06 08:40) [0]

Здравствуйте, Уваажемые Мастера!

Подскажите пожалуйста, как продублировать картинку по окружности
(ну скажем 10 раз)

Заранее спасибо!

---

← →
Palladin ©   (2004-06-06 08:46) [1]

Это как? Ну продублировать я еще понять могу - скопировать. Но по какой окружности? Окружность довольно абстрактное понятие.

---

← →
Артем К.   (2004-06-06 08:51) [2]

Ну есть у нас картинка и надо сделать так чтобы 10 ее копий были нарисованы по окружности

---

← →
Palladin ©   (2004-06-06 08:59) [3]

Sin, Cos, школьный курс тригонометрии... BitBlt или аналагичные мотоды Canvas... я не знаю что ты используешь...

---

← →
Артем К.   (2004-06-06 09:00) [4]

ну а как бы Вы сделали?

---

← →
Palladin ©   (2004-06-06 09:04) [5]

поместил в scrollbox image и рисовал бы на его(image) canvas

---

← →
Palladin ©   (2004-06-06 09:12) [6]

еслиб захотелось красоты и было время использовал бы D3D :)

---

← →
R ©   (2004-06-06 10:16) [7]

Вспомнил школу с помощью статьи в интернет,
а реализ элементарный делов на 5 мин
procedure TForm1.Button1Click(Sender: TObject);
const
A=0.2;//Шаг
var
y,x,R,Lft,Tp:SmallInt;
circl:Extended;  //  где  0=<circl<=2*Pi;
begin
Lft:=Round(Form1.Width div 2);
Tp:=Round(Form1.Height div 2);
circl:=0;
R:=ScrollBar1.Position;
Repeat
x:=Round(R*cos(circl));
y:=Round(R*sin(circl));
//Memo1.Lines.Add("x="+IntToStr(x)+"     y="+IntToStr(y)+"circl="+FloatToStr(circl));
Canvas.Draw(x+Lft,y+Tp,Image1.Picture.Graphic) ;
circl:=circl+A;
Until circl>2*Pi;
end;

---

← →
Sirgfine   (2004-06-09 04:49) [8]

А как насчёт поворота (т.е. не просто копировать, а именно вращать)? Можно ли это сделать средствами Delphi без D3D и OpenGL?

---

← →
Ozone ©   (2004-06-09 09:06) [9]

To Sirgfine   (09.06.04 04:49) [8]

Можно - поможет все та же математика...

---

← →
Amoeba ©   (2004-06-09 15:31) [10]

Компонет для вращения: http://www.delphiarea.com/products/#TRotateImage

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c