Added utility functions.

Author: interkosmos

examples/camera3d.f90

@@ -81,8 +81,8 @@ program main
                 camera%projection = CAMERA_ORTHOGRAPHIC
                 camera%fov_y      = 20.0 ! near plane width in CAMERA_ORTHOGRAPHIC
 
-                call camera_yaw(camera, -135 * (PI / 180.0), .true._c_bool)
-                call camera_pitch(camera, -45 * (PI / 180.0), .true._c_bool, .true._c_bool, .false._c_bool)
+                call camera_yaw(camera, deg2rad(-135.0), .true._c_bool)
+                call camera_pitch(camera, deg2rad(-45.0), .true._c_bool, .true._c_bool, .false._c_bool)
             else if (camera%projection == CAMERA_ORTHOGRAPHIC) then
                 ! Reset to default view
                 camera_mode = CAMERA_THIRD_PERSON

examples/plane.f90

@@ -91,10 +91,7 @@ program main
             end if
         end if
 
-        rotation%x = pitch * (PI / 180.0)
-        rotation%y = yaw * (PI / 180.0)
-        rotation%z = roll * (PI / 180.0)
-
+        rotation = vector3_type(deg2rad(pitch), deg2rad(yaw), deg2rad(roll))
         model%transform = matrix_rotate_xyz(rotation)
 
         call begin_drawing()

src/raylib.f90

@@ -1198,6 +1198,9 @@ module raylib
     public :: wave_format
     public :: window_should_close
 
+    public :: deg2rad
+    public :: rad2deg
+
     interface
         ! void AttachAudioMixedProcessor(AudioCallback processor)
         subroutine attach_audio_mixed_processor(processor) bind(c, name='AttachAudioMixedProcessor')
@@ -5560,4 +5563,16 @@ function window_should_close() bind(c, name='WindowShouldClose')
             logical(kind=c_bool) :: window_should_close
         end function window_should_close
     end interface
+contains
+    elemental real function deg2rad(d) result(r)
+        real, intent(in) :: d
+
+        r = d * (PI / 180.0)
+    end function deg2rad
+
+    elemental real function rad2deg(r) result(d)
+        real, intent(in) :: r
+
+        d = r * (180.0 / PI)
+    end function rad2deg
 end module raylib