FreePascal and OGL

Модератор: Модераторы

Сообщение ANDREY.EXE » 01.04.2006 18:47:01

Религия позволяет я всётаки нашёл полезные вещи они написаны на C++ я хотел вас попросить чтоб вы перевели это на нормальный язык(Pascal)это типа переводы уроков от NEHE.
GLuint filter; // Используемый фильтр для текстур

GLuint fogMode[]= { GL_EXP, GL_EXP2, GL_LINEAR }; // Хранит три типа тумана

GLuint fogfilter= 0; // Тип используемого тумана

GLfloat fogColor[4]= {0.5f, 0.5f, 0.5f, 1.0f}; // Цвет тумана

glClearColor(0.5f,0.5f,0.5f,1.0f); // Будем очищать экран, заполняя его цветом тумана. ( Изменено )


glEnable(GL_FOG); // Включает туман (GL_FOG)


glFogi(GL_FOG_MODE, fogMode[fogfilter]);// Выбираем тип тумана

glFogfv(GL_FOG_COLOR, fogColor); // Устанавливаем цвет тумана

glFogf(GL_FOG_DENSITY, 0.35f); // Насколько густым будет туман

glHint(GL_FOG_HINT, GL_DONT_CARE); // Вспомогательная установка тумана

glFogf(GL_FOG_START, 1.0f); // Глубина, с которой начинается туман

glFogf(GL_FOG_END, 5.0f); // Глубина, где туман заканчивается.



//Translate please
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение Sniper » 02.04.2006 12:50:23

А чё тут сложного?
Код: Выделить всё
filter:GLuint; // Используемый фильтр для текстур
fogMode:array[0..2]of GLuint = ( GL_EXP, GL_EXP2, GL_LINEAR ); // Хранит три типа затухания тумана по глубине

fogfilter:GLuint= 0; // Тип используемого тумана
fogColor:array[0..3] of GLfloat = (0.5, 0.5, 0.5, 1.0); // Цвет тумана
glClearColor(0.5,0.5,0.5,1.0); // Будем очищать экран, заполняя его цветом тумана. ( Изменено )
glEnable(GL_FOG); // Включает туман (GL_FOG)
glFogi(GL_FOG_MODE, fogMode[0]);// Выбираем тип тумана
glFogfv(GL_FOG_COLOR, @fogColor); // Устанавливаем цвет тумана
glFogf(GL_FOG_DENSITY, 0.35); // Насколько густым будет туман
glHint(GL_FOG_HINT, GL_DONT_CARE); // Вспомогательная установка тумана
glFogf(GL_FOG_START, 1.0); // Глубина, с которой начинается туман
glFogf(GL_FOG_END, 5.0); // Глубина, где туман заканчивается.
Sniper
постоялец
 
Сообщения: 472
Зарегистрирован: 28.05.2005 13:02:42

Сообщение ANDREY.EXE » 02.04.2006 22:41:55

Пасибо немного глупый :D был воброс.Вот ещё один неменее глупый :D меня он както несильно волновал пока код неначал превышать 200 строк лазить в одном файле искаит нужную тибе функцию неочень удобно я решил сделать такой ход написал #include<HIMAN.pas> ну как в СИ мне компил говорит такое непроходит а модули я создавать неумею точнее знаю как но правельно код написать неполучается а мне надо так
function draw();
????????
????????
end;
и чёб я эту функцию занёс в файл а потом в нужном месте подключил и всё.
P.S и неговорите мне чтоб я учил модульное программирование <_<
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение Sphinx » 03.04.2006 11:36:48

ANDREY.EXE писал(а): P.S я чёто немогу прилинковать файл пишу #include('vyygu.pas') а он нефига типа невыйдет или я чёто неправильно пишу.

#include('vyygu.pas') - это что-то новенькое :blink:

Вообще-то в Паскале модули подключаются:
uses
Windows, // путь должен быть указан при компиляции, .pas не пишется
vyygu in 'C:\SuperPuperHeader\vyyu.pas'; // абсолютный путь до заголовка

а именно инклуд:
{$INCLUDE vyygu.pas}
или
{$include vyygu.pas}
Регистр значения не имеет

P.S и неговорите мне чтоб я учил модульное программирование

Ну ты понял да :D
Sphinx
новенький
 
Сообщения: 33
Зарегистрирован: 27.09.2005 21:52:09

Сообщение Sniper » 03.04.2006 14:18:05

Sphinx, зачОт!

ANDREY.EXE купи себе книжку "программирование на Pascal для чайникоff"
Sniper
постоялец
 
Сообщения: 472
Зарегистрирован: 28.05.2005 13:02:42

Сообщение SovNarKom » 03.04.2006 19:55:42

Тока принято инклудить .inc
{$I blabla.inc}
или
{$INCLUDE blabla.inc}

