Add Makie support

Author: timholy

.gitignore

@@ -4,3 +4,4 @@
 /Manifest.toml
 /docs/Manifest.toml
 /docs/build/
+fly_animation.mp4

Project.toml

@@ -6,7 +6,14 @@ version = "1.0.0-DEV"
 [deps]
 StaticArrays = "90137ffa-7385-5640-81b9-e52037218182"
 
+[weakdeps]
+Makie = "ee78f7c6-11fb-53f2-987a-cfe4a2b5a57a"
+
+[extensions]
+FlyThroughPathsMakieExt = "Makie"
+
 [compat]
+Makie = "0.21"
 StaticArrays = "1"
 julia = "1.10"
 

ext/FlyThroughPathsMakieExt.jl

@@ -0,0 +1,22 @@
+module FlyThroughPathsMakieExt
+
+using FlyThroughPaths
+using Makie
+
+function FlyThroughPaths.capture_view(cam::Camera)
+    view = ViewState(eyeposition = cam.eyeposition[], lookat = cam.lookat[])
+    # TODO: extract fov and upvector from cam
+    return view
+end
+FlyThroughPaths.capture_view(scene::Scene) = capture_view(scene.camera)
+FlyThroughPaths.capture_view(fig::Figure) = capture_view(fig.scene)
+
+function FlyThroughPaths.set_view!(cam::Camera, view::ViewState)
+    cam.eyeposition[] = view.eyeposition
+    cam.lookat[] = view.lookat
+    return cam
+end
+FlyThroughPaths.set_view!(scene::Scene, view::ViewState) = set_view!(scene.camera, view)
+FlyThroughPaths.set_view!(fig::Figure, view::ViewState) = set_view!(fig.scene, view)
+
+end

test/glmakie.jl

@@ -0,0 +1,28 @@
+# These "tests" are not run as part of CI, because installing and compiling Makie would take much of the test time.
+# It also adds overhead in terms of ensuring a display.
+# But you can run them locally.
+
+using GLMakie
+using FlyThroughPaths
+using LinearAlgebra
+
+# From one of the examples on https://docs.makie.org/stable
+r = LinRange(-1, 1, 100)
+cube = [(x.^2 + y.^2 + z.^2) for x = r, y = r, z = r]
+fig, ax, plt = contour(cube, alpha=0.5)
+display(fig)
+
+view0 = capture_view(fig)
+# FIXME: workaround for not knowing how to get the upvector and fov from the camera
+view0 = ViewState(eyeposition=view0.eyeposition, lookat=view0.lookat, upvector=[0, 0, 1], fov=45)
+path = Path(view0)
+
+path = path * ConstrainedMove(5, ViewState(eyeposition=[norm(view0.eyeposition), 0, 0]), :none, :constant)
+path = path * Pause(1)
+path = path * ConstrainedMove(5, ViewState(eyeposition=view0.eyeposition), :rotation, :constant)
+
+tlist = range(0, stop=15, length=31)
+
+record(fig, "fly_animation.mp4", tlist; framerate=round(Int, length(tlist)/last(tlist))) do t
+    set_view!(fig, path(t))
+end