Кривая Безье (2д - квадратичная)
- REM Основные данные функции БЕЗЬЕ
- 10 X1=23:Y1=200
- 20 X2=150:Y2=137
- 30 XP=99:YP=32
- REM Стартовые даннные для рисования
- 40 POSX=X1:POSY=Y1
- 50 N=10
- REM Цикл рисования линии БЕЗЬЕ
- 60 FOR T%=1 TO N
- 70 TT=T%/N
- 80 X=X1*((1-TT)^2)+XP*2*TT*(1-TT)+X2*(TT^2)
- 90 Y=Y1*((1-TT)^2)+YP*2*TT*(1-TT)+Y2*(TT^2)
- 100 DRAWLINE POSX,POSY,X,Y
- 110 POSX=X:POSY=Y
- 120 NEXT T%
- REM Вывод на экран результата
- 130 REPAINT:SLEEP 5000
- 140 END
Этот код рисует кривую Безье квадратичным методом. Может пригодиться для описания криволинейного движения спрайта и для прочих ваших фантазий.
Координаты Х1,У1 и Х2,У2 позиционируют обычную вначале и конце соответственно.
Координата ХР, УР - указывает направление и степени искривления линии.
Координаты Х1,У1 и Х2,У2 позиционируют обычную вначале и конце соответственно.
Координата ХР, УР - указывает направление и степени искривления линии.
