;; -*- lexical-binding: t; -*-

(defun glitching-frame (x y)
  (tool-bar-mode -1)
  (menu-bar-mode -1)
  (let* ((width 200)
         (height 100)
         (frame (make-frame `((parent-frame . ,(selected-frame))
                              (minibuffer . nil)
                              (left . ,x)
                              (top . ,y)
                              (internal-border-width . 0)
                              (vertical-scroll-bars . nil)
                              (left-fringe . 0)
                              (right-fringe . 0)
                              (no-special-glyphs . t) ; see #52929
                              ;; not setting the width/height causes
                              ;; mode line flickering (see #52666)
                              (width . (text-pixels . ,width))
                              (height . (text-pixels . ,height)))))
         (buf (get-buffer-create "showing the text")))
    (set-face-attribute 'default frame :height 12)
    (set-frame-width frame width nil t)
    (set-frame-height frame height nil t)
    (with-selected-frame frame
      (switch-to-buffer buf)
      (erase-buffer)
      (insert (propertize "Hello!" 'face '(:height 300)))
      (setq cursor-type nil
            mode-line-format nil))
    frame))

(let ((f (glitching-frame 0 0)))
  (read-key)
  (delete-frame f))