{$CLEO}

const
    numstr = 19
    rad = 0.0
    file = 0@
    i = 1@
    a = 2@
    params = 3@
    rx = 4@
    ry = 5@
    rz = 6@
    temp_x = 7@
    temp_y = 8@
    temp_z = 9@
    x = 10@
    y = 11@
    z = 12@
    data = 13@
    j = 14@
end

var
    temp_x: array 6 of float
end

0A9A: file = openfile "D:\\fin_in.txt" mode "rt"
0AC6: data = label @file offset
for i = 0 to numstr
    0ADA: a = scan_file file format "%d" params
    if
        params == 2
    then
        0ADA: a = scan_file file format "%f %f %f %f" x y rx ry
        rx += rad
        ry += rad
        0087: temp_x = x
        0087: temp_y = y
        0063: temp_x -= rx
        0063: temp_y -= ry
        005B: x += rx
        005B: y += ry
        temp_z = -1000.0
        z = 1000.0
        for j = 0 to 5
            0A8C: write_memory data size 4 value temp_x[j] virtual_protect 0
            inc(data, 4)
        end
    else
        0ADA: a = scan_file file format "%f %f %f %f %f %f" x y z rx ry rz
        rx += rad
        ry += rad
        rz += rad
        0087: temp_x = x
        0087: temp_y = y
        0087: temp_z = z
        0063: temp_x -= rx
        0063: temp_y -= ry
        0063: temp_z -= rz
        005B: x += rx
        005B: y += ry
        005B: z += rz
        for j = 0 to 5
            0A8C: write_memory data size 4 value temp_x[j] virtual_protect 0
            inc(data, 4)
        end
    end
end
0A9B: closefile file
0A9A: file = openfile "D:\\fin_out.txt" mode "wt+"
0AC6: data = label @file offset
for i = 0 to numstr
    for j = 0 to 5
        0A8D: temp_x[j] = read_memory data size 4 virtual_protect 0
        inc(data, 4)
    end
    0AD9: write_formatted_text "%.4f, %.4f, %.4f, %.4f, %.4f, %.4f,%c%c" in_file file temp_x temp_y temp_z x y z 0xD 0xA
end
0A9B: closefile file
0A93: end_custom_thread

:file
hex
//  s min X  s min Y  s min Z  s max X  s max Y  s max Z 
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
    00000000 00000000 00000000 00000000 00000000 00000000
end