SCClassLibrary/QtCollider/QEnvelopeView.sc

   1 QEnvelopeView : QView
   2 {
   3   var <editable, <step, <grid, <gridOn = false;
   4   var <gridColor, <strokeColor, <fillColor, <selectionColor;
   5   var <drawLines = true, <drawRects = true;
   6   var <metaAction;
   7
   8   *qtClass {^"QcGraph"}
   9
  10   editable_ { arg aBool;
  11     editable = aBool;
  12     this.setProperty( \editable, aBool );
  13   }
  14
  15   setEditable { arg index, flag;
  16     this.invokeMethod( \setEditableAt, [index, flag] );
  17   }
  18
  19   step_ { arg aFloat;
  20     step = aFloat;
  21     this.setProperty( \step, aFloat );
  22   }
  23
  24   keepHorizontalOrder {
  25     ^this.getProperty( \horizontalOrder ) != 0;
  26   }
  27
  28   keepHorizontalOrder_ { arg bool;
  29     this.setProperty( \horizontalOrder, if(bool){1}{0} );
  30   }
  31
  32   elasticSelection {
  33     ^this.getProperty( \selectionForm ) == 0;
  34   }
  35
  36   elasticSelection_ { arg bool;
  37     this.setProperty( \selectionForm, if(bool){0}{1} );
  38   }
  39
  40   value {
  41     ^this.getProperty( \value );
  42   }
  43
  44   value_ { arg anArray;
  45     this.setProperty( \value, anArray );
  46   }
  47
  48   valueAction_ { arg anArray;
  49     this.setProperty( \value, anArray );
  50     this.doAction;
  51   }
  52
  53   index {
  54     ^this.getProperty( \index );
  55   }
  56
  57   index_ { arg index;
  58     ^this.setProperty( \index, index );
  59   }
  60
  61   lastIndex {
  62     ^this.index;
  63   }
  64
  65   selectIndex { arg index;
  66     if( index < 0 ){
  67       this.invokeMethod( \deselectAll );
  68     }{
  69       this.invokeMethod( \select, [index,false] );
  70     };
  71     this.index = index;
  72   }
  73
  74   deselectIndex { arg index;
  75     this.invokeMethod( \deselect, index );
  76   }
  77
  78   x {
  79     ^this.getProperty( \x );
  80   }
  81
  82   x_ { arg aFloat;
  83     this.setProperty( \x, aFloat );
  84   }
  85
  86   y {
  87     ^this.getProperty( \y );
  88   }
  89
  90   y_ { arg aFloat;
  91     this.setProperty( \y, aFloat );
  92   }
  93
  94   currentvalue { ^this.y }
  95
  96   currentvalue_ { arg aFloat;
  97     this.y_( aFloat );
  98   }
  99
 100   setString { arg index, string;
 101     this.invokeMethod( \setStringAt, [index, string] );
 102   }
 103
 104   strings_ { arg anArray;
 105     this.setProperty( \strings, anArray );
 106   }
 107
 108   curves { this.nonimpl( "curves" ); }
 109
 110   curves_ { arg curves;
 111     this.invokeMethod( \setCurves,
 112       if(curves.size > 0) { [curves.collect{|c| QCurve(c)}] } { QCurve(curves) }
 113     );
 114   }
 115
 116   setEnv { arg env;
 117     var times = [0] ++ env.times.integrate;
 118     if( times.last > 0 ) {times = times / times.last};
 119     this.value = [times, env.levels];
 120     this.curves = env.curves;
 121   }
 122
 123   grid_ { arg aPoint;
 124     grid = aPoint;
 125     this.setProperty( \grid, aPoint );
 126   }
 127
 128   gridOn_ { arg aBool;
 129     gridOn = aBool;
 130     this.setProperty( \gridOn, aBool );
 131   }
 132
 133   gridColor_ { arg aColor;
 134     gridColor = aColor;
 135     this.setProperty( \gridColor, aColor );
 136   }
 137
 138   connect { arg source, targets;
 139     this.invokeMethod( \connectElements, [source, targets] );
 140   }
 141
 142   strokeColor_ { arg aColor;
 143     strokeColor = aColor;
 144     this.setProperty( \strokeColor, aColor );
 145   }
 146
 147   background {
 148     ^this.palette.base;
 149   }
 150
 151   background_ { arg color;
 152     this.palette = this.palette.base_(color);
 153   }
 154
 155   fillColor_ { arg aColor;
 156     fillColor = aColor;
 157     this.setProperty( \fillColor, aColor );
 158   }
 159
 160   setFillColor { arg index, color;
 161     this.invokeMethod( \setFillColorAt, [index, color] );
 162   }
 163
 164   colors_ { arg strokeColor, fillColor;
 165     this.strokeColor_( strokeColor );
 166     this.fillColor_( fillColor );
 167   }
 168
 169   selectionColor_ { arg color;
 170     this.palette = this.palette.highlight_(color);
 171   }
 172
 173   drawLines_ { arg aBool;
 174     drawLines = aBool;
 175     this.setProperty( \drawLines, aBool );
 176   }
 177
 178   drawRects_ { arg aBool;
 179     drawRects = aBool;
 180     this.setProperty( \drawRects, aBool );
 181   }
 182
 183   thumbWidth_ { arg aFloat;
 184     this.setProperty( \thumbWidth, aFloat; );
 185   }
 186
 187   thumbHeight_ { arg aFloat;
 188     this.setProperty( \thumbHeight, aFloat; );
 189   }
 190
 191   thumbSize_ { arg aFloat;
 192     this.setProperty( \thumbSize, aFloat; );
 193   }
 194
 195   setThumbWidth { this.nonimpl("setThumbWidth"); }
 196
 197   setThumbHeight { this.nonimpl("setThumbHeight"); }
 198
 199   setThumbSize { this.nonimpl("setThumbSize"); }
 200
 201   metaAction_ { arg function;
 202     this.manageMethodConnection( metaAction, function, 'metaAction()', \doMetaAction );
 203     metaAction = function;
 204   }
 205
 206   doMetaAction {
 207     metaAction.value(this);
 208   }
 209
 210   defaultGetDrag {
 211     ^this.value;
 212   }
 213   defaultCanReceiveDrag { ^true; }
 214   defaultReceiveDrag {
 215     this.value = QView.currentDrag;
 216   }
 217 }