Как Нарисовать гриб в ПАСКАЛЬ

@Маэстро · Регистрация: 26.06.2012

Author24 — интернет-сервис помощи студентам

Чет я рисую не то видать

Pascal

 Uses Graph;
 
Var grDriver : Integer;
      grMode : Integer;
     ErrCode : Integer;
 
Begin
 grDriver:=Detect;
 InitGraph(grDriver, grMode, 'E:\PAS\PASCAL\BIN');
 ErrCode:=GraphResult;
 If ErrCode = grOk Then
  Begin
   { ѓа*дЁЄ* }
   circle(340,160,10);
         circle(370,190,10);
    circle(300,150,10);
        circle(230,190,10);
       circle(260,160,10);
      circle(300,190,10);
     circle(335,190,10);
    circle(265,190,10);
    line(195,213,405,213);
   arc(300,230,9,170,105);
   Ellipse(300,270,164, 16, 30, 205);
   ReadLn;
   CloseGraph;
  End
Else WriteLn('ЋиЁЎЄ* Ё*ЁжЁ*«Ё§*жЁЁ Ја*дЁЄЁ:', GraphErrorMsg(ErrCode));
End.                 >

и как израдактора скинуть сюда код?

@domovou2.0 · 08.11.2012, 19:49

Сообщение от Маэстро

Pascal

1 2	grDriver:=Detect; InitGraph(grDriver, grMode, 'E:\PAS\PASCAL\BIN');

добавь еще grMode:=Detect; перед initgraph ...

@Puporev · 08.11.2012, 19:57

Маэстро, А в чем проблема? И так все работает, но я бы выкинул лишнее.

Pascal

Uses Graph;
 
Var grDriver : Integer;
      grMode : Integer;
 
Begin
 InitGraph(grDriver, grMode, '');
 circle(340,160,10);
 circle(370,190,10);
 circle(300,150,10);
 circle(230,190,10);
 circle(260,160,10);
 circle(300,190,10);
 circle(335,190,10);
 circle(265,190,10);
 line(195,213,405,213);
 arc(300,230,9,170,105);
 Ellipse(300,270,164, 16, 30, 205);
 ReadLn
End.

@Маэстро · 09.11.2012, 07:11 **[ТС]**

Дело в том что гриб должен быть цветным, а вот с этим. Что для этого надо, кто говорит что нужно разбить фигуру на детали и как то там что то потом вставлять в другом окне. Может кто подскажет что надо сделать? может я фигуры неправильно нарисовал?

Добавлено через 10 минут

Сообщение от domovou2.0

добавь еще grMode:=Detect; перед initgraph ...

Это для чего? Какую функцию выполняет?

@Puporev · 09.11.2012, 08:11

Сообщение от Маэстро

Дело в том что гриб должен быть цветным,

А можно это было написать сразу вместо

Сообщение от Маэстро

Чет я рисую не то видать

Pascal

Uses Graph;
 
Var grDriver : Integer;
      grMode : Integer;
 
Begin
 InitGraph(grDriver, grMode, '');
 line(195,213,405,213); {обведем ножку белым}
 Ellipse(300,270,164, 16, 30, 205);
 Setfillstyle(1,15);  {покрасим в белый цвет}
 floodfill(300,270,15);
 setcolor(12); {обведем шляпку красным}
 line(195,213,405,213);
 arc(300,230,9,170,105);
 Setfillstyle(1,12);  {покрасим в красный цвет}
 floodfill(300,210,12);
 setcolor(15);
 circle(340,160,10);{нврисуем белые пятна}
 circle(370,190,10);
 circle(300,150,10);
 circle(230,190,10);
 circle(260,160,10);
 circle(300,190,10);
 circle(335,190,10);
 circle(265,190,10);
 Setfillstyle(1,15);
 floodfill(340,160,15);
 floodfill(370,190,15);
 floodfill(300,150,15);
 floodfill(230,190,15);
 floodfill(260,160,15);
 floodfill(300,190,15);
 floodfill(335,190,15);
 floodfill(265,190,15);
 ReadLn
End.

@Маэстро · 09.11.2012, 20:45 **[ТС]**

Очень интересно ОЧЕНЬ!!! Только вот возникаю вопросы с математической прогрессией)))) Я чтобы понять что к чему сижу меняю разные числа. Уже ногу перекрасил, не понял только как ты ее белым обвел

