Програмирование на языке Basic. Федоряка Н.И. - 47 стр.

         DRAW "A3 R20 G5 F5 L20 U10"
         END
                              Результат работы программы:




               Создание движущихся изображений.
               Как нарисовать графический и заставить его двигаться?
               Очень просто!
         1. Рисуем объект цветом отличным от цвета фона.
         2. Рисуем объект цветом фона.
         3. Изменяем координаты.
         4. Повторяем 1-3 столько раз сколько потребуется.
               Пример 1: Движущийся круг.
         REM Движущийся круг
         SCREEN 1
         x=1
         y=1
         REM цвет фона - 0(черный), цвет рисунка - 1

         FOR i = 1 TO 150

         REM Рисуем объект цветом отличным от цвета фона.
         c=1
         CIRCLE (x, y), 2, c

         REM задержка
         FOR j = 1 TO 250000
         NEXT j

         REM Рисуем объект цветом фона.
         c=0
         CIRCLE (x, y), 2, c

         REM Изменяем координаты
         x=x+2
         y=y+1

         NEXT i
         END
              Для того чтобы глаз мог зафиксировать нарисованное изображение
         используем пустой цикл:

                                                                               47


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com