#!/usr/bin/env bash
# ./scripts/button.sh <handle> [source image]   → 88x31 member button in ppl's but/
set -euo pipefail
[ $# -ge 1 ] || { sed -n 2p "$0"; exit 2; }
cd "$(dirname "$0")/.."
handle=$1
imgs=werc/sites/thirdculture.diy/_werc/pub/imgs
out=werc/sites/ppl.thirdculture.diy/_werc/pub/imgs/but/$handle.gif
sigil=$imgs/tcl2.svg

seed=$(printf %s "$handle" | cksum | cut -d' ' -f1)
if [ $# -ge 2 ]; then src=$2; else
  pool=($imgs/{dither_ruins,p2,garden,news,wires,cables,church,clutter,drive,patch,saya,chillin}.png)
  src=${pool[$((seed % ${#pool[@]}))]}
fi

t=$(mktemp -d); trap 'rm -rf "$t"' EXIT
magick -size 1x1 xc:'#000300' xc:'#1C202F' xc:'#AEA3F0' xc:'#E4F0FE' +append "$t/pal.png"
magick "$t/pal.png" -size 1x1 xc:'#A4D1AD' +append "$t/pal5.png"

# art: a seeded crop, stretched, 4-tone ordered dither at button size
read -r w h < <(magick identify -format '%w %h\n' "$src[0]")
magick "$src[0]" -resize "x$((h < 186 ? 186 : h))" "$t/src.png"
read -r w h < <(magick identify -format '%w %h\n' "$t/src.png")
cw=$((w * 3 / 5)); ch=$((cw * 31 / 88)); [ $ch -le $h ] || { ch=$h; cw=$((ch * 88 / 31)); }
best=-1
for i in 0 1 2 3 4 5; do
  cx=$(( (seed / (7 + i * 11)) % (w - cw + 1) )); cy=$(( (seed / (13 + i * 5)) % (h - ch + 1) ))
  sd=$(magick "$t/src.png" -crop "${cw}x${ch}+$cx+$cy" -colorspace gray -format '%[fx:int(standard_deviation*1000)]' info:)
  [ "$sd" -le $best ] || { best=$sd; x=$cx; y=$cy; }
done
magick "$t/src.png" -crop "${cw}x${ch}+$x+$y" +repage -resize '88x31!' -colorspace gray -auto-level -level 0,100%,0.9 \
  \( -size 88x31 gradient:white-'gray(30%)' \) -compose multiply -composite \
  -ordered-dither o4x4,4 "$t/pal.png" -clut "$t/art.png"

# handle: CyberpunkWaifus 11, tightened, then wrapped at a capital/digit if still too wide
txt() { magick -background none -fill '#E4F0FE' +antialias -font fonts/CyberpunkWaifus.ttf -pointsize 11 \
  -interline-spacing -2 -kerning "$2" -gravity center label:"$1" -trim +repage "$t/txt.png"; }
fits() { [ "$(magick identify -format %w "$t/txt.png")" -le 82 ]; }
txt "$handle" 0; fits || txt "$handle" -1
if ! fits; then
  wrapped=$(perl -e '$s=shift; $m=length($s)/2; my($b,$d)=(int $m,99); while($s=~/(?<=[a-z])(?=[A-Z0-9])|(?<=[^_.-])(?=[_.-])/g){my $p=pos($s); ($b,$d)=($p,abs($p-$m)) if abs($p-$m)<$d} print substr($s,0,$b),"\n",substr($s,$b)' "$handle")
  txt "$wrapped" 0; fits || txt "$wrapped" -1
fi
magick "$t/txt.png" -resize '82x>' -alpha extract -threshold 50% -background black -alpha shape "$t/fill.png"
magick "$t/fill.png" -fill '#E4F0FE' -colorize 100% "$t/fill.png"
magick "$t/txt.png" -alpha extract -threshold 50% -morphology Dilate Square:1 -background black -alpha shape -fill black -colorize 100% "$t/edge.png"

g=$(( $(magick identify -format %h "$t/fill.png") > 12 ? 3 : 4 ))
magick -background none -density 72 "$sigil" -resize 11x11 "$t/sig.png"

magick "$t/art.png" \
  "$t/sig.png" -gravity northwest -geometry +3+3 -composite \
  "$t/edge.png" -gravity south -geometry +0+$g -composite \
  "$t/fill.png" -gravity south -geometry +0+$g -composite \
  -fill none -strokewidth 1 -stroke '#000300' -draw 'rectangle 1,1 86,29' -stroke '#AEA3F0' -draw 'rectangle 0,0 87,30' \
  +dither -remap "$t/pal5.png" +repage "$out"
echo "$out ($(basename "$src"))"