#!/bin/bash # # Developed by Fred Weinhaus 7/22/2013 .......... revised 7/11/2022 # # ------------------------------------------------------------------------------ # # Licensing: # # Copyright © Fred Weinhaus # # My scripts are available free of charge for non-commercial use, ONLY. # # For use of my scripts in commercial (for-profit) environments or # non-free applications, please contact me (Fred Weinhaus) for # licensing arrangements. My email address is fmw at alink dot net. # # If you: 1) redistribute, 2) incorporate any of these scripts into other # free applications or 3) reprogram them in another scripting language, # then you must contact me for permission, especially if the result might # be used in a commercial or for-profit environment. # # My scripts are also subject, in a subordinate manner, to the ImageMagick # license, which can be found at: http://www.imagemagick.org/script/license.php # # ------------------------------------------------------------------------------ # # USAGE: puzzle [-s scale] [-o ocolor] [-e ecolor] [-m missing] [-n newseed] # [-r rotation] [-x xoffset] [-y yoffset] [-O opacity] [-D depth] [-length] # infile outfile # USAGE: puzzle [-h or -help] # # OPTIONS: # # -s scale puzzle pieces scale factor; integer>=50; default=100 # -o ocolor puzzle outline color; any valid IM color or "carve"; # default=gray40 # -e ecolor puzzle empty (missing) piece color; any valid IM color; # default=white # -m missing number of missing (empty) pieces; 0<=integer<=20; default=0 # -n newseed seed for random missing cells; integer; default=no seed # -r rotate rotation of overlaid missing pieces; -360<=integer<=360; # default=0 # -x xoffset x offset of overlaid missing pieces; integer>=0; default=0 # -y yoffset y offset of overlaid missing pieces; integer>=0; default=0 # -O opacity opacity for shadow effect on overlaid missing pieces; # 0<=integer<=100; default=0 # -D depth depth for shadow effect on overlaid missing pieces; # integer>=0; default=3 # -L length length of shadow on overlaid missing pieces; integer>=0; # default=3 # ### # # NAME: PUZZLE # # PURPOSE: To apply a puzzle like effect to an image. # # DESCRIPTION: PUZZLE applies a puzzle like effect to an image. Options include: # setting the number of missing pieces, setting the missing piece color and the # outline color and overlaying the missing pieces at some rotation or offset. # # OPTIONS: # # -s scale ... SCALE is the puzzle cell scale factor. Values are integers>=50. # The default=100. At scale of 100, the size of a cell is about 50x50 pixels. # # -o ocolor ... OCOLOR is the puzzle piece outline color. Any valid IM color is # allowed or the special value of "carve" (without the quotes). The # default=gray40. Using carve will produce a carved-like effect to the puzzle. # # -e ecolor ... ECOLOR is the color used to fill empty (missing) pieces. Any # valid IM color is allowed. The default=white. # # -m missing ... MISSING is the number of missing (empty) pieces. Values are # 0<=integer<=20. The default=0. # # -n newseed ... NEWSEED is the seed for random missing pieces. Values are # non-negative integers. The default is no seed. Thus the pattern will not # be repeatable. # # -r rotate ... ROTATE is the rotation angle of overlaid missing pieces. Values # are -360<=integer<=360. The default=0. Pieces will not be overlaid unless at # least one of rotate, xoffset, yoffset are non-zero. # # -x xoffset ... XOFFSET is the x offset of overlaid missing pieces. Value are # integers (positive or negative). The default=0. Pieces will not be overlaid # unless at least one of rotate, xoffset, yoffset are non-zero. # # -y yoffset ... YOFFSET is the y offset of overlaid missing pieces. Value are # integers (positive or negative). The default=0. Pieces will not be overlaid # unless at least one of rotate, xoffset, yoffset are non-zero. # # -O opacity ... OPACITY for shadow effect on overlaid missing pieces. Values # are 0<=integer<=100. The default=0. # # -D depth ... DEPTH for shadow effect on overlaid missing pieces. Values are # integer>=0. The default=3. # # -L length ... LENGTH of shadow on overlaid missing pieces. Values are # integer>=0. The default=3. # # References - svg puzzle pattern modified from: # http://www.joshpodolske.com/puzzle-pieces-vector-swatch/ # # CAVEAT: No guarantee that this script will work on all platforms, # nor that trapping of inconsistent parameters is complete and # foolproof. Use At Your Own Risk. # ###### # # set default values scale=100 # puzzle cell scale factor; default=100 ocolor="gray40" # puzzle outline color; any valid IM color; default=gray40 ecolor="white" # puzzle empty cell color; any valid IM color; default=white missing=0 # number of empty cells; max=20; default=0 newseed="" # seed for random cell coordinates; default is no seed rotate=0 # rotation of overlaid missing pieces xoffset=0 # x offset of overlaid missing pieces yoffset=0 # y offset of overlaid missing pieces # set directory for temporary files dir="." # suggestions are dir="." or dir="/tmp" # set up functions to report Usage and Usage with Description PROGNAME=`type $0 | awk '{print $3}'` # search for executable on path PROGDIR=`dirname $PROGNAME` # extract directory of program PROGNAME=`basename $PROGNAME` # base name of program usage1() { echo >&2 "" echo >&2 "$PROGNAME:" "$@" sed >&2 -e '1,/^####/d; /^###/g; /^#/!q; s/^#//; s/^ //; 4,$p' "$PROGDIR/$PROGNAME" } usage2() { echo >&2 "" echo >&2 "$PROGNAME:" "$@" sed >&2 -e '1,/^####/d; /^######/g; /^#/!q; s/^#*//; s/^ //; 4,$p' "$PROGDIR/$PROGNAME" } # function to report error messages errMsg() { echo "" echo $1 echo "" usage1 exit 1 } # function to test for minus at start of value of second part of option 1 or 2 checkMinus() { test=`echo "$1" | grep -c '^-.*$'` # returns 1 if match; 0 otherwise [ $test -eq 1 ] && errMsg "$errorMsg" } # test for correct number of arguments and get values if [ $# -eq 0 ] then # help information echo "" usage2 exit 0 elif [ $# -gt 24 ] then errMsg "--- TOO MANY ARGUMENTS WERE PROVIDED ---" else while [ $# -gt 0 ] do # get parameter values case "$1" in -h|-help) # help information echo "" usage2 exit 0 ;; -s) # get scale shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID SCALE SPECIFICATION ---" checkMinus "$1" scale=`expr "$1" : '\([0-9]*\)'` [ "$scale" = "" ] && errMsg "SCALE=$scale MUST BE AN INTEGERE" testA=`echo "$scale < 50" | bc` [ $testA -eq 1 ] && errMsg "--- SCALE=$scale MUST BE A POSITIVE INTEGER GREATER THAN OR EQUAL TO 50 --- " ;; -o) # get ocolor shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID OCOLOR SPECIFICATION ---" checkMinus "$1" ocolor="$1" ;; -e) # get ecolor shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID ECOLOR SPECIFICATION ---" checkMinus "$1" ecolor="$1" ;; -m) # get missing shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID MISSING SPECIFICATION ---" checkMinus "$1" missing=`expr "$1" : '\([0-9]*\)'` [ "$missing" = "" ] && errMsg "MISSING=$missing MUST BE A NON-NEGATIVE INTEGER VALUE (with no sign) ---" ;; -n) # get newseed shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID NEWSEED SPECIFICATION ---" checkMinus "$1" newseed=`expr "$1" : '\([0-9]*\)'` [ "$newseed" = "" ] && errMsg "--- NEWSEED=$newseed MUST BE A NON-NEGATIVE INTEGER VALUE (with no sign) ---" ;; -r) # get rotate shift # to get the next parameter # test if parameter starts with minus sign #errorMsg="--- INVALID ROTATE SPECIFICATION ---" #checkMinus "$1" rotate=`expr "$1" : '\([-0-9]*\)'` [ "$rotate" = "" ] && errMsg "ROTATE=$rotate MUST BE AN INTEGER" testA=`echo "$rotate < -360" | bc` testB=`echo "$rotate > 360" | bc` [ $testA -eq 1 -o $testB -eq 1 ] && errMsg "--- ROTATE=$rotate MUST BE AN INTEGER BETWEEN -360 AND 360 --- " ;; -x) # get xoffset shift # to get the next parameter # test if parameter starts with minus sign #errorMsg="--- INVALID XOFFSET SPECIFICATION ---" #checkMinus "$1" xoffset=`expr "$1" : '\([-0-9]*\)'` [ "$xoffset" = "" ] && errMsg "XOFFSET=$xoffset MUST BE AN INTEGER" ;; -y) # get yoffset shift # to get the next parameter # test if parameter starts with minus sign #errorMsg="--- INVALID YOFFSET SPECIFICATION ---" #checkMinus "$1" yoffset=`expr "$1" : '\([-0-9]*\)'` [ "$yoffset" = "" ] && errMsg "YOFFSET=$yoffset MUST BE AN INTEGER" ;; -O) # get opacity shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID OPACITY SPECIFICATION ---" checkMinus "$1" opacity=`expr "$1" : '\([0-9]*\)'` [ "$opacity" = "" ] && errMsg "OPACITY=$opacity MUST BE AN INTEGER" testA=`echo "$opacity > 100" | bc` [ $testA -eq 1 ] && errMsg "--- OPACITY=$opacity MUST BE AN INTEGER BETWEEN 0 AND 100 --- " ;; -D) # get depth shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID DEPTH SPECIFICATION ---" checkMinus "$1" depth=`expr "$1" : '\([0-9]*\)'` [ "$depth" = "" ] && errMsg "--- DEPTH=$depth MUST BE A NON-NEGATIVE INTEGER VALUE (with no sign) ---" ;; -L) # get length shift # to get the next parameter # test if parameter starts with minus sign errorMsg="--- INVALID LENGTH SPECIFICATION ---" checkMinus "$1" length=`expr "$1" : '\([0-9]*\)'` [ "$length" = "" ] && errMsg "--- LENGTH=$length MUST BE A NON-NEGATIVE INTEGER VALUE (with no sign) ---" ;; -) # STDIN and end of arguments break ;; -*) # any other - argument errMsg "--- UNKNOWN OPTION ---" ;; *) # end of arguments break ;; esac shift # next option done # # get infile and outfile infile="$1" outfile="$2" fi # test that infile provided [ "$infile" = "" ] && errMsg "NO INPUT FILE SPECIFIED" # test that outfile provided [ "$outfile" = "" ] && errMsg "NO OUTPUT FILE SPECIFIED" function randomPts() { seed=$1 if [ "$seed" = "" ]; then seedingx="" seedingy="" else seedx=$((seed+1)) seedy=$((seed+2)) seedingx="-seed $seedx" seedingy="-seed $seedy" fi xx=`convert xc: $seedingx -format "%[fx:round($ww1*rand())]" info:` yy=`convert xc: $seedingy -format "%[fx:round($hh1*rand())]" info:` } # setup temporary images tmpA1="$dir/puzzle_1_$$.mpc" tmpB1="$dir/puzzle_1_$$.cache" tmpA2="$dir/puzzle_2_$$.mpc" tmpB2="$dir/puzzle_2_$$.cache" tmpA3="$dir/puzzle_3_$$.mpc" tmpB3="$dir/puzzle_3_$$.cache" tmpS="$dir/puzzle_S_$$.svg" trap "rm -f $tmpA1 $tmpB1 $tmpA2 $tmpB2 $tmpA3 $tmpB3 $tmpS $dir/tmpS.svg;" 0 trap "rm -f $tmpA1 $tmpB1 $tmpA2 $tmpB2 $tmpA3 $tmpB3 $tmpS $dir/tmpS.svg; exit 1" 1 2 3 15 #trap "rm -f $tmpA1 $tmpB1 $tmpA2 $tmpB2 $tmpA3 $tmpB3 $tmpS $dir/tmpS.svg; exit 1" ERR # read the input image into the temporary cached image and test if valid convert -quiet "$infile" +repage "$tmpA1" || errMsg "--- FILE $infile DOES NOT EXIST OR IS NOT AN ORDINARY FILE, NOT READABLE OR HAS ZERO size ---" # read svg data into .svg file echo ' ' > $tmpS # do not know why I need to do this for IM 7 # can use $tmpS for IM 6 and it works fine #convert $tmpS $dir/tmpS.svg im_version=`convert -list configure | \ sed '/^LIB_VERSION_NUMBER */!d; s//,/; s/,/,0/g; s/,0*\([0-9][0-9]\)/\1/g' | head -n 1` # get input size ww=`convert $tmpA1 -format "%w" info:` hh=`convert $tmpA1 -format "%h" info:` ww1=$((ww-1)) hh1=$((hh-1)) # set up channels for IM 7 threshold if [ "$im_version" -ge "07000000" ]; then channeling="-channel rgb" else channeling="" fi # compute scale density=`convert $tmpA1 -format "%[fx:$scale*96/100]" info:` #echo "ww=$ww; hh=$hh; density=$density" # NOTE: restrict to MSVG so it reproduces my examples. # When I use RSVG, the tile shape/size is smaller than with MSVG. # convert svg to scaled tiled mpc mask if [ $scale -lt 80 ]; then # if scale to small (below about 80), the pattern gets thinned too much and opens up so that more than one cell is filled. # so have to threshold it, which causes aliasing. # empirical tests to try to make the grid transition (width) for anti-aliased to aliased less obvious. # factor=scale/20 - 2.5 so that at scale=60 factor is 0.5 and at scale=80 factor is 1.5 thresh=`convert xc: -format "%[fx:($scale<60)?0.5*(100-$scale):($scale/20-2.5)*(100-$scale)]" info:` convert -density $density MSVG:$tmpS -channel rgb -depth 8 -write mpr:tile +delete \ -size ${ww}x${hh} tile:mpr:tile +write $tmpA2 \ -threshold $thresh% $tmpA3 else convert -density $density MSVG:$tmpS -channel rgb -depth 8 -write mpr:tile +delete \ -size ${ww}x${hh} tile:mpr:tile +write $tmpA3 $tmpA2 fi # get random coordinates and process mask for each filling empty tile with transparency if [ $missing -gt 0 ]; then drawing="-draw" n=1 seed=$newseed until [ $n -gt $missing ]; do # get random x,y randomPts "$seed" #echo "xx=$xx; yy=$yy" # test if color equals pure black testcolor=`convert $tmpA3 -depth 8 -format "%[pixel:u.p{$xx,$yy}]" info:` #echo "testcolor=$testcolor" if [ "$testcolor" = "black" -o "$testcolor" = "srgb(0,0,0)" -o "$testcolor" = "srgba(0,0,0,1)" ]; then if [ "$im_version" -ge "07000000" ]; then args="alpha $xx,$yy floodfill" else args="matte $xx,$yy floodfill" fi #echo "n=$n; args=$args" convert $tmpA3 -fuzz 50% -fill none $drawing "$args" $tmpA3 n=$((n+1)) fi seed=$((seed+1)) done fi # set up ocolor test for carve ocolor=`echo "$ocolor" | tr "[:upper:]" "[:lower:]"` if [ "$ocolor" = "carve" ]; then proc="$tmpA2 -shade 225x45" ocolor="gray40" else proc="-clone 0 -fill $ocolor -colorize 100%" fi if [ $missing -gt 0 ]; then if [ "$rotate" = "0" -a "$xoffset" = "0" -a "$yoffset=0" ]; then # clone the input and convert to solid ocolor # use antialiased version of the tiled pattern as mask and composite with original # convert (binary) tiled pattern so that non transparent is replaced with white # put the previous image as alpha channel of previous composited image # Note need -alpha off after $tmpA2 for IM 7. convert $tmpA1 \ \( $proc \) \ $tmpA2 -alpha off -compose over -composite \ \( $tmpA3 -fill "rgba(255,255,255,1)" +opaque "rgba(0,0,0,0)" \) \ -alpha off -compose copy_opacity -composite \ -compose over -background "$ecolor" -flatten "$outfile" else cx=`convert $tmpA1 -format "%[fx:w/2]" info:` cy=`convert $tmpA1 -format "%[fx:h/2]" info:` x1=`convert xc: -format "%[fx:$cx+$xoffset]" info:` y1=`convert xc: -format "%[fx:$cy+$yoffset]" info:` # echo "rotate=$rotate; cx=$cx; cy=$cy; x1=$x1; y1=$y1;" if [ "$opacity" != "0" ]; then # clone the input and convert to solid ocolor # use antialiased version of the tiled pattern as mask and composite with original # convert (binary) tiled pattern so that non transparent is replaced with white # put the previous image as alpha channel of previous composited image # start again with original, get mask and make binary and negate, then put in alpha channel to select only the missing pieces # use -distort SRT to rotate and/or translate the missing pieces # create edge image of missing pieces # create constant image of ocolor and composite with mask and SRT image # create shadow # use -layers merge with previous image to add shadow to overlaid pieces # composite that result over the previous process image with colored missing pieces # Note need -alpha off after $tmpA2 for IM 7. convert $tmpA1 \ \( $proc \) \ $tmpA2 -alpha off -compose over -composite +write y1.png \ \( $tmpA3 -fill "rgba(255,255,255,1)" +opaque "rgba(0,0,0,0)" +write y2.png -write mpr:missing \) \ -alpha off -compose copy_opacity -composite +write y3.png \ -compose over -background "$ecolor" -compose over -flatten +write y4.png \ \( \( $tmpA1 \( mpr:missing -alpha off -negate \) -compose copy_opacity -composite \ -background none -virtual-pixel none -filter point -distort SRT "$cx,$cy 1 $rotate $x1,$y1" \) \ \( +clone -channel rgba -fill white +opaque none -alpha off -morphology edge diamond:1 \) \ \( +clone -fill "$ocolor" -colorize 100% \) +swap -compose over -composite \ \( +clone -background black -shadow ${opacity}x${depth}+${length}+${length} \) \ +swap -background none -layers merge +repage \) \ -compose over -flatten "$outfile" else # clone the input and convert to solid ocolor # use antialiased version of the tiled pattern as mask and composite with original # convert (binary) tiled pattern so that non transparent is replaced with white # put the previous image as alpha channel of previous composited image # start again with original, get mask and make binary and negate, then put in alpha channel to select only the missing pieces # use -distort SRT to rotate and/or translate the missing pieces # create edge image of missing pieces # create constant image of ocolor and composite with mask and SRT image # composite that over the previous process image with colored missing pieces # Note need -alpha off after $tmpA2 for IM 7. convert $tmpA1 \ \( $proc \) \ $tmpA2 -alpha off -compose over -composite +write y1.png \ \( $tmpA3 -channel rgba -fill "rgba(255,255,255,1)" +opaque "rgba(0,0,0,0)" +write y2.png -write mpr:missing \) \ -alpha off -compose copy_opacity -composite +write y3.png \ -compose over -background "$ecolor" -compose over -flatten +write y4.png \ \( \( $tmpA1 \( mpr:missing -alpha off -negate \) -compose copy_opacity -composite \ -background none -virtual-pixel none -filter point -distort SRT "$cx,$cy 1 $rotate $x1,$y1" \) \ \( +clone -fill white +opaque none -alpha off -morphology edge diamond:1 \) \ \( +clone -fill "$ocolor" -colorize 100 \) +swap -compose over -composite \) \ -compose over -flatten "$outfile" fi fi else # Note need -alpha off after $tmpA2 for IM 7. convert $tmpA1 \( $proc \) $tmpA2 -alpha off -compose over -composite "$outfile" fi exit 0