Поворот картинки на произвольный угол
- 0 DEG:GOSUB 70
- 10 GELLOAD "a","icon.png":K=0
- 20 DRAWGEL "a",0,0
- 22 FILLROUNDRECT 75,75,60,60,360,360
- 23 FOR J%=0 TO GELHEIGHT("a")-1
- 25 FOR I%=0 TO GELWIDTH("a")-1
- 27 BLIT I%,J%,1,1,(I%-8)*X-(J%-8)*Y+105,(I%-8)*Y+(J%-8)*X+105
- 40 NEXT I%
- 50 NEXT J%
- 52 K=K+1:IF K>17 THEN K=1
- 54 X=C(K):Y=S(K)
- 60 GOTO 22
- 70 DIM S(18):DIM C(18):K=0
- 75 FOR W%=0 TO 17
- 80 S(W%)=SIN(K):C(W%)=COS(K):K=K+20
- 90 NEXT W%
- 100 RETURN
В данном случае картинка 16*16. Поворот относительно центра картинки. В подпрограмме 70...100 строчки заполнение таблицы косинусов и синусов.