Добавлено через 22 минуты
и еще вопрос что такое "floodfill" и где можно посмотреть какие еще бывают значения. Если не трудно конечно. Очень надо. так как делаю впервые такое и испытываю трудности.

@Puporev · 10.11.2012, 07:45

Сообщение от Маэстро

и еще вопрос что такое "floodfill" и где можно посмотреть какие еще бывают значения

А в хелп Паскаля не пробовал посмотреть? Или в учебники какие?

@Маэстро · 18.11.2012, 16:28 **[ТС]**

Почитал и все нашел вот что получилось

Pascal

Uses Graph;
 
Var grDriver : Integer;
      grMode : Integer;
Begin
 InitGraph(grDriver, grMode, '');
 line(195,213,405,213);
 Ellipse(300,270,164, 16, 30, 205);
 Setfillstyle(1,8);
 floodfill(300,270,15);
 setcolor(12);
 line(195,213,405,213);
 arc(300,230,9,170,105);
 Setfillstyle(1,12);
 floodfill(300,210,12);
 setcolor(15);
 circle(340,160,10);
 circle(370,190,10);
 circle(300,150,10);
 circle(230,190,10);
 circle(260,160,10);
 circle(300,190,10);
 circle(335,190,10);
 circle(265,190,10);
 Setfillstyle(1,15);
 floodfill(340,160,15);
 floodfill(370,190,15);
 floodfill(300,150,15);
 floodfill(230,190,15);
 floodfill(260,160,15);
 floodfill(300,190,15);
 floodfill(335,190,15);
 floodfill(265,190,15);
          Begin
               line(50,80,100,80);
               Ellipse(75,93,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(75,93,15);
               setcolor(12);
               line(50,80,100,80);
               arc(75,83,9,170,25);
               Setfillstyle(1,12);
               floodfill(75,77,12);
               setcolor(15);
               circle(75,65,2);
               circle(75,75,2);
               circle(57,75,2);
               circle(93,75,2);
               circle(66,75,2);
               circle(84,75,2);
               circle(66,67,2);
               circle(84,67,2);
               Setfillstyle(1,15);
               floodfill(75,65,15);
               floodfill(75,75,15);
               floodfill(57,75,15);
               floodfill(93,75,15);
               floodfill(66,75,15);
               floodfill(84,75,15);
               floodfill(66,67,15);
               floodfill(84,67,15);
          End;
               Begin
                line(550,80,600,80);
               Ellipse(575,93,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(575,93,15);
               setcolor(12);
               line(550,80,600,80);
               arc(575,83,9,170,25);
               Setfillstyle(1,12);
               floodfill(575,77,12);
               setcolor(15);
               circle(575,65,2);
               circle(575,75,2);
               circle(557,75,2);
               circle(593,75,2);
               circle(566,75,2);
               circle(584,75,2);
               circle(566,67,2);
               circle(584,67,2);
               Setfillstyle(1,15);
               floodfill(575,65,15);
               floodfill(575,75,15);
               floodfill(557,75,15);
               floodfill(593,75,15);
               floodfill(566,75,15);
               floodfill(584,75,15);
               floodfill(566,67,15);
               floodfill(584,67,15)
               End;
                    Begin
               line(50,400,100,400);
               Ellipse(75,413,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(75,413,15);
               setcolor(12);
               line(50,400,100,400);
               arc(75,403,9,170,25);
               Setfillstyle(1,12);
               floodfill(75,397,12);
               setcolor(15);
               circle(75,395,2);
               circle(75,385,2);
               circle(57,395,2);
               circle(93,395,2);
               circle(66,395,2);
               circle(84,395,2);
               circle(66,387,2);
               circle(84,387,2);
               Setfillstyle(1,15);
               floodfill(75,395,15);
               floodfill(75,385,15);
               floodfill(57,395,15);
               floodfill(93,395,15);
               floodfill(66,395,15);
               floodfill(84,395,15);
               floodfill(66,387,15);
               floodfill(84,387,15);
          End;
 ReadLn
End.

Добавлено через 1 минуту
так то все просто если есть хотя бы приблизительный шаблон. Еще один вопрос есть как анимацию на эту прогу сделать

@domovou2.0 · 19.11.2012, 10:59

анимация заключается в том что Вы рисуете гриб в цикле стираете и перемешаете на новые координаты
но в данном случае лучше изображение занести в память, а потом его вставлять на новые координаты

@Маэстро · 20.11.2012, 22:46 **[ТС]**

В смысле в память?

@domovou2.0 · 21.11.2012, 10:50

imagesize (x1,y1,x2,y2):word - возраш размер памяти в байтах необход для размеш прямоугол фрагмента
GetImage(x1,y1,x2,y2:integer; var BUF)- помеш в память копию прямоугол фраг изображ, Buf - перем или участок кучи
putImage(x,y:integer;var buf, mode:worde) - выводит в заданное место изображение ранее помешенное в память и заместо mode - поставь 1.

@Маэстро · 21.11.2012, 18:08 **[ТС]**

Сообщение от domovou2.0

imagesize (x1,y1,x2,y2):word - возраш размер памяти в байтах необход для размеш прямоугол фрагмента
GetImage(x1,y1,x2,y2:integer; var BUF)- помеш в память копию прямоугол фраг изображ, Buf - перем или участок кучи
putImage(x,y:integer;var buf, mode:worde) - выводит в заданное место изображение ранее помешенное в память и заместо mode - поставь 1.

Это для анимации уже применяется?

@domovou2.0 · 21.11.2012, 19:43

Pascal

Uses Graph,crt;
 
Var grDriver : Integer;
      grMode : Integer;
      saucer:pointer;
      size:integer;
      x,y,x1,y1:integer;
Begin
 InitGraph(grDriver, grMode, 'c:\bp\bgi');
 rectangle(180,100,450,getmaxy);
 
 line(195,213,405,213);
 Ellipse(300,270,164, 16, 30, 205);
 Setfillstyle(1,8);
 floodfill(300,270,15);
 setcolor(12);
 line(195,213,405,213);
 arc(300,230,9,170,105);
 Setfillstyle(1,12);
 floodfill(300,210,12);
 setcolor(15);
 circle(340,160,10);
 circle(370,190,10);
 circle(300,150,10);
 circle(230,190,10);
 circle(260,160,10);
 circle(300,190,10);
 circle(335,190,10);
 circle(265,190,10);
 Setfillstyle(1,15);
 floodfill(340,160,15);
 floodfill(370,190,15);
 floodfill(300,150,15);
 floodfill(230,190,15);
 floodfill(260,160,15);
 floodfill(300,190,15);
 floodfill(335,190,15);
 floodfill(265,190,15);
          Begin
               line(50,80,100,80);
               Ellipse(75,93,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(75,93,15);
               setcolor(12);
               line(50,80,100,80);
               arc(75,83,9,170,25);
               Setfillstyle(1,12);
               floodfill(75,77,12);
               setcolor(15);
               circle(75,65,2);
               circle(75,75,2);
               circle(57,75,2);
               circle(93,75,2);
               circle(66,75,2);
               circle(84,75,2);
               circle(66,67,2);
               circle(84,67,2);
               Setfillstyle(1,15);
               floodfill(75,65,15);
               floodfill(75,75,15);
               floodfill(57,75,15);
               floodfill(93,75,15);
               floodfill(66,75,15);
               floodfill(84,75,15);
               floodfill(66,67,15);
               floodfill(84,67,15);
          End;
               Begin
                line(550,80,600,80);
               Ellipse(575,93,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(575,93,15);
               setcolor(12);
               line(550,80,600,80);
               arc(575,83,9,170,25);
               Setfillstyle(1,12);
               floodfill(575,77,12);
               setcolor(15);
               circle(575,65,2);
               circle(575,75,2);
               circle(557,75,2);
               circle(593,75,2);
               circle(566,75,2);
               circle(584,75,2);
               circle(566,67,2);
               circle(584,67,2);
               Setfillstyle(1,15);
               floodfill(575,65,15);
               floodfill(575,75,15);
               floodfill(557,75,15);
               floodfill(593,75,15);
               floodfill(566,75,15);
               floodfill(584,75,15);
               floodfill(566,67,15);
               floodfill(584,67,15)
               End;
                    Begin
               line(50,400,100,400);
               Ellipse(75,413,162, 16, 10, 45);
               Setfillstyle(1,7);
               floodfill(75,413,15);
               setcolor(12);
               line(50,400,100,400);
               arc(75,403,9,170,25);
               Setfillstyle(1,12);
               floodfill(75,397,12);
               setcolor(15);
               circle(75,395,2);
               circle(75,385,2);
               circle(57,395,2);
               circle(93,395,2);
               circle(66,395,2);
               circle(84,395,2);
               circle(66,387,2);
               circle(84,387,2);
               Setfillstyle(1,15);
               floodfill(75,395,15);
               floodfill(75,385,15);
               floodfill(57,395,15);
               floodfill(93,395,15);
               floodfill(66,395,15);
               floodfill(84,395,15);
               floodfill(66,387,15);
               floodfill(84,387,15);
          End;
  size:=imagesize(180,100,450,getmaxy);
   getmem(saucer,size);
   getimage(180,100,450,getmaxy,saucer^);
   putimage(random(getmaxx),random(getmaxy),saucer^,xorput);
   repeat
   putimage(random(getmaxx),random(getmaxy),saucer^,xorput);
    delay(50);
   until keypressed ;
 
 ReadLn
End.

только надо сдесь еше добавить изменение координат плавно что бы это было похоже на анимацию

@Маэстро · 22.11.2012, 07:12 **[ТС]**

Вот это уже что-то класс!!! Как выставлю координаты покажу что получилось

@Маэстро 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	22.11.2012, 07:12 [ТС]	14
	Вот это уже что-то класс!!! Как выставлю координаты покажу что получилось 0

@Маэстро 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	09.11.2012, 07:11 [ТС]	4
	Дело в том что гриб должен быть цветным, а вот с этим. Что для этого надо, кто говорит что нужно разбить фигуру на детали и как то там что то потом вставлять в другом окне. Может кто подскажет что надо сделать? может я фигуры неправильно нарисовал? Добавлено через 10 минут Сообщение от domovou2.0 добавь еще grMode:=Detect; перед initgraph ... Это для чего? Какую функцию выполняет? 0

@Маэстро 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	09.11.2012, 20:45 [ТС]	6
	Очень интересно ОЧЕНЬ!!! Только вот возникаю вопросы с математической прогрессией)))) Я чтобы понять что к чему сижу меняю разные числа. Уже ногу перекрасил, не понял только как ты ее белым обвел Добавлено через 22 минуты и еще вопрос что такое "floodfill" и где можно посмотреть какие еще бывают значения. Если не трудно конечно. Очень надо. так как делаю впервые такое и испытываю трудности. 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	10.11.2012, 07:45	7
	Сообщение от Маэстро и еще вопрос что такое "floodfill" и где можно посмотреть какие еще бывают значения А в хелп Паскаля не пробовал посмотреть? Или в учебники какие? 1

@domovou2.0 Дзæуджыхъæу 232 / 204 / 148 Регистрация: 20.09.2012 Сообщений: 421 Записей в блоге: 1
	19.11.2012, 10:59	9
	анимация заключается в том что Вы рисуете гриб в цикле стираете и перемешаете на новые координаты но в данном случае лучше изображение занести в память, а потом его вставлять на новые координаты 0

@Маэстро 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	20.11.2012, 22:46 [ТС]	10
	В смысле в память? 0

@domovou2.0 Дзæуджыхъæу 232 / 204 / 148 Регистрация: 20.09.2012 Сообщений: 421 Записей в блоге: 1
	21.11.2012, 10:50	11
	imagesize (x1,y1,x2,y2):word - возраш размер памяти в байтах необход для размеш прямоугол фрагмента GetImage(x1,y1,x2,y2:integer; var BUF)- помеш в память копию прямоугол фраг изображ, Buf - перем или участок кучи putImage(x,y:integer;var buf, mode:worde) - выводит в заданное место изображение ранее помешенное в память и заместо mode - поставь 1. 0

@Маэстро 0 / 0 / 0 Регистрация: 26.06.2012 Сообщений: 18
	21.11.2012, 18:08 [ТС]	12
	Сообщение от domovou2.0 imagesize (x1,y1,x2,y2):word - возраш размер памяти в байтах необход для размеш прямоугол фрагмента GetImage(x1,y1,x2,y2:integer; var BUF)- помеш в память копию прямоугол фраг изображ, Buf - перем или участок кучи putImage(x,y:integer;var buf, mode:worde) - выводит в заданное место изображение ранее помешенное в память и заместо mode - поставь 1. Это для анимации уже применяется? 0