! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel models arrays sequences math math.order
models.product generalizations sequences.generalizations
math.functions ;
FROM: models.product => product ;
IN: models.range

TUPLE: range-model < product ;

: <range-model> ( value page min max step -- range )
    5 narray [ <model> ] map range-model new-product ;

: range-model>> ( range -- model ) dependencies>> first ;
: range-page ( range -- model ) dependencies>> second ;
: range-min ( range -- model ) dependencies>> third ;
: range-max ( range -- model ) dependencies>> fourth ;
: range-step ( range -- model ) dependencies>> 4 swap nth ;

: step-value ( value range -- value' )
    range-step value>> floor-to ;

M: range-model range-value
    [ range-model>> value>> ] [ clamp-value ] [ step-value ] tri ;

M: range-model range-page-value range-page value>> ;

M: range-model range-min-value range-min value>> ;

M: range-model range-max-value range-max value>> ;

M: range-model range-max-value*
    [ range-max-value ] [ range-page-value ] bi [-] ;

M: range-model set-range-value
    [ clamp-value ] [ range-model>> ] bi set-model ;

M: range-model set-range-page-value range-page set-model ;

M: range-model set-range-min-value range-min set-model ;

M: range-model set-range-max-value range-max set-model ;

: move-by ( amount range -- )
    [ range-value + ] keep set-range-value ;

: move-by-page ( amount range -- )
    [ range-page-value * ] keep move-by ;