SCClassLibrary/Common/GUI/Base/Gradient.sc

   1 Gradient {
   2         var color1, color2, direction, steps;
   3         *new { arg color1, color2, direction=\h, steps=64;
   4                 ^super.newCopyArgs(color1, color2, direction, steps)
   5         }
   6         at { |pos|
   7                 ^blend(color1, color2, pos.round(steps.reciprocal))
   8         }
   9 }
  10
  11 HiliteGradient {
  12         var color1, color2, direction, steps, frac;
  13         *new { arg color1, color2, direction=\v, steps=64, frac = 0.33;
  14                 ^super.newCopyArgs(color1, color2, direction, steps, frac)
  15         }
  16         at { |pos|
  17                 ^blend(color1, color2, pos.round(steps.reciprocal))
  18         }
  19 }