hedgewars/uVariables.pas
branchwebgl
changeset 7977 4987f6f83cdf
parent 7896 67217e6108fd
child 8018 091293bc974f
equal deleted inserted replaced
7975:1a8308265fdd 7977:4987f6f83cdf
  2715     vobSDFramesCount:= 4;
  2715     vobSDFramesCount:= 4;
  2716     vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
  2716     vobSDCount:= 30 * cScreenSpace div LAND_WIDTH;
  2717     vobSDVelocity:= 15;
  2717     vobSDVelocity:= 15;
  2718     vobSDFallSpeed:= 250;
  2718     vobSDFallSpeed:= 250;
  2719 
  2719 
       
  2720 {$IFNDEF PAS2C}
       
  2721     //TODO: FIXME!!
  2720     cMinScreenWidth:= min(cScreenWidth, 640);
  2722     cMinScreenWidth:= min(cScreenWidth, 640);
  2721     cMinScreenHeight:= min(cScreenHeight, 480);
  2723     cMinScreenHeight:= min(cScreenHeight, 480);
  2722     cOrigScreenWidth:= cScreenWidth;
  2724     cOrigScreenWidth:= cScreenWidth;
  2723     cOrigScreenHeight:= cScreenHeight;
  2725     cOrigScreenHeight:= cScreenHeight;
       
  2726 {$ENDIF}
  2724 
  2727 
  2725     cNewScreenWidth    := cScreenWidth;
  2728     cNewScreenWidth    := cScreenWidth;
  2726     cNewScreenHeight   := cScreenHeight;
  2729     cNewScreenHeight   := cScreenHeight;
  2727     cScreenResizeDelay := 0;
  2730     cScreenResizeDelay := 0;
  2728 
  2731