Skip to content

Add TGA support #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 9 commits into
base: master
Choose a base branch
from
Open

Add TGA support #7

Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
281439c
add TGA to "SF-OPTION"
NiveusLuna Sep 29, 2020
effbeea
Duplicate GIF section to later modify
NiveusLuna Sep 29, 2020
d983e81
change file extension
NiveusLuna Sep 29, 2020
44a8b34
remove unneeded line
NiveusLuna Sep 29, 2020
bbe3271
edit help
NiveusLuna Sep 29, 2020
3c5db7d
swap gif commands for tga commands
NiveusLuna Sep 29, 2020
623463a
switch rle compression from int to boolean
NiveusLuna Sep 29, 2020
efc43f2
move flattening to padding section
NiveusLuna Sep 29, 2020
b96de28
move flatten again
NiveusLuna Sep 29, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 20 additions & 3 deletions batch-smart-resize.scm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -48,11 +48,12 @@
)
(gimp-image-insert-layer image backgroundLayer 0 1) ;add background layer to image
)
(gimp-image-flatten image) ;flatten the layers
)
)
)

(gimp-image-flatten image) ;flatten the layers



(let*
Expand Down Expand Up @@ -130,7 +131,7 @@
(file-jpeg-save RUN-NONINTERACTIVE image (car (gimp-image-get-active-drawable image)) outputFilename outputFilename (/ outputQuality 100) 0 TRUE TRUE "" 2 TRUE 0 (if (null? JPEGDCT) 0 (car JPEGDCT)))
)
)
(else
((= outputType 2)
(let*
(
(outputFilename (string-append outputFilenameNoExtension ".gif")) ;add the new extension
Expand All @@ -148,6 +149,22 @@
;(animated gif) Default disposal type (0=`don't care`, 1=combine, 2=replace)
(file-gif-save RUN-NONINTERACTIVE image (car (gimp-image-get-active-drawable image)) outputFilename outputFilename FALSE FALSE 0 0)
)
)
(else
(let*
(
(outputFilename (string-append outputFilenameNoExtension ".tga")) ;add the new extension
)
;file-tga-save parameters
;The run mode(RUN-INTERACTIVE(0), RUN-NONINTERACTIVE(1))
;Input image
;Drawable to save
;filename
;raw-filename - this doesn't appear to do anything
;whether to use rle compression (TRUE/FALSE?)
;image origin (0 = top-left, 1 = bottom-left)
(file-tga-save RUN-NONINTERACTIVE image (car (gimp-image-get-active-drawable image)) outputFilename outputFilename FALSE 0)
)
)
)
)
Expand Down Expand Up @@ -182,7 +199,7 @@
SF-DIRNAME "Source Folder" "" ;sourcePath
SF-DIRNAME "Destination Folder" "" ;destinationPath
SF-STRING "Output Filename Modifier(appended)" "" ;filenameModifier
SF-OPTION "Output Type" '("PNG" "JPEG" "GIF") ;outputType
SF-OPTION "Output Type" '("PNG" "JPEG" "GIF" "TGA") ;outputType
SF-VALUE "Output Quality(JPEG only) 0-100" "90" ;outputQuality
SF-VALUE "Max Width" "1500" ;maxWidth
SF-VALUE "Max Height" "1500" ;maxHeight
Expand Down