как с помощью фУНКЦИи сделать плавное вращение..
например указываешь новый градус то старый плавно перетекает в новый.
хотя уже есть одна мысль как это реализовать, но довольно муторный способ, ктомуже может ктото уже занимался подобным..
вот примерно такое:
(только тут плавно перемещется шарик, а градус тупо направлен на него)
Graphics 640,480,16,2
SetBuffer BackBuffer()
Colore=160
clsColore=240
ClsColor clsColore,clsColore,clsColore
Color Colore,Colore,Colore
Global dix#[2],sx#[2],snx#[2]
Local x#,y#,dx#,dy#,rad#,dist#,mx#,my#,nx#,ny#
Repeat
If MouseDown(1) mx=MouseX():my=MouseY()
rad#=ATan2(y-240,x-320)
Line 320,240,320+Cos(rad)*100,240+Sin(rad)*100
x=Newdigit(mx,1)
y=Newdigit(my,2)
Oval x-5,y-5,10,10
Flip:Cls:If KeyDown(1) End
Forever
Function Newdigit(ssx#=0,nu=1)
s#=dix[nu]-ssx
dix[nu]=dix[nu]-s/10
Return dix[nu]
End Function
Function col(col)
Color col,col,Col
End Function