gradient

src/fig_rgb.f90

@@ -2,8 +2,10 @@ module fig_rgb
     use fig_config
     implicit none
 
-    type :: RGB
-        sequence
+    type, abstract :: pattern
+    end type
+
+    type,extends(pattern) :: RGB
         integer(rgb_level) :: r
         integer(rgb_level) :: g
         integer(rgb_level) :: b

src/gradient.f90

@@ -0,0 +1,65 @@
+module fig_gradient
+    use fig_rgb
+    use fig_rgb_color_constants
+    implicit none
+
+    type pattern_stop
+        real(kind=8) :: offset=0
+        type(RGB) :: stop_color = FIG_COLOR_BLANK
+    end type pattern_stop
+
+    type stops_a
+        type(pattern_stop), allocatable :: stop_array(:)
+        integer :: stop_count
+        contains
+        procedure :: init => init_stops_a
+        procedure :: add_stop
+    end type stops_a
+
+
+    type,extends(pattern) :: linear_gradient
+        real(kind=8) :: x1=0
+        real(kind=8) :: y1=0
+        real(kind=8) :: x2=0
+        real(kind=8) :: y2=0
+        type(stops_a) :: stops
+
+    end type linear_gradient
+
+    type,extends(pattern) :: radial_gradient
+        real(kind=8) :: fx=0
+        real(kind=8) :: fy=0
+        real(kind=8) :: fr=0
+        real(kind=8) :: cx=0
+        real(kind=8) :: cy=0
+        real(kind=8) :: cr=0
+
+    end type radial_gradient
+    contains
+    subroutine init_stops_a(this)
+        class(stops_a), intent(inout) :: this
+        this%stop_count = 0
+        allocate(this%stop_array(0))
+    end subroutine init
+
+    subroutine add_stop(this, offset, color)
+        class(stops_a), intent(inout) :: this
+        real(kind=8), intent(in) :: offset
+        type(RGB), intent(in) :: color
+        type(pattern_stop) :: new_stop
+
+        new_stop%offset = offset
+        new_stop%stop_color = color
+
+        this%stop_count = this%stop_count + 1
+        if (.not.allocated(this%stop_array)) then
+            allocate(this%stop_array(this%stop_count))
+        else
+            allocate(this%stop_array(this%stop_count), source=this%stop_array)
+        endif
+        this%stop_array(this%stop_count) = new_stop
+    end subroutine add_stop
+
+
+end module fig_gradient
+