tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

renaming a subroutine

Browse Source
This commit is contained in:
Tonton Th
2026-05-08 08:44:15 +02:00
parent a079f026f7
commit d4c3783d72
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
genplotting.f90
View File

@@ -87,7 +87,7 @@ subroutine genp_line(xa, ya, xb, yb, color)
call genp_draw(xb, yb, color) call genp_draw(xb, yb, color)
end subroutine end subroutine
! --------------------------------------------------------- ! ---------------------------------------------------------
subroutine plot_axes(amp) subroutine genp_plot_axes(amp)
real, intent(in) :: amp real, intent(in) :: amp
call genp_move(0.0, -amp) call genp_move(0.0, -amp)
call genp_draw(0.0, amp, 7) call genp_draw(0.0, amp, 7)

2
oscilloscope.f90
View File

@@ -62,7 +62,7 @@ subroutine do_oscilloscope(freqs, col)
call plot_a_trace(freqs(2), 1.0, 120, 3.33, col) call plot_a_trace(freqs(2), 1.0, 120, 3.33, col)
call plot_a_trace(freqs(3), 2.6, 120, -3.33, col) call plot_a_trace(freqs(3), 2.6, 120, -3.33, col)
call plot_a_trace(freqs(4), 3.1, 120, -6.66, col) call plot_a_trace(freqs(4), 3.1, 120, -6.66, col)
call plot_axes(10.0) call genp_plot_axes(10.0)
end subroutine end subroutine
! --------------------------------------------------------- ! ---------------------------------------------------------

2
testbed.f90
View File

@@ -3,7 +3,7 @@ program testbed
implicit none implicit none
call genp_init(0, "foo.scratch") call genp_init(0, "foo.scratch")
call plot_axes(13.37) call genp_plot_axes(13.37)
call genp_end(0) call genp_end(0)
call genp_do_render("foo.scratch", "foo.tga", 512, 512) call genp_do_render("foo.scratch", "foo.tga", 512, 512)