47 

    47 

    48 procedure BeginPreRecording;

    48 procedure BeginPreRecording;

    49 procedure StopPreRecording;

    49 procedure StopPreRecording;

    50 procedure SaveCameraPosition;

    50 procedure SaveCameraPosition;

    51 

    51 

    52 procedure freeModule;

    53 procedure freeModule;

    53 

    54 

    54 implementation

    55 implementation

    55 

    56 

    56 uses uVariables, uUtils, GLunit, SDLh, SysUtils, uIO, uMisc, uTypes;

    57 uses uVariables, uUtils, GLunit, SDLh, SysUtils, uIO, uMisc, uTypes;

   364     frame.CamY:= WorldDy - cScreenHeight div 2;

   365     frame.CamY:= WorldDy - cScreenHeight div 2;

   365     frame.zoom:= zoom/cScreenWidth;

   366     frame.zoom:= zoom/cScreenWidth;

   366     BlockWrite(cameraFile, frame, 1);

   367     BlockWrite(cameraFile, frame, 1);

   367 end;

   368 end;

   368 

   369 

   369 procedure freeModule;

   374 procedure freeModule;

   370 begin

   375 begin

   371     if flagPrerecording then

   376     if flagPrerecording then

   372         StopPreRecording();

   377         StopPreRecording();

   373 end;

   378 end;