![](/logo_grey.gif)
Последние записи
- Проверка на шестнадцатеричный формат записи
- Отдать пользователю файл с помощью file_get_contents()
- Написать собственую функцию operator[] для битов
- Проблема с движением 2D человека
- OpenGl.Создание винтовой лестницы
- Склеить несколько файлов в один
- Windows 10 сменить администратора
- Рандомное слайдшоу
- Событие для произвольной области внутри TImage
- Удаление папки с файлами
![](http://programmersclub.ru/slurm3.jpg)
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
![](http://programmersclub.ru/katajpg.jpg)
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
21st
Янв
OpenGl.Создание винтовой лестницы
Posted by obzor under Delphi
Сейчас я пытаюсь на OpenGl нарисовать винтовую лестницу, но если честно я вообще ничего не могу придумать, может есть у кого образцы или гайды какие нибудь по созданию лестниц.
type
TP=record
x,z:extended;
var
i:integer;
v:array [0..119] of TP;
r:extended=0.7;
y:extended=0;
angle:integer=0;
begin
..............
// заполнение массива точками.
// по этой формуле вычисляется контур окружности радиусом r.
for I := 0 to 119 do
begin
v.X:=r*cos(angle*pi/180);
v.Z:=r*sin(angle*pi/180);
angle:=angle+3;
end;
........
{ А тут рисуем спираль.}
for i:= 0 to 358 do
begin
glBegin(GL_TRIANGLE);
glVertex3f(0,y,0);
glVertex3f(v.x,y,v.z);
glVertex3f(v.x,y,v.z);
glEnd;
y:=y+r/120;
end;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
![пеллетные котлы](http://programmersclub.ru/respective.jpg)
пеллетные котлы
![пеллетный котел](http://programmersclub.ru/emtas.jpg)
Пеллетный котел Emtas
![форум программистов](http://programmersclub.ru/banf336х280.gif)
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)