/*
How to measure frame count of a time selection:
Move edit cursor to end of time selection.
Manually put in the time.
Go to the start of time selection.
read the value from the last slider.
*/

desc: Read info...

slider1:60<0,120,10>-Seconds in a Minute
slider2:0<0,3,1{30,29.97 NTSC,25 PAL,24}>Frame Rate (fps)
slider3:15<9,30,1>Frames per Beat (fpb)
slider4:0<0,400,0.01>>>> Beats per Minute (BPM)
slider10:0<0,10,1>hours
slider11:0<0,60,1>+ minutes
slider12:0<0,60,0.001>+ seconds
slider13:0<0,2379630,1>>>> frames
slider15:0<0,2379630,1>frames at edit cursor
slider17:0<0,2379630,1>frames minus frames at edit cursor

in_pin:none
out_pin:none

@block

slider2 == 0 ? (
BeatsPerMinute = slider1 * 30 / slider3; 
slider4 = (ceil(BeatsPerMinute*1000))/1000;
sliderchange(slider4);
hms = slider10*60*60+slider11*60+slider12;
Frames = (hms *(slider1/60)) * 30;
slider13 = ceil(Frames);
sliderchange(slider13);
FrameCount = (play_position*(slider1/60)) * 30;
slider15 = ceil(FrameCount);
sliderchange(slider15);
slider17 = ceil(Frames-FrameCount);
);

slider2 == 1 ? (
BeatsPerMinute = slider1 * (30/1.001) / slider3; 
slider4 = (ceil(BeatsPerMinute*1000))/1000;
sliderchange(slider4);
hms = slider10*60*60+slider11*60+slider12;
Frames = (hms *(slider1/60)) * (30/1.001);
slider13 = ceil(Frames);
sliderchange(slider13);
FrameCount = (play_position*(slider1/60)) * (30/1.001);
slider15 = ceil(FrameCount);
sliderchange(slider15);
slider17 = ceil(Frames-FrameCount);
);

slider2 == 2 ? (
BeatsPerMinute = slider1 * 25 / slider3; 
slider4 = (ceil(BeatsPerMinute*1000))/1000;
sliderchange(slider4);
hms = slider10*60*60+slider11*60+slider12;
Frames = (hms *(slider1/60)) * 25;
slider13 = ceil(Frames);
sliderchange(slider13);
FrameCount = (play_position*(slider1/60)) * 25;
slider15 = ceil(FrameCount);
sliderchange(slider15);
slider17 = ceil(Frames-FrameCount);
);

slider2 == 3 ? (
BeatsPerMinute = slider1 * 24 / slider3; 
slider4 = (ceil(BeatsPerMinute*1000))/1000;
sliderchange(slider4);
hms = slider10*60*60+slider11*60+slider12;
Frames = (hms *(slider1/60)) * 24;
slider13 = ceil(Frames);
sliderchange(slider13);
FrameCount = (play_position*(slider1/60)) * 24;
slider15 = ceil(FrameCount);
sliderchange(slider15);
slider17 = ceil(Frames-FrameCount);
);
