;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/pix/pix.el
;;
;; created:
;;   2024-10-10
;;
;; howto:
;;   $ mkfifo f
;;   $ pixel.py < f
;;   (pix)
;;   30 000 px in 3.76 s

(defun pix ()
  (let ((pxls 30000)
        (beg (float-time))
        (end))
    (dotimes (_ pxls)
      (write-region "1\n" nil "./f"))
    (setq end (float-time))
    (message "%d px in %.2f s" pxls (- end beg))))

;; (pix)

(provide 'pix)