Samples, not Seconds
devide seconds by 44100
-pm
On Tue, Feb 14, 2017 at 9:45 PM, Chip Scheide <4d_o...@pghrepository.org>
wrote:
> not sure what you are doing..
> 26655216 is more then 7400 hours
>
> If $Duration is negative then <>StartSampleArray{$i} is larger then the
> next array element value (<>StartSampleArray{$i+1})
>
> Since 26655216 seconds is 7400 hours, or if the the value 26+ million
> is milliseconds is still over 7.4 hours; I suspect that there is a
> data/ data collection problem.
>
>
> On Tue, 14 Feb 2017 21:30:54 +0000, Peter Mew via 4D_Tech wrote:
> > Hi
> > This snippet of code is in a loop, of typically 10 to 20 items.
> > The Array <>StartsampleArray holds the start time, in samples, of the
> > tracks on a CD.
> > It all works fine interpreted, but when compiled, when
> > <>StartSampleArray{$i} exceeds around 26655216 or thereabouts $Duration
> > turns negative, and it all falls over
> > <>StartSampleArray is copied from a Process array earlier in the code,
> > which itself is declared as a longint array
> >
> > $start and $duration are part of a LEP call to Sox to split the
> individual
> > tracks from a complete CD
> > It looks so simple, but why wont it work compiled?
> >
> > Thanks for any guidance
> > -pm
> >
> >
> >
> > $Start:=String(<>StartSampleArray{$i})+"s"
> > If ($i<Size of array(<>StartSampleArray))
> > $trackDur:=<>StartSampleArray{$i+1}-<>startSampleArray{$i}
> > $Duration:=String($trackDur)+"s"
> > Else
> > $lastTrackDur:=<>EndofFileSamples-<>StartSampleArray{$i}
> > $duration:=String($lastTrackDur)+"s"
> > End if
> > **********************************************************************
> > 4D Internet Users Group (4D iNUG)
> > FAQ: http://lists.4d.com/faqnug.html
> > Archive: http://lists.4d.com/archives.html
> > Options: http://lists.4d.com/mailman/options/4d_tech
> > Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
> > **********************************************************************
> ---------------
> Gas is for washing parts
> Alcohol is for drinkin'
> Nitromethane is for racing
>
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:4d_tech-unsubscr...@lists.4d.com
**********************************************************************
