Dan Leslie dleslie

Tiled textures are a fantastic way to spread a little memory around widely, but they often come with a rather noticable lack of variation.

Using this method you can add a lot of variation to a preexisting material, leveraging Stable Diffusion.

I'll be using this map:

	;;; See: https://www.reddit.com/r/emacs/comments/3icpo7/take_a_break_every_3_hours/
	(defvar breaktime-timer nil
	"Holds the running break timer (if any).")
	(defvar breaktime-wait "3 hours"
	"How long to wait for the next break.")

	(defun breaktime--set-next-breaktime ()
	"If we kill a breaktime buffer, set another wait timeout"
	(when (string= (buffer-name) "breaktime")
	(setq breaktime-timer (run-at-time breaktime-wait nil 'breaktime--take-a-break))))

	(defun override-theme (arg)
	"Disables all enabled themes and then loads the provided theme."
	(interactive
	(list
	(intern (completing-read "Load custom theme: "
	(mapcar 'symbol-name (custom-available-themes))))))
	(while custom-enabled-themes
	(disable-theme (car custom-enabled-themes)))
	(load-theme arg t))

	(defun add-font-lock-keywords (modes new-keywords)
	(mapc (lambda (mode)
	(font-lock-add-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")
	(1 font-lock-keyword-face)))))
	modes)
	t)

	(defun remove-font-lock-keywords (modes new-keywords)
	(mapc (lambda (mode)
	(font-lock-remove-keywords mode `((, (concat "(\\(" (regexp-opt (mapcar 'symbol-name (remove-if 'numberp new-keywords)) t) "\\)\\>")

	#!/bin/bash

	for link in `cat list.txt`; do
	fname=`echo $link \| awk -F"/" '{print $5}'`
	wget -c --limit-rate=500k $link -qO - \| flac -cd - \| lame -h - "$fname.mp3"
	sleep 120
	done

Create a tiled map