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
integer, intent (in) :: level
write (*, '(a)', advance='no') "Heyo Fortran!"
print *
write (*, '(a)', advance='no') "Heyo Fortran! "
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);
end if;
--
--~for object in 0 .. construction_limit
--~loop
--~if map.construction (object).x > width
--~or map.construction (object).y > height then
--~goto skip_drawing_out_of_view_construction;
--~end if;
--~--
--~construction.draw (construction.codex'val (map.construction (object).index), map.construction (object).x, map.construction (object).y);
--~--
--~<<skip_drawing_out_of_view_construction>>
--~end loop;
for object in 0 .. construction_limit
loop
if map.construction (object).x > width
or map.construction (object).y > height then
goto skip_drawing_out_of_view_construction;
end if;
--
construction.draw (construction.codex'val (map.construction (object).index),
map.construction (object).x - core.camera.x * core.base,
map.construction (object).y - core.camera.y * core.base);
--
<<skip_drawing_out_of_view_construction>>
end loop;
end draw;
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------