Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
BS-0
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
1

Модуль Graph: изменить цвет фигур и линий

08.02.2013, 13:17. Просмотров 1806. Ответов 4
Метки нет (Все метки)

Как сделать, что бы цвет линий, фигур был черным? Когда я пишу SetColor(0); , то линии делаются прозрачными, и тогда и не рисунка нету и с заливкой проблема. С синим цветом все нормально, но когда я ставлю Black, то нет рисунка.

Добавлено через 5 минут
Вот полная программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses graph,crt;
var gd,gm,error,i:integer;
     begin
     Gd:=Detect;
     InitGraph(GD,GM,' ');
      Begin
     SetBkColor(15);
 
         SetColor(1);
         setFillStyle(1,3);
         line(320,440,320,40);
         circle(320,240,200);
         fillellipse(320,100,40,20);
 
 
                    arc(390,272,120,248,180);
                   setfillstyle(1,4);
                     FloodFill(300,240,1);
 
                      arc(255,270,289,420,180);
                     setfillstyle(1,green);
                  arc(360,245,395,108,170);
 
                   FloodFill(340,240,1);
                     setfillstyle(1,blue);
                     FloodFill(500,240,1) ;
                      arc(360,245,395,108,170);
 
                setfillstyle(1,4);
                  FloodFill(340,55,1) ;
                      arc(280,245,435,144,170);
              setfillstyle(1,green);
                  FloodFill(260,55,1) ;
              setfillstyle(1,yellow);
                  FloodFill(280,120,1) ;
     Readln;
     Closegraph;
     end;
     end.
Добавлено через 10 минут
Подскажите еще процедуру чтобы увеличить ширину линий и фигур.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2013, 13:17
Ответы с готовыми решениями:

Модуль Graph - не закрашиваются края в черный цвет
Нужно края в черный закрасить, вроде все задал, а они все равно белые вот...

Модуль Graph. Нарисовать овал, который движется по вертикали. При достижении границы меняет цвет
Нарисовать на экране овал зеленого цвета, который движется по вертикали по...

Типизированные файлы/Модуль Graph/Модуль DOS
Всем доброго время суток! Народ, помогите, пожалуйста!!! У меня не получается...

Установить название вида линий в модуле graph
Установить название вида линий в модуле graph паскаля его номеру например...

Модуль graph.
Помогите составить процедуру постепенного построения трехмерного изображения...

4
Puporev
Модератор
55464 / 42571 / 29422
Регистрация: 18.05.2008
Сообщений: 100,712
08.02.2013, 14:06 2
Чтобы рисовать черным на белом, нужно не фон задавать белым, а рисовать белый прямоугольник на весь экран
Pascal
1
2
3
setcolor(15);
setfillstyle(15,1);
bar(0,0,getmaxX,getmaxY);
Добавлено через 2 минуты
Цитата Сообщение от BS-0 Посмотреть сообщение
Подскажите еще процедуру чтобы увеличить ширину линий и фигур.
Толщина линий
setlinestyle(0,0,3);-толстая, 0,0,1-тонкая, больше нет.
Насчет ширины фигур, не понял, но видимо масштабирование, процедуры никакой нет.
1
BS-0
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
08.02.2013, 17:06  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Чтобы рисовать черным на белом, нужно не фон задавать белым, а рисовать белый прямоугольник на весь экран
При этом квадрате, при закрашивании отдельных элементов у меня закрашивается весь экран, т.е. квадрат этот.
0
Puporev
Модератор
55464 / 42571 / 29422
Регистрация: 18.05.2008
Сообщений: 100,712
08.02.2013, 17:27 4
Цитата Сообщение от BS-0 Посмотреть сообщение
при закрашивании отдельных элементов у меня закрашивается весь экран
Значит точку для заливки мимо фигуры берете.
0
BS-0
4 / 4 / 3
Регистрация: 13.11.2012
Сообщений: 74
09.02.2013, 13:16  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Значит точку для заливки мимо фигуры берете.
С координатами заливки все хорошо. При использовании вашего варианта все работает, но только при синем цвете. Ставлю черный или другой все разрушается: фигуры, с заливкой бардак, дуги и т.д.

Добавлено через 19 часов 31 минуту
Я разобрался в FloodFill лоханулся
0
09.02.2013, 13:16
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 13:16

модуль Graph
помогите, пожалуйста, решить! построить график функции у=1/(x^2-x+1), где х...

Модуль Graph
немогу никак нарисовать график для exp(x)

модуль Graph
Помогите построить график функции F(x). Вид фигуры и надписей на экране...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru