SCClassLibrary/QtCollider/QScope2.sc

   1 QScope2 : QView {
   2   var <bufnum;
   3   var <xZoom=1.0, <yZoom=1.0, <x=0.0, <y=0.0;
   4   var <waveColors;
   5
   6   *qtClass { ^"QcScopeShm" }
   7
   8   bufnum_ { arg anInt;
   9     bufnum = anInt;
  10     this.setProperty( \bufferNumber, anInt );
  11   }
  12
  13   server_ { arg server;
  14     var port = if(server.inProcess){ thisProcess.pid }{ if(server.isLocal){server.addr.port} };
  15     if(port.isNil) {
  16       "QScope2: Can not scope on the desired server.".warn
  17     } {
  18       this.setProperty(\serverPort, port);
  19     };
  20   }
  21
  22   start { this.invokeMethod(\start); }
  23   stop { this.invokeMethod(\stop); }
  24
  25   style { ^this.getProperty(\style) }
  26
  27   style_ { arg value; this.setProperty(\style, value) }
  28
  29   xZoom_ { arg aFloat;
  30     xZoom = aFloat;
  31     this.setProperty( \xZoom, aFloat );
  32   }
  33
  34   yZoom_ { arg aFloat;
  35     yZoom = aFloat;
  36     this.setProperty( \yZoom, aFloat );
  37   }
  38
  39   x_ { arg aFloat;
  40     x = aFloat;
  41     this.setProperty( \xOffset, aFloat );
  42   }
  43
  44   y_ { arg aFloat;
  45     y = aFloat;
  46     this.setProperty( \yOffset, aFloat );
  47   }
  48
  49   waveColors_ { arg aColorArray;
  50     waveColors = aColorArray;
  51     this.setProperty( \waveColors, aColorArray );
  52   }
  53
  54   background { ^this.getProperty( \background, Color.new ); }
  55
  56   background_ { arg color; this.setProperty( \background, color, true ); }
  57 }