Construction rendering on the world map...
This commit is contained in:
parent
cb15e79674
commit
4abc465194
@ -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
|
||||||
|
@ -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;
|
||||||
|
|
||||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user