(compute-grid-lines) ( grid n ns orientation -- seq )

Vocabulary

ui.gadgets.grid-lines.private

Inputs

grid	an object
n	an object
ns	an object
orientation	an object

Outputs

seq

an object

Definition

USING: accessors assocs kernel math math.vectors sequences ;

IN: ui.gadgets.grid-lines.private

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