Risk-Opportunity Matrix

  risk-opportunity-matrix.typ (126 lines)

#import "@preview/cetz:0.4.1"
#import cetz.draw: content, line, rect

#set page(width: auto, height: auto, margin: 4mm)
#set text(0.8em)
// #set text(lang: "de")

#let en-de(en, de) = context {
  if text.lang == "de" { de } else { en }
}

#cetz.canvas(length: 1.3cm, {
  // localizable texts
  let intensities = (
    en-de[Very Low][Sehr Klein],
    en-de[Low][Klein],
    en-de[Medium][Mittel],
    en-de[High][Hoch],
    en-de[Very High][Sehr Hoch],
  )

  let probability = en-de[Probability][Eintrittswahrscheinlichkeit]
  let pos-impact = en-de[Positive Impact][Positive Auswirkung]
  let neg-impact = en-de[Negative Impact][Negative Auswirkung]

  let risks = en-de[Risks][Risiken]
  let opportunities = en-de[Opportunities][Chancen]

  let attention-arrow = en-de[Arrow of Attention][Pfeil der Aufmerksamkeit]

  let cell(x, y) = ((x, y), (x + 1, y + 1))

  // main grid of impact/probability assessments
  let (l, m, h) = (
    l: green.saturate(-50%),
    m: yellow.saturate(-50%),
    h: red.saturate(-50%),
  )
  let cells = (
    (m, m, h, h, h),
    (l, m, m, h, h),
    (l, l, m, h, h),
    (l, l, m, m, h),
    (l, l, l, l, m),
  )
  let (width, height) = (2 * cells.first().len(), cells.len())
  for (y, row) in cells.enumerate() {
    y = height - y - 1
    for (x, fill) in row.enumerate() {
      rect(..cell(x, y), fill: fill)
      rect(..cell(width - x - 1, y), fill: fill)
    }
  }

  // risk/opportunity grid labels
  let big-label(..args, label) = content(..args, {
    set text(2.4em, weight: "bold", fill: black, stroke: 0.3pt + gray)
    set align(center + horizon)
    label
  })

  big-label((2, 1.5), risks)
  big-label((width - 2, 1.5), opportunities)

  // intensity grid labels
  for (i, intensity) in intensities.enumerate() {
    let intensity = pad(4pt, align(center + horizon, intensity))
    content(..cell(-1, i), intensity)
    content(..cell(width, i), intensity)
    content(..cell(i, -1), intensity)
    content(..cell(width - i - 1, -1), intensity)
  }

  // axis labelling arrows
  let labelled-arrow(start, end, name, label, dir: ltr, align: top) = {
    assert(dir in (ltr, rtl))
    assert(align in (top, bottom))
    line(start, end, name: name, stroke: gray, mark: (end: ">", fill: gray))
    content(
      (name + ".start", 50%, name + ".end"),
      angle: if dir == ltr { name + ".end" } else { name + ".start" },
      padding: if align == top { (bottom: 0.3) } else { (top: 0.3) },
      anchor: if align == top { "south" } else { "north" },
      text(1.2em, label),
    )
  }

  let arrow-inset = 0.3
  labelled-arrow((-1, arrow-inset), (-1, height - arrow-inset), "probability1", probability, dir: ltr, align: top)
  labelled-arrow(
    (width + 1, arrow-inset),
    (width + 1, height - arrow-inset),
    "probability2",
    probability,
    dir: rtl,
    align: top,
  )

  labelled-arrow((arrow-inset, -1), (width / 2 - arrow-inset, -1), "neg-impact", neg-impact, dir: ltr, align: bottom)
  labelled-arrow(
    (width - arrow-inset, -1),
    (width / 2 + arrow-inset, -1),
    "pos-impact",
    pos-impact,
    dir: rtl,
    align: bottom,
  )

  // arrow of attention
  let cone-start = 1
  let cone-length = height - cone-start + 0.7
  line(
    (width / 2, cone-start),
    (width / 2 - cone-length, cone-start + cone-length),
    (width / 2 + cone-length, cone-start + cone-length),
    close: true,
    fill: gray.transparentize(80%),
    stroke: gray,
  )
  content((5, (5 + (cone-start + cone-length)) / 2), {
    set text(1.7em)
    set align(center + horizon)
    attention-arrow
  })
})