software:musicpdf:dev
MusicPDF development
ToDo:
- If a user installs Neuratron for the first time, but doesn't start the program, then Neuratron will initialize the first time it's started through musicPDF. The problem with this is that the default files appear instead of an empty Pending Pages Pane. → Solution check if these files are there. If not, start Neuratron and stop once, just to make sure everything is initialized then properly. Alternative would be writing specifically information to the 'appdata' dir.
Program source
Please install autoit3 to develop, test and work with the script below.
; MusicPDF, Automatic cleaning and leveling pdf files with Neuratron
; Copyright (C) Oktober 2009 by Marc Nijdam
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>
;
; Contact details: http://www.nijdam.de/marc.html
#requireadmin ; This program should have proper rights to start external applications. Presumably this behaviour requires user admin rights
#include <Constants.au3> ; Used for registry constants like REG_SZ, REG_DWORD etc.
#include <Process.au3>
#include <file.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <Math.au3>
#Include <String.au3>
; Current version of MusicPDF is compatible with PhotoScore version Neuratron PhotoScore Ultimate 6
;
; Requires Imagemagick installation from http://www.imagemagick.org (See over there. Choose the dynamic, 16 bit images version)
; Path environment variable should be pointing to imagemagick, (default installation will add this to the %PATH% environment variable, which is persistant)
; If not there, this script adds the following temporarily: %PROGRAMFILES%\imagemagick
;
; This program requires Ghostscript, which may be installed through Photoscore.
; Path environment variable should be pointing to: %PROGRAMFILES%\gs\gs8.56\bin;%PROGRAMFILES%\gs\gs8.56\lib
;
; This solve a R6034 (AutoIt3 related) error:
; http://www.microsoft.com/downloads/details.aspx?familyid=A5C84275-3B97-4AB7-A40D-3802B2AF5FC2
;
; Nb.:
; Write an environment variable: EnvSet ( "envvariable" [, "value"] )
; ControlClick($parentWindowName,"ViewPages", ,2, 12, 81)
; $CmdLine[0] = number of parameters
; $CmdLine[1] = first parameter
Const $NeuratronVersion = "6.0.0"; For which version is this program written and compatibl with?
Const $Version6 = "6.0.0" ; This is Version 6, released in 2009
Const $ThisProgramVersion = "0.9.3" ; Current release of this software
Const $_ERROR_MissingImageMagickObject = -1
Const $_ERROR_PdfInputFileIsNotValid = -2
Const $_ERROR_NeuratronIsNotInstalled = -3
Const $_ERROR_ShowHelp = -4
Const $_ERROR_PdfImageSizeTooLarge = -5
Const $_ERROR_MissingSavedNeuratronPrefs = -6
Const $_ERROR_SavedNeuratronPrefsFileCorrupt = -7
Const $_ERROR_WrongNeuratronVersion = -8
Const $_ERROR_CannotFindGhostscript = -9
Const $_ERROR_imagemagickNotInstalled = -10
Const $_ERROR_Need_ImageMagickObject_OLE = -11
Const $_ERROR_MSVisualCPlusPlus2008RedistNotInstalled = -12
Const $Gui_Title = "PDF Sheetmusic raw scan Processor"
Const $Gui_Xpos = 140
Const $Gui_Ypos = 23
Const $Gui_Width = 518
Const $Gui_Height = 200
Const $Gui_Border = 15
Const $Gui_HeightButton = 20
Const $Gui_WidthButton = 75
Const $Gui_WidthSlider = 20
Const $img_uniquename = "Neuratron6AU3_" ; Unique leading part of filename for temporary files
Const $img_width = 2480 ; constant in pixels, defining what the page width may be at most when portrait modus is used
Const $img_height = 3508 ; constant in pixels, defining what the page height may be at most when portrait modus is used
Const $resolution = 300 ; Resolution in dpi
Const $img_dims[2] = [$img_width,$img_height] ; landscape modus swaps both variables
Const $rastering = 72 ; PDF rastering value
Const $pdf_dims[2] = [String(Int(($rastering*$img_width/$resolution)+0.5)),String(Int(($rastering*$img_height/$resolution)+0.5))] ; Array holding pdf rastering sizes a4 should be 595x842
Dim $max_dims[2] ; Array holding the largest found dimension (horizontal,vertical)
Dim $this_dims[2] ; Array holding the actual dimension (horizontal,vertical)
Const $img_empty_name = AddSlash(@TempDir) & $img_uniquename & "_temp.tif"
Const $Pdf_tmp_FileName = AddSlash(@TempDir) & $img_uniquename & "Processed.pdf" ; temporary filename which is used when something had been preprocessed.
Const $QQ = '"'
Const $SQ = "'"
Dim $szDrive, $szDir, $szFName, $szExt
Dim $i , $j
Const $X_firstItem_Sel = 1 ; neuratron buttons window positions
Const $X_firstItem_Del = 2 ; neuratron buttons window positions
Const $Y_firstItem = 3 ; neuratron buttons window positions
Const $NeuratronDelay = 10 ; loop is breaked when it runs for more than 10 seconds
Const $Pdf_ListOfFiles2Proces = AddSlash(@TempDir) & $img_uniquename & "list.txt" ; Maintaing a list with all pdf pages for concatenating.
Const $reg_filename = AddSlash(@TempDir) & $img_uniquename & "RegfilePreferences.csv"
Dim $Param_Command
Const $Neuratron_RegHive1 = "HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate" ; Settings for saving Neuratron preferences before overwriting this with specific settings
Const $Neuratron_RegHive2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Neuratron\PhotoScore\ApplicationPath" ; HKLM path Neuratron
Const $Neuratron_RegGlobalSettings = "Global settings"
Const $Neuratron_RegGeneralSettings = "General settings"
Const $Neuratron_PagesIndexFile = @AppDataDir & "\Neuratron\MusicPages_v5\!Index" ; Folder containing Neuratron Application Settings from user
Const $Neuratron_PendingPagesCleared = "FE,FF,FF,0F,03,00,00,00,00,03,80,04,00" ; The file !Index should contain these bytes to show an empty list of pages
Const $original = 1 ; Selector for location of PendingPagesPreferences
Const $temporary = 2 ; Selector for location of PendingPagesPreferences
Const $MSVC_2008_Redist_RegHive = "HKEY_CLASSES_ROOT\Installer\Products\D20352A90C039D93DBF6126ECE614057" ; Magic key to find whether Microsoft Visual C++ 2008 SP1 is installed
Const $MSVC_2008_Redist_Key = "PackageCode" ; Magic key to find whether Microsoft Visual C++ 2008 SP1 is installed
Const $Ghostscript_name = "gs\gs" ; unique string to search for in %PATH% whether Ghostscript is installed or not
Const $imagemagick_name = "imagemagick" ; unique string to search for in %PATH% whether ImageMagick is installed or not
SetEnvironmentPath(Find_Ghostscript_Path("HKEY_LOCAL_MACHINE\SOFTWARE\GPL Ghostscript","GS_LIB"),$Ghostscript_name) ; retreive path from gs which should be added to %PATH% if it's not there already
SetEnvironmentPath(Find_imagemagick_Path("HKEY_LOCAL_MACHINE\SOFTWARE\ImageMagick\Current","BinPath"),$imagemagick_name) ; retreive path from imagemagick which should be added to %PATH% if it's not there already
; Check installation
If Not Neuratron_IsInstalled($Neuratron_RegHive2, "") Then ShowError($_ERROR_NeuratronIsNotInstalled)
If Not Find_MS_Visual_C_PlusPlus_2008_SP1_Redist($MSVC_2008_Redist_RegHive, $MSVC_2008_Redist_Key) Then ShowError($_ERROR_MSVisualCPlusPlus2008RedistNotInstalled)
If Not FileExists(Find_imagemagick_Path("HKEY_LOCAL_MACHINE\SOFTWARE\ImageMagick\Current","BinPath") & "\ImageMagickObject.dll") Then ShowError ($_ERROR_Need_ImageMagickObject_OLE)
If Not FileExists(@SystemDir & "\ImageMagickObject.dll") Then FileInstall("ImageMagickObject.dll",@SystemDir&"\ImageMagickObject.dll",0)
If Not ObjectIsRegistered("HKEY_CLASSES_ROOT\ImageMagickObject.MagickImage\CurVer", "") Then RunWait(@ComSpec & " /c regsvr32 /s MagickObject.dll",@SystemDir,@SW_HIDE)
Dim $oIMG=ObjCreate("ImageMagickObject.MagickImage.1")
If Not IsObj($oIMG) Then ShowError ($_ERROR_MissingImageMagickObject)
; Parse program start options
If @Compiled == 0 Then ; $envDebug == True means Program runs in Debug mode
; Dim $Pdf_InputFile = "Neuratron_Global_Settings.reg" ; Not a pdf file
; Dim $Pdf_InputFile = "test_empty.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_bwpages.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_4_pages_oversized_grey.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_4_pages_oversized_mix.pdf"
; Dim $Pdf_InputFile = "test_1_page_oversized_grey.pdf"
; Dim $Pdf_InputFile = "test_bw.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_6 pages.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_Manual.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_text.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_bwpages_tilted.pdf" ; inputfile
; Dim $Pdf_InputFile = "test_color.pdf"
; Dim $Pdf_InputFile = "test_largeBW.pdf"
; Dim $Pdf_InputFile = "test_2_pages_landscape.pdf" ; inputfile
Dim $Pdf_InputFile = "test_2_pages_landscape_oversized.pdf" ; inputfile
Dim $Pdf_OutputFile = "test_Processed.pdf" ; outputfile
$Pdf_InputFile = AddSlash(@WorkingDir) & $Pdf_InputFile ; Add absolute path to filename.
Else ; Program runs in normal mode
If $CmdLine[0] == 0 Then
ShowError ($_ERROR_ShowHelp)
; $InputFile=FileOpenDialog("Select a .pdf file to open", "","PDF files (*.pdf)")
; IF @error or NOT FileExists($InputFile) Then Exit
EndIf
Switch $CmdLine[0]
Case 1
Dim $Pdf_InputFile = $CmdLine[1] ; inputfile
_PathSplit($Pdf_InputFile, $szDrive, $szDir, $szFName, $szExt)
Dim $Pdf_OutputFile = '"' & $szDrive & $szDir & $szFName & "_Processed" & $szExt & '"'; outputfile
Case 2
Dim $Pdf_InputFile = $CmdLine[1] ; inputfile
Dim $Pdf_OutputFile = $CmdLine[2] ; outputfile
Case Else
ShowError ($_ERROR_ShowHelp)
EndSwitch
EndIf
; Create GUI window with console like output
Opt("GUIOnEventMode", 1); GUI should be in OnEvent Mode, otherwise our cancelbutton event is not captured
HotKeySet("{Esc}", "CancelButton"); Pressing the Escape button cancels operation
GUICreate($Gui_Title,$Gui_Width,$Gui_Height,$Gui_Xpos,$Gui_Ypos) ; will create a dialog box that when displayed is centered
$nEdit = GUICtrlCreateEdit ("",$Gui_Border,$Gui_Border,$Gui_Width-$Gui_Border-$Gui_WidthSlider,$Gui_Height-$Gui_Border-2*$Gui_HeightButton, BitOr($ES_AUTOVSCROLL,$ES_READONLY,$ES_MULTILINE))
GUICtrlSetBkColor($nEdit, 0xffffff)
$hButton = GUICtrlCreateButton ("Cancel", ($Gui_Width-$Gui_WidthButton)/2,$Gui_Height-$Gui_HeightButton*1.5, $Gui_WidthButton, $Gui_HeightButton)
GUICtrlSetOnEvent($hButton, "CancelButton") ; Function executed when cancel button is pressed
GUISetState()
; Open pdf document with ghostview and find number of pages given that it's a valid file.
Dim $Path = $QQ & $Pdf_InputFile & $QQ
GUICtrlSetData($nEdit, "Opening " & $Pdf_InputFile & @CRLF & @CRLF, 1)
GUICtrlSetData($nEdit, "Analyzing document..." & @CRLF, 1)
$Param_Command = $Path & " " & _ ; Use pdf2dsc to find out the number of pages. E.g. %%Pages: 1
$QQ & AddSlash(@TempDir) & $img_uniquename & "info.dsc" & $QQ
_RunDos("pdf2dsc " & $Param_Command)
$Param_Command = OpenFileAndGrep(AddSlash(@TempDir) & $img_uniquename & "info.dsc", "%%Pages:")
If Not $Param_Command Then ; The supplied file is not an pdf file, exit program
ShowError ($_ERROR_PdfInputFileIsNotValid)
EndIf
FileDelete(AddSlash(@TempDir) & $img_uniquename & "info.dsc")
Const $PdfPagesCount = Number(StringReplace($Param_Command, "%%Pages: ", ""))
GUICtrlSetData($nEdit, "->Found " & Number($PdfPagesCount) & " Page(s)" & @CRLF, 1)
; ##############################################################################################################
; # Preprocessing scanned pages
; # Extract all pages from a pdf document to single pdf files
; # Convert single pdf files to tiff files
; # If a page is a black and white image, it will be converted to grey with some extra added blurring to
; # improve rotation.
; # If size of one of these pages exceeds the size defined in $img_width and $img_height, all pages will be
; # rescaled to fit within the boundaries set.
; #
; # Possible values from extracted page from ImageMagick -Identify command are:
; # color: C:\DOCUME~1\admin\LOCALS~1\Temp\Neuratron6AU3_001.pdf PDF 612x792 612x792+0+0 16-bit DirectClass 1.387mb
; # Grayscale: C:\DOCUME~1\admin\LOCALS~1\Temp\Neuratron6AU3_001.pdf PDF 541x775 541x775+0+0 16-bit Grayscale DirectClass 410kb
; # Black & White: C:\DOCUME~1\admin\LOCALS~1\Temp\Neuratron6AU3_001.pdf PDF 541x775 541x775+0+0 16-bit Bilevel DirectClass 51.5kb
; # Empty pages, holding no data, give no output from the Identify command
; ##############################################################################################################
Dim $PagesStats
GUICtrlSetData($nEdit, @CRLF & "Extracting single pages from PDF document..." & @CRLF, 1)
$max_dims[0] = $img_dims[0]
$max_dims[1] = $img_dims[1]
Dim $img_dimensions
Dim $img_scale = False ; False means scaling is not necessary, because image fits within $img_width and $img_height
Dim $img_greyconverted = False ; False means image has not been converted from black and white to grey scale
Dim $PaperOrientation[$PdfPagesCount] ; Store page orientation for each page, 0 means portrait, 1 means landscape
; Extract all pages from document to single pdf pages
for $i = 1 To $PdfPagesCount
GUICtrlSetData($nEdit, "->Extracting page " & Number($i) & " out of " & Number($PdfPagesCount) & @CRLF, 1)
$ThisFileName = AddSlash(@TempDir) & $img_uniquename & Number($i) & ".pdf"
$ThatFileName = AddSlash(@TempDir) & $img_uniquename & Number($i) & ".tif"
; From pdf file extract a single pdf page (as pdf)
$Param_Command = $QQ & "-sDEVICE=pdfwrite" & $QQ & " " & _ ; Ghostview command to extract a single page from a pdf file.
$QQ & "-dNOPAUSE" & $QQ & " " & _
$QQ & "-dQUIET" & $QQ & " " & _
$QQ & "-dBATCH" & $QQ & " " & _
$QQ & "-dAutoFilterGrayImages=false" & $QQ & " " & _
$QQ & "-dGrayImageFilter=/LZWEncode" & $QQ & " " & _ ; To prevent jpeg artifects add -dAutoFilterGrayImages=false -dGrayImageFilter=/LZWEncode
$QQ & "-dFirstPage=" & Number($i) & $QQ & " " & _
$QQ & "-dLastPage=" & Number($i) & $QQ & " " & _
$QQ & "-sOutputFile=" & $ThisFileName & $QQ & " " & _
$QQ & $Pdf_InputFile & $QQ
_RunDos("gswin32c " & $Param_Command)
; Convert pdf to tiff.
; If image is black and white convert it to grey level with some gaussian blurring.
$PagesStats = DOSResult("Identify " & $ThisFileName) ; ImageMagick command to retreive image properties
If StringInStr($PagesStats, "Bilevel") Then ; If a page is only black and white color, convert it to grey with some gaussian blurring
GUICtrlSetData($nEdit, "-->Converting page " & Number($i) & " out of " & Number($PdfPagesCount) & " to grey" & @CRLF, 1)
$oIMG.Convert("-density",String($resolution), $ThisFileName, "-depth", "8", "-compress", "LZW", $ThatFileName)
$oIMG.Mogrify("-gaussian-blur","1x0.5", $ThatFileName) ; Perform gaussian blur to improve ability to rotate, value found experimentally
$img_greyconverted = True
Else
$oIMG.Convert("-density",String($resolution), $ThisFileName, $ThatFileName)
EndIf
FileDelete($ThisFileName); Delete pdf file, because we don't need it anymore.
; Check whether image exceeds size limit.
$Param_Command = "-format " & $QQ & "%[fx:w]x%[fx:h]" & $QQ & " " & _ ; ImageMagick command to find page dimensions
$QQ & $ThatFileName & $QQ
$img_dimensions = DOSResult("Identify " & $Param_Command)
$this_dims[0] = Number(StringRegExpReplace($img_dimensions, "([0-9]+)x([0-9]+)", "$1")) ; From string holding dimensions (for example "1800x1600") extract first number
$this_dims[1] = Number(StringRegExpReplace($img_dimensions, "([0-9]+)x([0-9]+)", "$2")) ; From string holding dimensions (for example "1800x1600") extract second number
If $this_dims[0] <= $this_dims[1] Then ; Normal portrait modus.
$PaperOrientation[$i-1] = 0
Else
GUICtrlSetData($nEdit, "-->(Page " & Number($i) & " has paper orientation set to landscape)" & @CRLF, 1)
$PaperOrientation[$i-1] = 1
EndIf
; $this_dims[$PaperOrientation[$i-1]] is always the short side
; $this_dims[1-$PaperOrientation[$i-1]] is always the long side
; $max_dims[0] carries always the maximum of the shorter side
; $max_dims[1] carries always the maximum of the longer side
; $j = 0 -> find the widest page for the short side
; $j = 1 -> find the longest page for the long side
; The BitXOR function will output only a logical 1 of two arguments are different.
For $j = 0 To 1
If $this_dims[BitXOR($j,$PaperOrientation[$i-1])] > $max_dims[$j] Then ; From string holding dimensions (for example "1800x1600") extract first number
$max_dims[$j] = $this_dims[BitXOR($j,$PaperOrientation[$i-1])]
$img_scale = True ; Image doesn't fit; scaling will be necessary
EndIf
Next
Next
; # If there were one or more images exceeding size limit, scale them all with the same percentage.
If $img_scale Then
Dim $resize_scale = Calc_scalingfactor($max_dims[0],$max_dims[1],$img_dims[0],$img_dims[1]); calculate scaling percentage portrait: [0],[1] Landscape: [1],[0]
If $resize_scale < 50 Then
; Remove previous orphans
For $i = 1 To $PdfPagesCount ; Delete all files we don't need anymore
If FileExists(AddSlash(@TempDir) & $img_uniquename & Number($i) & ".tif") Then FileDelete(AddSlash(@TempDir) & $img_uniquename & Number($i) & ".tif")
Next
ShowError($_ERROR_PdfImageSizeTooLarge) ; Resizing to less than 50 % is kind of silly.
EndIf
GUICtrlSetData($nEdit, @CRLF & "Some pages exceed maximum size." & @CRLF & "Reducing page size to " & $resize_scale & "% ..." & @CRLF, 1)
For $i = 1 To $PdfPagesCount ; Delete all files we don't need anymore
GUICtrlSetData($nEdit, "->Resizing page " & Number($i) & " out of " & Number($PdfPagesCount) & @CRLF, 1)
$oIMG.Mogrify("-resize", $resize_scale & "%", AddSlash(@TempDir) & $img_uniquename & Number($i) & ".tif") ; ImageMagick command to find page dimensions
Next
EndIf
If $img_greyconverted or $img_scale Then
GUICtrlSetData($nEdit, @CRLF & "Some image processing had been done." &@CRLF & "Recreating pdf file..." & @CRLF, 1)
If FileExists($Pdf_ListOfFiles2Proces) Then FileDelete($Pdf_ListOfFiles2Proces) ; Empty this file before adding filenames as text to it. Will be used to merge several pdf files into one.
$FHandle = FileOpen($Pdf_ListOfFiles2Proces,1) ; $Pdf_ListOfFiles2Proces is a text file containg file names. (1 = Write mode append to the end of file)
for $i = 1 To $PdfPagesCount
$oIMG.Convert("","-size", String($img_dims[$PaperOrientation[$i-1]]) & "x" & String($img_dims[1-$PaperOrientation[$i-1]]), "xc:white", "-depth", "16", $img_empty_name) ; create one empty page with a4 size
GUICtrlSetData($nEdit, "->Converting page " & Number($i) & " out of " & Number($PdfPagesCount) & " to pdf" & @CRLF, 1)
$SourceFile = AddSlash(@TempDir) & $img_uniquename & Number($i)
; Note that the Composite command generates a black and white canvas, therefore the resulting image may lose also any bit depth. Not a problem here, but it's just important to realise this.
$oIMG.Composite($SourceFile & ".tif", "-density", String($resolution), "-units", "PixelsPerInch", "-compose", "atop", "-gravity", "Center", $img_empty_name, $SourceFile & "_temp.tif")
$oIMG.Convert("-density",String($rastering),"-units", "PixelsPerInch", $SourceFile & "_temp.tif", "-page", $pdf_dims[$PaperOrientation[$i-1]] & "x" & $pdf_dims[1-$PaperOrientation[$i-1]] & "+0+0", "ps:" & $SourceFile & ".ps")
_RunDos("gswin32c -sDEVICE=pdfwrite -dNOPAUSE -dQUIET -dBATCH -dAutoFilterGrayImages=false -dGrayImageFilter=/LZWEncode -sOutputFile=" & $SourceFile & ".pdf" & " -dDEVICEWIDTHPOINTS=" & $pdf_dims[$PaperOrientation[$i-1]] & " -dDEVICEHEIGHTPOINTS=" & $pdf_dims[1-$PaperOrientation[$i-1]] & " " & $SourceFile & ".ps")
FileWriteLine($FHandle,$SourceFile & ".pdf" & @CRLF)
FileDelete($SourceFile & "_temp.tif")
FileDelete($SourceFile & ".ps")
FileDelete($SourceFile & ".tif")
Next
FileDelete($img_empty_name)
FileClose($FHandle)
GUICtrlSetData($nEdit, @CRLF & "Merging " & Number($PdfPagesCount) & " page(s) into one document." & @CRLF, 1)
; # Merge all pdf files into one pdf file
MergePDF($Pdf_tmp_FileName, $Pdf_ListOfFiles2Proces)
Else
for $i = 1 To $PdfPagesCount ; Delete all files we don't need anymore
FileDelete(AddSlash(@TempDir) & $img_uniquename & Number($i) & ".tif")
Next
EndIf
; ##############################################################################################################
; # Neuratron processing
; #
; ##############################################################################################################
; Save Preferences from Neuratron
SaveNeuratronPrefs()
; Overwrite Preferences with custom values
SetNeuratronPrefs()
RemoveSomeTempFiles() ; Before writing to temp directory with files, first remove possible reminiscents
; Neuratron 6 specific details like its Window Name. Execute the program as well.
; the title of the window
$parentWindowName = "Neuratron PhotoScore Ultimate 6"
; the name of the application to run
Const $programRunName = "C:\Program Files\Neuratron PhotoScore Ultimate\Neuratron PhotoScore.exe"
; run the application
GUICtrlSetData($nEdit, @CRLF & "Starting Neuratron PhotoScore Ultimate 6" & @CRLF, 1)
run($programRunName)
WinWaitNotActive ($Gui_Title) ; wait for Neuratron to become initialized
sleep(250)
; wait until the window is showing, time out in 3 secs
WinWaitActive($parentWindowName,"",3)
; get the handle of the window
; $mainHwnd = WinGetHandle($parentWindowName)
; open pdf file ...
GUICtrlSetData($nEdit, "Open document in Neuratron..." & @CRLF, 1)
Send("!f")
WinWaitActive($parentWindowName,"",5)
Send("n")
WinWaitActive("Open","",5) ; Wait for the Open window to become active
; # If there had been no processing before, we can send the original file, otherwise send the processed file.
If $img_greyconverted or $img_scale Then
Const $Pdf2Open = $Pdf_tmp_FileName
Else
Const $Pdf2Open = $Pdf_InputFile
EndIf
Send($Pdf2Open)
Send("{ENTER}")
WinWaitNotActive("Open","",4) ; Wait for the Open window to dissapear
;WinWaitActive($parentWindowName,"",6)
_PathSplit($Pdf2Open, $szDrive, $szDir, $szFName, $szExt)
;WinWaitActive("Processing " & $SQ & $szFName & $szExt & $SQ & "...","",5)
WinWaitActive("Processing ","",8)
; ... and confirm 300 dpi resolution
Send("{ENTER}")
; Now wait for Progress Report window to get finished
WinWaitNotActive("Processing","",8)
GUICtrlSetData($nEdit, "Waiting for Neuratron image processing..." & @CRLF, 1)
; Check whether Windowfocus is stable: Count timer, reset if window is not active and exitloop if timer exceeds $NeuratronDelay.
;WinWaitActive($parentWindowName,"",8)
$begin = TimerInit()
While 1
If Not WinActive($parentWindowName) Then $begin = TimerInit()
If TimerDiff($begin)/1000 > $NeuratronDelay Then ExitLoop
WEnd
WinWaitActive($parentWindowName,"",8)
; move slider to the top.
Opt("MouseCoordMode", 0)
Opt('PixelCoordMode', 0)
$POS = ControlGetPos($parentWindowName, "", "")
$x1 = $POS[0]
$y1 = $POS[1]
for $i = 1 To $PdfPagesCount
MouseClick("left", $x1-9, $y1+50, 1)
Next
;doubleclick on first page
Opt("MouseCoordMode", 0)
Opt('PixelCoordMode', 0)
$POS = ControlGetPos($parentWindowName, "", "")
$x1 = $POS[0]
$y1 = $POS[1]
MouseClick("left", $x1-NeuratronObjPos($X_firstItem_Sel) , $y1+NeuratronObjPos($Y_firstItem) , 2)
Sleep(1000)
; save from all pdf pages, each image as tiff ...
for $i = 1 To $PdfPagesCount
GUICtrlSetData($nEdit, "->Saving page " & Number($i) & " out of " & Number($PdfPagesCount) & @CRLF, 1)
Send("!f"); Send Save as... tiff command
sleep(400)
Send("a")
sleep(400)
Send(AddSlash(@TempDir) & $img_uniquename & $i)
Send("!s")
sleep(400)
If $i < $PdfPagesCount Then ; last time clicking is not needed
MouseClick("left", $x1+178, $y1+50, 1)
$begin = TimerInit()
While Not WinActive($parentWindowName)
if TimerDiff($begin)/1000 > $NeuratronDelay Then
ExitLoop
EndIf
WEnd
WinWaitActive($parentWindowName, "", 4)
MouseClick("left", $x1+178, $y1+72, 1) ; Click one time extra on the window with the staves. Otherwise keyboard shortcuts don't work. This seems a bug to me...
EndIf
Next
; Go to the first page in order to delete
for $i = 1 To $PdfPagesCount
MouseClick("left", $x1-9, $y1+50, 1)
Next
; delete pdf pages from batch in Neuratron
for $i = 1 To $PdfPagesCount
GUICtrlSetData($nEdit, "->Removing page " & Number($i) & " out of " & Number($PdfPagesCount) & @CRLF, 1)
MouseClick("left", $x1-NeuratronObjPos($X_firstItem_Del) , $y1+NeuratronObjPos($Y_firstItem) , 1)
sleep(800)
MouseClick("left", $x1-NeuratronObjPos($X_firstItem_Del)-2 , $y1+NeuratronObjPos($Y_firstItem) , 1)
Send("y")
sleep(300)
Next
GUICtrlSetData($nEdit, "Exiting Neuratron" & @CRLF & @CRLF, 1)
Send("!f")
sleep(400)
Send("x")
RevertNeuratronPrefs()
; #################################################################################################################
; # Finished with Neuratron
; #################################################################################################################
; Below is for portrait paper orientation:
; Convert each tiff page to a pdf page.
; Convert -size 2480x3508 xc:white miff:-
; composite -density 300 -units PixelsPerInch -compose atop -gravity Center /tmp/$ptmpf.pbm - miff:-
; convert -monochrome -density 300 -units PixelsPerInch - ps:-
; ps2pdf13 -sPAPERSIZE=a4 - "/tmp/$ptmpf-$nmb.pdf"
;
; There is a problem with ImageMagick writing directly to pdf, not outputting in the proper colorspace (grey instead of black and white). A solution is to write first to ps and then use ps2pdf.
; The solution to specify the page size is done with the following example:
; gswin32c.exe -sDEVICE=pdfwrite -dNOPAUSE -dQUIET -dBATCH -sOutputFile=outgsr.pdf -dDEVICEWIDTHPOINTS=842 -dDEVICEHEIGHTPOINTS=595 outr.ps
; See: http://www.groupsrv.com/computers/about63231.html
If FileExists($Pdf_ListOfFiles2Proces) Then
FileDelete($Pdf_ListOfFiles2Proces)
EndIf
$FHandle = FileOpen($Pdf_ListOfFiles2Proces,1) ; Write mode append to the end of file
GUICtrlSetData($nEdit, "Converting and combining images to PDF" & @CRLF, 1)
for $i = 1 To $PdfPagesCount
$oIMG.Convert("","-size", String($img_dims[$PaperOrientation[$i-1]]) & "x" & String($img_dims[1-$PaperOrientation[$i-1]]), "xc:white", $img_empty_name) ; create one empty page with a4 size
GUICtrlSetData($nEdit, "->Converting page " & Number($i) & " out of " & Number($PdfPagesCount) & @CRLF, 1)
$SourceFile = AddSlash(@TempDir) & $img_uniquename & Number($i)
$oIMG.Composite($SourceFile & ".tif", "-density", String($resolution), "-units", "PixelsPerInch", "-compose", "atop", "-gravity", "Center", $img_empty_name, $SourceFile & "_temp.tif")
$oIMG.Convert("-monochrome", "-density",String($rastering),"-units", "PixelsPerInch", $SourceFile & "_temp.tif", "-page", $pdf_dims[$PaperOrientation[$i-1]] & "x" & $pdf_dims[1-$PaperOrientation[$i-1]] & "+0+0", "ps:" & $SourceFile & ".ps")
_RunDos("gswin32c -sDEVICE=pdfwrite -dNOPAUSE -dQUIET -dBATCH -sOutputFile=" & $SourceFile & ".pdf" & " -dDEVICEWIDTHPOINTS=" & $pdf_dims[$PaperOrientation[$i-1]] & " -dDEVICEHEIGHTPOINTS=" & $pdf_dims[1-$PaperOrientation[$i-1]] & " " & $SourceFile & ".ps")
FileWriteLine($FHandle,$SourceFile & ".pdf" & @CRLF)
FileDelete($SourceFile & ".tif")
FileDelete($SourceFile & ".ps")
FileDelete($SourceFile & "_temp.tif")
Next
FileDelete($img_empty_name)
If $img_greyconverted or $img_scale Then FileDelete($Pdf_tmp_FileName)
FileClose($FHandle)
GUICtrlSetData($nEdit, @CRLF & "Merging " & Number($PdfPagesCount) & " page(s) into one document." & @CRLF, 1)
MergePDF(UniqueFileName($Pdf_OutputFile) ,$Pdf_ListOfFiles2Proces)
Sleep(1500)
GUIDelete()
Exit
; ##############################################################################################################
; # Below are functions etc.
; #
; ##############################################################################################################
Func DOSResult(Const $DR_LINE)
_RunDOS($DR_LINE & " > " & @TempDir & "\DosResult.txt") ;==> Did you take into consideration the working path?
Local $DR_FILE = FileOpen(@TempDir & "\DosResult.txt",0)
Local $DR_RESULT = FileRead($DR_FILE)
FileDelete(@TempDir & "\DosResult.txt")
FileClose($DR_FILE)
Return $DR_RESULT
EndFunc
; merge pdf pages into one pdf page and deletes intermediate files
Func MergePDF(Const $PDFFILE, Const $PDFFILE_list)
_RunDos("gswin32c -sDEVICE=pdfwrite -dNOPAUSE -dQUIET -dBATCH -dAutoFilterGrayImages=false -dGrayImageFilter=/LZWEncode -sOutputFile=" & $PDFFILE & " " & "@" & $PDFFILE_list)
FileDelete(@TempDir & "\" & $img_uniquename & "???.pdf") ; Delete only pdf files whose name contain an index.
FileDelete($PDFFILE_list)
EndFunc
; Opens a file and returns a line which contains a specified keyword
Func OpenFileAndGrep(Const $OFAG_path,Const $OFAG_query)
Local $OFAG_file = FileOpen($OFAG_path,0)
Local $OFAG_result = FileRead($OFAG_file)
FileClose($OFAG_file)
If $OFAG_result = "" Then ; If string is empty, return empty string as well
Return
Else
Local $OFAG_q = ""
Local $OFAG_stdinArray = StringSplit($OFAG_result, @LF, 1) ; put read data, separated by LineFeed characters, in an array
Local $OFAG_i
For $OFAG_i In $OFAG_stdinArray
If StringInStr($OFAG_i,$OFAG_query) Then
$OFAG_q &= $OFAG_i
ExitLoop
EndIf
Next
EndIf
return $OFAG_q
EndFunc
; Find scaling factor to a4
Func Calc_scalingfactor(Const $img_width, Const $img_height, Const $img_width_max, Const $img_height_max)
Local $scaleimgfactor_hor = 1
Local $scaleimgfactor_vert = 1
If $img_width > $img_width_max Then
$scaleimgfactor_hor = ($img_width_max) / $img_width
EndIf
If $img_height > $img_height_max Then
$scaleimgfactor_vert = ($img_height_max) / $img_height
EndIf
Return Int((_Min( $scaleimgfactor_hor, $scaleimgfactor_vert ))*100) ; Scalingfactor is between 0 and 100; 100 means no change.
EndFunc
; This function writes all registry keys, values and types from a certain path to a ".csv" file. If $file_append == true, data will not be overwritten but appended.
Func reg2file(Const $reg_string,Const $reg_filename,Const $file_append)
Local $i = 1
Local $var_read ; Variable which reads the data from a key
Local $var_read_stringed ; Variable which is used after conversion to string
Local $var_read_type ; Sort of registry entry : REG_SZ, REG_DWORD etc.
Local $var_read_new ; Flag which prohibits invalid data written to file
Local $FHandle
Local $var
If Not $file_append And FileExists($reg_filename) Then
FileDelete($reg_filename)
EndIf
$FHandle = FileOpen($reg_filename,1) ; Write mode append to the end of file
While 1
$var = RegEnumVal($reg_string, $i)
If @error <> 0 Then ExitLoop
$var_read = RegRead($reg_string , $var)
$var_read_new = True
Switch @extended
Case $REG_NONE ;
$var_read_stringed = $var_read
$var_read_type = "REG_NONE"
Case $REG_SZ ;
$var_read_stringed = String($var_read) ; This code does not take into account unicode aspects. ToDo
$var_read_type = "REG_SZ"
Case $REG_EXPAND_SZ;
$var_read_stringed = $var_read
$var_read_type = "REG_EXPAND_SZ"
Case $REG_BINARY ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_BINARY"
Case $REG_DWORD ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_DWORD"
Case $REG_DWORD_BIG_ENDIAN ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_DWORD_BIG_ENDIAN"
Case $REG_LINK ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_LINK"
Case $REG_MULTI_SZ ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_MULTI_SZ"
Case $REG_RESOURCE_LIST ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_RESOURCE_LIST"
Case $REG_FULL_RESOURCE_DESCRIPTOR ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_FULL_RESOURCE_DESCRIPTOR"
Case $REG_RESOURCE_REQUIREMENTS_LIST ;
$var_read_stringed = String($var_read)
$var_read_type = "REG_RESOURCE_REQUIREMENTS_LIST"
Case Else
$var_read_new = False
EndSwitch
FileWriteLine($FHandle,$QQ & $reg_string & $QQ & "," & $QQ & $var & $QQ & "," & $QQ & $var_read_type & $QQ & "," & $QQ & $var_read_stringed & $QQ & @CRLF)
; ConsoleWrite($var & @CRLF & " " & $var_read & @CRLF & " Type: " & @extended & @CRLF)
$i+=1 ; Increase i with 1
WEnd
FileClose($FHandle)
Return
EndFunc
; This function reads a file with saved registry settings from a certain path. For safety reasons it will only overwrite keys which are already present
Func file2reg_read_mod_write(Const $reg_filename)
Local $i = 1
Local $file_line ; read line from a file
Local $var_read ; Variable which reads the data from a key
Local $var_read_stringed ; Variable which is used after conversion to string
Local $var_read_type ; Sort of registry entry : REG_SZ, REG_DWORD etc.
Local $FHandle
Local $csv[4] ; This array will hold a line with csv data
If Not FileExists($reg_filename) Then
ShowError ($_ERROR_MissingSavedNeuratronPrefs)
EndIf
$FHandle = FileOpen($reg_filename,0) ; Read mode
While 1
$file_line = FileReadLine($FHandle)
If @error <> 0 Then ExitLoop
ReDim $csv = StringRegExp($file_line & ",", '(".*?",|.*?,|,)', 3) ; Idea from http://www.autoitscript.com/forum/index.php?showtopic=36785
If UBound($csv) == 4 Then ; Make sure we read 4 elements, otherwise our data is not valid
; Remove trailing comma and surrounding quotes
For $i = 0 To 3
If StringLen($csv[$i]) > 0 Then
$csv[$i] = StringTrimLeft(StringTrimRight($csv[$i],2),1)
EndIf
Next
If RegRead( $csv[0], $csv[1]) == "" And @error <> 0 Then
; ConsoleWrite("Can't find original data, skipping this one." & @CRLF)
Else
; $csv[0] contains the path. E.g. HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings
; $csv[1] contains the key. E.g. Detail width
; $csv[2] contains the value. E.g. 132
; $csv[3] contains the type. E.g. REG_DWORD
; Currently only REG_SZ, REG_BINARY, REG_DWORD are supported
Switch $csv[2]
Case "REG_NONE"
Case "REG_SZ"
RegWrite($csv[0],$csv[1],$csv[2],$csv[3])
Case "REG_EXPAND_SZ"
Case "REG_BINARY"
RegWrite($csv[0],$csv[1],$csv[2],Binary($csv[3]))
Case "REG_DWORD"
RegWrite($csv[0],$csv[1],$csv[2],Int($csv[3]))
Case "REG_DWORD_BIG_ENDIAN"
Case "REG_LINK"
Case "REG_MULTI_SZ"
Case "REG_RESOURCE_LIST"
Case "REG_FULL_RESOURCE_DESCRIPTOR"
Case "REG_RESOURCE_REQUIREMENTS_LIST"
Case Else
EndSwitch
EndIf
Else
FileClose($FHandle)
ShowError ($_ERROR_SavedNeuratronPrefsFileCorrupt)
EndIf
WEnd
FileClose($FHandle)
Return
EndFunc
; This saves the registry contents which contains Neuratron personal settings to a file.
Func SaveNeuratronPrefs()
If Not FileExists($reg_filename) Then ; Program started with still some temporarily Neuratron preferences setting present. The file should have been deleted last time, but since it is there we will use it.
reg2file(AddSlash($Neuratron_RegHive1) & $Neuratron_RegGlobalSettings,$reg_filename,False) ; False means data will not be appended but newly written
reg2file(AddSlash($Neuratron_RegHive1) & $Neuratron_RegGeneralSettings,$reg_filename,True) ; True means data will be appended.
EndIf
SaveNeuratronAppDirSettings()
Return
EndFunc
; This overwrites Neuratron preferences (registry and pendingpages file) with set values for the automating proces.
Func SetNeuratronPrefs()
SetNeuratronRegPrefs()
EmptyPendingPagesFile()
Return
EndFunc
; This writes Neuratron preferences (registry and pendingpages file) back from their temporary location to where they had been originally.
Func RevertNeuratronPrefs()
If FileExists($reg_filename) Then
file2reg_read_mod_write($reg_filename) ; Revert to settings previously stored
FileDelete($reg_filename)
EndIf
If $NeuratronVersion == $Version6 Then
RevertNeuratronFilePrefs()
Else
ShowError ($_ERROR_WrongNeuratronVersion)
EndIf
Return
EndFunc
; This file contains all necessary Neuratron registry setting
Func SetNeuratronRegPrefs()
If $NeuratronVersion == $Version6 Then
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Detail width","REG_DWORD",Int("132"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Detail height","REG_DWORD",Int("194"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Rhythm errors width","REG_DWORD",Int("200"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Rhythm errors height","REG_DWORD",Int("300"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show bad timing","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show attachment","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show voice numbers","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Shade unhighlighted music","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Translucent Windows","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Open Filter","REG_DWORD",Int("1"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Save Filter","REG_DWORD",Int("1"))
; RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Open Directory","REG_SZ","C:\Documents and Settings\admin\Desktop\NeuratronAutomater\")
; RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Save Directory","REG_SZ","C:\DOCUME~1\admin\LOCALS~1\Temp\")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Print guitar tab rhythm","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Main window position","REG_BINARY",Binary("0x2C0000000000000001000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8C000000F8000000980200004C020000"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show BPPWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Scanning preview area","REG_BINARY",Binary("0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Preview resolution","REG_DWORD",Int("50"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","View palette","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","View full detail","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","View rhythm errors","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Detail x-offset","REG_DWORD",Int("4294967294"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Detail y-offset","REG_DWORD",Int("2"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Palette x-offset","REG_DWORD",Int("4294967273"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Palette y-offset","REG_DWORD",Int("119"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Rhythm errors x-offset","REG_DWORD",Int("82"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Rhythm errors y-offset","REG_DWORD",Int("4294967273"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Detail anchor","REG_DWORD",Int("1"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Palette anchor","REG_DWORD",Int("3"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Rhythm errors anchor","REG_DWORD",Int("2"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Scan resolution","REG_DWORD",Int("300"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show BWWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show PBWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show Win2000 256 Colour Warning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Optimise MIDI for playback","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","One voice per MIDI track","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show BTWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show AccuracyWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show HandwrittenWarning dialog","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show DottedStavesWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show BadStavesWarning dialog","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Bracket tuplets","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Number of recent files","REG_DWORD",Int("1"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","View Pages Pane Size X","REG_DWORD",Int("260"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Scan in grey shades","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show startup dialog","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Show Scanned Page Warning dialog","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\Global settings","Recent file 0","REG_SZ","C:\Documents and Settings\admin\Desktop\Mozart.opt")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read slurs, hairpins and ties","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 0","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 1","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 2","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 3","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 4","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 5","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 6","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 7","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 8","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 9","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 10","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 11","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 12","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 13","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 14","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read text type 15","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read articulation","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read small notes","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read guitar frames","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read handwritten music","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Transposing staves","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","HNP Narrow strokes","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","HNP Bidirectional beams","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","HNP Current Style","REG_DWORD",Int("0"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Advanced Correction","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Auto Read Always","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Read in one voice only","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Auto rotate","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Move output scan","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Instrument language","REG_DWORD",Int("0"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Scanning interface","REG_DWORD",Int("2"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Selected scanner","REG_SZ","")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Scanner resolution","REG_DWORD",Int("300"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Scanner pixel type","REG_DWORD",Int("1"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Faster automatic scan 2","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Output Drag Mode","REG_DWORD",Int("0"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Quick Prefs","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Splash screen","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Playback Ignores repeats","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Playback systems","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Use PhotoScore Keypad","REG_SZ","False")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Automatic page margins","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Auto save period","REG_DWORD",Int("5"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","AS MIDI Playback Device","REG_DWORD",Int("2"))
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Anti aliase image","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Wait for user before scanning","REG_SZ","True")
RegWrite("HKEY_CURRENT_USER\Software\Neuratron\PhotoScore\Ultimate\General settings","Use G7 Keypad","REG_SZ","False")
Else
ShowError ($_ERROR_WrongNeuratronVersion) ; Wrong version number, program incompatible.
EndIf
Return
EndFunc
; Find imagemagick Path
Func Find_imagemagick_Path(Const $imagemagick_RegHive, Const $imagemagick_EnvKey)
Local $var
$var = RegRead($imagemagick_RegHive,$imagemagick_EnvKey)
If @error <> 0 Or $var == "" Or StringInStr($var,$imagemagick_name) == 0 Then ShowError ($_ERROR_imagemagickNotInstalled)
Return $var
EndFunc
; Find Microsoft Visual C++ 2008 SP1 Redistributable Package
Func Find_MS_Visual_C_PlusPlus_2008_SP1_Redist(Const $MSV_RegHive, Const $MSV_Key)
Local $var
$var = RegRead($MSV_RegHive,$MSV_Key)
If @error <> 0 Or $var == "" Then Return False
Return True
EndFunc
; Find if object is already registered
Func ObjectIsRegistered(Const $Obj_RegHive, Const $Obj_Key)
Local $var
$var = RegRead($Obj_RegHive,$Obj_Key)
If @error <> 0 Or $var <> "ImageMagickObject.MagickImage.1" Then Return False
Return True
EndFunc
; Find if Neuratron is already installed
Func Neuratron_IsInstalled(Const $Reg_Path, Const $Reg_Key)
Local $var
$var = RegRead($Reg_Path,$Reg_Key)
If @error <> 0 Or $var == "" Then Return False
Return True
EndFunc
; Find Ghostscript Path
Func Find_Ghostscript_Path(Const $Ghostscript_RegHive, Const $Ghostscript_EnvKey)
Local $var
Local $var_read
Local $i = 1
Local $GhostscriptVersion
Local $GhostscriptPath
Local $GhostscriptFound = False
Local $GhostscriptPathFound = False
While 1
$var = RegEnumKey($Ghostscript_RegHive, $i)
If @error <> 0 Then ExitLoop
If StringRegExp($var,"^[0-9]+\.[0-9]+") Then
$GhostscriptVersion = String($var)
$GhostscriptFound = True
EndIf
$i += 1
WEnd
$i = 1
If $GhostscriptFound Then
While 1
$var = RegEnumVal($Ghostscript_RegHive & "\" & $GhostscriptVersion, $i)
If @error <> 0 Then ExitLoop
If $var == $Ghostscript_EnvKey Then
$GhostscriptPath = RegRead($Ghostscript_RegHive & "\" & $GhostscriptVersion, $Ghostscript_EnvKey) & ";"
$GhostscriptPath &= StringRegExpReplace($GhostscriptPath, "(?i)(.*)(c:\\.*)lib;.*", "$2bin") ; Add also the ghostscript bin path
$GhostscriptPathFound = True
ExitLoop
EndIf
$i += 1
WEnd
EndIf
If $GhostscriptPathFound Then
Return $GhostscriptPath
Else
ShowError ($_ERROR_CannotFindGhostscript)
EndIf
Return
EndFunc
; This function makes sure that the to be added $EnvironmentVariablePath is only added once to the environment path. For this it differentiates between Ghostscript and ImageMagick
Func SetEnvironmentPath(Const $EnvironmentVariablePath, Const $EnvironmentVariableApplication)
If StringRight(EnvGet("PATH"),1) <> ";" Then EnvSet("PATH",EnvGet("PATH") & ";") ; Add a ; separator between path if it's not there already
Switch $EnvironmentVariableApplication
Case $Ghostscript_name ; If the Ghostscript path is not already there, add it.
If not StringInStr(EnvGet("PATH"), $Ghostscript_name) Then EnvSet("PATH", EnvGet("PATH") & $EnvironmentVariablePath)
Case $imagemagick_name ; If the imagemagick path is not already there, add it.
If not StringInStr(EnvGet("PATH"), $imagemagick_name) Then EnvSet("PATH", EnvGet("PATH") & $EnvironmentVariablePath)
Case Else
EndSwitch
Return
EndFunc
; This function saves the Preferences Settings to a temporary folder, by moving the user profile Application Settings.
Func SaveNeuratronAppDirSettings()
If $NeuratronVersion == $Version6 Then
If Not FileExists(NeuratronPrefsFile($temporary)) Then ; only move directory if it's not there already.
DirCopy(NeuratronPrefsFile($original),NeuratronPrefsFile($temporary)) ; Don't overwrite this file, if it is already in the temp dir.
Sleep(500) ; Some delay is necessary otherwise files are not updated.
EndIf
Else
ShowError($_ERROR_WrongNeuratronVersion)
EndIf
Return
EndFunc
; This function returns either the filename from Neuratron's pending pages preferences in the $original location or in the $temporary location
Func NeuratronPrefsFile(Const $selection)
Local $szDrive, $szDir, $szFName, $szExt
_PathSplit($Neuratron_PagesIndexFile, $szDrive, $szDir, $szFName, $szExt)
Switch $selection
Case $original
Return RemoveSlash($szDrive & $szDir)
Case $temporary
Return RemoveSlash($szDrive & $szDir) & "_temp"
Case Else
EndSwitch
Return
EndFunc
; This function writes a sequence of bytes (defined in string $Neuratron_PendingPagesCleared) to a file. Specifically this will make sure that no Pending Page appears in Neuratron.
Func EmptyPendingPagesFile()
If $NeuratronVersion == $Version6 Then
Local $FHandle = FileOpen($Neuratron_PagesIndexFile,18) ; Write Binary mode
Local $Bytes = StringSplit($Neuratron_PendingPagesCleared,",")
Local $i
For $i = 1 to UBound($Bytes)-1
FileWrite($FHandle,Chr(Dec($Bytes[$i])))
Next
FileClose($FHandle)
Sleep(500) ; Some delay is necessary otherwise files are not updated.
Else
ShowError ($_ERROR_WrongNeuratronVersion)
EndIf
Return
EndFunc
; Copy the whole temporary folder which contains the original Application User Preferences Files and Folders back to the orginal location.
Func RevertNeuratronFilePrefs()
If FileExists(NeuratronPrefsFile($temporary)) Then ; check if directory exists
If FileExists(NeuratronPrefsFile($original)) Then
DirRemove(NeuratronPrefsFile($original),1)
sleep(200) ; Always wait shortly, otherwise system did not manage to update everything apparently.
emptyfolder(NeuratronPrefsFile($original))
sleep(200)
DirMove(NeuratronPrefsFile($temporary),NeuratronPrefsFile($original),1)
sleep(200)
DirRemove(NeuratronPrefsFile($temporary),1)
sleep(200)
emptyfolder(NeuratronPrefsFile($temporary))
sleep(200)
EndIf
EndIf
Return
EndFunc
; Cancel button had been pressed. A few cleanup steps should take place.
Func CancelButton()
GUIDelete()
RevertNeuratronPrefs()
If FileExists(AddSlash(@TempDir) & $img_uniquename & "*") Then FileDelete(AddSlash(@TempDir) & $img_uniquename & "*") ; Delete temporary files
Exit
EndFunc
; This function will add a trailing slash to a windows file path
Func AddSlash(Const $var)
Return StringRegExpReplace($var, "(.)\\*$","$1\\")
EndFunc
; This function will remove a trailing slash to a windows file path
Func RemoveSlash(Const $var)
Return StringRegExpReplace($var, "(.)\\*$","$1")
EndFunc
; This function will remove a trailing slash to a windows file path
Func RemoveDoubleQuotes(Const $var)
Return StringRegExpReplace($var, "^""(.*)""$","$1")
EndFunc
; Remove Empty folders in a dir
Func emptyfolder(Const $dir)
Local $search, $file, $mdir, $dsize
$search = FileFindFirstFile($dir & '\*')
If Not ($search = -1) Then
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$mdir = $dir & '\' & $file
If StringInStr(FileGetAttrib($mdir), 'D') > 0 Then
$dsize = DirGetSize($mdir, 1)
If $dsize[1] == 0 Then
ConsoleWrite($mdir & @CRLF)
DirRemove($mdir, 1)
Else
emptyfolder($mdir)
EndIf
EndIf
WEnd
EndIf
FileClose($search)
EndFunc
; Function gives the position of window items like buttons and sliders etc., depending on Neuratron version number
Func NeuratronObjPos(Const $Item)
Switch $NeuratronVersion
Case $Version6
Switch $Item
Case $X_firstItem_Sel
Return 140 ; neuratron buttons window positions
Case $X_firstItem_Del
Return 75 ; neuratron buttons window positions
Case $Y_firstItem
Return 106 ; neuratron buttons window positions
Case Else
EndSwitch
Case Else
EndSwitch
ShowError($_ERROR_WrongNeuratronVersion)
Return
EndFunc
Func RemoveSomeTempFiles()
If FileExists(AddSlash(@TempDir) & $img_uniquename & "*") Then FileDelete(AddSlash(@TempDir) & $img_uniquename & "?????????????") ; only delete files with 13 or added characters
EndFunc
; Prevent overwriting a file, when it already exists. This function will find the 'first' free filename.
Func UniqueFileName(Const $Pdf_OutputFile)
If FileExists(RemoveDoubleQuotes($Pdf_OutputFile)) Then
Local $i = 1
Local $szDrive, $szDir, $szFName, $szExt
_PathSplit(RemoveDoubleQuotes($Pdf_OutputFile), $szDrive, $szDir, $szFName, $szExt)
While FileExists($szDrive & $szDir & $szFName & "(" & String($i) & ")" & $szExt)
$i += 1
WEnd
Return $QQ & $szDrive & $szDir & $szFName & "(" & String($i) & ")" & $szExt & $QQ
Else
Return $Pdf_OutputFile
EndIf
EndFunc
Func ShowError(Const $_ERROR_Number)
Switch $_ERROR_Number
Case $_ERROR_ShowHelp
MsgBox(0,"Help", "PDF Sheetmusic raw scan Processor v" & $ThisProgramVersion & @CRLF & _
"Written by Marc Nijdam, Okt. 2009" & @CRLF & @CRLF & _
"Usage:" & @CRLF & _
StringRegExpReplace(@ScriptName, "(?i)(.*)(\.)(au3|exe)(.*)", "$1$4 ") & "<inputfile> [<outputfile>]"& @CRLF & _
"[...] is optional")
Case $_ERROR_Need_ImageMagickObject_OLE
MsgBox(0,"Error", "ImageMagickObject.dll is not available." & @CRLF & @CRLF & _
"Please reinstall ImageMagick (windows-dll) and enable" & @CRLF & _
"the option " & $QQ & "Install ImageMagickObject OLE Control" & @CRLF & _
"for VBscript, Visual Basic, and WSH." & $QQ)
Case $_ERROR_MSVisualCPlusPlus2008RedistNotInstalled
MsgBox(0,"Error", "Microsoft Visual C++ 2008 SP1 is not available." & @CRLF & @CRLF & _
"Please go to:" & @CRLF & _
"http://www.microsoft.com/downloads/details.aspx?familyid=A5C84275-3B97-4AB7-A40D-3802B2AF5FC2" & @CRLF & @CRLF & _
"From there, download and install vcredist_x86.")
Case $_ERROR_MissingImageMagickObject
MsgBox(0,"Error", "ImageMagickObject cannot be registered." & _
"Maybe it is already registered.")
Case $_ERROR_NeuratronIsNotInstalled
MsgBox(0,"Error", "Neuratron Photoscore Ultimate is not installed." & @CRLF & @CRLF & _
"Please go to:" & @CRLF & _
"http://www.neuratron.com/" & @CRLF & @CRLF & _
"From there, download and install Photoscore v6 Ultimate.")
Case $_ERROR_CannotFindGhostscript
MsgBox(0,"Error", "Ghostscript is not installed." & @CRLF & @CRLF & _
"Please go to:" & @CRLF & _
"http://sourceforge.net/projects/ghostscript/" & @CRLF & @CRLF & _
"From there, download and install Ghostscript.")
Case $_ERROR_PdfInputFileIsNotValid
MsgBox(0,"Error", "Supplied PDF file is invalid." & @CRLF & @CRLF & _
"Please check your pdf file.")
Case $_ERROR_WrongNeuratronVersion
MsgBox(0,"Error", "Current Neuratron Version is not supported." & @CRLF & @CRLF & _
"Please install Photoscore version 6.")
Case $_ERROR_PdfImageSizeTooLarge
MsgBox(0,"Error", "Image size of PDF file is too large." & @CRLF & @CRLF & _
"Processing would not make much sense.")
Case $_ERROR_MissingSavedNeuratronPrefs
MsgBox(0,"Error", "The preferences file in the temp directory is missing." & @CRLF & @CRLF & _
"Please restart program.")
Case $_ERROR_SavedNeuratronPrefsFileCorrupt
MsgBox(0,"Error", "The preferences file in the temp directory is corrupt." & @CRLF & @CRLF & _
"Please restart program.")
Case $_ERROR_imagemagickNotInstalled
MsgBox(0,"Error", "ImageMagick is missing." & @CRLF & @CRLF & _
"Please go to:" & @CRLF & _
"http://www.imagemagick.org/script/binary-releases.php#windows" & @CRLF & @CRLF & _
"From there, download the Q16-windows-dll version." & @CRLF & @CRLF & _
"Make sure the installation option " & $QQ & "Install ImageMagickObject" & @CRLF & _
"OLE Control for VBscript, Visual Basic, and WSH." & $QQ & " is enabled.")
Case Else
MsgBox(0,"Error", "Error number: " & String($_ERROR_Number))
EndSwitch
RevertNeuratronPrefs()
RemoveSomeTempFiles()
Exit
EndFunc
software/musicpdf/dev.txt · Last modified: 2009/10/27 01:24 by admin