(defun my/find-skip-bug ()
(interactive)
(goto-char (point-min))
(let* ((ov (car (overlays-at 10)))
(w 146)
(h 29)
(wc (frame-char-width))
(res
(cl-loop
for off from (- (- wc 2)) to (1- wc)
for sw = (+ w off)
for svg = (svg-create sw h) do
(message "Checking with red image width %d" sw)
(svg-rectangle svg 0 0 sw h :fill-color "red")
(overlay-put ov 'display (svg-image svg :ascent 'center))
if (save-excursion
(next-line) (next-line)
(beginning-of-visual-line)
(looking-at "JUMPS HERE"))
return off
finally return nil)))
(if res (message "Found Bug at offset %d = %d pixels" res (+ w res))
(message "Did not find Bug"))))