Отправлено CTAC 27 апреля 2004 г. 09:29 В ответ на: с геометрией плохо. Мож кто напомнит, как нарисовать на ЖКИ кубик (ребра только) и вращать вдоль произвольной оси ? Надо формулы расчета преобразования в координаты на дисплее отправлено DASM 26 апреля 2004 г. 23:54

Чё та такое писали в институте...
типа t - угол, Хс и Ус - координаты центра.

procedure Rotate(t:real; Xc,Yc:integer);
  var sn,cs:real;
      i,j,a,b:integer;
   begin
     t:=pi*t/180;
     sn:=sin(t); cs:=cos(t);
     for i:=Ymin to Ymax do
       for j:=Xmin to Xmax do
            begin
              a:=round(Yc-(j-Xc)*sn+(i-Yc)*cs);
              b:=round(Xc+(j-Xc)*cs+(i-Yc)*sn);
              pic1[a,b]:=pict[i,j];
            end;
   end;

 

 
 

 

 
 Составить ответ
  ||| 
 Конференция
  ||| 
 Архив
 
 
 

 
Ответы
 

 
матрица поворота значительно эффективней будет — пьеро   (29.04.2004 18:29, пустое, ссылка, картинка)
 

 

 
спасиб, правда уже нашел. А син и кос не отменили, но с тех пор уж лет 8 прошло в пивном угаре :-) — DASM   (27.04.2004 13:02, пустое)
 

 

 

 

 
  
 

 
 
 Перейти к списку ответов
  ||| 
 Конференция
  ||| 
 Архив
  ||| 
 Главная страница
  ||| 
 Содержание
  ||| 
 Без кадра
 
 
 
 
E-mail: 
 info@telesys.ru