gridplot shows coordinates of bounding box

Author: chmerdon

ext/GridVisualizeUnicodePlotsExt.jl

@@ -34,27 +34,29 @@ function gridplot!(ctx, ::Type{UnicodePlotsType}, ::Type{Val{2}}, grid)
 
     # determine resolution
     resolution = ctx[:size]
+    legend_space = 4
+    aspect = ctx[:aspect] * resolution[1] / (resolution[1] + legend_space)
+
     if (true) # auto scale feature, do we want this?
         wx = ex[2] - ex[1]
         wy = ey[2] - ey[1]
         rescale = wx / wy * (resolution[1] / (2 * resolution[2]))
         if rescale > 1
-            resolution = (resolution[1] * ctx[:aspect], Int(ceil(resolution[2] / rescale)))
+            resolution = (resolution[1] * aspect, Int(ceil(resolution[2] / rescale)))
         else
-            resolution = (Int(ceil(resolution[1] * ctx[:aspect] / rescale)), resolution[2])
+            resolution = (Int(ceil(resolution[1] * aspect / rescale)), resolution[2])
         end
     end
 
     # create UnicodePlots.Canvas
-    legend_space = 6
-    padding = 0
-    ex = (ex[1] - padding, ex[2] + padding)
-    ey = (ey[1] - padding * 2, ey[2] + padding * 0.25)
+    padding = 0.1 * max(ex[2] - ex[1], ey[2] - ey[1])
+    ex = (ex[1] - 2 * padding, ex[2] + 0.5 * padding)
+    ey = (ey[1] - padding, ey[2] + padding)
     CanvasType = UnicodePlots.BrailleCanvas # should this be a changeable parameter ?
     canvas = CanvasType(
         resolution[2], resolution[1] + legend_space,            # number of rows and columns (characters)
         origin_y = ey[1], origin_x = ex[1],      # position in virtual space
-        height = (ey[2] - ey[1]) / (resolution[1] / (resolution[1] + legend_space)), width = ex[2] - ex[1]; blend = false
+        height = (ey[2] - ey[1]) / (resolution[1] / (resolution[1] + legend_space)), width = ex[2] - ex[1]; blend = false, border = :black
     )
 
     ## plot all edges in the grid
@@ -143,8 +145,16 @@ function gridplot!(ctx, ::Type{UnicodePlotsType}, ::Type{Val{2}}, grid)
         )
     end
 
-    region_legend!(canvas, " cell regions:", 1, 1, colors)
-    region_legend!(canvas, "bface regions:", 1, 2, bcolors)
+    region_legend!(canvas, "cell regions: ", 2, 1, colors)
+    region_legend!(canvas, "bface regions:", 2, 2, bcolors)
+
+    # corner coordinates
+    ex = extrema(view(coords, 1, :))
+    ey = extrema(view(coords, 2, :))
+    UnicodePlots.annotate!(canvas, ex[1], ey[1], "$(ex[1])", UInt32(0), false; valign = :top)
+    UnicodePlots.annotate!(canvas, ex[2], ey[1], "$(ex[2])", UInt32(0), false; valign = :top, halign = :right)
+    UnicodePlots.annotate!(canvas, ex[1] - 1.5 * padding, ey[1], "$(ey[1])", UInt32(0), false; halign = :left)
+    UnicodePlots.annotate!(canvas, ex[1] - 1.5 * padding, ey[2], "$(ey[2])", UInt32(0), false; halign = :left)
 
     # plot
     plot = UnicodePlots.Plot(canvas; title = ctx[:title])
@@ -161,7 +171,7 @@ function region_legend!(canvas, title, x, y, colors)
         red, green, blue = UInt32.(colors[r])
         uint_color = (red << 16) | (green << 8) | blue
         reg_string = "$r "
-        for (i, char) in enumerate(reg_string)
+        for char in reg_string
             startx += 1
             UnicodePlots.char_point!(canvas, startx, y, char, uint_color, false)
         end
@@ -189,10 +199,12 @@ function gridplot!(ctx, ::Type{UnicodePlotsType}, ::Type{Val{1}}, grid)
     end
 
     # determine resolution
-    resolution = (ctx[:size][1], 4)
+    resolution = (ctx[:size][1], 5)
 
     # create UnicodePlots.Canvas
     legend_space = 6
+    padding = 0.05 * (ex[2] - ex[1])
+    ex = (ex[1] - padding, ex[2] + padding)
     CanvasType = UnicodePlots.BrailleCanvas # should this be a changeable parameter ?
     canvas = CanvasType(
         resolution[2], resolution[1] + legend_space,               # number of rows and columns (characters)
@@ -222,17 +234,17 @@ function gridplot!(ctx, ::Type{UnicodePlotsType}, ::Type{Val{1}}, grid)
         for k in 1:size(cen, 2)
             UnicodePlots.lines!(
                 canvas,
-                coords[1, cellnodes[cen[1, k], j]], 0.125,
-                coords[1, cellnodes[cen[2, k], j]], 0.125;
+                coords[1, cellnodes[cen[1, k], j]], 0.375,
+                coords[1, cellnodes[cen[2, k], j]], 0.375;
                 color = colors[r]
             )
         end
     end
     for j in 1:nnodes
         UnicodePlots.lines!(
             canvas,
-            coords[1, j], 0.25,
-            coords[1, j], 0.05;
+            coords[1, j], 0.45,
+            coords[1, j], 0.35;
             color = color
         )
     end
@@ -254,14 +266,19 @@ function gridplot!(ctx, ::Type{UnicodePlotsType}, ::Type{Val{1}}, grid)
     for j in 1:nbfaces
         UnicodePlots.lines!(
             canvas,
-            coords[1, bfacenodes[1, j]], 0.25,
-            coords[1, bfacenodes[1, j]], 0.05;
+            coords[1, bfacenodes[1, j]], 0.45,
+            coords[1, bfacenodes[1, j]], 0.35;
             color = bcolors[bfaceregions[j]]
         )
     end
 
-    region_legend!(canvas, " cell regions:", 1, 1, colors)
-    region_legend!(canvas, "bface regions:", 1, 2, bcolors)
+    region_legend!(canvas, "cell regions: ", 2, 1, colors)
+    region_legend!(canvas, "bface regions:", 2, 2, bcolors)
+
+
+    ex = extrema(view(coords, 1, :))
+    UnicodePlots.annotate!(canvas, 0, 0.1, "$(ex[1])", UInt32(0), false)
+    UnicodePlots.annotate!(canvas, ex[2], 0.1, "$(ex[2])", UInt32(0), false)
 
     # plot
     plot = UnicodePlots.Plot(canvas; title = ctx[:title])