Сообщений: 26,238
Да ладно, Вам что — в лом учиться то.
Вам самому просто лень? Или Вы принципиально ничего сами делать не хотите.
вот, для затравки — программа, которая рисует домик.
по-моему, домик несложно переделать в снеговика.. 🙂
uses graph; var d, m: integer; begin d := detect; initgraph(d, m, ‘C:TP7BGI’); setcolor(14); setbkcolor(15); circle(570, 70, 50); setfillstyle(1, 14); floodfill(570, 70, 14); setcolor(11); circle(550, 56, 4); setfillstyle(1, 11); floodfill(550, 56, 11); circle(590, 56, 4); setfillstyle(1, 11); floodfill(590, 56, 11); setcolor(12); line(570, 62, 570, 70); line(555, 82, 585, 82); setcolor(6); rectangle(200, 400, 400, 200); line(400, 200, 300, 100); line(200, 200, 300, 100); setfillstyle(9, 6); floodfill(360, 180, 6); setfillstyle(9, 11); floodfill(201, 398, 6); rectangle(310, 400, 400, 240); setfillstyle(1, 7); floodfill(311, 398, 6); circle(360, 330, 5); setfillstyle(1, 6); floodfill(360, 330, 6); rectangle(230, 290, 270, 240); setfillstyle(1, 15); floodfill(231, 288, 6); line(250, 240, 250, 290); line(230, 260, 270, 260); readln; closegraph; end.
Источник: www.programmersforum.ru
Контуры в GIMP (Инструмент Перо). Рисуем снеговика в Gimp
Алгоритм построения:
Для начала, нужно нарисовать фон. Просто делим плоскость линией — горизонтом и заливаем небо и снег. После чего создаем небо: луну и звезды, если присмотреться, то можно увидеть созвездие «Большая Медведица». Создавая его, я просто примерно подбирал координаты на бумаге, а потом подгонял на компьютере. Далее рисуем елку.
Пенек – закрашенным прямоугольником, а треугольники – циклом, параллельно закрашивая. Далее – снеговик. Сначала, я рисовал снеговика, а после создавал его движение. Снеговик состоит из простых фигур – окружностей и линий, а на лице — использовались эллипсы и дуги.
Движение моего снеговика заключается в том, что координаты частей просто смещаются вправо, в связи с чем, рисуется снеговик еще раз, смещенный вбок на какое-то число, а слева – столько же закрашивается. Некоторые рисуют движение: закрашивают исходную фигуру и рисуют смещенную, а я, например, у тела снеговика, — перерисовал смещенного снеговика, а потом слева зарисовал полуокружностью. Такой метод сложен тем, когда объект движется не по однородному фону, нужно закрашивать частями, как я делал с правой рукой снеговика, часть которой на белом фоне, а часть – на голубом. Ведро – просто из двух дуг, соединенных линиями.
Источник: www.sites.google.com
Программа на QBasic, рисуем снеговика
Простенькая программа на QBasic, программа рисования, рисует снеговика.
SCREEN 12
CIRCLE (300, 150), 30
CIRCLE (300, 150), 15, 12, 3.14 + 3.14 / 4, 3 * 3.14 / 2 + 3.14 / 4
Как нарисовать снеговика поэтапно в Paint для детей. Урок 1 Рисование на компьютере
CIRCLE (290, 140), 5, 6
CIRCLE (310, 140), 5, 6
LINE (300, 140)-(320, 160), 12
LINE (298, 150)-(320, 160), 12
LINE (300, 140)-(298, 150), 12
CIRCLE (300, 230), 50
CIRCLE (300, 350), 70
CIRCLE (370, 230), 20
CIRCLE (230, 230), 20
CIRCLE (230, 415), 30, 15, , , .6
CIRCLE (370, 415), 30, 15, , , .6
LINE (372, 150)-(372, 400), 6
LINE (372, 150)-(300, 100), 6
LINE (372, 150)-(340, 100), 6
LINE (372, 150)-(380, 100), 6
LINE (372, 150)-(420, 100), 6
CIRCLE (300, 210), 5
CIRCLE (300, 250), 5
CIRCLE (300, 300), 5
CIRCLE (300, 340), 5
CIRCLE (300, 380), 5
PAINT (300, 210), 5, 15
PAINT (300, 250), 5, 15
PAINT (300, 300), 5, 15
PAINT (300, 340), 5, 15
PAINT (300, 380), 5, 15
PAINT (290, 140), 1, 6
PAINT (310, 140), 1, 6
6 Replies to “Программа на QBasic, рисуем снеговика”
Привет!Спасибо тебе за программу.Я, к сожалению, не могу проверить как она работает, но надеюсь, что исправно. Интересный у тебя сайт, скачиваю твою»Красоту во все эпохи»,ты не против?
Источник: twoshadows.ru