windows-scripts/fetch_gallica.cmd

@if (@CodeSection == @Batch) @then
@echo off & setlocal

set "DSTDIR=%~1"
if not defined DSTDIR set "DSTDIR=%~dp0"
if not exist "%DSTDIR%" mkdir "%DSTDIR%"
set "NAME=%~n1"

set "PAGES=%~2"
if not defined PAGES set "PAGES=1,1,1"

rem SETLOCAL ENABLEDELAYEDEXPANSION
set PROCS="%~dp0procs.cmd"

set USERAGENT="Googlebot/2.1 (+http://www.google.com/bot.html)"

for /f %%a in ('copy /Z "%~f0" nul') do set "CR=%%a"

rem set "url=https://gallica.bnf.fr/iiif/ark:/12148/btv1b8447838j"	
set "url=https://gallica.bnf.fr/iiif/ark:/12148/btv1b23006724"	
set "testfnw=%Temp%/test_tile_w.jpg"
set "testfnh=%Temp%/test_tile_h.jpg"

@echo.Fetching %NAME% files from: %url%, pages: %PAGES%

setlocal ENABLEDELAYEDEXPANSION
for /L %%G in (%PAGES%) do (
    if not exist "%DSTDIR%\%%G" mkdir "%DSTDIR%\%%G"
    @echo."%DSTDIR%\%%G"
    set "purl=%url%/f%%G"
    
    rem set /a WT=5888
    rem set /a HT=8448
    set /a WT=1280
    set /a HT=1280
    set /a TD=256
    set /a TDI = !TD!
    set /a TDJ = !TD!

	@echo.Determine width

	curl -fsS -A !USERAGENT! -o !testfnw! "!purl!/!WT!,0,!TD!,!TD!/!TD!,/0/native.jpg" || (
		set /a WT = !WT! - !TD!
		curl -fsS -A !USERAGENT! -o !testfnw! "!purl!/!WT!,0,!TD!,!TD!/!TD!,/0/native.jpg" || (
			set /a WT = !WT! - !TD!
			curl -fsS -A !USERAGENT! -o !testfnw! "!purl!/!WT!,0,!TD!,!TD!/!TD!,/0/native.jpg" || (
				set /a WT = !WT! - !TD!
				curl -fsS -A !USERAGENT! -o !testfnw! "!purl!/!WT!,0,!TD!,!TD!/!TD!,/0/native.jpg" || @echo.Process failed. Error:!ERRORLEVEL!
			)
		)
	)
	@echo.Requested last tile at pos !WT!,0 of !TD!x!TD!

	for /f "tokens=3,4 delims=x+ " %%D in ( 'gm identify !testfnw!' ) do (
		set /a dimx=%%D
		set /a dimy=%%E
		@echo.Received tile of size !dimx!x!dimy!

		if !dimy! GTR !TD! (
			set /a "TDI=!TDJ!*1000/!dimy!*!dimx!/1000"	
		) else (
			set /a "TDI=!dimx!"
		)
		set /a "W=!WT!+!TDI!"
		set /a "WTC=!W!/!TD!"
		if !TDI! LSS !TD! ( set /a "WTC=!WTC!+1" )
		@echo.Result image width !W! ^(!WTC! tiles^)
	)

	@echo.Determine height

	curl -fsS -A !USERAGENT! -o !testfnh! "!purl!/0,!HT!,!TD!,!TD!/!TD!,/0/native.jpg" || (
		set /a HT = !HT! - !TD!
		curl -fsS -A !USERAGENT! -o !testfnh! "!purl!/0,!HT!,!TD!,!TD!/!TD!,/0/native.jpg" || (
			set /a HT = !HT! - !TD!
			curl -fsS -A !USERAGENT! -o !testfnh! "!purl!/0,!HT!,!TD!,!TD!/!TD!,/0/native.jpg" || (
				set /a HT = !HT! - !TD!
				curl -fsS -A !USERAGENT! -o !testfnh! "!purl!/0,!HT!,!TD!,!TD!/!TD!,/0/native.jpg" || @echo.Process failed. Error:!ERRORLEVEL!
			)
		)
	)
	@echo.Requested last tile at pos 0,!HT! of !TD!x!TD!

	for /f "tokens=3,4 delims=x+ " %%D in ( 'gm identify !testfnh!' ) do (
		set /a dimx=%%D
		set /a dimy=%%E
		@echo.Received tile of size !dimx!x!dimy!
		if !dimy! GTR !TD! (
			set /a "TDJ=!dimy!*1000/!dimx!*!TDI!"/1000"	
		) else (
			set /a "TDJ=!dimy!"
		)
		set /a "H=!HT!+!TDJ!"
		set /a "HTC=!H!/!TD!"
		if !TDJ! LSS !TD! ( set /a "HTC=!HTC!+1" )
		@echo.Result image dimensions !W!x!H! ^(!WTC!x!HTC! tiles^)
	)
	set /a TC=!HTC!*!WTC!

	set /a COUNTER=0
    for /f "tokens=1,2,3 delims= " %%I in ('cscript /nologo /e:JScript "%~f0" "!purl!" "!W!" "!H!"') do (
        set /a COUNTER+=1
        set /a PTS=100*!COUNTER!/!TC!
        echo.
        @echo !COUNTER!.%%I %%J!CR!
        if not exist "%DSTDIR%/%%G/%%I" ( 
        	curl -fsS -A %USERAGENT% -o "%DSTDIR%/%%G/%%I" "%%J" || @echo.Process failed. Error:!ERRORLEVEL!
        )
        @echo.!PTS!^%% done.!CR!
    )

    for /f %%a in ( '2^>nul dir "%DSTDIR%/%%G" /a-d/b/-o/-p/s^|find /v /c ""') do set /a n=%%a

    @echo.Assembling !n! files. Please wait...
    gm montage -mode concatenate -tile !WTC!x!HTC! "%DSTDIR%/%%G/*.jpg" "%DSTDIR%/%NAME% - %%G.png" || @echo.Process failed. Error:!ERRORLEVEL!
)
rem pause
goto :EOF
@end // end batch / begin JScript hybrid code

var w=WSH.Arguments(1);
var h=WSH.Arguments(2);
var td=256;
var wtc=Math.ceil(w/td);
var htc=Math.ceil(h/td);
var tdi=td;
var tdj=td;

for (i = 0; i < wtc; i++) {
	for (j = 0; j < htc; j++) {
		if ( i == wtc-1 & w % td > 0 ) { tdi = w % td; } else { tdi = td };
		if ( j == htc-1 & h % td > 0 ) { tdj = h % td; } else { tdj = td };
    	WSH.Echo(('000' + j*td).slice(-4)+"_"+('000' + i*td).slice(-4)+".jpg "+WSH.Arguments(0)+"/"+i*td+","+j*td+","+tdi+","+tdj+"/"+tdi+",/0/native.jpg");
    }
}