Finished fortress wall

jwvhewitt · Jun 26, 2016 · 1272d6d · 1272d6d
1 parent a51e266
commit 1272d6d
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 17 deletions.
diff --git a/Image/wall_fortress.png b/Image/wall_fortress.png
diff --git a/gears.pp b/gears.pp
@@ -1231,6 +1231,25 @@ function FindRoot( Part: GearPtr ): GearPtr;
 	end;
 end;
 
+
+Procedure Rescale( Part: GearPtr; SF: Integer );
+	{ Alter the scale of this part and all its subcoms. }
+var
+	S: GearPtr;
+begin
+	Part^.Scale := SF;
+	S := Part^.SubCom;
+	while S <> Nil do begin
+		Rescale( S , SF );
+		S := S^.Next;
+	end;
+	S := Part^.InvCom;
+	while S <> Nil do begin
+		Rescale( S , SF );
+		S := S^.Next;
+	end;
+end;
+
 Procedure CheckDirectoryPresent;
 	{ Make sure that the default save directory exists. If not, }
 	{ create it. }
@@ -1253,23 +1272,6 @@ function FindRoot( Part: GearPtr ): GearPtr;
 {$ENDIF}
 end;
 
-Procedure Rescale( Part: GearPtr; SF: Integer );
-	{ Alter the scale of this part and all its subcoms. }
-var
-	S: GearPtr;
-begin
-	Part^.Scale := SF;
-	S := Part^.SubCom;
-	while S <> Nil do begin
-		Rescale( S , SF );
-		S := S^.Next;
-	end;
-	S := Part^.InvCom;
-	while S <> Nil do begin
-		Rescale( S , SF );
-		S := S^.Next;
-	end;
-end;
 
 initialization
 	{ Make sure we have the required data directories. }