Construction rendering on the world map...

This commit is contained in:
Ognjen Milan Robovic 2024-02-26 17:40:47 -05:00
parent cb15e79674
commit 4abc465194
2 changed files with 17 additions and 15 deletions

View File

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

View File

@ -129,17 +129,19 @@ package body world is
core.hexagonal_grid (x, y, width, height, true); core.hexagonal_grid (x, y, width, height, true);
end if; 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; end draw;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------