:: (compute-grid-lines) ( grid n ns orientation -- seq )
    grid gap>> :> gap
    ns n suffix gap orientation v. '[ _ - orientation n*v ] map
    dup grid dim>> gap v- orientation reverse v* '[ _ v+ ] map
    [ [ gap [ 2/ ] map v+ ] map ] bi@ zip ;