SCClassLibrary/Common/Geometry/Size.sc

   1 Size {
   2         var <>width = 0, <>height = 0;
   3
   4         *new { arg width=0, height=0;
   5                 ^super.newCopyArgs(width, height);
   6         }
   7
   8         asSize { ^this }
   9
  10         asRect { ^Rect(0,0,width,height); }
  11
  12         asPoint { ^Point(width,height); }
  13
  14         asString {
  15                 ^("Size(" ++ width ++ ", " ++ height ++ ")");
  16         }
  17
  18         == { arg other;
  19                 ^ other respondsTo: #[\width, \height] and: {
  20                         (other.width == width) && (other.height == height)
  21                 }
  22         }
  23 }
  24
  25 + SimpleNumber {
  26         asSize { ^Size(this, this) }
  27 }