1 ! Copyright (C) 2017 Alexander Ilin.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel math opengl ;
4 IN: ui.gadgets.charts.utils
6 : default-color ( default obj -- )
7 color>> dup [ swap ] unless gl-color drop ;
9 ! value' = (value - min) / (max - min) * width
10 : scale ( width value max min -- value' ) neg [ + ] curry bi@ / * ;