SCClassLibrary/QtCollider/QSoundFileView.sc

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