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
|
||||
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
|
||||
|
@ -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;
|
||||
|
||||
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
Loading…
Reference in New Issue
Block a user