tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

mood of the night

Browse Source
This commit is contained in:
tTh
2024-02-07 03:22:44 +01:00
parent cd715e902f
commit e3ff6de512
6 changed files with 193 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
GrafAnim/essai.f90
View File

@@ -1,5 +1,9 @@
program essai
! *******************************************
! CE TRUC NE MARCHE PAS /O\
! *******************************************
use pixrgb
implicit none
@@ -60,6 +64,7 @@ subroutine setpixel(pic, x, y)
.and. &
(iy .gt. lbound(pic, 2)) .and. (iy .lt. ubound(pic, 2)) ) &
then
pix(ix, iy)%r = 0
pic(ix, iy)%g = 65000
pic(ix, iy)%b = 20000
else