Sniper
У меня иногда такое чувство, что он издевается...
Хотя может это просто такая манера общения... <_<
SovNarKom
постоялец
 
Сообщения: 389
Зарегистрирован: 28.05.2005 10:37:39
Откуда: Воронеж [vrn] [36]

Сообщение ANDREY.EXE » 04.04.2006 20:39:48

Да модули я знаю как подключать.Я только в Pascal с инклулами несталкивался.
==========================================
ANDREY.EXE купи себе книжку "программирование на Pascal для чайникоff"
Я непойму причём здесь книжка если человек спросил чё нить о паскале так чё он чайник или вобще нефига непонимает. ;)
==========================================
Sniper
У меня иногда такое чувство, что он издевается...
Хотя может это просто такая манера общения...
Да бывают заезды я думаю ему стои купить книгу (Манеры Общения) :D
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение ANDREY.EXE » 04.04.2006 22:27:09

Ладно конечно спасиба за путние советы.Вообще чайнику отводится особое место в GameDev может ты незаметил но в любом практически движке можно создать одной командой чайник CreateTeapot. :)
P.S а книжечку купи :D
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение Sphinx » 05.04.2006 14:58:45

ANDREY.EXE
Да модули я знаю как подключать.Я только в Pascal с инклулами несталкивался.

А как таковых инклудов и не должно быть...
Именно подключение модулей через uses.

P.S а книжечку купи :D

Точно. Делфи (Паскаль) для чайников ;)
Sphinx
новенький
 
Сообщения: 33
Зарегистрирован: 27.09.2005 21:52:09

Сообщение ANDREY.EXE » 05.04.2006 20:24:29

Точно. Делфи (Паскаль) для чайников
===========================
Неа не для чайников а (Программирование на Паскаль).
P.S После того как посмотрел в зеркало обнаружил что я совсем непохож на чайник ;) .
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение ANDREY.EXE » 05.04.2006 20:41:32

Млин у меня опять проблема начал я шаманить над клавишами делаю так
-заношу переменную Go=3;
-Извращаемся вот так gluLookAt(0,0,go, 0,0,0, 0,1,0);
- if (keys[VK_UP]) then go:=go +1.0;(это после двойной буферизации)
-Он мне нефига у тебя парень невыйдет и гонит мне чёто про вообще левую функцию находящуюся строк 15 выше.
Код существенно неотличаетсчя от преведёного мной в этой статье ищите он должен быть здесь. :)
P.S И если не секрет где можно взять Glaux портированную под Делфи :D Я искал честно ниде нету.
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Сообщение Sniper » 06.04.2006 22:30:35

Он мне нефига у тебя парень невыйдет и гонит мне чёто про вообще левую функцию находящуюся строк 15 выше

Опять издеваешься?
Sniper
постоялец
 
Сообщения: 472
Зарегистрирован: 28.05.2005 13:02:42

Сообщение Romtek » 07.04.2006 00:21:26

ANDREY.EXE писал(а):P.S И если не секрет где можно взять Glaux портированную под Делфи :D Я искал честно ниде нету.

Glaux это почти тот же GLUT. Что тебе в нём понадобилось?

Я начал писать уроки по использованию GLUT в Free Pascal. Зацените: <a href='http://sources.ru/wiki/doku.php?id=articles:using_glut' target='_blank'>http://sources.ru/wiki/doku.php?id=articles:using_glut</a>
Сам я на начинающем уровне, занимался в основном только переводом C примеров на WinAPI в Паскаль, GLUT.
Давайте дополнительные идеи что развавать и в какую сторону двигаться.

Если кому интересно, у меня есть несколько программ, описанных на сайте <a href='http://www.seedwiki.com/wiki/romiras' target='_blank'>http://www.seedwiki.com/wiki/romiras</a> (но я их так и не выложил на сайте). Могу выслать по мейлу. Также есть "бродилка" по плоской поверхности с помощью клавиатуры и мыши, можно "осматривать" всё вокруг себя.
Аватара пользователя
Romtek
постоялец
 
Сообщения: 190
Зарегистрирован: 22.05.2005 12:29:35
Откуда: Рамат Ган

Сообщение Guest » 07.04.2006 20:05:04

Опять издеваешься?
==============
Не ну почему ты мне раз сказал (Заметь я неспрашивал что он пишет) вот я и решил что ты догадаешся сам ;) .
================
Glaux это почти тот же GLUT. Что тебе в нём понадобилось?
Понадобилось вот чё я уроки от NeHE читаю а у него где непосмотри везде Glaux. :o
Guest
 

Сообщение ANDREY.EXE » 07.04.2006 20:06:52

Guest это я меня чёто выкинуло из зарегистренных незнаю чё за фигня :D
ANDREY.EXE
новенький
 
Сообщения: 60
Зарегистрирован: 18.03.2006 22:06:35

Пред.След.

Вернуться в Графика

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Рейтинг@Mail.ru