\version "2.23.11"

m =
#(define-music-function (csd inc) (fraction? number?)
   #{
  \override Score.SpacingSpanner.common-shortest-duration
  = $(fraction->moment csd)
  \override Score.SpacingSpanner.spacing-increment = $inc
  \cadenzaOn
  32 32 \bar "|"
  16 16 \bar "|"
  8 8 \bar "|"
  4 4 \bar "|"
  2 2 \bar "|"
  1 1 \bar "|"
  \breve \breve \bar "|"
  \longa \longa \bar "|"
   #})
% default increment is 1.2
\m 1/32 1.2
\m 1/8 1.2
\m 1/2 1.2
\m 2/1 1.2

\m 1/2 0.7
\m 1/2 1.2
\m 1/2 1.7
\m 1/2 2.2