Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];

Вниз

Трехмерная система координат.   Найти похожие ветки 

 
БРУТЪ   (2003-04-02 16:43) [0]

Как вывести (очень желательно пример) ряд точек на канве
TIMAGE с координатами x, y, z.
Мастера, подскажите, есть ли примеры риалтаймового
маштабирования вышеописанного на канве.


 
AlexT1000   (2003-04-02 17:56) [1]

x экрана = x / z
y экрана = y / z
вроде так было


 
com2003   (2003-04-05 18:56) [2]

Проэцировать на экран можно разными способами, в зависимости от функциональности твоей проги(будет ли перемещаться точка зрения и если да, то как).
Вот на счёт масштабирования, то тут надо поработать с матрицами(с их помощью можно сделать любое пребразование: масштабирование, вращение, перемещение ... и всё это вместе).

Для простенького проэцирования подойдёт и вышеописаный способ(хотя я им не пользовался).Для эффекта перемещения точки зрения можешь добавить парочку коэффициентов и потом их изменять, хотя перемещение будет неестественное.
Примерчик:

Procedure DrawPix(x,y,z:integer; k:real);
var col:TColor;
x1,y1:integer;
begin
col:=clGreen;
x1:=x;
y1:=round(y*(1-k)-z*k);
Image1.Canvas.Pixels[x1,y1]:=col;
end;

0<=k<=1, изменяя этот коэффициент можно регулировать высоту точки зрения.



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

Форум: "Media";
Текущий архив: 2003.07.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
3-91623
olden69
2003-07-03 13:40
2003.07.28
копирование текущей записи из TDataSet в TClientDataSet


3-91641
Wistler
2003-07-02 02:33
2003.07.28
BDE


14-91848
Lord Warlock
2003-07-10 09:34
2003.07.28
Звонилка-сервис


1-91749
Silver_
2003-07-15 11:48
2003.07.28
Замучал Free report Error


1-91765
tovSuhov
2003-07-14 17:26
2003.07.28
Отрисовка элемента ListItem





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский