ZX-Ревю 1995 №2 - Спектрум в школе - Эффекты на Бейсике.

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             
                                 
   На рисунках  представлены  ре-
зультаты работы программы.

СОДЕРЖАНИЕ:

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

Похожие статьи:

Юмор - анекдоты.

Разыскиваются - игры.

Почётные и Вечные - Список Заслуженных Пользователей AC Edit.

Разное - мемуары о Питерской модемной сети для ZX Spectrum - SPbZXNet.

Проeкт АС - проект ассоциации Спектрумистов.

В этот день... 1 января

SibNews #08, Woot! #01, Spectrum Magazine #01, ACNews #25, Psychoz #14, ACNews #14, Last 128 #08, Last 128 #06, Last 128 #05, Last 128 #04, Last 128 #03, Last 128 #02, Last 128 #09, Last 128 #3.5, Last 128 #8.025, Sinclair Club #05, Last 128 #M!R 01, Fantadrom #01, Buzz #20, Last 128 #01, DonNews #13, Nicron #120, Promised Land #01, Inferno #01, Marazm #25, Ultimathum #01, Marazm #21, Hooy Mag #02, KrNews #11, Marazm #22, Marazm #23, ZX Football 2000 #01, Codemania #01, Always #03, Bugs #02, IzhNews #08, Virtual Worlds #01, Listok #04, Scenergy #02, Flash Info #18, Marazm #16, Marazm #17, Zed #01, Balagan #02, ZX Format #08, ZX Power #03, Shock #01, Impulse #02, Deja Vu #03, ZX Club #08, ZX Club #06, Numberology #01, Marazm #13, Marazm #12, Marazm #14, Gorodok #02, Zodiac #01, Marazm #15, Deja Vu #07, Marazm #11, Deja Vu #07, Playboy #03, Crazy News #2, Crazy News #4, ZX Light #01, Crazy News #5, Playboy #02, ZX News #03, ZX Review #1-2, Read Me #02, Crazy News #3, Nicron #13, Read Me #01, Public Spirit #01, Faultless #06, Faultless #05, ZX Software #01, Stump #04, Speccy #07, Возраждение #0, Speccy #03, On-Line #17, Scene+ #01, Welcome Press #01, ZX Konig #04, Adventurer #01, Faultless #05, Faultless #04, Di Halt #01, Faultless #01, Playboy #01, Crazy News #1, Faultless #03, Pioneer #03, Sinclair Town #02, ZX Magazine #01, Eldorado #01, ZX Magazine #02, Spectron #01, ZX News #01, ZX Konig #02, 200 #W, Welcome Press #00, Dune #07, Subliminal Extacy #01, Subliminal Extacy #02, ZX Konig #01, Subliminal Extacy #00, Muchomor #01, Spectrofon #01, ZX Revija #02, Outlet #01, Outlet #1-3