#! /bin/bash
# Last edited on 2025-03-28 06:49:15 by stolfi

gnuplot << EOF
  unset key
  unset border
  unset xtics
  unset ytics
  set margins 0,0,0,0
  
  X(kx,ky) = column(kx)
  Y(kx,ky) = column(ky)
  
  scr = 0
  if (scr) {
    # Mapping for screenshot:
    NX = 1920
    NY = 1080
    set output "dots-screenshot.png"
    mapx(kx,ky) = X(kx,ky)
    mapy(kx,ky) = NY - Y(kx,ky)
  } else {
    # Mapping for new map:
    NX = 3083
    NY = 1364
    set output "dots-newmap.png"
    skew(kx,ky) = (Y(kx,ky) - 475)*0.000065527 + 0.77406
    mapx(kx,ky) = (X(kx,ky) - 31)/skew(kx,ky) + 296
    mapy(kx,ky) = NY - ((Y(kx,ky) - 554)*(267.0/196.0) + 750)
  }
  set term png transparent size (NX),(NY)
  set xrange [0:(NX)]
  set yrange [0:(NY)]
  plot "idol-locations.txt" using (mapx(1,2)):(mapy(1,2)) with points pt 7 ps 2 lc rgb '#cc0000'
  quit
EOF
if [[ -s dots-newmap.png ]]; then display dots-newmap.png; fi