extra/ui/gadgets/charts/utils/utils.factor

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