Type cairo_text_extents_t in src/cairo-types.f90

Author: vmagnin

CHANGELOG.md

@@ -1,6 +1,12 @@
 # Changelog
 All notable changes to the gtk-fortran project are documented in this file. The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 
+## [cairo-fortran dev]
+
+### Added
+- Type `cairo_text_extents_t` in `src/cairo-types.f90`.
+
+
 ## [cairo-fortran 1.1.0] 2023-06-02
 
 ### Added
@@ -15,4 +21,4 @@ All notable changes to the gtk-fortran project are documented in this file. The
 
 ## [cairo-fortran 1.0.0]
 
-This repository was cloned in 2022 from a backup of the now unavailable @brocolis' repository, using the latest 5th September 2021 version.
+This repository was cloned in 2022 from a backup of the now unavailable @brocolis' repository, using the latest 5th September 2021 version.

src/cairo-types.f90

@@ -1,14 +1,27 @@
+! Last modification: vmagnin, 2024-03-30
+
+! The Cairo types are added by hand:
 module cairo_types
-use iso_c_binding, only: c_double
-implicit none
-
-type, bind(c) :: cairo_matrix_t
-    real(c_double) :: xx
-    real(c_double) :: yx
-    real(c_double) :: xy
-    real(c_double) :: yy
-    real(c_double) :: x0
-    real(c_double) :: y0
-end type
+    use iso_c_binding, only: c_double
+    implicit none
+
+    type, bind(c) :: cairo_matrix_t
+        real(c_double) :: xx
+        real(c_double) :: yx
+        real(c_double) :: xy
+        real(c_double) :: yy
+        real(c_double) :: x0
+        real(c_double) :: y0
+    end type
+
+    ! https://www.cairographics.org/manual/cairo-cairo-scaled-font-t.html#cairo-text-extents-t
+    type, bind(c) :: cairo_text_extents_t
+        real(c_double) :: x_bearing;
+        real(c_double) :: y_bearing;
+        real(c_double) :: width;
+        real(c_double) :: height;
+        real(c_double) :: x_advance;
+        real(c_double) :: y_advance;
+    end type
 
 end module