171 

   171 

   172 begin

   172 begin

   173 // Sky

   173 // Sky

   174 glClear(GL_COLOR_BUFFER_BIT);

   174 glClear(GL_COLOR_BUFFER_BIT);

   175 glEnable(GL_BLEND);

   175 glEnable(GL_BLEND);

   176 

   177 

   177 if not isPaused then MoveCamera;

   178 if not isPaused then MoveCamera;

   178 

   179 

   179 // background

   180 // background

   180 DrawRepeated(sprSky, WorldDx * 3 div 8);

   181 DrawRepeated(sprSky, WorldDx * 3 div 8);

   369       str(ChangeVolume(cVolumeDelta), s);

   370       str(ChangeVolume(cVolumeDelta), s);

   370       AddCaption(Format(trmsg[sidVolume], s), $FFFFFF, capgrpVolume)

   371       AddCaption(Format(trmsg[sidVolume], s), $FFFFFF, capgrpVolume)

   371       end

   372       end

   372    end;

   373    end;

   373 

   374 

   374 glDisable(GL_BLEND)

   376 glDisable(GL_BLEND)

   375 end;

   377 end;

   376 

   378 

   377 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup);

   379 procedure AddCaption(s: string; Color: Longword; Group: TCapGroup);

   378 begin

   380 begin