Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @ECHO OFF
- title FF Tone Creator 1.0
- mode con:cols=75 lines=16
- color 4f
- cls
- setlocal enabledelayedexpansion
- REM ========== user input to get video duration
- ECHO.
- ECHO.
- ECHO.
- ECHO Type in video duration:
- set /p duration="
- REM ========== User input to get tone number
- :create_tone
- cls
- title Tone select
- color 70
- ECHO.
- ECHO.
- echo Choose the number tone you want to create
- echo (0) = Zero
- echo (1) = One (4) = Four (7) = Seven
- echo (2) = Two (5) = Five (8) = Eight
- echo (3) = Three (6) = Six (9) = Nine
- echo.
- set /p op=Type option:
- if "%op%"=="1" goto one
- if "%op%"=="2" goto two
- if "%op%"=="3" goto three
- if "%op%"=="4" goto four
- if "%op%"=="5" goto five
- if "%op%"=="6" goto six
- if "%op%"=="7" goto seven
- if "%op%"=="8" goto eight
- if "%op%"=="9" goto nine
- if "%op%"=="0" goto zero
- :one
- set frequency1=697
- set frequency2=1209
- set number=1
- goto previewFreqChoice
- :two
- set frequency1=697
- set frequency2=1336
- set number=2
- goto previewFreqChoice
- :three
- set frequency1=697
- set frequency2=1447
- set number=3
- goto previewFreqChoice
- :four
- set frequency1=770
- set frequency2=1209
- set number=4
- goto previewFreqChoice
- :five
- set frequency1=770
- set frequency2=1336
- set number=5
- goto previewFreqChoice
- :six
- set frequency1=770
- set frequency2=1447
- set number=6
- goto previewFreqChoice
- :seven
- set frequency1=852
- set frequency2=1209
- set number=7
- goto previewFreqChoice
- :eight
- set frequency1=852
- set frequency2=1336
- set number=8
- goto previewFreqChoice
- :nine
- set frequency1=852
- set frequency2=1447
- set number=9
- goto previewFreqChoice
- :zero
- set frequency1=941
- set frequency2=1336
- set number=0
- goto previewFreqChoice
- :previewFreqChoice
- cls
- title Verify Tone
- color 4f
- ECHO.
- ECHO.
- ECHO.
- SET choice=
- SET /p choice1=Is %number% the tone your trying to make? [Y/N]:
- IF NOT '%choice1%'=='' SET choice1=%choice1:~0,1%
- IF '%choice1%'=='Y' GOTO render
- IF '%choice1%'=='y' GOTO render
- IF '%choice1%'=='N' GOTO create_tone
- IF '%choice1%'=='n' GOTO create_tone
- IF '%choice1%'=='' GOTO preview_choice_freq
- ECHO "%choice1%" is not valid
- :preview_choice_freq
- ECHO.
- ECHO You have to type Y or N if this is correct number for your tone
- GOTO previewFreqChoice
- ECHO.
- GOTO previewFreqChoice
- REM =========== finally render video and tone
- :render
- cls
- title Video Rendering
- color 70
- ECHO.
- ECHO.
- ECHO Creating your video now ....
- ECHO.
- set video=%number%_tone_%duration%_seconds.ts
- bin\ffmpeg -hide_banner -loglevel 0 -f lavfi -i "smptebars=duration=%duration%:size=1280x720:rate=60000/1001" -f lavfi -i "sine=frequency=%frequency1%:sample_rate=48000:duration=%duration%" -f lavfi -i "sine=frequency=%frequency2%:sample_rate=48000:duration=%duration%" -filter_complex amerge -vf drawtext="fontfile=/Windows/Fonts/arial.ttf:\ timecode='00\:00\:00\:00':rate=60000/1001:fontsize=64:fontcolor='white':\ boxcolor=0x00000088:box=1:boxborderw=5:x=20:y=20" -c:v libx264 -b:v 6000k -c:a aac -b:a 128k -y "%video%"
- :previewChoice
- cls
- title Video Preview
- color 4f
- ECHO.
- ECHO.
- ECHO.
- SET choice=
- SET /p choice=Do you want to preview the video before exiting [Y/N]:
- IF NOT '%choice%'=='' SET choice=%choice:~0,1%
- IF '%choice%'=='Y' GOTO yes
- IF '%choice%'=='y' GOTO yes
- IF '%choice%'=='N' GOTO no
- IF '%choice%'=='n' GOTO no
- IF '%choice%'=='' GOTO preview_choice
- ECHO "%choice%" is not valid
- :preview_choice
- ECHO.
- ECHO You have to type Y or N to preview or not
- GOTO previewChoice
- ECHO.
- GOTO previewChoice
- :yes
- REM play the preview we made
- bin\ffplay -hide_banner -loglevel 0 -i "%video%" -window_title "FF Preview Player 1.0 - Viewer (powered by FFPlay)" -x 640 -y 480 -sync audio -autoexit -exitonmousedown -autorotate
- :no
- ECHO.
- ECHO Thank you this will close window will close in 3 seconds
- ECHO Goodbye
- ping localhost -n 3 >nul
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement