Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.31;
Скачать: CL | DM;

Вниз

Рисовать на GLPlane   Найти похожие ветки 

 
Санёк   (2005-04-14 23:37) [0]

Есть у меня плоскость (использую GLScene).
мне нужно на этой плоскости рисовать точки, линии, вобщем примитивы.
посмотрел пример GLScene\Demos\bench\canvas
там отрисовка идет непосредственно на Canvas GLViewer"a.

как бы рисовать на плоскости?
есть бредовая идея - создать битмап, рисовать на нем, а его уже использовать как текстуру к плоскости.
хочется проще - как?


 
Домовенок   (2005-04-15 01:11) [1]

Рисуй на БитМапе, и натягивай его текстурой. :)


 
Санёк   (2005-04-15 01:37) [2]

а собственного канваса у плоскости нету? :(


 
Домовенок   (2005-04-16 17:56) [3]

Точно не знаю (неуверен). Но предполагаю, что нету.


 
DeadMeat ©   (2005-04-16 20:17) [4]


> а собственного канваса у плоскости нету? :(

Как я понимаю, такое понятие у объектов отсутствует как таковое..

Поищи на caperaven (все время забываю как пишется)... Там есть пример... Как раз то, что тебе нужно..

---
...Death Is Only The Begining...


 
Санёк   (2005-04-16 20:52) [5]

DeadMeat, спасибо, поищу.
как описал выше уже сделал и в принципе все работает :)


 
DeadMeat ©   (2005-04-16 23:22) [6]

http://www.caperaven.co.za/gls/tutorials/documents/p3d/p3d.zip
http://www.caperaven.co.za/projects/3dpaint/index.htm

Кажись оно...

---
...Death Is Only The Begining...


 
Санёк   (2005-04-17 15:15) [7]

Спасибо :)

Забавно получается - вот код из примера:


procedure TForm1.FormCreate(Sender: TObject);
var
 lVector      : TVector3f;
 U, V         : Single;
 i            : Integer;
begin
 {Prepare Canvas}
 FCanvas := TBitmap.Create;
 FCanvas.Width := CBitWidth;
 FCanvas.Height := CBitWidth;

 {Draw line across bitmap}
 FCanvas.Canvas.MoveTo(0, 0);
 FCanvas.Canvas.LineTo(CBitWidth, CBitHeight);

 GLFreeForm1.Material.Texture.Disabled := False;
 GLFreeForm1.LoadFromFile(ExtractFileDir(Application.ExeName) + "\plane.3ds");

 GLFreeForm1.MeshObjects[0].GetExtents(FMin, FMax);
 for i := 0 to GLFreeForm1.MeshObjects[0].Vertices.Count - 1 do
 begin
   lVector := GLFreeForm1.MeshObjects[0].Vertices[i];
   UVPlanarMapping(lVector, FMin, FMax, U, V);
   GLFreeForm1.MeshObjects[0].TexCoords.Add(U, V, 0);
 end;
 GLFreeForm1.Material.Texture.Image.Assign(FCanvas);
 GLSphere1.Scale.SetVector(1/GLFreeForm1.Scale.X,
                           1/GLFreeForm1.Scale.Y,
                           1/GLFreeForm1.Scale.Z);
end;

Что мы там видим?
GLFreeForm1.Material.Texture.Image.Assign(FCanvas);
значит другого пути нету :)


 
DeadMeat ©   (2005-04-17 17:31) [8]


> Что мы там видим?
> GLFreeForm1.Material.Texture.Image.Assign(FCanvas);
> значит другого пути нету :)

И что?

Тебя смутило FCanvas или что?

---
...Death Is Only The Begining...


 
Санёк   (2005-04-17 17:43) [9]

да ничего меня не смутило.
там же все равно так же как и я делаю сделано :)
вобщем спасибо, вопрос исчерпан.



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

Текущий архив: 2005.07.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
3-1118896559
GekaNaz
2005-06-16 08:35
2005.07.31
Индексы в базе данных


11-1103795945
AlexandrK
2004-12-23 12:59
2005.07.31
KOL & SQL - как вернуть из хранимой процедуры данные?


10-1098365364
Квэнди
2004-10-21 17:29
2005.07.31
Excel и объединенные ячейки


6-1111846159
Алексей
2005-03-26 17:09
2005.07.31
подключиться к FTP-серверу?


1-1121260810
Mamed
2005-07-13 17:20
2005.07.31
date Time convertion