Construction rendering on the world map...

source/ai.f90

@@ -1,8 +1,8 @@
-subroutine fairy_synchronize (level)
+subroutine ai_synchronize (level)
 
  implicit none
  integer, intent (in) :: level
  write (*, '(a)', advance='no') "Heyo Fortran! "
- print *
+ print *, level
 
-end subroutine fairy_synchronize
+end subroutine ai_synchronize

source/world.adb

@@ -129,17 +129,19 @@ package body world is
 			core.hexagonal_grid (x, y, width, height, true);
 		end if;
 		--
-		--~for object in 0 .. construction_limit
+		for object in 0 .. construction_limit
-		--~loop
+		loop
-			--~if map.construction (object).x > width
+			if map.construction (object).x > width
-			--~or map.construction (object).y > height then
+			or map.construction (object).y > height then
-				--~goto skip_drawing_out_of_view_construction;
+				goto skip_drawing_out_of_view_construction;
-			--~end if;
+			end if;
-			--~--
+			--
-			--~construction.draw (construction.codex'val (map.construction (object).index), map.construction (object).x, map.construction (object).y);
+			construction.draw (construction.codex'val (map.construction (object).index),
-			--~--
+			                   map.construction (object).x - core.camera.x * core.base,
-			--~<<skip_drawing_out_of_view_construction>>
+			                   map.construction (object).y - core.camera.y * core.base);
-		--~end loop;
+			--
+			<<skip_drawing_out_of_view_construction>>
+		end loop;
 	end draw;
 
 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------