(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 ] curry map dup grid dim>> gap v-
    orientation reverse v* [ v+ ] curry map gap [ 2 /f ] map
    [ v+ ] curry [ map ] curry bi@ zip ;