'Thanks to B+ for the mod idea and the rest of the QB64 forum gang for this idea in the past.
'Made on March 21, 2022 by SierraKen with a small mod by B+.
'sky
zoom = 1.5
zoom2 = .5
zoom3 = .2
m = .99
RotoZoom 400, 300, image&, zoom, angle + bump
RotoZoom 400, 300, image&, zoom2, angle + bump
RotoZoom 400, 300, image&, zoom3, angle + bump
zoom = zoom * m
zoom2 = zoom2 * m
zoom3 = zoom3 * m
'If zoom < .1 Then m = 1.02: bump = Rnd * .1
angle = angle + 20
px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
sinr!
= Sin(-Rotation
/ 57.2957795131): cosr!
= Cos(-Rotation
/ 57.2957795131) x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
px(i&) = x2&: py(i&) = y2&
_MapTriangle (0, 0)-(0, H&
- 1)-(W&
- 1, H&
- 1), image&
To(px
(0), py
(0))-(px
(1), py
(1))-(px
(2), py
(2)) _MapTriangle (0, 0)-(W&
- 1, 0)-(W&
- 1, H&
- 1), image&
To(px
(0), py
(0))-(px
(3), py
(3))-(px
(2), py
(2))