Something went wrong. Try again.
Monorepo for Aesthetic.Computer aesthetic.computer
Something went wrong. Try again.
1.0 kB · 29 lines
123456789101112131415161718192021222324252627282930;; -*- lexical-binding: t -*-
(require 'cl-lib)
(defun update-pixel-buffer (frame buffer-name) "Update the pixel buffer for a given FRAME number in BUFFER-NAME." (let ((buffer (get-buffer buffer-name))) (when buffer (with-current-buffer buffer (setq line-spacing -8) ; Adjust this value as needed (erase-buffer) (dotimes (y 32) (dotimes (x 32) (insert (propertize " " 'face `(:background ,(if (cl-evenp (+ x y frame)) "green" "blue"))))) (insert "\n"))))))
(defun start-pixel-animation () "Start the pixel buffer animation." (interactive) (let ((frame 0) (buffer-name "*Pixel Buffer*")) (unless (get-buffer buffer-name) (get-buffer-create buffer-name) (switch-to-buffer buffer-name)) (run-with-timer 0 0.1 (lambda () (update-pixel-buffer frame buffer-name) (setq frame (1+ frame))))))
(start-pixel-animation)