нарисовать танк в паскале!

[игорек фролоff]

нужно нарисовать танк в паскале с помощью модуль graph

[Utkin]

Бывает . И что дальше? Где вопрос, наработки, мысли? На чем остановились? Могу прислать нарисованную картинку . Если Вы думаете, что за Вас это все сделают, то писать следует в разделе Фриланс. Здесь только подсказывают.

[игорек фролоff]

мои наброски!

uses graph;
var
graphdriver,graphmode,grapherror:integer;
begin
graphdriver:=detect;
initgraph(graphdriver,graphmode,'');
grapherror:=graphresult
if grapherror<>grok then begin
writeln('ошибка при инициализации графики');
writeln(grapherrormsg(grapherror));
halt(1);
end;
line(200,200,200,400);
line(200,400,200,400);
readln:closegraph;
end.

[Ecosasha]

Может, для начала вам легче будет нарисовать его от руки на листке бумаги, а потом отсканировать или сфотографировать, и выложить здесь, чтобы было общее представление, что надо сделать.
Или же в Paintе нарисовать, а потом здесь выложить.
Тогда, будет проще сказать, где трудные моменты и как их реализовывать, с помощью каких функций.

[DomiNick]

Надеюсь не "трёхмерный и шоб вращать можно было"?

[NeshSoft]

Не обязательно рисовать в паскале линиями и кружочками... Можно приготовить файл, где попиксильное изображение в 16 цветах, а затем его считывать и попиксильно рисовать.

Даже формат такой специальный был *.ima называется - содержит такие вот картинки для паскаля, и конвертеры к нему были и много разного... но широкого распространения это все не получило... вобщем щас трудно что-нибудь об этом найти

[Utkin]

Ну я бы сначала нарисовал бы в тетрадке в клеточку. где каждая клеточка есть определенное число пикселей. Ну а там получил координаты точек . Времени на это надо минут 20 . Рисуй современный танк, вид сверху - это даст тебе возможность избежать окружностей, обойдешься одними line (я с детства не любил овал, я с детства угол рисовал).

[NeshSoft]

Я про то, что можно перевести фото танка в 16 паскалевских цветов (например в фотошопе), затем сохранить в bmp, а затем из bmp уже считывать в паскаль - тогда качество рисунка будет выше.

Вопрос в том, что нужно автору: научиться процессу рисования танка линиями и кружочками, или получить более-мение качественное изображение танка.

PS (меня понесло), а еще можно переинициализировать паскалевскую палитру, и из 16 цветов, сделать 16 оттенков черного - тогда можно будет вообще отличные ч/б картинки вставлять, ну только низкое разрешение скажется..., если кому интересно могу кинуть некоторые наработки по этому поводу

[Serge_Bliznykov]

я уверен, автору топика 100% надо танк, нарисованный именно линиями, кружочками и прямоугольничками...

ТАКОЙ ТАНК, найденный на просторах Интернета, пойдёт?

uses
Graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
begin
grDriver:=Detect;
InitGraph(grDriver, grMode, '');
Line(180, 130, 270, 130);
Line(180, 130, 180, 160);
Line(270, 130, 270, 160);

{Дуло}
Line(270, 143, 370, 143);
Line(270, 147, 370, 147);
Line(370, 143, 370, 147);


Line(140, 160, 310, 160);
Line(140, 190, 310, 190);
Arc(140, 175, 90, 270, 15);
Arc(310, 175, 270, 90, 15);
Circle(155, 175, 10);
Circle(190, 175, 10);
Circle(225, 175, 10);
Circle(260, 175, 10);
Circle(295, 175, 10);
ReadLn;
CloseGraph;
end.

___________________________________ ____________________________

Сообщение от NeshSoft

если кому интересно могу кинуть некоторые наработки по этому поводу

NeshSoft,
мне интересно. может в отдельную тему?!

[NeshSoft]

Сообщение от Serge_Bliznykov

мне интересно. может в отдельную тему?!

Ок, поищу информацию, создам темку