Added example.

Author: interkosmos

Makefile

@@ -21,7 +21,7 @@ $(TARGET): src/raylib.f90 src/raylib_util.f90
 	$(FC) $(FFLAGS) -c src/raylib_util.f90
 	$(AR) $(ARFLAGS) $(TARGET) raylib.o raylib_camera.o raylib_math.o raylib_util.o
 
-examples: camera castle cubes flags fly keys map window
+examples: camera castle cubes flags fly keys map truck window
 
 camera: $(TARGET) examples/camera.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o camera examples/camera.f90 $(TARGET) $(LDLIBS)
@@ -44,6 +44,9 @@ keys: $(TARGET) examples/keys.f90
 map: $(TARGET) examples/map.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o map examples/map.f90 $(TARGET) $(LDLIBS)
 
+truck: $(TARGET) examples/truck.f90
+	$(FC) $(FFLAGS) $(LDFLAGS) -o truck examples/truck.f90 $(TARGET) $(LDLIBS)
+
 window: $(TARGET) examples/window.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o window examples/window.f90 $(TARGET) $(LDLIBS)
 
@@ -58,4 +61,5 @@ clean:
 	if [ -e fly ];    then rm fly; fi
 	if [ -e keys ];   then rm keys; fi
 	if [ -e map ];    then rm map; fi
+	if [ -e truck ];  then rm truck; fi
 	if [ -e window ]; then rm window; fi

README.md

@@ -100,6 +100,7 @@ More examples can be found in `examples/`:
 * **fly** renders a 3-D scene, with keyboard and mouse controls.
 * **keys** demonstrates keyboard input.
 * **map** renders a height map.
+* **truck** rotates a 3-D model loaded from file.
 * **window** opens a window with raylib.
 
 Build all examples with:

examples/truck.f90

@@ -0,0 +1,60 @@
+! truck.f90
+!
+! Example program that rotates a 3-D model loaded from file.
+! Model (CC0) source: https://kenney.nl/assets/car-kit
+!
+! Author:  Philipp Engel
+! Licence: ISC
+program main
+    use, intrinsic :: iso_c_binding
+    use :: raylib
+    use :: raylib_math
+    implicit none (type, external)
+
+    integer, parameter :: SCREEN_WIDTH  = 800
+    integer, parameter :: SCREEN_HEIGHT = 450
+
+    real                :: angle
+    type(camera3d_type) :: camera
+    type(model_type)    :: model
+    type(vector3_type)  :: position
+    type(vector3_type)  :: rotation
+    type(vector3_type)  :: scale
+
+    call init_window(SCREEN_WIDTH, SCREEN_HEIGHT, 'Fortran + raylib' // c_null_char)
+    call set_target_fps(60)
+    call disable_cursor()
+
+    ! Define camera to look into our 3-D world.
+    camera%position   = vector3_type(50.0, 50.0, 50.0)
+    camera%target     = vector3_type(0.0, 0.0, 0.0)
+    camera%up         = vector3_type(0.0, 1.0, 0.0)
+    camera%fov_y      = 45.0
+    camera%projection = CAMERA_PERSPECTIVE
+
+    model = load_model('share/truck.obj' // c_null_char)
+
+    angle    = 0.0
+    rotation = vector3_type(0.0, 1.0, 0.0)
+    scale    = vector3_type(15.0, 15.0, 15.0)
+
+    do while (.not. window_should_close())
+        call update_camera(camera, CAMERA_FIRST_PERSON)
+
+        angle = modulo(angle + 0.1, 360.0)
+
+        call begin_drawing()
+            call clear_background(RAYWHITE)
+
+            call begin_mode3d(camera)
+                call draw_model_ex(model, position, rotation, angle, scale, WHITE)
+                call draw_grid(20, 10.0)
+            call end_mode3d()
+
+            call draw_fps(10, 10)
+        call end_drawing()
+    end do
+
+    call unload_model(model)
+    call close_window()
+end program main

fpm.toml

@@ -46,6 +46,16 @@ name = "keys"
 source-dir = "examples"
 main = "keys.f90"
 
+[[executable]]
+name = "map"
+source-dir = "examples"
+main = "map.f90"
+
+[[executable]]
+name = "truck"
+source-dir = "examples"
+main = "truck.f90"
+
 [[executable]]
 name = "window"
 source-dir = "examples"

share/truck.mtl

@@ -0,0 +1,25 @@
+# Created by Kenney (www.kenney.nl)
+
+newmtl plastic
+Kd 0.3764706 0.3764706 0.3764706
+
+newmtl carTire
+Kd 0.2392156 0.2392156 0.2392156
+
+newmtl paintGreen
+Kd 0.246796 0.8867924 0.5275686
+
+newmtl lightFront
+Kd 0.9607843 0.7254902 0.2588235
+
+newmtl _defaultMat
+Kd 1 1 1
+
+newmtl lightBack
+Kd 1 0.3490196 0.2274509
+
+newmtl window
+Kd 0.9372549 0.9372549 0.9372549
+
+newmtl wheelInside
+Kd 0.7960573 0.8047704 0.8396226