PAX-GAMES.NAROD.RU

Global Cmd$=Trim(Lower(CommandLine$())) ;Получение содержимого коммандной строки
If Not Cmd$ Then RuntimeError "Не указано имя файла!"
If Not FileType(Cmd$) Then RuntimeError "Неверно указано имя файла! Пример: 'lesson1.exe File0000.bmp'"
Global ImgType$=GetImgType$(Cmd$) ;Получение типа картинки (bmp, jpg или png)
If Not ImgType$ Then RuntimeError "Поддерживаются только изображения следующих типов: BMP, JPG, PNG!"
Global ImgName$=Left(Cmd$,Len(Cmd$)-8) ;Например: File0000.bmp => 0000.bmp = 8 символов
Global ImgIndex%=Int(Mid(Cmd$,Len(Cmd$)-7,4)) ;Получение индекса первой картинки (для случая если индекс начинается не с нуля)
Global maxWigth#=2048 maxHeight#=2048 ;Максимальный размер получаемой анимированной картинки
Global tempImg=LoadImage(Cmd$)
Global ImgWigth%=ImageWidth(tempImg): ImgHeigth%=ImageHeight(tempImg) ;Определение размеров одного кадра
FreeImage(tempImg)
Global HMaxImg#=Floor#(maxWigth#/ImgWigth%) ;Определение максимального кол-ва кадров по горизонтали
Global VMaxImg#=Floor#(maxHeight#/ImgHeigth%) ;Определение максимального кол-ва кадров по вертикали
Global MaxImg%=HMaxImg#*VMaxImg# ;Определение максимального кол-ва кадров
Global ImgCount%=TotalFrames%() ;Определение кол-ва кадров (по существующим файлам)
If ImgCount%>MaxImg% Then RuntimeError "Уменьшите кло-во кадров или их размер!"
Global CountRows%=Int(Ceil#((ImgCount/HMaxImg))) ;Определение кол-ва рядов кадров
Global AnimImgWidth%
;определение ширины картинки
If ImgCount%<HMaxImg# Then
AnimImgWidth% = ImgCount%*ImgWigth%
Else
AnimImgWidth% = HMaxImg#*ImgWigth%
EndIf
Global AnimImg=CreateImage(AnimImgWidth%, CountRows%*ImgHeigth%) ; Создание временной картинки анимации
Global X%=0, Y%=0 ;Начальные значения смещений для рисования очередного кадра

SetBuffer ImageBuffer(AnimImg) ;Установка активным буфера картинки AnimImg

;Рисование кадров на картинке
For I%=0 To ImgCount%-1
DrawImage(LoadImage(GetImgName$(ImgIndex%+I%)),X%,Y%)
If (X%+ImgWigth%)>maxWigth# Then
X%=0
Y%=Y%+ImgHeigth%
Else
X%=X%+ImgWigth%
EndIf
Next
;SaveBuffer(ImageBuffer(AnimImg),ImgName$+".bmp") ;Сохранение полученной картинки
SaveImage(AnimImg,ImgName$+".bmp") ;Эта строка аналогична предидущей

TT$="Картинка сохранена как "+ImgName+".bmp" + Chr$(13) + "Количество кадров: " + ImgCount% + Chr$(13)
TT$=TT$ + "Размер картинки: " + ImageWidth(AnimImg) +"X"+ ImageHeight(AnimImg)
FreeImage(AnimImg) ; Освобождение памяти
RuntimeError TT$
End ;необязательный оператор т.к. оператор RuntimeError автоматически завершает программу

;функция проверки типа файла
Function GetImgType$(ImgFile$)
T$=Right(ImgFile$,3)
Select T$
Case "bmp","jpg","png"
Return T$
Default
Return ""
End Select
End Function

;Функция рассчета кол-ва кадров
Function TotalFrames%()
Local I%=1
Local Index%=ImgIndex%
Repeat
I%=I%+1
Index%=Index%+1
If (FileType(GetImgName$(Index%))<>1) Then Return I%-1
Forever
End Function

;Функция служит для получения имени файла кадра с индексом Ind
;Например: Ind%=15,ImgName$="file", ImgType="bmp" => GetImgName$=file0015.bmp
Function GetImgName$(Ind%)
If (Ind < 10 And Ind >= 0) Then Return (ImgName$+"000"+Trim(Str(Ind%))+"."+ImgType$)
If (Ind < 100 And Ind >= 10) Then Return (ImgName$+"00"+Trim(Str(Ind%))+"."+ImgType$)
If (Ind < 1000 And Ind >= 100) Then Return (ImgName$+"0"+Trim(Str(Ind%))+"."+ImgType$)
If (Ind < 10000 And Ind >= 1000) Then Return (ImgName$+Trim(Str(Ind%))+"."+ImgType$)
RuntimeError "Error"
End Function