sheepy-clone: hedgewars/uLandUtils.pas@2562797ab3cf (annotated)

10198 e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	1	unit uLandUtils;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	2	interface
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	3
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	4	procedure ResizeLand(width, height: LongWord);
10626 2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	5	procedure InitWorldEdges();
10198 e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	6
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	7	implementation
10626 2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	8	uses uUtils, uConsts, uVariables, uTypes;
10198 e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	9
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	10	procedure ResizeLand(width, height: LongWord);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	11	var potW, potH: LongInt;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	12	begin
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	13	potW:= toPowerOf2(width);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	14	potH:= toPowerOf2(height);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	15	if (potW <> LAND_WIDTH) or (potH <> LAND_HEIGHT) then
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	16	begin
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	17	LAND_WIDTH:= potW;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	18	LAND_HEIGHT:= potH;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	19	LAND_WIDTH_MASK:= not(LAND_WIDTH-1);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	20	LAND_HEIGHT_MASK:= not(LAND_HEIGHT-1);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	21	cWaterLine:= LAND_HEIGHT;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	22	if (cReducedQuality and rqBlurryLand) = 0 then
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	23	SetLength(LandPixels, LAND_HEIGHT, LAND_WIDTH)
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	24	else
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	25	SetLength(LandPixels, LAND_HEIGHT div 2, LAND_WIDTH div 2);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	26
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	27	SetLength(Land, LAND_HEIGHT, LAND_WIDTH);
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	28	SetLength(LandDirty, (LAND_HEIGHT div 32), (LAND_WIDTH div 32));
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	29	// 0.5 is already approaching on unplayable
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	30	if (width div 4096 >= 2) or (height div 2048 >= 2) then cMaxZoomLevel:= 0.5;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	31	cMinMaxZoomLevelDelta:= cMaxZoomLevel - cMinZoomLevel
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	32	end;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	33	end;
e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	34
10626 2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	35	procedure InitWorldEdges();
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	36	var cy, cx, lx, ly: LongInt;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	37	found: boolean;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	38	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	39	playHeight:= LAND_HEIGHT;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	40	topY:= 0;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	41
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	42	lx:= LongInt(LAND_WIDTH) - 1;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	43
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	44	if WorldEdge = weNone then
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	45	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	46	playWidth:= LAND_WIDTH;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	47	leftX := 0;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	48	rightX:= lx;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	49	EXIT;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	50	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	51
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	52	ly:= LongInt(LAND_HEIGHT) - 1;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	53
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	54	// find most left land pixels and set leftX accordingly
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	55	found:= false;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	56	for cx:= 0 to lx do
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	57	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	58	for cy:= ly downto 0 do
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	59	if Land[cy, cx] <> 0 then
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	60	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	61	leftX:= max(0, cx - cWorldEdgeDist);
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	62	// break out of both loops
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	63	found:= true;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	64	break;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	65	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	66	if found then break;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	67	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	68
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	69	// find most right land pixels and set rightX accordingly
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	70	found:= false;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	71	for cx:= lx downto 0 do
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	72	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	73	for cy:= ly downto 0 do
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	74	if Land[cy, cx] <> 0 then
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	75	begin
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	76	rightX:= min(lx, cx + cWorldEdgeDist);
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	77	// break out of both loops
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	78	found:= true;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	79	break;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	80	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	81	if found then break;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	82	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	83
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	84	playWidth := rightX + 1 - leftX;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	85	end;
2562797ab3cf adjust position of world edges (at 150 px away from outmost land collision, or less if land array ends earlier) sheepluva parents: 10198 diff changeset	86
10198 e9cbe111c0df Move template-based generator into its own file unc0rr parents: diff changeset	87	end.

author	sheepluva
	Fri, 05 Dec 2014 02:19:30 +0100
changeset 10626	2562797ab3cf
parent 10198	e9cbe111c0df
child 10994	cd7f918eed30
permissions	-rw-r--r--