Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Работа в цикле 
:(
    Опции темы
Ragli
Дата 6.4.2007, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 64
Регистрация: 4.4.2006

Репутация: нет
Всего: нет



Здравствуйте
Не подскажете почему цикл for не работает, не выводит точки на экран?
setka_x:=((5*2)/ClientWidth)-1;
setka_y:=1-((5*2)/ClientHeight);
setka_x_new:=setka_x;
setka_y_new:=setka_y;
glBegin(GL_POINTS);
         for j:=1 to 10 do        //round(ClientWidth/5) do
               begin
                  glColor3f (1,0,0);
                  glVertex3f(setka_x_new+0.5,setka_y_new-0.5,0);
                  glVertex3f(setka_x+0.5,setka_y-0.5,0);
                  setka_x_new:=setka_x_new + setka_x;
               end;
glEnd;

 
Но если написать  так, то он будет выводить 
setka_x:=((5*2)/ClientWidth)-1;
setka_y:=1-((5*2)/ClientHeight);
setka_x_new:=setka_x;
setka_y_new:=setka_y;

glBegin(GL_POINTS);
         for j:=1 to 10 do        //round(ClientWidth/5) do
               begin
                  glColor3f (1,0,0);
                  glVertex3f(setka_x_new+0.5+j/10,setka_y_new-0.5,0);
                  glVertex3f(setka_x+0.5,setka_y-0.5,0);
               end;
glEnd;

 
Как сделать так чтобы setka_x_new:=setka_x_new + setka_x; считалась ?
 

PM MAIL   Вверх
Yanis
Дата 6.4.2007, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111



Ragli
Ну видимо расчёты неверные в первом варианте. Просто выводятся вне области видимости наверняка.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Snowy
Дата 6.4.2007, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484



Просьба не дублировать темы.
Ваша тема здесь: http://forum.vingrad.ru/topic-144887.html
Эта закрыта
PM MAIL   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1920 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.