! Copyright (C) 2006, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel math namespaces opengl opengl.gl sequences
math.vectors ui.gadgets ui.gadgets.grids ui.render math.geometry.rect ;
IN: ui.gadgets.grid-lines

TUPLE: grid-lines color ;

C: <grid-lines> grid-lines

SYMBOL: grid-dim

: half-gap grid get grid-gap [ 2/ ] map ; inline

: grid-line-from/to ( orientation point -- from to )
    half-gap v-
    [ half-gap spin set-axis ] 2keep
    grid-dim get spin set-axis ;

: draw-grid-lines ( gaps orientation -- )
    grid get rot grid-positions grid get rect-dim suffix [
        grid-line-from/to gl-line
    ] with each ;

M: grid-lines draw-boundary
    origin get [
        -0.5 -0.5 0.0 glTranslated
        grid-lines-color set-color [
            dup grid set
            dup rect-dim half-gap v- grid-dim set
            compute-grid
            { 0 1 } draw-grid-lines
            { 1 0 } draw-grid-lines
        ] with-scope
    ] with-translation ;