WGLMakie

pkg"up; add https://github.com/SimonDanisch/ShaderAbstractions.jl https://github.com/JuliaPlots/WGLMakie.jl GeometryBasics#master Tables Observables AbstractPlotting#sd-webgl GeometryTypes JSCall#master StaticArrays WebIO#sd-httpheader RDatasets DataFrames StatsMakie MakieGallery#master"
using AbstractPlotting, WGLMakie
set_theme!(resolution = (650, 650))
using DataFrames, RDatasets, StatsMakie
iris = dataset("datasets", "iris")
linesegments(rand(Point2f0, 10), linewidth = 10, color = rand(RGBAf0, 10))

using AbstractPlotting, WGLMakie
set_theme!(resolution = (650, 400))
linesegments(rand(Point2f0, 10), linewidth = 10, color = rand(RGBAf0, 10))

using AbstractPlotting, DataFrames, RDatasets, StatsMakie
iris = dataset("datasets", "iris")
scatter(Data(iris), Group(:Species), :SepalLength, :SepalWidth)

using GeometryTypes

large_sphere = Sphere(Point3f0(0), 1f0)
positions = decompose(Point3f0, large_sphere)
colS = [RGBAf0(rand(), rand(), rand(), 1.0) for i = 1:length(positions)]
sizesS = [rand(Point3f0) .* 0.05f0 for i = 1:length(positions)]
meshscatter(positions, color = colS, markersize = sizesS)

using FileIO, MeshIO
using GeometryTypes
cp(
diffusemap.tga
, "cat.obj", force = true)
cp(
diffusemap.tga
, "diffuse.tga", force = true)

cat = load("cat.obj", GeometryTypes.GLNormalUVMesh)
texture = load("diffuse.tga")
mesh(cat, color = texture)

using MakieGallery, WGLMakie

run_example("colored triangle")

using AbstractPlotting

coordinates = [
  0.0 0.0;
  0.5 0.0;
  1.0 0.0;
  0.0 0.5;
  0.5 0.5;
  1.0 0.5;
  0.0 1.0;
  0.5 1.0;
  1.0 1.0;
]
connectivity = [
  1 2 5;
  1 4 5;
  2 3 6;
  2 5 6;
  4 5 8;
  4 7 8;
  5 6 9;
  5 8 9;
]
color = [0.0, 0.0, 0.0, 0.0, -0.375, 0.0, 0.0, 0.0, 0.0]
mesh(coordinates, connectivity, color = color, shading = false)

run_example("Image on Geometry (Moon)")

run_example("Colored Mesh")

run_example("Merged color Mesh")

run_example("Fluctuation 3D")

surface_scene = run_example("Surface")

run_example("Image on Surface Sphere")

run_example("Arrows on Sphere")

p1 = scatter(rand(4))
p2 = lines(rand(4), rand(4))
p3 = surface_scene
p4 = meshscatter(rand(Point3f0, 4), markersize = 0.1)
x = 0:0.5:10
p5 = lines(0:0.5:10, sin.(x))
vbox(
  hbox(p1, p2),
  p3,
  hbox(p4, p5, sizes = [0.7, 0.3]),
  sizes = [0.2, 0.6, 0.2]
)

surface_scene
ls = colorlegend(surface_scene[end], raw = true, camera = campixel!)
vbox(surface_scene, ls)

heatmap(rand(4, 4))

contour(rand(Float32, 10, 10, 10))

using WGLMakie, AbstractPlotting
image(rotr90(AbstractPlotting.logo()), scale_plot = false)

sleep(1.0)