Another try :)
electric ball, 164 bytes
its variation:supraluminal speed, 190 bytes
electric ball, 164 bytes
w=640 h=480Graphics w,h While KeyHit(27)=0; Cls; For a=1 To 360 Step 2SetColor Rand(255),0,Rand(255)DrawLine w/2,h/2,w/2+Cos(a)*100,h/2+Sin(a)*100Next Flip; Wend
its variation:supraluminal speed, 190 bytes
w=640 h=480Graphics w,h While KeyHit(27)=0; Cls; For a=1 To 360 Step 2SetColor Rand(255),0,Rand(255)SetScale Rand(4),Rand(4)DrawLine w/2,h/2,w/2+Cos(a)*100,h/2+Sin(a)*100Next Flip; Wend