|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.03.2012, 15:17 | #1 |
Регистрация: 16.03.2012
Сообщений: 8
|
delphi поверхность Безье
добрый день. есть программа для построения поверхности безье, мне нужно с помощью нее построить карту какой-либо местности, с наложением текстуры.
Код:
Последний раз редактировалось un_known; 16.03.2012 в 16:14. |
17.03.2012, 01:05 | #2 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
В uses добавляем модуль jpeg , чтобы грузить *.jpg . Далее в создаём глобальную переменные jpg:TJPEGImage; и bmp:TBitmap; и делаем так:
Код:
Если помог, проси поставить минус. Будь оригинален!
|
17.03.2012, 22:45 | #3 |
Регистрация: 16.03.2012
Сообщений: 8
|
спасибо большое, с этим разобралась.
нашла пример, где поверхность рисуется следующим образом: Код:
в моем случае три массива: одномерные x и y; двумерный z, который высчитывается след образом: Код:
|
18.03.2012, 11:49 | #4 | |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Цитата:
Если помог, проси поставить минус. Будь оригинален!
|
|
18.03.2012, 20:36 | #5 |
Регистрация: 16.03.2012
Сообщений: 8
|
спасибо )
ну это было наставление преподавателя сделать так, а каким образом лучше построить? ) |
18.03.2012, 22:00 | #6 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Ну вот самый простой способ(см. "Вложения"- Borland Studio Projects.rar в самом низу этого комментария).
На стрелочки можно крутить карту. Так же можно сделать zoom, если добавить глобальную переменную "un_known" и на кнопки "+" и "-" написать действия Код:
P.S. Если что-то по коду непонятно, не стесняйтесь, спрашивайте.
Если помог, проси поставить минус. Будь оригинален!
Последний раз редактировалось Rin; 19.03.2012 в 21:59. |
25.03.2012, 10:56 | #7 |
Регистрация: 16.03.2012
Сообщений: 8
|
спасибо огромное за код и за объяснения, вроде все ясно )) такой вопрос только, при вращении карты немного подвисает, с паузами крутит ее. это можно как то исправить? я буду строить карту чуть большего масштаба и думаю будет подвисать еще сильнее. если осуществить поворот кнопкой мыши будет быстрее?
|
26.03.2012, 10:07 | #8 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
У меня не тормозит. Мышкой , так мышкой. Объявите такие глобальные переменные:
Код:
Код:
Код:
Если помог, проси поставить минус. Будь оригинален!
|
27.03.2012, 07:18 | #9 | |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Цитата:
Если помог, проси поставить минус. Будь оригинален!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Кривая Безье. | Muaxaxa | Общие вопросы Delphi | 2 | 28.11.2011 01:03 |
Кривая Безье. | Muaxaxa | Помощь студентам | 2 | 28.11.2011 00:49 |
Поверхность в Excel | stakam | Помощь студентам | 3 | 17.12.2010 16:49 |
Поверхность(Delphi) | vanya92 | Помощь студентам | 0 | 22.11.2010 20:04 |
Поверхность по массиву точек на OpenGL в Delphi | Mixasik | Помощь студентам | 1 | 21.07.2008 16:41 |