X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=build-aux%2Fsvg2png;h=f98b76cea7a812fed8ac98139f78bd2d9d328ab5;hb=refs%2Fheads%2Fctables7;hp=5c41840c5154e1c78387457cd3ed14d42da308be;hpb=f2d4cc6e7a4d5948a2c0cf70883347000a79a2b0;p=pspp

diff --git a/build-aux/svg2png b/build-aux/svg2png
index 5c41840c51..f98b76cea7 100755
--- a/build-aux/svg2png
+++ b/build-aux/svg2png
@@ -1,9 +1,32 @@
 #! /bin/sh
 
+# Convert svg file to png with a target width and height
+# width and height are derived from the directory name
+# of the target. Width and height must be equal
+
+# Arg1: Source svg file
+# Arg2: Filename for copyright notice
+# Arg3: Target png file
+
+# Extract the icon width from the target path e.g.
+# src/ui/gui/icons/48x48/actions/file-save.png
+# should result in a width of 48
+stripprefix=${3#src*icons\/}
+width=${stripprefix%%x*}
+
+# If no width can be extracted from the destination path
+# then take the natural width by setting width to 0
+case "$width" in
+    [0-9][0-9]|[0-9][0-9][0-9])  ;;
+    *)                 width="0";;
+esac
+
+echo "Converting" $1 "to" $3 "size" $width"x"$width
+
 comment=`cat $2`
-gimp -i -b "\
-(let* ((image (car (gimp-file-load 1 \"$1\" \"$1\"))))
-      (gimp-image-attach-parasite image (list \"gimp-comment\" 0 \"$comment\"))
+gimp -i -d -b "\
+(let* ((image (car (file-svg-load 1 \"$1\" \"$1\" 90 $width $width 0 ))))
+      (gimp-image-attach-parasite image '(\"gimp-comment\" 0 \"$comment\"))
       (gimp-file-save 1 image (car (gimp-image-get-active-drawable image))
 		      \"$3\" \"$3\"))
     (gimp-quit 1)"