Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.02.2010, 21:34   #1
@LeXiS
Новичок
Джуниор
 
Регистрация: 20.02.2010
Сообщений: 1
Счастье графика в paskal

подскажите а как можно в paskalе использовать 3d графику?
@LeXiS вне форума Ответить с цитированием
Старый 20.02.2010, 22:22   #2
Stepler
Форумчанин
 
Аватар для Stepler
 
Регистрация: 03.02.2008
Сообщений: 213
По умолчанию

Встроених средств нет, нужно все вручную делать! Что именно то нужно?
Пишу программы на заказ, контакты под аватаром!
Отзывы тут
Stepler вне форума Ответить с цитированием
Старый 22.02.2010, 09:48   #3
CyberGenus
Пользователь
 
Регистрация: 23.01.2010
Сообщений: 36
По умолчанию

У меня получалось 3D текст выводить
Я процесс автоматизировал и написал собственный графический модуль:
Код:
{$N+}
unit my_graph;
interface
 procedure open_graph;
 procedure close_graph;
 function gx(x:extended;sx:integer):integer;
 function gy(y:extended;sy:integer):integer;
 implementation
 uses graph;
 var
   x,y:extended;
   sx,sy:integer;
procedure open_graph;
var
  graph_device,graph_mode:integer;
begin
 graph_device:=detect;
 initgraph(graph_device,graph_mode,'');
 if graphresult<>0 then
begin
writeln('Error!');    {ошибка инициализации}
readln;
halt;
end;
end;
procedure close_graph;
begin
closegraph;
if graphresult<>0 then
begin
writeln('Error!');        {ошибка закрытия}
readln;
halt;
end;
end;
function gx(x:extended; sx:integer):integer;
begin
gx:=trunc(sx*x)+getmaxX div 2;
end;
function gy(y:extended; sy:integer):integer;
begin
gy:=getmaxY div 2-trunc(sy*y);
end;
end.
А вот прога для вывода 3D текста:
Код:
program text3d;
uses graph,my_graph;
procedure shadow_text(x,y:integer;
text:string;
bg,vg,font,size:byte);
begin
 settextstyle(font,0,size);
 setcolor(bg);
 outtextXY(x+1,y+1,text);
 settextstyle(0,0,0);
end;
begin
open_graph;
shadow_text(130,170,'3D TEXT in Turbo Pascal',
  blue,red,defaultfont,2);
readln;
closegraph;
end.

Последний раз редактировалось CyberGenus; 22.02.2010 в 09:51.
CyberGenus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Paskal SkyL1ne Помощь студентам 1 25.12.2009 10:09
избушка ( Графика, Paskal) aiktz Помощь студентам 4 02.05.2009 21:17
Графика на Paskal aiktz Помощь студентам 6 02.05.2009 20:53
Графика на Paskal aiktz Помощь студентам 1 24.04.2009 20:14
Paskal netcher Помощь студентам 3 05.02.2009 02:04