basis/ui/pens/caching/caching.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel ;
   4 IN: ui.pens.caching
   5
   6 ! A pen that caches vertex arrays, etc
   7 TUPLE: caching-pen last-dim ;
   8
   9 GENERIC: recompute-pen ( gadget pen -- )
  10
  11 : compute-pen ( gadget pen -- )
  12     2dup [ dim>> ] [ last-dim>> ] bi* eq? [
  13         2drop
  14     ] [
  15         [ swap dim>> >>last-dim drop ] [ recompute-pen ] 2bi
  16     ] if ;