Тема: Переобразовать код
Показать сообщение отдельно
  #2  
Старый 03.03.2012, 23:10
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Код:
  Canvas.Pixel[Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392] := 9;
А уже Canvas возьмёшь от чего потребуется - от TForms, TImage и т.д.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием