1015             end;

  1015             end;

  1016     {$ENDIF}

  1016     {$ENDIF}

  1017         end

  1017         end

  1018     else

  1018     else

  1019         begin

  1019         begin

  1020 {$IFDEF IPHONEOS}

  1021 {$IFDEF IPHONEOS}

  1021         // chFullScr is called when there is a rotation event and needs the SetScale and SetupOpenGL to set up the new resolution

  1022         // chFullScr is called when there is a rotation event and needs the SetScale and SetupOpenGL to set up the new resolution

  1022         // this 6 gl functions are the relevant ones and are hacked together here for optimisation

  1023         // this 6 gl functions are the relevant ones and are hacked together here for optimisation

  1023         glMatrixMode(GL_MODELVIEW);

  1024         glMatrixMode(GL_MODELVIEW);

  1024         glPopMatrix;

  1025         glPopMatrix;