Anonymous user
Bitmap/Fortran: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 33:
end subroutine init_img
subroutine set_color(color,
type(rgb), intent(out) :: color
integer, intent(in) ::
where (
color%red = 255
elsewhere (
color%red = 0
else
color%red =
end where
where (
color%green = 255
elsewhere (
color%green = 0
else
color%green =
end where
where (
color%blue = 255
elsewhere (
color%blue = 0
else
color%blue =
end where
end subroutine set_color
|