FreePascal and OGL

[ANDREY.EXE]

Религия позволяет я всётаки нашёл полезные вещи они написаны на 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

[Sniper]

А чё тут сложного?

Код: Выделить всё

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); // Глубина, где туман заканчивается.

[ANDREY.EXE]

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

[Sphinx]

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 и неговорите мне чтоб я учил модульное программирование

Ну ты понял да

[Sniper]

Sphinx, зачОт!

ANDREY.EXE купи себе книжку "программирование на Pascal для чайникоff"

[SovNarKom]

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

Sniper
У меня иногда такое чувство, что он издевается...
Хотя может это просто такая манера общения... <_<

[ANDREY.EXE]

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

[ANDREY.EXE]

Ладно конечно спасиба за путние советы.Вообще чайнику отводится особое место в GameDev может ты незаметил но в любом практически движке можно создать одной командой чайник CreateTeapot.
P.S а книжечку купи

[Sphinx]

ANDREY.EXE

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

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

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

Точно. Делфи (Паскаль) для чайников

[ANDREY.EXE]

Точно. Делфи (Паскаль) для чайников
===========================
Неа не для чайников а (Программирование на Паскаль).
P.S После того как посмотрел в зеркало обнаружил что я совсем непохож на чайник .

[ANDREY.EXE]

Млин у меня опять проблема начал я шаманить над клавишами делаю так
-заношу переменную 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 портированную под Делфи Я искал честно ниде нету.

[Sniper]

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

Опять издеваешься?

[Romtek]

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

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> (но я их так и не выложил на сайте). Могу выслать по мейлу. Также есть "бродилка" по плоской поверхности с помощью клавиатуры и мыши, можно "осматривать" всё вокруг себя.

[Guest]

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

[ANDREY.EXE]

Guest это я меня чёто выкинуло из зарегистренных незнаю чё за фигня