added remaining law plots

Author: icweaver

docs/src/assets/F04_plot.svg

@@ -138,71 +138,89 @@ and is loosely associated with the size of the dust grains in the interstellar m
 
 ### Clayton, Cardelli and Mathis (1989)
 
-![](assets/ccm89_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(CCM89)
+```
 
 ```@docs
 CCM89
 ```
 
 ### O'Donnell 1994
 
-![](assets/od94_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(OD94)
+```
 
 ```@docs
 OD94
 ```
 
 ### Calzetti et al. (2000)
 
-![](assets/cal00_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(CAL00)
+```
 
 ```@docs
 CAL00
 ```
 
 ### Valencic, Clayton, & Gordon (2004)
 
-![](assets/vcg04_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(VCG04)
+```
 
 ```@docs
 VCG04
 ```
 
 ### Gordon, Cartledge, & Clayton (2009)
 
-![](assets/gcc09_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(GCC09)
+```
 
 ```@docs
 GCC09
 ```
 
 ### Fitzpatrick (1999)
 
-![](assets/F99_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(F99)
+```
 
 ```@docs
 F99
 ```
 
 ### Fitzpatrick (2004)
 
-![](assets/F04_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(F04)
+```
 
 ```@docs
 F04
 ```
 
 ### Fitzpatrick (2019)
 
-![](assets/F19_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(F19)
+```
 
 ```@docs
 F19
 ```
 
 ### Maiz Apellaniz et al. (2014)
 
-![](assets/M14_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(M14)
+```
 
 ```@docs
 M14
@@ -222,7 +240,9 @@ DustExtinction.checkbounds
 
 #### Fitzpatrick & Massa (1990)
 
-![](assets/FM90_plot.svg)
+```@example
+using DustExtinction, CairoMakie; lplot(FM90)
+```
 
 ```@docs
 FM90
@@ -239,8 +259,12 @@ G03_LMCAve
 
 #### Gordon et al. (2016)
 
-![](assets/G16_fixed_f_A_plot.svg)
-![](assets/G16_fixed_Rv_plot.svg)
+```@example
+using DustExtinction, CairoMakie
+
+mplot(G16, (2.0, 3.1, 4.0, 5.0, 6.0), 1.0)
+mplot(G16, 3.1, 0.0:0.2:1.0)
+```
 
 ```@docs
 G16

docs/src/assets/F19_plot.svg

@@ -1,6 +1,6 @@
 module MakieExt
     using DustExtinction
-    import DustExtinction: bounds, aa_to_invum, ExtinctionLaw, lplot, lplot!, dplot, dplot!
+    import DustExtinction: bounds, aa_to_invum, ExtinctionLaw, lplot, lplot!, mplot, mplot!, dplot, dplot!
     using Makie: Makie, convert_arguments, PointBased, lines, lines!, heatmap, heatmap!, Colorbar, rich, superscript, axislegend
 
     function Makie.convert_arguments(P::PointBased, law::ExtinctionLaw)
@@ -15,7 +15,7 @@ module MakieExt
     """
         lplot(law::ExtinctionLaw; args...)
 
-    Color law plot with automatic axis labels.
+    Rv law plot with automatic axis labels.
     """
     lplot(law::ExtinctionLaw; args...) = lines(
         law;
@@ -29,7 +29,7 @@ module MakieExt
     """
         lplot(law::Type{<:ExtinctionLaw}; args...)
 
-    Color law series plot with automatic axis labels.
+    Rv law series plot with automatic axis labels.
     """
     function lplot(law::Type{<:ExtinctionLaw}; args...)
         # Dummy plot
@@ -44,10 +44,86 @@ module MakieExt
         fig
     end
 
+    """
+        lplot(law::FM90; args...)
+
+    Fittable law plot with automatic axis labels.
+    """
+    lplot(law::FM90; args...) = lines(law;
+        axis = (;
+            xlabel = rich("x [μm", superscript("-1"), "]"),
+            ylabel = rich("(E(λ) - V) / E(B - V)"),
+        ),
+        args...,
+    )
+
+    """
+        lplot(law::FM90; args...)
+
+    Fittable law series plot with automatic axis labels.
+    """
+    function lplot(law::Type{<:FM90}; args...)
+        # m1
+        fig, ax, p = lplot(law(); label="total")
+
+        # m2
+        lines!(ax, law(c3=0.0, c4=0.0); label="linear term")
+
+        # m3
+        lines!(ax, law(c1=0.0, c2=0.0, c4=0.0); label="bump term")
+
+        # m4
+        lines!(ax, law(c1=0.0, c2=0.0, c3=0.0); label="FUV rise term")
+
+        # for Rv in (2.0, 3.1, 4.0, 5.0, 6.0)
+        #   lines!(ax, law(Rv); label=rich("Rv = $(Rv)"), args...)
+        # end
+
+        axislegend(ax; position=:lt)
+
+        fig
+    end
+
+    """
+        mplot(law::Type{G16}, Rvs, f_A::Real; args...)
+
+    Mixture law plot with automatic axis labels.
+    """
+    function mplot(law::Type{G16}, Rvs, f_A::Real; args...)
+        # Dummy plot
+        fig, ax, p = lplot(law())
+
+        for Rv in Rvs
+            lines!(ax, law(; Rv, f_A); label=rich("Rv = $(Rv)"), args...)
+        end
+
+        axislegend(ax, "f_A = $(f_A)"; position=:lt)
+
+        fig
+    end
+
+    """
+        mplot(law::Type{G16}, Rvs, f_A::Real; args...)
+
+    Mixture law series plot with automatic axis labels.
+    """
+    function mplot(law::Type{G16}, Rv::Real, f_As; args...)
+        # Dummy plot
+        fig, ax, p = lplot(law())
+
+        for f_A in f_As
+            lines!(ax, law(; Rv, f_A); label=rich("f_A = $(f_A)"), args...)
+        end
+
+        axislegend(ax, "Rv = $(Rv)"; position=:lt)
+
+        fig
+    end
+
     """
         dplot(dustmap=SFD98Map(); lrange=(-3, 3), brange=(-1, 1))
 
-    Plot a heatmap of the given `dustmap`, with galactic longitude ``(l)`` on the x-axis and galactic latitude ``(b)`` on the y-axis. Angles are displayed in degrees by default. The plot axis ranges for both are set by `lrange` and `brange`, respectively.
+    Heatmap of the given `dustmap`, with galactic longitude ``(l)`` on the x-axis and galactic latitude ``(b)`` on the y-axis. Angles are displayed in degrees by default. The plot axis ranges for both are set by `lrange` and `brange`, respectively.
     """
     function dplot(dustmap=SFD98Map(); lrange=(-3, 3), brange=(-1, 1))
         l = range(lrange..., length=400)

docs/src/assets/F99_plot.svg

@@ -30,11 +30,15 @@ export redden,
        lplot,
        lplot!,
        dplot,
-       dplot!
+       dplot!,
+       mplot,
+       mplot!
 
 # Plot recipe stubs
 function lplot end
 function lplot! end
+function mplot end
+function mplot! end
 function dplot end
 function dplot! end