src/Tools/Graphview/metrics.scala
author wenzelm
Sat, 17 Jan 2015 22:20:57 +0100
changeset 59384 c75327a34960
parent 59302 4d985afc0565
child 59388 04cdfd536e7d
permissions -rw-r--r--
more explicit Layout.Info: size and content; allow multi-line vertex label, based on content; misc tuning;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
59290
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     1
/*  Title:      Tools/Graphview/metrics.scala
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     3
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     4
Physical metrics for layout and painting.
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     5
*/
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     6
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     7
package isabelle.graphview
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     8
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
     9
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    10
import isabelle._
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    11
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    12
import java.awt.{Font, RenderingHints}
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    13
import java.awt.font.FontRenderContext
59384
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    14
import java.awt.geom.Rectangle2D
59290
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    15
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    16
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    17
object Metrics
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    18
{
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    19
  val rendering_hints: RenderingHints =
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    20
    new RenderingHints(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON)
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    21
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    22
  val font_render_context: FontRenderContext =
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    23
    new FontRenderContext(null, true, false)
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    24
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    25
  def apply(font: Font): Metrics = new Metrics(font)
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    26
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    27
  val default: Metrics = apply(new Font("Helvetica", Font.PLAIN, 12))
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    28
}
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    29
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    30
class Metrics private(val font: Font)
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    31
{
59384
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    32
  def string_bounds(s: String): Rectangle2D = font.getStringBounds(s, Metrics.font_render_context)
59290
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    33
  private val mix = string_bounds("mix")
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    34
  val space_width = string_bounds(" ").getWidth
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    35
  def char_width: Double = mix.getWidth / 3
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    36
  def height: Double = mix.getHeight
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    37
  def ascent: Double = font.getLineMetrics("", Metrics.font_render_context).getAscent
59293
305e79989d48 tuned metrics;
wenzelm
parents: 59290
diff changeset
    38
  def pad_x: Double = char_width * 1.5
305e79989d48 tuned metrics;
wenzelm
parents: 59290
diff changeset
    39
  def pad_y: Double = char_width
59290
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    40
59384
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    41
  def gap: Double = mix.getWidth.ceil
59302
4d985afc0565 explict layout graph structure, with dummies and coordinates;
wenzelm
parents: 59293
diff changeset
    42
59384
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    43
  def dummy_size2: Double = (pad_x / 2).ceil
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    44
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    45
  def node_width2(lines: List[String]): Double =
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    46
    (((0.0 /: lines)({ case (w, s) => w max string_bounds(s).getWidth }) + pad_x) / 2).ceil
59302
4d985afc0565 explict layout graph structure, with dummies and coordinates;
wenzelm
parents: 59293
diff changeset
    47
59384
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    48
  def node_height2(num_lines: Int): Double =
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    49
    ((height.ceil * (num_lines max 1) + pad_y) / 2).ceil
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    50
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    51
  def level_height2(num_lines: Int, num_edges: Int): Double =
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    52
    (node_height2(num_lines) + gap) max (node_height2(1) * (num_edges max 5))
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    53
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    54
  object Pretty_Metric extends Pretty.Metric
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    55
  {
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    56
    val unit = space_width max 1.0
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    57
    def apply(s: String): Double = if (s == "\n") 1.0 else string_bounds(s).getWidth / unit
c75327a34960 more explicit Layout.Info: size and content;
wenzelm
parents: 59302
diff changeset
    58
  }
59290
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    59
}
569a8109eeb2 separate module Metrics;
wenzelm
parents:
diff changeset
    60