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 truck window
+examples: camera castle cubes flags fly font keys map truck window
 
 camera: $(TARGET) examples/camera.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o camera examples/camera.f90 $(TARGET) $(LDLIBS)
@@ -38,6 +38,9 @@ flags: $(TARGET) examples/flags.f90
 fly: $(TARGET) examples/fly.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o fly examples/fly.f90 $(TARGET) $(LDLIBS)
 
+font: $(TARGET) examples/font.f90
+	$(FC) $(FFLAGS) $(LDFLAGS) -o font examples/font.f90 $(TARGET) $(LDLIBS)
+
 keys: $(TARGET) examples/keys.f90
 	$(FC) $(FFLAGS) $(LDFLAGS) -o keys examples/keys.f90 $(TARGET) $(LDLIBS)
 

README.md

@@ -98,6 +98,7 @@ More examples can be found in `examples/`:
 * **cubes** renders waving cubes.
 * **flags** shows window flags.
 * **fly** renders a 3-D scene, with keyboard and mouse controls.
+* **font** displays text using bitmap fonts.
 * **keys** demonstrates keyboard input.
 * **map** renders a height map.
 * **truck** rotates a 3-D model loaded from file.

examples/font.f90

@@ -0,0 +1,89 @@
+! font.f90
+!
+! Example program that demonstrates bitmap font rendering. Based on the raylib
+! example `text_raylib_fonts.c`.
+!
+! Author:  Philipp Engel
+! Licence: ISC
+program main
+    use, intrinsic :: iso_c_binding
+    use :: raylib
+    implicit none (type, external)
+
+    integer, parameter :: MAX_FONTS     = 8
+    integer, parameter :: SCREEN_WIDTH  = 800
+    integer, parameter :: SCREEN_HEIGHT = 450
+
+    integer            :: i
+    integer            :: spacings(MAX_FONTS)
+    character(len=72)  :: messages(MAX_FONTS)
+    type(color_type)   :: colors(MAX_FONTS)
+    type(font_type)    :: fonts(MAX_FONTS)
+    type(vector2_type) :: positions(MAX_FONTS)
+    type(vector2_type) :: v2
+
+    call init_window(SCREEN_WIDTH, SCREEN_HEIGHT, 'Fortran + raylib' // c_null_char)
+    call set_target_fps(60)
+
+    fonts = [ &
+        load_font('share/alagard.png' // c_null_char), &
+        load_font('share/pixelplay.png' // c_null_char), &
+        load_font('share/mecha.png' // c_null_char), &
+        load_font('share/setback.png' // c_null_char), &
+        load_font('share/romulus.png' // c_null_char), &
+        load_font('share/pixantiqua.png' // c_null_char), &
+        load_font('share/alpha_beta.png' // c_null_char), &
+        load_font('share/jupiter_crash.png' // c_null_char) &
+    ]
+
+    messages = [ character(len=72) :: &
+        'ALAGARD FONT designed by Hewett Tsoi', &
+        'PIXELPLAY FONT designed by Aleksander Shevchuk', &
+        'MECHA FONT designed by Captain Falcon', &
+        'SETBACK FONT designed by Brian Kent (AEnigma)', &
+        'ROMULUS FONT designed by Hewett Tsoi', &
+        'PIXANTIQUA FONT designed by Gerhard Grossmann', &
+        'ALPHA_BETA FONT designed by Brian Kent (AEnigma)', &
+        'JUPITER_CRASH FONT designed by Brian Kent (AEnigma)' &
+    ]
+
+    spacings = [ 2, 4, 8, 4, 3, 4, 4, 1 ]
+
+    do i = 1, MAX_FONTS
+        v2 = measure_text_ex(fonts(i), trim(messages(i)) // c_null_char, fonts(i)%base_size * 2.0, real(spacings(i)))
+
+        positions(i)%x = SCREEN_WIDTH / 2.0 - v2%x / 2.0
+        positions(i)%y = 60.0 + fonts(i)%base_size + 45.0 * (i - 1)
+    end do
+
+    ! Small Y position corrections.
+    positions(4)%y = positions(4)%y + 8
+    positions(5)%y = positions(5)%y + 2
+    positions(8)%y = positions(8)%y - 8
+
+    colors = [ MAROON, ORANGE, DARKGREEN, DARKBLUE, DARKPURPLE, LIME, GOLD, RED ]
+
+    do while (.not. window_should_close())
+        call begin_drawing()
+            call clear_background(RAYWHITE)
+
+            call draw_text('free fonts included with raylib' // c_null_char, 250, 20, 20, DARKGRAY)
+            call draw_line(220, 50, 590, 50, DARKGRAY)
+
+            do i = 1, MAX_FONTS
+                call draw_text_ex(fonts(i), &
+                                  trim(messages(i)) // c_null_char, &
+                                  positions(i), &
+                                  fonts(i)%base_size * 2.0, &
+                                  real(spacings(i)), &
+                                  colors(i))
+            end do
+        call end_drawing()
+    end do
+
+    do i = 1, MAX_FONTS
+        call unload_font(fonts(i))
+    end do
+
+    call close_window()
+end program main

fpm.toml

@@ -41,6 +41,11 @@ name = "fly"
 source-dir = "examples"
 main = "fly.f90"
 
+[[executable]]
+name = "font"
+source-dir = "examples"
+main = "font.f90"
+
 [[executable]]
 name = "keys"
 source-dir = "examples"