Rotated wheel

{$CLEO}
const
TEXTURE_ROTATED = 1

START_X = 80.0
START_Y = 100.0

END_X = 500.0
END_Y = 300.0

TURN_OVER_PERIOD = 1000.0
TOTAL_PERIOD = 5000.0

TEXTURE_SIZE_X = 100.0
TEXTURE_SIZE_Y = 100.0
end

{$INCLUDE functions/Detect_EXE_version.txt}

while true
wait 0
if
Key.TestCheatString("TEXTURE")
else_jump continue
0AB1: call_scm_func @GetXYSizeInScreen4x3ScaleBy640x480 2 XSize TEXTURE_SIZE_X YSize TEXTURE_SIZE_Y store_XSize 0@ store_YSize 1@

2@ = END_X
2@ -= START_X
3@ = END_Y
3@ -= START_Y

0390: load_txd_dictionary 'test'
038F: load_texture "test" as TEXTURE_ROTATED // Load dictionary with 0390 first
32@ = 0

    while true
    0093: 4@ = integer 32@ to_float

    if
    4@ < TOTAL_PERIOD
    jf break
    03F0: enable_text_draw 1

    4@ /= TOTAL_PERIOD

    0087: 5@ = 2@ // (float)
    006B: 5@ *= 4@  // (float)
    5@ += START_X

    0087: 6@ = 3@ // (float)
    006B: 6@ *= 4@  // (float)
    6@ += START_Y


    0093: 4@ = integer 32@ to_float
    4@ /= TURN_OVER_PERIOD
    4@ *= 360.0

    074B: draw_texture TEXTURE_ROTATED position 5@ 6@ scale 0@ 1@ angle 4@ color_RGBA 255 255 255 255
    wait 0
    end

    while true
    074B: draw_texture TEXTURE_ROTATED position END_X END_Y scale 0@ 1@ angle 4@ color_RGBA 255 255 255 255
    wait 0
    end
end

{$INCLUDE functions/ArrayGetValueByIndex.txt}
{$INCLUDE functions/getAdditionalVarsLabelPointedIndex.txt}
{$INCLUDE functions/ScreenScale.txt}
{$INCLUDE functions/GetCurrentResolution.txt}
{$INCLUDE general/Addresses.txt}