a = Line((0, 0, 0), (1, 0, 0))
b = Line((0, 0, 0), (1, 0, 0))
α = 0.7260569688296411 rad (slider from 0 to 6.283185307179586, step 0.1*°)
f(x) = If[-100 ≤ x ≤ 100,(2 * sin(x))]
f_1 = Rotate(f, α, a)
c_1 = 0
c = Integral(f, 0, 2)