Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Bitmap-Bresenhams-line-algorithm/Fortran/bitmap-bresenhams-line-algorithm-2.f
+++ b/Task/Bitmap-Bresenhams-line-algorithm/Fortran/bitmap-bresenhams-line-algorithm-2.f
@ -0,0 +1,27 @@
+program BasicImageTests
+  use RCImageBasic
+  use RCImageIO
+  use RCImagePrimitive
+
+  implicit none
+
+  type(rgbimage) :: animage
+  integer :: x, y
+
+  call alloc_img(animage, 200, 200)
+  call fill_img(animage, rgb(255,255,255))
+
+  call draw_line(animage, point(0,0), point(199,199), rgb(0,0,0))
+
+  do y=0,219,20
+     call draw_line(animage, point(0,0), point(199, y), &
+                    rgb(0,0,0))
+  end do
+
+  open(unit=10, file='outputimage.ppm', status='new')
+  call output_ppm(10, animage)
+  close(10)
+
+  call free_img(animage)
+
+end program BasicImageTests