gfnさんへのリプライです: https://twitter.com/bd_gfngfn/status/1001031270225231872

compile.sh

#!/bin/sh

satysfi test.saty --debug-show-bbox -o test.pdf

matrix.satyh

@require: math

let matrix lstf rulef =
  let pads = (5pt, 5pt, 2pt, 2pt) in
  let cellf ctx ma = NormalCell(pads, embed-math ctx ma) in
  let multif ctx nr nc ma = MultiCell(nr, nc, pads, embed-math ctx ma) in
  let empty = EmptyCell in
  let content ctx =
    %%% HERE %%%
    let ctx = set-manual-rising 100pt ctx in
    %%%%%%%%%%%%
    tabular (lstf (cellf ctx) (multif ctx) empty) rulef in
  let body = text-in-math MathOrd content in
  ${\paren{#body}}

let-math \matrix2x2 a b c d =
  let lstf cellf multif empty = [
    [cellf a; cellf b];
    [cellf c; cellf d];
  ] in
  let rulef xs ys = [] in
  matrix lstf rulef 

test.pdf

test.saty

@require: stdja
@require: math
@import: matrix

StdJa.document (|
  title = {matrix test};
  author = {nekketsuuu};
  show-title = false;
  show-toc = false;
|) '<
  +math (${
    xy\matrix2x2{a}{b}{c}{d}zw
  });
>