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