Добавить к рисунку повторяющийся объект "Снежинка"

@kuzne4ik · Регистрация: 26.12.2011

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

Вот есть такой рисунок.
Нужно к нему добавить повторяющийся объект "Снежинка", то есть нужно, чтобы по всему экрану были снежинки.

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
40
41
42
43
44
45
46
47
48
Program dom;
uses GraphABC;
var x,y:integer;
Begin
rectangle (0,0,1200,840);
line (300,330,900,330);
line (300,330,300,720);
line (300,720,900,720);
line (900,720,900,330);
line (300,330,600,150);
line (600,150,900,330);
rectangle (360,540,450,450);
rectangle (540,540,630,450);
rectangle (720,540,810,450);
line (900,630,960,630);
line (960,630,960,660);
line (960,660,1050,660);
line (1050,660,1050,690);
line (1050,690,1110,690);
line (1110,690,1110,720);
line (1110,720,900,720);
circle (975,105,75);
line (150,450,105,510) ;
line (105,510,195,510)  ;
line (195,510,150,450)   ;
line (150,510,90,540);
line (90,540,210,540);
line (210,540,150,510);
line (150,540,60,570);
line (60,570,240,570);
line (240,570,150,540);
line (165,570,165,600);
line (165,600,135,600);
line (135,600,135,570);
FloodFill (150,480,clgreen);
FloodFill (150,525,clgreen);
FloodFill (150,541,clgreen);
FloodFill (150,585,clbrown);
FloodFill (960,90,clyellow);
FloodFill (960,690,clbrown);
FloodFill (510,450,clmedgray);
FloodFill (600,240,clBrown);
line (0,540,300,540);
line (900,540,1200,540);
FloodFill (150,750,clblue);
 
 
end.

@КонецСвета · 26.12.2011, 14:35

например, так...

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program dom;
 uses GraphABC;
 var x,y,i:integer;
 Begin
 setbrushcolor(clblue);
 rectangle (0,0,1200,840);
 line (300,330,900,330);
 line (300,330,300,720);
 line (300,720,900,720);
 line (900,720,900,330);
 line (300,330,600,150);
 line (600,150,900,330);
setbrushcolor(clwhite);
 rectangle (360,540,450,450);
 rectangle (540,540,630,450);
 rectangle (720,540,810,450);
 line (900,630,960,630);
 line (960,630,960,660);
 line (960,660,1050,660);
 line (1050,660,1050,690);
 line (1050,690,1110,690);
 line (1110,690,1110,720);
 line (1110,720,900,720);
 circle (975,105,75);
 line (150,450,105,510) ;
 line (105,510,195,510) ;
 line (195,510,150,450) ;
 line (150,510,90,540);
 line (90,540,210,540);
 line (210,540,150,510);
 line (150,540,60,570);
 line (60,570,240,570);
 line (240,570,150,540);
 line (165,570,165,600);
 line (165,600,135,600);
 line (135,600,135,570);
 FloodFill (150,480,clgreen);
 FloodFill (150,525,clgreen);
 FloodFill (150,541,clgreen);
 FloodFill (150,585,clbrown);
 FloodFill (960,90,clyellow);
 FloodFill (960,690,clbrown);
 FloodFill (510,450,clmedgray);
 FloodFill (600,240,clBrown);
 
 
 line (0,540,300,540);
 line (900,540,1200,540);
 FloodFill (150,750,clblue);
 FloodFill (50,700,clgreen);
 for i:=1 to 200 do
     begin
     x:=random(1200);
     y:=random(840);
     setpencolor(clwhite);
     circle(x,y,3);
     end;
 
 end.

@kuzne4ik · 26.12.2011, 17:30 **[ТС]**

Не понял смысла работы.сделайте пожалуйста снег на этом рисунке.

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
Program Dom;
uses GraphABC;
var x,y:integer;
Begin
x:=100;y:=100;
line(150,270,150,570);
line(150,570,300,690);
line( 300,690,300,390);
line(300,390,900,390);
line(900,390,900,690);
line(900,690,300,690);
line(300,390,150,270);
line(150,270,300,240);
line(300,240,750,240);
line(750,240,900,390);
line(300,390,300,240);
rectangle(360,450,540,600);
rectangle(660,690,810,450);
line(450,600,450,450);
line(360,525,540,525);
line(270,450,180,360);
line(180,360,180,480);
line(180,480,270,570);
line(270,570,270,450);
line(225,405,225,525);
line(180,420,270,510);
circle(1110,660,65);
circle(1110,540,55);
circle(1110,445,40);
chord(1110,460,15,180,360);
circle(1090,435,7);
circle(1130,435,7);
 
 
end.

Добавлено через 38 минут
Напишите пожалуйста.срочно надо

Добавлено через 1 час 40 минут
Все я уже сам разобрался!спасибо!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .