4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
1

Построить изображение и выполнить заливку отдельных фрагментов изображения

02.04.2013, 07:17. Показов 2202. Ответов 5
Метки нет (Все метки)

Необходимо построить изображение и выполнить заливку отдельных фрагментов изображения
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2013, 07:17
Ответы с готовыми решениями:

Извлечение отдельных фрагментов из изображения
Всем доброго времени суток. Сейчас активно штудирую дотку, и на сколько я помню где-то видел про...

Нужна программа для вырезки отдельных фрагментов из видео
подскажите простую и на руском языке программу для вырезки отдельных фрагментов из видео.Ну очень...

Сохранение в отдельных файлах всех фрагментов текста из текстового файла, ограниченных определёнными символами
Доброго дня! Просьба помочь написать батник. Есть текстовый файл который необходимо разбить на...

Как выполнить полупрозрачную заливку?
Нужно залить пикчербокс полупрозрачной заливкой. Добавлено через 2 минуты можете не отвечать ,...

5
Модератор
64015 / 47445 / 32709
Регистрация: 18.05.2008
Сообщений: 115,140
02.04.2013, 08:08 2
Цитата Сообщение от ДимКо Посмотреть сообщение
выполнить заливку отдельных фрагментов изображения
Как и чем залить? Все одинаково или какая-то закономерность?
0
4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
02.04.2013, 08:10  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Как и чем залить? Все одинаково или какая-то закономерность?
Не имеет значения. Можно и вообще не заливать, я после сам залью
0
Модератор
64015 / 47445 / 32709
Регистрация: 18.05.2008
Сообщений: 115,140
02.04.2013, 08:29 4
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
uses graph;
var xc,yc,r,i:integer;
    p:array[1..10] of pointtype;
    u:real;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=yc-50;
u:=0;
for i:=1 to 8 do
 begin
  p[i].x:=xc+round(r*cos(u));
  p[i].y:=yc-round(r*sin(u));
  u:=u+pi/4;
 end;
p[9]:=p[1];
p[10]:=p[2];
setfillstyle(1,15);
bar(0,0,2*xc,2*yc);
setcolor(0);
for i:=1 to 5 do
 begin
  line(p[i].x,p[i].y,p[i+3].x,p[i+3].y);
  line(p[i].x,p[i].y,p[i+5].x,p[i+5].y);
 end;
circle(xc,yc,r);
readln
end.
1
4 / 4 / 2
Регистрация: 26.10.2012
Сообщений: 155
03.04.2013, 19:32  [ТС] 5
А можно на ABC?
0
Модератор
64015 / 47445 / 32709
Регистрация: 18.05.2008
Сообщений: 115,140
03.04.2013, 19:58 6
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
uses graphABC;
type point=record
           x,y:integer;
           end;
var xc,yc,r,i:integer;
    p:array[1..10] of point;
    u:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=yc-50;
circle(xc,yc,r);
u:=0;
for i:=1 to 8 do
 begin
  p[i].x:=xc+round(r*cos(u));
  p[i].y:=yc-round(r*sin(u));
  u:=u+pi/4;
 end;
p[9]:=p[1];
p[10]:=p[2];
for i:=1 to 5 do
 begin
  line(p[i].x,p[i].y,p[i+3].x,p[i+3].y);
  line(p[i].x,p[i].y,p[i+5].x,p[i+5].y);
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2013, 19:58

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как выполнить заливку нарисованной фигуры?
Создана программа - графический редактор. Допустим нарисован овал, как выполнить его заливку? С# ...

Как очистить image1 и выполнить заливку одной кнопкой?
Как очистить image1 и выполнить заливку одной кнопкой?

Распознание фрагментов изображения
Имеем два изображения одной и той же комнаты пейзажа не важно суть что на картинке множество...

Умная склейка фрагментов изображения
Доброго времени суток Суть вопроса - есть несколько изображений, и каждое чуть-чуть отличается...


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

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

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