SCClassLibrary/QtCollider/QSoundFileView.sc

   1 QSoundFileView : QView {
   2
   3   var <>soundfile;
   4   var <metaAction;
   5   var <>elasticMode; // NOTE: no-op, only for compatibility
   6   var curDoneAction;
   7
   8   *qtClass { ^'QcWaveform' }
   9
  10   load { arg filename, startframe, frames, block, doneAction;
  11     if( filename.isString && filename != "" ) {
  12       if( curDoneAction.notNil )
  13         { this.disconnectFunction( 'loadingDone()', curDoneAction ) };
  14       if( doneAction.notNil ) {
  15         this.connectFunction( 'loadingDone()', doneAction );
  16       };
  17
  18       curDoneAction = doneAction;
  19
  20       if( startframe.notNil && frames.notNil ) {
  21         this.invokeMethod( \load, [filename, startframe.asInteger, frames.asInteger] );
  22       }{
  23         this.invokeMethod( \load, filename );
  24       }
  25     }
  26   }
  27
  28   alloc { arg frames, channels=1, samplerate=44100;
  29     this.invokeMethod( \allocate, [frames.asInteger, channels.asInteger, samplerate.asInteger] );
  30   }
  31
  32   data_ { arg data;
  33     this.setData(data);
  34   }
  35
  36   setData { arg data, block, startframe=0, channels=1, samplerate=44100;
  37     if( data.isKindOf(DoubleArray).not and: {data.isKindOf(FloatArray).not} )
  38       { data = data.as(DoubleArray) };
  39     this.invokeMethod( \load, [data, startframe, channels, samplerate] );
  40   }
  41
  42   set { arg offset=0, data;
  43     if( data.isKindOf(DoubleArray).not and: {data.isKindOf(FloatArray).not} )
  44       { data = data.as(DoubleArray) };
  45     this.invokeMethod( \write, [data, offset.asInteger] );
  46   }
  47
  48   readFile { arg aSoundFile, startframe, frames, block, closeFile, doneAction;
  49     this.load( aSoundFile.path, startframe, frames, block, doneAction );
  50   }
  51
  52   read { arg startframe, frames, block, closeFile, doneAction;
  53     if( soundfile.notNil ) {
  54       this.readFile( soundfile, startframe, frames, block, nil, doneAction );
  55     };
  56   }
  57
  58   readFileWithTask { arg aSoundFile, startframe, frames, block, doneAction, showProgress;
  59     this.readFile( aSoundFile, startframe, frames, block, nil, doneAction );
  60   }
  61
  62   readWithTask { arg startframe, frames, block, doneAction, showProgress;
  63     this.read( startframe, frames, block, nil, doneAction );
  64   }
  65
  66   drawsWaveForm { ^this.getProperty( \drawsWaveform ); }
  67
  68   drawsWaveForm_ { arg boolean; this.setProperty( \drawsWaveform, boolean ); }
  69
  70   waveColors { ^this.getProperty( \waveColors ) }
  71   waveColors_ { arg colors; this.setProperty( \waveColors, colors ) }
  72
  73   //// Info
  74
  75   startFrame { ^this.getProperty( \startFrame ); }
  76
  77   numFrames { ^this.getProperty( \frames ); }
  78
  79   scrollPos { ^this.getProperty( \scrollPos ); } // a fraction of the full scrolling range
  80
  81   viewFrames { ^this.getProperty( \viewFrames ); }
  82
  83   readProgress { ^this.getProperty( \readProgress ); }
  84
  85   //// Navigation
  86
  87   zoom { arg factor; this.invokeMethod( \zoomBy, factor.asFloat ); }
  88
  89   zoomToFrac { arg fraction; this.invokeMethod( \zoomTo, fraction.asFloat ); }
  90
  91   zoomAllOut { this.invokeMethod( \zoomAllOut ); }
  92
  93   zoomSelection { arg selection;
  94     if( selection.isNil ) { selection = this.currentSelection };
  95     this.invokeMethod( \zoomSelection, selection );
  96   }
  97
  98   scrollTo { arg fraction; // a fraction of the full scrolling range
  99     this.setProperty( \scrollPos, fraction );
 100   }
 101
 102   scroll { arg fraction; // a fraction of the visible range
 103     var frames = this.viewFrames * fraction + this.getProperty(\viewStartFrame);
 104     this.setProperty( \viewStartFrame, frames );
 105   }
 106
 107   scrollToStart { this.invokeMethod( \scrollToStart ); }
 108
 109   scrollToEnd { this.invokeMethod( \scrollToEnd ); }
 110
 111   xZoom { ^this.getProperty( \xZoom ); }
 112
 113   xZoom_ { arg seconds; this.setProperty( \xZoom, seconds ); }
 114
 115   yZoom { ^this.getProperty( \yZoom ); }
 116
 117   yZoom_ { arg factor; this.setProperty( \yZoom, factor.asFloat ); }
 118
 119   //// Selections
 120
 121   selections { ^this.getProperty( \selections ); }
 122
 123   currentSelection { ^this.getProperty( \currentSelection ); }
 124
 125   currentSelection_ { arg index; this.setProperty( \currentSelection, index ); }
 126
 127   selection { arg index; ^this.invokeMethod( \selection, index, true ); }
 128
 129   setSelection { arg index, selection;
 130     this.invokeMethod( \setSelection, [index, selection] );
 131   }
 132
 133   selectionStart { arg index;
 134     var sel = this.selection( index );
 135     ^sel.at(0);
 136   }
 137
 138   setSelectionStart { arg index, frame;
 139     var sel = this.selection( index );
 140     sel.put( 0, frame );
 141     this.setSelection( index, sel );
 142   }
 143
 144   selectionSize { arg index;
 145     var sel = this.selection( index );
 146     ^sel.at(1);
 147   }
 148
 149   setSelectionSize { arg index, frames;
 150     var sel = this.selection( index );
 151     sel.put( 1, frames );
 152     this.setSelection( index, sel );
 153   }
 154
 155   selectAll { arg index; this.setSelection( this.currentSelection, [0, this.numFrames] ); }
 156
 157   selectNone { arg index; this.setSelection( this.currentSelection, [0, 0] );  }
 158
 159
 160   setEditableSelectionStart { arg index, editable; ^this.nonimpl("setEditableSelectionStart"); }
 161
 162   setEditableSelectionSize { arg index, editable; ^this.nonimpl("setEditableSelectionSize"); }
 163
 164   setSelectionColor { arg index, color; this.invokeMethod( \setSelectionColor, [index,color] ); }
 165
 166
 167   selectionStartTime { arg index; ^this.nonimpl("selectionStartTime"); }
 168
 169   selectionDuration { arg index; ^this.nonimpl("selectionDuration"); }
 170
 171
 172   readSelection { arg block, closeFile; ^this.nonimpl("readSelection"); }
 173
 174   readSelectionWithTask { ^this.nonimpl("readSelectionWithTask"); }
 175
 176   // cursor
 177
 178   timeCursorOn { ^this.getProperty( \cursorVisible ); }
 179   timeCursorOn_ { arg flag; this.setProperty( \cursorVisible, flag ) }
 180
 181   timeCursorEditable { ^this.getProperty( \cursorEditable ); }
 182   timeCursorEditable_ { arg flag; this.setProperty( \cursorEditable, flag ) }
 183
 184   timeCursorPosition { ^this.getProperty( \cursorPosition ); }
 185   timeCursorPosition_ { arg frame; this.setProperty( \cursorPosition, frame ) }
 186
 187   // grid
 188
 189   gridOn { ^this.getProperty( \gridVisible ); }
 190   gridOn_ { arg flag; this.setProperty( \gridVisible, flag ) }
 191
 192   gridResolution { ^this.getProperty( \gridResolution ) }
 193   gridResolution_ { arg seconds; this.setProperty( \gridResolution, seconds ) }
 194
 195   gridOffset { ^this.getProperty( \gridOffset ) }
 196   gridOffset_ { arg seconds; this.setProperty( \gridOffset, seconds ) }
 197
 198   // colors
 199
 200   peakColor { ^this.getProperty(\peakColor) }
 201   peakColor_ { arg color; this.setProperty(\peakColor, color) }
 202
 203   rmsColor { ^this.getProperty(\rmsColor) }
 204   rmsColor_ { arg color; this.setProperty(\rmsColor, color) }
 205
 206   timeCursorColor { ^this.getProperty( \cursorColor ); }
 207   timeCursorColor_ { arg color; this.setProperty( \cursorColor, color ) }
 208
 209   gridColor { ^this.getProperty( \gridColor ) }
 210   gridColor_ { arg color; this.setProperty( \gridColor, color ) }
 211
 212   // actions
 213
 214   metaAction_ { arg action;
 215     this.manageFunctionConnection( metaAction, action, 'metaAction()' );
 216     metaAction = action
 217   }
 218 }