ZX-Ревю 1995 №2 1994 г.

Спектрум в школе - Эффекты на Бейсике.


В продолжение темы предыдущей статьи предлагаем еще одно письмо (C) Андрей Рубин, г.Энгельс,1995. Эффекты на Бейсике.
    Эти оригинальные программы по-
 могут  наглядно разобрать принцип
 действия оператора DRAW.         
                                  
     1 BORDER 0: PAPER 0: INK 7: C
  LS                              
   10 FOR n=1 TO 176 STEP 2      
   20 PLOT n,n: DRAW 255-(n*2),0:
  DRAW 0,175-(n*2): DRAW -255+(n*
 2),0: DRAW 0,-175+(n*2)         
   30 NEXT n                     
                                 
   А вот еще один эффект. Он тоже
из серии DRAW.                   
                                 
   10 PRINT #0;TAB 10;"* FANTASY 
 *"                              
   20 LET T=150: LET L=0         
   30 FOR R=255 TO 0 STEP -1     
   40 LET A=TAN L*SIN L*COS L*ATN
  L                              
   50 LET Q=A*L*R/T              
   60 PLOT R,Q                   
   70 LET W=A-Q                  
   80 DRAW 0,W                   
   90 LET L=L+1: NEXT R: PAUSE 0 

   Можете также изменить строки: 
                                 
   20 LET LET T=580: L=0         
   30 FOR R=0 TO 255             
                                 
   На рисунках  представлены  ре-
зультаты работы программы.       



СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Прибамбас v1.2 - Схема для того , чтобы VICOMM мог реагировать на звонок и снимать трубку.
Этюды - Экранная процедура "UP HL".
test - хулиган ли вы?

В этот день...   17 октября