1 / 15

Использование циклов в графике

Использование циклов в графике. Задание. Нарисовать звездное небо, состоящее из 100 разноцветных точек, разбросанных по всему экрану (т.е. расположенных хаотически). 1 способ pset (53,10),1 pset (148,50),2 pset (195,90),3 pset (89,100),4 pset (380,30),5 р set (50,20), 6

dante-martinez
Download Presentation

Использование циклов в графике

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Использование циклов в графике

  2. Задание.Нарисовать звездное небо, состоящее из 100 разноцветных точек, разбросанных по всему экрану (т.е. расположенных хаотически). 1 способ pset(53,10),1 pset(148,50),2 pset(195,90),3 pset(89,100),4pset(380,30),5 рset (50,20), 6 ….

  3. Если надо задать случайно координату Х, то следует записать: Х=INT(RND*640) Если надо задать случайно координату У, то следует записать: У= INT(RND*350) А как задать цвет? С= INT(RND*15)

  4. Составление программы «Звездное небо». SCREEN 9 FOR A=1 TO 100 STEP 1 X= INT (RND*640) Y = INT(RND*350) C = INT(RND*15) PSET (X, Y), C NEXT A

  5. Задание. Нарисовать N количество фигур, расположенных на экране хаотически. x-30 x х+30 SCREEN9 INPUT “количествофигур =”; N FOR A=1 TO N STEP 1 Х=INT(RND*640) У= INT(RND*350) CIRCLE (X, Y), 30, 7, 0.001, 3.14 LINE (X-30, Y) – (X+30, Y+120), 7, BF CIRCLE (X, Y+60), 20,7, , , 3 NEXT A y y+60 y+120

  6. Построить семейство прямоугольников x x+150 120 160 SCREEN 9 X=30 FOR A=1 TO N LINE (X, 120) – (X+50), 6 X = X+15 NEXT A

  7. Задание. Вывести на экран N окружностей. SCREEN 9 X=50 Y=30 R=10 FOR A=1 TO N CIRCLE (X, Y), R,4 X=X+20 Y=Y+20 R=R+10 NEXT A

  8. Движение графических объектов

  9. Для создания иллюзии движения выполняются следующие действия: • Изображается объект. • Стирается объект с экрана (рисуется цветом фона, т.е. «0» ). • Изменятся значение координат( Х или У). • Снова рисуется объект и т.д….

  10. Задание: нарисовать на экране движущуюся по горизонтали вправо окружность. SCREEN 9 FOR x=0 TO 640 STEP 1 Circle (x, 100),50, 14– рисует желтую окружностьPaint (x, 100), 14,14 – раскрашивает окружность FOR i=1TO10000STEP 1 – задержка изображения NEXT i Circle (x, 100),50,0 – стирает окружностьPaint (x, 100), 0,0 NEXT х

  11. Для движения объекта влево FOR x=640 TO 0 STEP-1 … Для движения сверху вниз FOR у=0 TO 350 STEP 1 … Для движения снизу вверх FOR у=350 TO 0 STEP -1 …

  12. Задание №2.Нарисовать стрелу, летящую вправо (x+37, y -3) (x, y) Screen 9 For x=0 to 640 step 1 Line (x, y) – (x+40,y), 7 Line – (x+37,y-3), 7 Line – (x+37,y+3), 7 Line – (x+40,y), 7 For i=0 to 10000 step 1 Next i Line (x, y) – (x+40,y), 0 Line – (x+37,y-3), 0 Line – (x+37,y+3), 0 Line – (x+40,y), 0 Next x (x+40, y) (x+37, y+3)

  13. Задание для самостоятельной работы. Составить программу для движения стрелы слева направо.

  14. Вопросы для повторения: • Когда используют циклы в графике? Когда один и тот же параметр изменяетсвое значение закономерно. • Как можно создать иллюзию движения? Нарисовать объект цветом, затем нарисовать его цветом фона, а затем изменить координаты и все повторить

  15. Вопросы ?????

More Related