rotate,scale a line

I want to rotate a line around a point and be able to increase or decrease the size of the line. I've tried this and can't get it working very well... preferably 3d but 2d is good


Help!

Is this what you're asking for?

Graphics 800,600

x=400
y=300
linelength=50
While Not KeyHit(1)

Line x,y,x+Cos(time)*linelength,y+Sin(time)*linelength
time=time+1
If time>360 Then time=0

Cls
Wend
End

or, perhaps,

Graphics 800,600

x=400
y=300
linelength=50
While Not KeyHit(1)
Line x-Cos(time)*linelength,y-Sin(time)*linelength,x+Cos(time)*linelength,y+Sin(time)*linelength

time=time+1
If time>360 Then time=0

Cls
Wend
End