t0 = AbsoluteTime[]; dt = 0; {width, height} = {600,
400}; stars = {White, PointSize@Tiny,
Point@Transpose@{RandomReal[#, #3],
RandomReal[#2, #3]}} & @@ {width, height, 30}; ship1 := {White,
Line[4 {{{0, -3}, {1, -1}, {1, 1}, {0, 3}, {-1,
1}, {-1, -1}, {0, -3}}, {{1, -1}, {2, -2}, {2, -3}, {1/
2, -2}}, {{-1, -1}, {-2, -2}, {-2, -3}, {-(1/2), -2}},
If[CurrentValue[
"ShiftKey"], {{1/
2, -2}, {0, -4}, {-(1/2), -2}}, {}]}]}; {position1, velocity1,
angle1} = {2./3 {width, height}, {0, 0}, 0}; EventHandler[