let preframe, header = if Common.defined com Define.PreloaderFrame then [tag TShowFrame],
{h_version : header.h_version; h_size : header.h_size; h_frame_count : header.h_frame_count+1; h_fps : header.h_fps; h_compressed : header.h_compressed; } else [], header in
let swf = header, fattr @ bg :: debug @ preframe @ tags @ [tag TShowFrame] in